HP 3000 Manuals

HP FORTRAN 77/iX Reference

COMPLEX Statement (Nonexecutable) 

The COMPLEX type specification statement explicitly assigns the COMPLEX*8
and COMPLEX*16 data types to symbolic names, and optionally assigns
initial values to variables.

The following syntax includes the COMPLEX, COMPLEX*8, COMPLEX*16, and
DOUBLE COMPLEX statements.

	       Click here to view figure.
            

Semantics 

The COMPLEX*8 statement and the COMPLEX statement are equivalent.  The
COMPLEX*16 statement and the DOUBLE COMPLEX statement are equivalent.
The COMPLEX*8 and COMPLEX*16 statements are extensions to the ANSI 77
standard.

As an extension to the ANSI 77 standard, a length specifier can follow
the item being declared.  This specifier overrides the data length
implied by the type statement.  If the item is an array name with a
dimension declarator, the length specifier precedes the dimension
declarator.  The following example illustrates this syntax:

     COMPLEX*16 a*8(10)

As an extension to the ANSI 77 standard, you can initialize variables or
arrays in a type specification statement by enclosing the initialization
values between slashes.  The following example illustrates this method of
initialization:

     COMPLEX*8 num*16/(138.16,124.16)/

See "DATA Statement (Nonexecutable)"  for further information on
initialization.

MPE/iX 5.0 Documentation