HP Fortran Programmer's Reference (September 2007)

HP Fortran statements
REAL
Chapter 10446
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 ). If name
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:
• “Type declaration for intrinsic types” on page 109
• “Implicit typing” on page 113
• “Array declarations” on page 59
• “Array constructors” on page 75
• “Expressions” on page 85