subroutine prob | |
integer, parameter :: SIZE = 5 | |
real :: matrix(SIZE, SIZE) | |
call new_procedure(SIZE, matrix) | |
print *, matrix | |
end subroutine | |
subroutine new_procedure(SIZE, matrix) | |
implicit none | |
integer :: SIZE | |
real :: matrix(SIZE, SIZE) | |
matrix(:, :) = 0.0 !<<<<<START !<<<<<END | |
end subroutine | |
program main; call prob; call flush; stop; end program |