40 lines
832 B
Fortran
40 lines
832 B
Fortran
program loops_combiner_test
|
|
implicit none
|
|
parameter (l = 16,m = 6)
|
|
real :: a(l),b(l),c(l)
|
|
|
|
do it1 = 1,m
|
|
do k1 = 1,l
|
|
do p1 = 1, l + m
|
|
a(k1) = it1 + k1 + p1
|
|
enddo
|
|
enddo
|
|
do k1_2 = 1,l
|
|
do p1_2 = 1, l + m
|
|
b(k1_2) = it1 + k1_2 - p1_2
|
|
enddo
|
|
enddo
|
|
enddo
|
|
|
|
do it2 = 1,m
|
|
do k2 = 1,l
|
|
c(k2) = k2 - it2
|
|
enddo
|
|
enddo
|
|
|
|
do it3 = 1,m
|
|
do k3 = 1,l
|
|
do p3 = 1, l + m
|
|
a(k3) = it3 + k3 * p3
|
|
enddo
|
|
enddo
|
|
do k3_2 = 1,l
|
|
do p3_2 = 1, l + m
|
|
b(k3_2) = it3 + k3_2 / p3_2
|
|
enddo
|
|
enddo
|
|
enddo
|
|
|
|
end
|
|
|