Copy a block
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex(kind=real_8), | intent(out), | DIMENSION(rows*columns) | :: | extent_out |
output matrix in the form of a 1-d array |
|
complex(kind=real_8), | intent(in), | DIMENSION(rows*columns) | :: | extent_in |
input matrix in the form of a 1-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_1d1d_z (extent_out, extent_in, &
rows, columns)
!! Copy a block
INTEGER, INTENT(IN) :: rows, columns
!! input matrix size
!! input matrix size
COMPLEX(kind=real_8), DIMENSION(rows*columns), INTENT(OUT) :: extent_out
!! output matrix in the form of a 1-d array
COMPLEX(kind=real_8), DIMENSION(rows*columns), INTENT(IN) :: extent_in
!! input matrix in the form of a 1-d array
! ---------------------------------------------------------------------------
extent_out(:) = extent_in(:)
END SUBROUTINE block_copy_1d1d_z