unaryExpand Module Function

pure module function unaryExpand(input, realParams, intParams, logicalParams) result(output)

Unary wrapper expanding an array with another array. String name "expand". Uses realParams as the expanding array. After expansion it uses intParams(1) to determine how many times the result should be copied. The result is output((i-1)size(input)size(realParams)+(j-1)size(realParams)+k) = input(j)realParams(k) where j=1,size(input) and i=1,intParams(1)

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in), dimension(:) :: input
real(kind=rk), intent(in), optional, dimension(:) :: realParams
integer(kind=ik), intent(in), optional, dimension(:) :: intParams
logical, intent(in), optional, dimension(:) :: logicalParams

Return Value real(kind=rk), allocatable, dimension(:)