HP Fortran Programmer's Reference

HP Fortran statements
REAL
Description
The REAL statement is used to declare the length and properties of data that approximate the
mathematical real numbers. A kind parameter (if present) indicates the representation
method.
The REAL statement is constrained by the rules for all type declaration statements, including
the requirement that it precede all executable statements.
As a portability extension, HP Fortran allows the following syntax for specifying the length of
an entity:
name [*len] [( array-spec )] [= initialization-expr]
If (array-spec) is specified, *len may appear on either side of (array-spec). Ifname
appears with *len, it overrides the length specified by REAL*size.
Examples
The following are valid declarations:
REAL, TARGET :: x, y
REAL(KIND=16) :: z
REAL(4), PARAMETER :: pi=3.14
! initialize an array, using an array constructor
REAL, DIMENSION(4) :: rvec=(/ 1.1,2.2,3.3,4.4 /)
! use the slash notation (an HP extension) to initialize
REAL x/2.87/, y/93.34/, z/13.99/ ! note, no double colon
! the following declarations are equivalent; the second uses the
! HP length specification extension
REAL (KIND = 8) x
REAL*4 x*8
Related statements
DOUBLE PRECISION
Related concepts
For related information, see the following:
412
“Type declaration for intrinsic types” on page 27
“Implicit typing” on page 31
“Array declarations” on page 57
“Array constructors” on page 73
“Expressions” on page 83
Chapter 10