mirror of
https://review.haiku-os.org/buildtools
synced 2025-01-19 12:51:22 +01:00
22 lines
379 B
FortranFixed
22 lines
379 B
FortranFixed
|
! Generated from ../../../git/cloog/test/yosrf.cloog by CLooG 0.14.0-136-gb91ef26 gmp bits in 0.01s.
|
||
|
|
IF (n >= 2) THEN
|
||
|
|
DO j=2, n
|
||
|
|
S1(1,j)
|
||
|
|
END DO
|
||
|
|
DO proc=2, n-1
|
||
|
|
DO i=1, proc-1
|
||
|
|
DO j=i+1, n
|
||
|
|
S2(i,j,proc)
|
||
|
|
END DO
|
||
|
|
END DO
|
||
|
|
DO j=proc+1, n
|
||
|
|
S1(proc,j)
|
||
|
|
END DO
|
||
|
|
END DO
|
||
|
|
DO i=1, n-1
|
||
|
|
DO j=i+1, n
|
||
|
|
S2(i,j,n)
|
||
|
|
END DO
|
||
|
|
END DO
|
||
|
|
END IF
|