Determine size of local array, at run-time, from actual argument :
SUBROUTINE image_process(pixel_map)
INTEGER, DIMENSION(:.:) :: pixel_map
! ...assumed shape;
INTEGER, DIMENSION(SIZE(pixel_map,1),SIZE(pixel_map,2)) :: work_space
! ...automatic;
...
...
|
Use arguments to determine size of local array at run-time :
SUBROUTINE process_thing(sparse, M, N)
INTEGER, DIMENSION(:.:) :: sparse
INTEGER, DIMENSION(M,N) :: work
...
...
|
| ...previous | up (conts) | next... |