The Initialize_Logical procedure allocates and initializes a logical scalar or array variable.
|call Initialize (L, [dim1, ..., dimn,] status)|
|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.|
|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.|
The Initialize_Logical code listing contains additional documentation.
Michael L. Hall