block_copy_1d2d_c Subroutine

private pure subroutine block_copy_1d2d_c(extent_out, extent_in, rows, columns)

Copy and transpose block.

Arguments

TypeIntentOptionalAttributesName
complex(kind=real_4), intent(out), DIMENSION(:):: extent_out

output matrix in the form of a 1-d array

complex(kind=real_4), 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


Contents

Source Code


Source Code

      PURE SUBROUTINE block_copy_1d2d_c (extent_out, extent_in, &
                                                     rows, columns)
     !! Copy and transpose block.

         INTEGER, INTENT(IN) :: rows, columns
        !! input matrix size
        !! input matrix size
         COMPLEX(kind=real_4), DIMENSION(:), INTENT(OUT)            :: extent_out
        !! output matrix in the form of a 1-d array
         COMPLEX(kind=real_4), 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_c