rearrange_3d_2d Subroutine
public subroutine rearrange_3d_2d(val3d, val2d)
Rearrange 3d variable to 2d variable (k,i,j -> i*j,k)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| double precision, | intent(in) | :: | val3d(:,:,:) |
Input |
||
| double precision, | intent(out) | :: | val2d(size(val3d,2)*size(val3d,3),size(val3d,1)) |
Output |