FORTRAN Reference Manual

Statements
FORTRAN Reference Manual—528615-001
7-13
CALL Statement
•
Observe the following restrictions when using the BLOCK DATA statement:
°
Write the BLOCK DATA statement as the first statement of a block data
subprogram.
°
Use only one unnamed block data subprogram in an executable program.
°
Terminate the BLOCK DATA subprogram with an END statement.
°
You cannot initialize RECORD fields in BLOCK DATA subprograms.
°
You can initialize variables and arrays in common blocks only in BLOCK DATA
subprograms.
•
For additional information about block data subprograms, see Section 4, Program
Units.
Example
The following example shows the block data subprogram TAXRATES. It initializes the
entities SURCHARGE, VAT, and SALES to the values .05, .25, and .06 respectively.
BLOCK DATA taxrates
REAL surcharge, vat, sales
COMMON/taxes/ surcharge, vat, sales
DATA surcharge/.05/, vat/.25/, sales/.06/
END
CALL Statement
The CALL statement transfers control to the specified subroutine.
subroutine-name
is the name of a subroutine or dummy procedure.
arg
is an actual argument that is an expression, an array name, a RECORD field, an
intrinsic function name, an external procedure name, a dummy procedure name, or
an alternate return specifier of the form
* label
where label is the label of an executable statement in the same program unit as
the CALL statement.
CALL subroutine-name [ ( [ arg [, arg ]... ] ) ]