FORTRAN - Revision history

Froehlich: fix source formatting

2018-01-27T12:57:53Z

fix source formatting

← Older revision		Revision as of 05:57, 27 January 2018
Line 4:		Line 4:

	=== Zuweisen von Werten ===		=== Zuweisen von Werten ===
	<fortran>		<source lang="fortran">
	real*4 a		real*4 a
	real*8 b		real*8 b

	a = 0.123e0 !das e0 kennzeichnet den Wert als real*4		a = 0.123e0 !das e0 kennzeichnet den Wert als real*4
	b = 0.123d0 !das d0 kennzeichnet den Wert als real*8</~~fortran~~>		b = 0.123d0 !das d0 kennzeichnet den Wert als real*8</source>

	=== Vergleich von Realzahlen ===		=== Vergleich von Realzahlen ===
Line 16:		Line 16:

	'''Momentan verwendet:'''		'''Momentan verwendet:'''
	<fortran>		<source lang="fortran">
	R8_EPSILON = 2 * Epsilon(1.2345d0)		R8_EPSILON = 2 * Epsilon(1.2345d0)
	R4_EPSILON = 2 * Epsilon(1.2654E0) ! entspricht 2**-23</~~fortran~~>		R4_EPSILON = 2 * Epsilon(1.2654E0) ! entspricht 2**-23</source>

	'''Diskussion:'''		'''Diskussion:'''
	<fortran>		<source lang="fortran">
	real*4 a		real*4 a
	real*4 b		real*4 b
Line 33:		Line 33:
	isNull = (ABS(a - b) < Epsilon(a)) !nach Rechenoperationen erwies sich Epsilon als zu ungenau bzw. genau		isNull = (ABS(a - b) < Epsilon(a)) !nach Rechenoperationen erwies sich Epsilon als zu ungenau bzw. genau
	isNull = (ABS(a / b - 1.0E0) < eps) !Relativvergleich - führte bei Tests aber zu Fehlern		isNull = (ABS(a / b - 1.0E0) < eps) !Relativvergleich - führte bei Tests aber zu Fehlern
	isNull = (ABS(a - b) < SPACING(0.0E0))</~~fortran~~>		isNull = (ABS(a - b) < SPACING(0.0E0))</source>

	====Anmerkung====		====Anmerkung====
	Im Code von BlueM sind ein paar nicht korrekte Anweisungen enthalten:		Im Code von BlueM sind ein paar nicht korrekte Anweisungen enthalten:
	<fortran>		<source lang="fortran">
	! FALSCH		! FALSCH
	MAX(dumdidum, R8_EPSILON)		MAX(dumdidum, R8_EPSILON)
	MAX(dumdidum, R4_EPSILON)</~~fortran~~>		MAX(dumdidum, R4_EPSILON)</source>
	Korrekt ist aber:		Korrekt ist aber:
	<fortran>		<source lang=fortran>
	! RICHTIG		! RICHTIG
	MAX(dumdidum, 0.0D0)		MAX(dumdidum, 0.0D0)
	MAX(dumdidum, 0.0E0)</~~fortran~~>		MAX(dumdidum, 0.0E0)</source>

	==== Links ====		==== Links ====
Line 59:		Line 59:

	Das Beispiel verdeutlicht dies:		Das Beispiel verdeutlicht dies:
	<fortran>		<source lang="fortran">
	!---------------------------------------------------------------		!---------------------------------------------------------------
	subroutine TestArrayFortranFortran()		subroutine TestArrayFortranFortran()
Line 97:		Line 97:
	end subroutine		end subroutine
	!---------------------------------------------------------------		!---------------------------------------------------------------
	</~~fortran~~>		</source>

	Ausgabe:		Ausgabe:

Reussner: /* Fixed Form und Free Form */

2008-12-04T11:36:49Z

Fixed Form und Free Form

