◄Up► ◄Contents► ◄Index► ◄Back►
─────COMPLEX────────────────────────────────────────────────────────────────
 
     Action
 
     Specifies the COMPLEX type for user-defined names.
 
     Syntax
 
     COMPLEX [*bytes] vname [ [attrs] ] [*length][(dim)][/values/]
     [,vname [ [attrs] ] [*length][(dim)][/values/] ]...
 
     The order of the <length> and <dim> parameters can be reversed.
 
     Parameter          Description
 
     bytes              The length, in bytes, of the names in the
                        COMPLEX statement. Must be 8 or 16. Can be
                        overridden by the <length> parameter.
 
     vname              Name of the constant, variable, or function.
                        Cannot be the name of a subroutine or a main
                        program.
 
     [attrs]            A list of attributes separated by commas.
                        Valid attributes are: ALIAS, ALLOCATABLE, C,
                        EXTERN, FAR, HUGE, NEAR, PASCAL, REFERENCE,
                        VALUE.
 
     length             Length of <vname>, in bytes. Must be 8 or 16.
                        If given, it overrides the length specified by
                        <bytes>.
 
     dim                A dimension declarator. Specifying <dim> declares
                        <vname> as an array.
 
     values             A list of constants to initialize <vname> to,
                        separated by commas.
 
     Remarks
 
     The name <vname> is defined for the entire program unit and cannot
     be defined by any other type statement in that program unit.
 
     COMPLEX statements must precede all executable statements.
 
     DOUBLE COMPLEX and COMPLEX*16 represent the same data type.
 
     Examples
 
           COMPLEX  ch, zdif*8, xdif*16
 
           COMPLEX*8  zz
 
           COMPLEX*16  ax, by
 
           COMPLEX  x*16, y(10)*8, z*16(10)
                                    -♦-