Open Watcom FORTRAN 77 Language Reference

FORTRAN Statements
2.22 DOUBLE PRECISION Statement
The DOUBLE PRECISION statement is a type declaration statement and can be used to declare a name to
be of type double precision. The implicit type of the name, whether defined by the "first letter rule" (see
the chapter entitled "Names, Data Types and Constants" on page 151) or by an IMPLICIT statement, is
either confirmed or overridden. However, once a name has been declared to be of type double precision, it
cannot appear in another type declaration statement.
There are various forms of the DOUBLE PRECISION statement. The following sections describe them.
2.22.1 Standard DOUBLE PRECISION Statement
DOUBLE PRECISION name [,name] ...
where:
name
is a variable name, array name, array declarator, symbolic name of a constant, function name or
dummy procedure name.
This form is the standard form of the DOUBLE PRECISION statement.
Example:
DIMENSION C(-5:5)
DOUBLE PRECISION A, B(10), C
In the previous example, A is defined to be a variable of type double precision and B and C are defined to
be arrays of type double precision.
2.22.2 Extended DOUBLE PRECISION Statement: Data Initialization
DOUBLE PRECISION name [/cl/] [,name[/cl/]] ...
where:
name
cl
is as described in the previous section.
is a list of the form:
k [,k] ...
k
is one of the forms:
c
r*c (equivalent to r successive appearances of c)
DOUBLE PRECISION Statement 51