program
main integer :: max parameter (max = 10) integer , dimension (max,max) ::clouds integer , dimension (max,max) ::ocean integer :: i,j do i = 1,10 do j= 1,10 clouds(i,j) = ocean(i+2,j-1) end do end do end program main |
program main integer :: max parameter (max = 10) integer , dimension (max,max) ::clouds integer , dimension (max,max) ::ocean integer :: i,j do j= 1,10 do i = 1,10 clouds(i,j) = ocean(i+2,j-1) end do end do end program main |