22 lines
498 B
Fortran
22 lines
498 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
|
||
|
|
do i = 1,nx
|
||
|
|
inv = nx * ny
|
||
|
|
a(i,j) = 1 + b(i,j) * inv
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
print *, "Result",a(1,1),a(nx,1)
|
||
|
|
print *, "TEST END"
|
||
|
|
end
|
||
|
|
|