Open Watcom FORTRAN 77 Language Reference

Language Reference
a
(d)
len
is an array name.
is that part of the array declarator defining the dimensions of the array.
is called the length specification and is an unsigned positive integer constant or an integer
constant expression enclosed in parentheses whose value is 8 or 16.
This form of the COMPLEX statement is a Open Watcom FORTRAN 77 extension to the FORTRAN 77
language. The length specification specifies the number of bytes of storage that will be allocated for the
name appearing in the COMPLEX statement. The default length specification is 8. A length specification of
16 specifies that the data type of the name appearing in the COMPLEX statement is to be double precision
complex.
The length specification immediately following the word COMPLEX is the length specification for each
entity in the statement not having its own length specification. If a length specification is not specified the
default length specification is used. An entity with its own specification overrides the default length
specification or the length specification immediately following the word COMPLEX. Note that for an array
the length specification applies to each element of the array.
Example:
DIMENSION C(-5:5)
COMPLEX A, B*16(10), C*16
COMPLEX*16 X
In the previous example, X is declared to be a variable of type double precision complex, A is declared to be
a variable of type complex and B and C are declared to be arrays of type double precision complex.
2.14.3 Extended COMPLEX Statement: Data Initialization
COMPLEX[*len[,]] name [/cl/] [,name[/cl/]] ...
where:
name
len
cl
is as described in the previous section.
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)
c
is a constant or the symbolic name of a constant
34 COMPLEX Statement