HP Fortran Programmer's Reference (September 2007)

HP Fortran statements
DOUBLE PRECISION
Chapter 10 333
Description
The DOUBLE PRECISION statement is used to declare the properties of real data that has
greater precision than data of default type real. By default, the DOUBLE PRECISION statement
is equivalent to the REAL(KIND=8) statement.
The DOUBLE PRECISION statement is constrained by the rules for type declaration statements,
including the requirement that it precede all executable statements. Note, however, that the
DOUBLE PRECISION statement does not have a kind parameter.
Examples
The following are valid declarations:
DOUBLE PRECISION x, y
DOUBLE PRECISION, PARAMETER :: pi=3.1415927D0
! use an array constructor to initialize a double precision array
DOUBLE PRECISION, DIMENSION(4) :: dp_vec= &
(/4.7D0, 5.2D0, 3.3D0, 2.9D0/)
! use slashes as initialization delimiters, an HP extension
DOUBLE PRECISION dp1/5.28D0/, dp2/72.3D0/ ! note, no double colon
Related statements
REAL
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