[ HPF Home | Versions | Compilers | Projects | Publications | Applications | Benchmarks | Events | Contact ] |
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.
©2000-2006 Rice University | [ Contact Us | HiPerSoft | Computer Science ] |