finalyze moving

This commit is contained in:
2025-03-12 14:28:04 +03:00
committed by Dudarenko
parent de4690513b
commit 189374274e
776 changed files with 0 additions and 0 deletions

View File

@@ -0,0 +1,21 @@
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