8.4.1 Initialize_Logical Procedure

The Initialize_Logical procedure allocates and initializes a logical scalar or array variable.

Calling syntax:

call Initialize (L, [dim1, ..., dimn,] status)

Input variables:

 L  A logical scalar variable or a pointer to an unallocated logical array variable.
 dim1, ..., dimn  Extents of the dimensions for the array L. Only as many dimensions as are needed should be entered.

Output variables:

 L  The L variable has been allocated (if it is an array) and initialized to initialize_logical_flag.
 status  If present, the status variable is set to either 'Memory Error' or 'Success' depending on program execution. If not present, the procedure aborts if unsuccessful when the DEBUG_LEVEL is set high enough.

Internal variable:

 allocate_status  Allocation Status.

The Initialize_Logical code listing contains additional documentation.

Michael L. Hall