Fortran: FORTRAN 77: Standardfunktionen

<<< zur Fortran-Startseite
<< FORTRAN 77	Fortran 90/95 >>
< Verzweigungen und Schleifen	Unterprogramme >

In diesem Kapitel werden für die Funktionsargumente und Rückgabewerte nachfolgende Kürzel verwendet, die Aufschluss über die möglichen Datentypen geben.

Kürzel	Datentypen
i	`INTEGER`
r	`REAL`
d	`DOUBLE PRECISION`
x	`COMPLEX`
c	`CHARACTER*n`
l	`LOGICAL`

Datentypumwandlung

Umwandlung in INTEGER

i = INT(i)

Abschneiden des Nachkommaanteils:

i = INT(r)
i = IFIX(r)
i = IDINT(d)

i = INT(x)

ASCII-Wert des Zeichens c:

i = ICHAR(c)

Umwandlung in REAL

r = REAL(i)
r = FLOAT(i)
r = REAL(r)
r = SNGL(d)
r = REAL(x)

Umwandlung in DOUBLE

d = DBLE(i)
d = DBLE(r)
d = DBLE(d)
d = DBLE(x)

Umwandlung in COMPLEX

x = CMPLX(i)
x = CMPLX(r)
x = CMPLX(d)
x = CMPLX(x)

Umwandlung in CHARACTER

Gibt das Zeichen zum ASCII-Wert i zurück.

c = CHAR(i)

Mathematische Funktionen

Abschneiden des Nachkommaanteils

Ist das Argument größer Null, wird die nächstkleinere ganze Zahl zurückgegeben. Ist das Argument kleiner Null, wird die nächstgrößere ganze Zahl zurückgegeben.

r = AINT(r)
d = DINT(d)

Runden

Ist das Argument größer oder gleich Null, ist der Rückgabewert INT(X+0.5). Ist das Argument kleiner Null, ist der Rückgabewert INT(X-0.5)

r = ANINT(r)
d = DNINT(d)
i = NINT(r)
i = IDNINT(d)

Absolutwert

i = IABS(i)
r = ABS(r)
d = DABS(d)
r = CABS(x)

Double Precision-Produkt

Rückgabewert ist r1 × r2 mit Datentyp DOUBLE PRECISION

d = DPROD(r1, r2)

Modulo

Rückgabewert ist zahl1 - INT(zahl1 /zahl2)*zahl2

i = MOD(i1, i2)
r = AMOD(r1, r2)
d = DMOD(d1, d2)

Vorzeichentransfer

Wenn die zahl2 >= 0 ist, dann wird |zahl1| zurückgegeben. Wenn die zahl2 < 0 ist, dann wird -|zahl1| zurückgegeben.

i = ISIGN(i1, i2)
r = SIGN(r1, r2)
d = DSIGN(d1, d2)

Positive Differenz

Für zahl1 > zahl2 ist der Rückgabewert zahl1 - zahl2. Für zahl1 <= zahl2 wird Null zurückgegeben.

i = IDIM(i1, i2)
r = DIM(r1, r2)
d = DDIM(d1, d2)

Maximum

Gibt den größten Argumentwert zurück.

i = MAX0(i1, i2, ...)
r = AMAX1(r1, r2, ...)
d = DMAX1(d1, d2, ...)
r = AMAX0(i1, i2, ...)
i = MAX1(r1, r2, ...)

Minimum

Gibt den kleinsten Argumentwert zurück.

i = MIN0(i1, i2, ...)
r = AMIN1(r1, r2, ...)
d = DMIN1(d1, d2, ...)
r = AMIN0(i1, i2, ...)
i = MIN1(r1, r2, ...)

Komplexe Zahlen

Gibt den Imaginärteil zurück:

r = AIMAG(x)

Gibt die konjugiert komplexe Zahl zurück:

x = CONJG(x)

Quadratwurzel

Gibt die Quadratwurzel zurück:

r = SQRT(r)
d = DSQRT(d)
x = CSQRT(x)

Exponentialfunktion

Gibt natürliche Exponentialfunktion zurück:

r = EXP(r)
d = DEXP(d)
x = CEXP(x)

Logarithmus naturalis

Gibt den natürlichen Logarithmus zurück:

r = ALOG(r)
d = DLOG(d)
x = CLOG(x)

Dekadischer Logarithmus

Gibt den dekadischen Logarithmus zurück:

r = ALOG10(r)
d = DLOG10(d)

Winkelfunktionen

r = SIN(r)
d = DSIN(d)
x = CSIN(x)

r = COS(r)
d = DCOS(d)
x = CCOS(x)

r = TAN(r)
d = DTAN(d)

Arkusfunktionen

r = ASIN(r)
d = DASIN(d)

r = ACOS(r)
d = DACOS(d)

r = ATAN(r)
d = DATAN(d)

Gibt $\mathrm {arctan} ({\tfrac {r1}{r2}})$ zurück:

r = ATAN2(r1, r2)
d = DATAN2(d1, d2)

Diese Funktionen sind für ähnliche Werte der beiden Argumente erheblich genauer.

Hyperbelfunktionen

r = SINH(r)
d = DSINH(d)

r = COSH(r)
d = DCOSH(d)

r = TANH(r)
d = DTANH(d)

Zeichenketten-Funktionen

Länge

i = LEN(c)

Index eines Teilstrings

Gibt die erste Position des Auftretens eines Teilstrings c2 in c1 zurück. c2 muss eine (benannte) Konstante sein.

i = INDEX(c1, c2)

Lexikalische Funktionen

Hier wird unabhängig von der Plattform immer der ASCII-Zeichensatz als Grundlage verwendet.

Lexikalisch größer oder gleich (Rückgabewert ist .TRUE. wenn c1 >= c2):

l = LGE(c1, c2)

Lexikalisch größer als (Rückgabewert ist .TRUE. wenn c1 > c2):

l = LGT(c1, c2)

Lexikalisch kleiner oder gleich (Rückgabewert ist .TRUE. wenn c1 <= c2):

l = LLE(c1, c2)

Lexikalisch kleiner als (Rückgabewert ist .TRUE. wenn c1 < c2):

l = LLT(c1, c2)

Obige Funktionenauflistung basiert auf dem Fortran 77 Sprachstandard X3J3/90.4, Kap.15: Functions and Subroutines.

<<< zur Fortran-Startseite
<< FORTRAN 77	Fortran 90/95 >>
< Verzweigungen und Schleifen	Unterprogramme >