Copy and transpose block.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=real_8), | intent(out), | DIMENSION(:) | :: | extent_out |
output matrix in the form of a 1-d array |
|
real(kind=real_8), | intent(in), | DIMENSION(rows, columns) | :: | extent_in |
input matrix in the form of a 2-d array |
|
integer, | intent(in) | :: | rows |
input matrix size input matrix size |
||
integer, | intent(in) | :: | columns |
input matrix size input matrix size |
PURE SUBROUTINE block_copy_1d2d_d (extent_out, extent_in, &
rows, columns)
!! Copy and transpose block.
INTEGER, INTENT(IN) :: rows, columns
!! input matrix size
!! input matrix size
REAL(kind=real_8), DIMENSION(:), INTENT(OUT) :: extent_out
!! output matrix in the form of a 1-d array
REAL(kind=real_8), DIMENSION(rows, columns), INTENT(IN) :: extent_in
!! input matrix in the form of a 2-d array
! ---------------------------------------------------------------------------
extent_out = RESHAPE(extent_in, (/rows*columns/))
END SUBROUTINE block_copy_1d2d_d