allocate_5d_i Subroutine

private subroutine allocate_5d_i(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
integer, 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.

integer, 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).