← Older revision		Revision as of 04:36, 4 December 2008
Line 111:		Line 111:
	^[^cC!][^!]^72		^[^cC!][^!]^72
	</pre>		</pre>
	Visualisierung unter [http://strfriend.com/vis?re=^[^cC!][^!]^72%0D%0A]		Visualisierung unter [http://strfriend.com/vis?re=^%5b^cC!%5d%5b^!%5d^72%0D%0A]

	Bereinigen von Leerzeichen am Ende		Bereinigen von Leerzeichen am Ende

Reussner: /* Fixed Form und Free Form */ Visualisierung

2008-12-04T10:37:47Z

Fixed Form und Free Form: Visualisierung

← Older revision		Revision as of 03:37, 4 December 2008
Line 111:		Line 111:
	^[^cC!][^!]^72		^[^cC!][^!]^72
	</pre>		</pre>
			Visualisierung unter [http://strfriend.com/vis?re=^[^cC!][^!]^72%0D%0A]

	Bereinigen von Leerzeichen am Ende		Bereinigen von Leerzeichen am Ende
Line 116:		Line 117:
	(:b+)$		(:b+)$
	</pre>		</pre>
			Visualisierung unter [http://strfriend.com/vis?re=(%3Ab%2B)%24%0D%0A]

	[[Kategorie: Fortran]]		[[Kategorie: Fortran]]

Reussner: /* Übergabe von Arrays */

2008-10-29T12:39:31Z

Übergabe von Arrays

← Older revision		Revision as of 05:39, 29 October 2008
Line 55:		Line 55:
	In Fortran ist es möglich Teile von Arrays an Funktionen zu übergeben.		In Fortran ist es möglich Teile von Arrays an Funktionen zu übergeben.

	~~Wird zum Beispiel von einem 3-dimensionalen Array <code>array~~(~~i, j, k~~)~~</code>~~ der ~~Ausdruck~~ <code>~~array~~(1, 2, 1)</code> ~~an eine Funktion übergeben~~, die einen Vektor ~~erwartet~~, ~~so bekommt diese einen <code>vektor(i)</code>~~ der sich ~~folgendermaßen zusammensetzt:~~		Dabei wird der Subroutine (oder function) einfach der "Anfangswert" übergeben - z.B. <code>func_array(Huba(1,2,1))</code>.Von diesem Startpunkt wird, dann in der Subroutine ein entsprechendes Array gebildet. Erwartet beispielsweise die Subroutine einen Vektor, dann werden vom jenem Startpunkt an alle Werte der ersten Dimension übernommen. Analog verhält es sich bei mehrdimiensionalen Arrays.
	* <code>array(1, 2, 1)</code>		;Anmerkung: Das Array der Subroutine sollte natürlich kleiner sein, als das Übergebene (vom Startpunkt gezählt) !
	* <code>array(2, 2, 1)</code>
	* <code>array(3, 2, 1)</code>
	* etc.
	~~Wenn die Funktion ein 2-dimensionales~~ Array ~~erwartet~~, ~~erhält sie ein <code>array~~(~~i, j~~)~~</code>, usw.~~

	Das Beispiel verdeutlicht dies:		Das Beispiel verdeutlicht dies:

Froehlich: /* Übergabe von Arrays */

2008-10-29T12:30:01Z

Übergabe von Arrays

← Older revision		Revision as of 05:30, 29 October 2008
Line 53:		Line 53:

	== Übergabe von Arrays ==		== Übergabe von Arrays ==
	In Fortran ist es möglich Teile von Arrays an Funktionen zu übergeben. ~~Wie genau das funktioniert, sollte hier erläutert werden:~~		In Fortran ist es möglich Teile von Arrays an Funktionen zu übergeben.

			Wird zum Beispiel von einem 3-dimensionalen Array <code>array(i, j, k)</code> der Ausdruck <code>array(1, 2, 1)</code> an eine Funktion übergeben, die einen Vektor erwartet, so bekommt diese einen <code>vektor(i)</code> der sich folgendermaßen zusammensetzt:
			* <code>array(1, 2, 1)</code>
			* <code>array(2, 2, 1)</code>
			* <code>array(3, 2, 1)</code>
			* etc.
			Wenn die Funktion ein 2-dimensionales Array erwartet, erhält sie ein <code>array(i, j)</code>, usw.

	Das Beispiel ~~zeigt was genau übergeben wird~~:		Das Beispiel verdeutlicht dies:
	<fortran>		<fortran>
	!---------------------------------------------------------------		!---------------------------------------------------------------
Line 63:		Line 69:
	integer i		integer i
	integer j		integer j



	do i = 1, ubound(arr,1)		do i = 1, ubound(arr,1)

Reussner: /* Übergabe von Arrays */

2008-10-29T10:14:34Z

Übergabe von Arrays

← Older revision		Revision as of 03:14, 29 October 2008
Line 100:		Line 100:

	Ausgabe:		Ausgabe:
	[[Bild:ConsolenAusgabe TestArray.~~jpg~~]]		[[Bild:ConsolenAusgabe TestArray.png]]

	== Fixed Form und Free Form ==		== Fixed Form und Free Form ==

Reussner: /* Übergabe von Arrays */

2008-10-29T10:11:51Z

Übergabe von Arrays

@@ Line 54: / Line 54: @@
 == Übergabe von Arrays ==
 In Fortran ist es möglich Teile von Arrays an Funktionen zu übergeben. Wie genau das funktioniert, sollte hier erläutert werden:
-<div class="achtung">
-TODO!!!
-</div>
+Das Beispiel zeigt was genau übergeben wird:
 == Fixed Form und Free Form ==

Reussner: /* Anmerkung */

2008-10-29T09:08:28Z

Anmerkung

← Older revision		Revision as of 02:08, 29 October 2008
Line 38:		Line 38:
	Im Code von BlueM sind ein paar nicht korrekte Anweisungen enthalten:		Im Code von BlueM sind ein paar nicht korrekte Anweisungen enthalten:
	<fortran>		<fortran>
			! FALSCH
	MAX(dumdidum, R8_EPSILON)		MAX(dumdidum, R8_EPSILON)
	MAX(dumdidum, R4_EPSILON)</fortran>		MAX(dumdidum, R4_EPSILON)</fortran>
	Korrekt ist aber:		Korrekt ist aber:
	<fortran>		<fortran>
			! RICHTIG
	MAX(dumdidum, 0.0D0)		MAX(dumdidum, 0.0D0)
	MAX(dumdidum, 0.0E0)</fortran>		MAX(dumdidum, 0.0E0)</fortran>

Froehlich: Übergabe von Arrays

2008-10-28T13:21:00Z

Übergabe von Arrays

← Older revision		Revision as of 06:21, 28 October 2008
Line 49:		Line 49:
	* [http://softwarecommunity.intel.com/isn/Community/en-US/forums/thread/30231255.aspx Aus dem Intel-Forum]		* [http://softwarecommunity.intel.com/isn/Community/en-US/forums/thread/30231255.aspx Aus dem Intel-Forum]
	* Guter Artikel über Problematik: [http://www.lahey.com/float.htm The Perils of Floating Point]		* Guter Artikel über Problematik: [http://www.lahey.com/float.htm The Perils of Floating Point]

			== Übergabe von Arrays ==
			In Fortran ist es möglich Teile von Arrays an Funktionen zu übergeben. Wie genau das funktioniert, sollte hier erläutert werden:
			<div class="achtung">
			TODO!!!
			</div>

	== Fixed Form und Free Form ==		== Fixed Form und Free Form ==

Froehlich: Formatierung

2008-10-10T13:32:07Z

Formatierung

@@ Line 1: / Line 1: @@
-== Fixed Form und Free Form ==
+<div style="float:right; margin-left:10px;">__TOC__</div>
 == Real Werte und Vergleiche ==
-Ein wichtiger Punkt bei der Programmierung mit Fortran ist die Behandlung der Real Werte. Insbesondere der vergleich, ob zwei Real Werte gelich sind, ist in FORTRAN nur durch eine erweiterte Syntax möglich.
+Ein wichtiger Punkt bei der Programmierung mit Fortran ist die Behandlung der Real Werte. Insbesondere der vergleich, ob zwei Real Werte gleich sind, ist in FORTRAN nur durch eine erweiterte Syntax möglich.
 <fortran>
 real*4 a
@@ Line 24: / Line 9: @@
 a = 0.123e0 !das e0 kennzeichnet den Wert als real*4
 b = 0.123d0 !das d0 kennzeichnet den Wert als real*8</fortran>
 === Vergleich von Realzahlen ===
@@ Line 68: / Line 50: @@
 * Guter Artikel über Problematik: [http://www.lahey.com/float.htm The Perils of Floating Point]
 [[Kategorie: Fortran]]