Next: RENAME, Previous: RANK, Up: Intrinsic Procedures [Contents][Index]
REAL — Convert to real typeREAL(A [, KIND]) converts its argument A to a real type. The
REALPART function is provided for compatibility with g77,
and its use is strongly discouraged.
Fortran 77 and later, with KIND argument Fortran 90 and later, has GNU extensions
Elemental function
RESULT = REAL(A [, KIND]) |
RESULT = REALPART(Z) |
| A | Shall be INTEGER, REAL, or
COMPLEX. |
| KIND | (Optional) A scalar INTEGER constant
expression indicating the kind parameter of the result. |
These functions return a REAL variable or array under
the following rules:
REAL(A) is converted to a default real type if A is an
integer or real variable.
REAL(A) is converted to a real type with the kind type parameter
of A if A is a complex variable.
REAL(A, KIND) is converted to a real type with kind type
parameter KIND if A is a complex, integer, or real
variable.
program test_real complex :: x = (1.0, 2.0) print *, real(x), real(x,8), realpart(x) end program test_real
| Name | Argument | Return type | Standard |
|---|---|---|---|
FLOAT(A) | INTEGER(4) | REAL(4) | Fortran 77 and later |
DFLOAT(A) | INTEGER(4) | REAL(8) | GNU extension |
FLOATI(A) | INTEGER(2) | REAL(4) | GNU extension (-fdec) |
FLOATJ(A) | INTEGER(4) | REAL(4) | GNU extension (-fdec) |
FLOATK(A) | INTEGER(8) | REAL(4) | GNU extension (-fdec) |
SNGL(A) | REAL(8) | REAL(4) | Fortran 77 and later |
Next: RENAME, Previous: RANK, Up: Intrinsic Procedures [Contents][Index]