| ABS | Absolutbetrag einer Zahl |
| AIMAG | Imaginärteil einer komplexen Zahl |
| AINT | die (reelle) Zahl ohne die Nachkommastellen |
| ANINT | die gerundete Zahl |
| CEILING | kleinste ganzzahlige Zahl >= einer gegebenen Zahl |
| CMPLX | wandelt eine Zahl in eine COMPLEX-Zahl um |
| CONJG | konjugiert komplexe Zahl zu komplexer Zahl |
| DBLE | wandelt eine Zahl in eine DOUBLE PRECISION-Zahl um |
| DIGITS | Anzahl signifikanter Ziffern im Zahlenmodell des Parameters |
| DIM | liefert x-y, falls positiv, sonst 0 |
| DPROD | DOUBLE PRECISION-Produkt zweier REAL-Zahlen |
| EPSILON | betragskleinste Differenz /= 0 |
| EXPONENT | Exponententeil des Parameters |
| FLOOR | größte ganze Zahl <= einer gegebenen Zahl |
| FRACTION | Mantisse einer Zahl |
| HUGE | größter Wert im Zahlenmodell des Parameters |
| INT | Konvertierung in eine INTEGER-Zahl |
| MAX, MIN | liefert den größten bzw. kleinsten Wert der Parameter |
| MAXEXPONENT | liefert den größten bzw. kleinsten Exponenten im |
| MINEXPONENT | Zahlenmodell des Parameters |
| MOD | liefert den Rest der modulo-Funktion |
| MODULO | Wert der modulo-Funktion |
| NEAREST | nächste darstellbare Zahl |
| NINT | die gerundete Zahl in eine INTEGER-Zahl konvertiert |
| PRECISION | liefert die Genauigkeit des Zahlenmodells des Parameters |
| RADIX | Basis des Zahlenmodells, dem der Parameter angehört |
| RANGE | Exponentenbereich des Zahlenmodells |
| REAL | Typkonvertierung nach REAL |
| RRSPACING | reziproker Wert des relativen Abstands der Modellzahlen |
| in der Umgebung des Parameters | |
| SCALE | 1. Parameter × Basis des 1. hoch 2. (INTEGER) |
| SIGN | Betrag des 1. mit Vorzeichen des 2. Parameters |
| SPACING | Wert des absoluten Abstands der Modellzahlen |
| in der Umgebung des Parameters | |
| TINY | kleinste positive Zahl im Zahlenmodell |
Ein kurzes (sinnloses) Beispiel zur Verwendung der meisten numerischen Funktionen
PROGRAM numerik IMPLICIT NONE REAL :: x, y x = 5.2; y = -3.7 WRITE (*,*) FLOOR(x), INT(x), FLOOR(y), INT(y) ! 5 5 -4 -3 WRITE (*,*) FLOOR(x)/INT(x), FLOOR(y)/INT(y) ! 1 1 WRITE (*,*) x, .000000001 ! 5.200000 9.9999997E-10 WRITE (*,*) nearest(x,-2.), nearest(.000000001,3.) ! 5.199999 1.0000001E-09 WRITE (*,*) ceiling(x), ceiling(y) ! 6 -3 WRITE (*,*) ABS(y), AINT(y) ! 3.700000 -3.000000 WRITE (*,*) ANINT(x), ANINT(y), NINT(y) ! 5.000000 -4.000000 -4 WRITE (*,*) EPSILON(x), TINY(y) ! 1.192E-07 1.175E-38 WRITE (*,*) HUGE(x), maxexponent(y) ! 3.402E+38 128 WRITE (*,*) MAX(x,y), INT(MIN(x,y)) ! 5.2000000 -3 WRITE (*,*) MOD(x,y), MOD(INT(x), ABS(INT(y))) ! 1.5000000 2 WRITE (*,*) modulo(x,y), modulo(INT(x),ABS(INT(y))) ! -2.2000000 2 WRITE (*,*) precision(x),range(x),radix(y),digits(x)! 6 37 2 24 WRITE (*,*) DIM(x,y), rrspacing(x), scale(x,INT(y)) ! 8.900 1.090E+07 0.650 WRITE (*,*) fraction(x) * radix(x) ** exponent(x) ! 5.2000000 WRITE (*,*) scale(fraction(x),exponent(x)), x ! 5.2000000 5.2000000 WRITE (*,*) fraction(x), radix(x), exponent(x) ! 0.650 2 3 WRITE (*,*) SIGN(x,y) ! -5.200 WRITE (*,*) spacing(x), spacing(y) ! 4.768E-07 2.384E-07 WRITE (*,*) dprod(x,y) ! -19.2399995422363 END PROGRAM numerik