23 lines
413 B
Fortran
23 lines
413 B
Fortran
|
program BasicCreateNestedLoops
|
||
|
|
parameter (nx = 10, ny = 10)
|
||
|
|
integer a(nx, ny), b(nx, ny)
|
||
|
|
integer i, j, inv
|
||
|
|
|
||
|
|
print *, "TEST START"
|
||
|
|
do j = 1, ny
|
||
|
|
do i = 1, nx
|
||
|
|
a(i, j) = 1
|
||
|
|
b(i, j) = 2
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
do j = 1, ny
|
||
|
|
inv = nx * ny
|
||
|
|
do i = 1, nx
|
||
|
|
a(i, j) = 1 + b(i, j) * inv
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
print*, "Result", a(1, 1), a(nx, 1)
|
||
|
|
print *, "TEST END"
|
||
|
|
end
|