allocate_4d_r_sp Subroutine

private subroutine allocate_4d_r_sp(array, shape_spec, source, order)

Allocate array according to shape_spec. Possibly assign array from source.

Note

this does not fully replace Fortran RESHAPE intrinsic since source and target array must have same rank.

Arguments

Type IntentOptional Attributes Name
real(kind=real_4), intent(out), DIMENSION(:,:,:,:), ALLOCATABLE :: array

target array.

integer, intent(in), optional, DIMENSION(4) :: shape_spec

shape of array to be allocated. If shape is not specified, it is derived from source.

real(kind=real_4), intent(in), optional, DIMENSION(:,:,:,:) :: source

source array to be copied to target array, must have same rank as target array.

integer, intent(in), optional, DIMENSION(4) :: order

in which order to copy source to array (same convention as RESHAPE intrinsic).