block_copy_2d2d_d Subroutine

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

Copy a block

Arguments

Type IntentOptional Attributes Name
real(kind=real_8), intent(out), DIMENSION(rows, columns) :: extent_out

output matrix in the form of a 2-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

Source Code

      PURE SUBROUTINE block_copy_2d2d_d (extent_out, extent_in, &
                                                     rows, columns)
     !! Copy a block

         INTEGER, INTENT(IN) :: rows, columns
        !! input matrix size
        !! input matrix size
         REAL(kind=real_8), DIMENSION(rows, columns), INTENT(OUT) :: extent_out
        !! output matrix in the form of a 2-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(:, :) = extent_in(:, :)
      END SUBROUTINE block_copy_2d2d_d