14 lines
340 B
Fortran
14 lines
340 B
Fortran
PROGRAM TEST
|
|
INTEGER I, K, N
|
|
DOUBLE PRECISION A(20, 20), TMP_BR1(7, 14)
|
|
N = 5
|
|
!$SPF TRANSFORM(SHRINK(TMP_BR1 (1, 0), A(0, 1)))
|
|
!$SPF ANALYSIS(PRIVATE(TMP_BR1, A))
|
|
DO I = 1,N
|
|
DO K = 1,N
|
|
TMP_BR1(K,I) = I + 7
|
|
A(K,I) = TMP_BR1(K,I) + 12
|
|
ENDDO
|
|
ENDDO
|
|
END
|