A block data subprogram can contain as many labeled common blocks and data initializations as desired.
The BLOCK DATA statement must be the first statement in a block data subprogram.
The only other statements that can appear in a block data subprogram are:
COMMON
DATA
DIMENSION
END
EQUIVALENCE
IMPLICIT
PARAMETER
RECORD
SAVE
STRUCTURE
Type statements
Only an entity defined in a labeled common block can be initially defined in a block data subprogram.
If an entity in a labeled common block is initially defined, all entities having storage units in the common block storage sequence must be specified, even if they are not all initially defined.