 |
» |
|
|
|
Declares
entities of type double complex. SyntaxDOUBLE COMPLEX [ [, attrib-list ] ::] entity-list |
- attrib-list
is a list of one or more of the following attributes,
separated by commas: Table 10-8 Title not available (DOUBLE COMPLEX (extension)) ALLOCATABLE | INTRINSIC | PRIVATE | DIMENSION | OPTIONAL | PUBLIC | EXTERNAL | PARAMETER | SAVE | INTENT | POINTER | TARGET |
If attrib-list is present, it must be followed by the double colon.
For information about individual attributes, see the corresponding
statement in this chapter. - entity-list
is a list of entities, separated by commas. Each
entity takes the form: name [( array-spec )] [= initialization-expr] where: name is the name of a variable or function array-spec is a comma-separated list of dimension bounds initialization-expr is a complex constant expression. If initialization-expr is present, entity-list must be preceded by the double colon.
DescriptionThe DOUBLE COMPLEX statement is an HP Fortran extension that declares
the properties of complex data that has greater precision than data
of default type complex. The two parts of a double complex value
are each a double precision value. The DOUBLE COMPLEX statement is constrained by the rules for type
declaration statements, including the requirement that it precede
all executable statements. Note however, that the DOUBLE COMPLEX statement does not have a kind parameter. ExamplesThe following are valid declarations: DOUBLE COMPLEX x, y
DOUBLE COMPLEX, PARAMETER :: t1(2)=(/(1.2, 0), (-1.01, 0.0009)/)
! use an array constructor to initialize a double complex array
DOUBLE COMPLEX, DIMENSION(2) :: dc_vec = &
(/(2.294D-8, 6.288D-4), (-4.817D4, 0)/)
! use slashes as initialization delimiters, an HP extension
DOUBLE COMPLEX dcx/(2.294D-8, 6.288D-4)/ ! note, no double colon |
Related statementsCOMPLEX Related conceptsFor related information, see the following: |
Printable version
