Open Watcom FORTRAN 77 Language Reference

Language Reference
2.64 PARAMETER Statement
PARAMETER (p=e [,p=e] ...)
where:
p
e
is a symbolic name.
is a constant expression. Refer to the chapter entitled "Expressions" on page 173 for more
information.
p is known as a symbolic constant whose value is determined by the value of the expression e according to
the rules of assignment as described in the chapter entitled "Assignment Statements" on page 187. Any
symbolic constant appearing in expression e must have been previously defined in the same or a previous
PARAMETER statement in the same program unit. A symbolic constant may not be defined more than once
in a program unit.
If the symbolic name p is of type integer, real, double precision or complex then the corresponding
expression e must be an arithmetic constant expression (see the chapter entitled "Expressions" on page
173). If the symbolic name p is of type character or logical then the expression e must be a character
constant expression or a logical constant expression respectively (see the chapter entitled "Expressions" on
page 173).
Example:
PARAMETER (PI=3.14159,BUFFER=80,PIBY2=PI/2)
PARAMETER (ERRMSG=’AN ERROR HAS OCCURRED’)
If a symbolic constant is not of default implied type, its type must be specified in an IMPLICIT statement
or a type statement before its occurrence in a PARAMETER statement. Similarly, if the length of a character
symbolic constant is not the default length of 1, its length must be specified in an IMPLICIT statement or
a type statement before its occurrence in a PARAMETER statement.
116 PARAMETER Statement