PARAMETER

Purpose

The PARAMETER attribute allows you to specify names for constants.

Syntax


                 .-,---------------------------------.      
                 V                                   |      
>>-PARAMETER--(----constant_name-- = --constant_expr-+--)------><

constant_expr: A constant expression

Rules

A named constant must have its type, shape, and parameters specified in a previous specification statement in the same scoping unit or be declared implicitly. If a named constant is implicitly typed, its appearance in any subsequent type declaration statement or attribute specification statement must confirm the implied type and any parameter values.

You can define constant_name only once with a PARAMETER attribute in a scoping unit.

A named constant that is specified in the constant expression must have been previously defined (possibly in the same PARAMETER or type declaration statement, if not in a previous statement) or made accessible through use or host association.

The constant expression is assigned to the named constant using the rules for intrinsic assignment. If the named constant is of type character and it has inherited length, it takes on the length of the constant expression.

Table 1. Attributes compatible with the PARAMETER attribute
DIMENSION	PRIVATE	PUBLIC

Examples

REAL, PARAMETER :: TWO=2.0

COMPLEX      XCONST
REAL         RPART,IPART
PARAMETER    (RPART=1.1,IPART=2.2)
PARAMETER    (XCONST = (RPART,IPART+3.3))

CHARACTER*2, PARAMETER :: BB='   '
    ...
END

Related information

Voice your opinion on getting help information

Ask IBM compiler experts a technical question in the IBM XL compilers forum