Next:
Sequence Directives Up: Storage Association Previous: Definitions

## Examples of Definitions

IMPLICIT REAL (A-Z) COMMON /FOO/ A(100), B(100), C(100), D(100), E(100) DIMENSION X(100), Y(150), Z(200)

!Example 1: EQUIVALENCE ( A(1), Z(1) ) !Four components: (A, B), C, D, E !Sizes are: 200, 100, 100, 100

!Example 2: EQUIVALENCE ( B(100), Y(1) ) !Three components A, (B, C, D), E !Sizes are: 100, 300, 100

!Example 3: EQUIVALENCE ( E(1), Y(1) ) !Five components: A, B, C, D, E !Sizes are: 100, 100, 100, 100, 150

!Example 4: EQUIVALENCE ( A(51), X(1) ) ( B(100), Y(1) ) !Two components (A, B, C, D), E !Sizes are: 400, 100

!Example 5: EQUIVALENCE ( A(51), X(1) ) ( C(80), Y(1) ) !Two components: (A, B), (C, D, E) !Sizes are: 200, 300

!Example 6: EQUIVALENCE (Y(100), Z(1)) !One aggregate variable group (Y, Z), not involving the COMMON block. !Size is 299

!Example 7: !HPF\$ SEQUENCE /FOO/ !The COMMON has one component, (A, B, C, D, E) !Size is 500 In Examples 1-6, COMMON block /FOO/ is nonsequential. Aggregate variable groups are shown as components in parentheses. Aggregate covers are Z in Example 1 and Y in Example 3.

paula@erc.msstate.edu
Thu Dec 8 16:17:11 CST 1994