Compaq Fortran provides the following intrinsic data types:
There are four kind parameters for data of type integer:
This kind is only available on Alpha processors.
There are three kind parameters for data of type real:
This kind is only available on OpenVMS and Tru64 UNIX systems.
No kind parameter is permitted for data declared with type DOUBLE PRECISION. This data type is the same as REAL([KIND=]8).
There are two kind parameters for data of type complex:
No kind parameter is permitted for data declared with type DOUBLE COMPLEX. This data type is the same as COMPLEX([KIND=]8).
There are four kind parameters for data of type logical:
This kind is only available on Alpha processors.
There is one kind parameter for data of type character: CHARACTER([KIND=]1).
This is a 1-byte value; the data type is equivalent to INTEGER([KIND=]1).
The intrinsic function KIND can be used to determine the kind type parameter of a representation method.
For more portable programs, you should not use the forms INTEGER([KIND=]n) or REAL([KIND=]n). You should instead define a PARAMETER constant using the SELECTED_INT_KIND or SELECTED_REAL_KIND function, whichever is appropriate. For example, the following statements define a PARAMETER constant for an INTEGER kind that has 9 digits:
INTEGER, PARAMETER :: MY_INT_KIND = SELECTED_INT_KIND(9) ... INTEGER(MY_INT_KIND) :: J ...
The following sections describe the intrinsic data types and forms for literal constants for each type.