allocate_5d_r_sp Subroutine

private subroutine allocate_5d_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(5) :: 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(5) :: order

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