nrutil::array_copy Interface Reference

Public Member Functions
subroutine	array_copy_r (src, dest, n_copied, n_not_copied)
subroutine	array_copy_d (src, dest, n_copied, n_not_copied)
subroutine	array_copy_i (src, dest, n_copied, n_not_copied)

Detailed Description

Definition at line 29 of file nrutil.F.

Member Function/Subroutine Documentation

array_copy_d()

subroutine nrutil::array_copy::array_copy_d	(	real(dp), dimension(:), intent(in)	src,
		real(dp), dimension(:), intent(out)	dest,
		integer(i8b), intent(out)	n_copied,
		integer(i8b), intent(out)	n_not_copied )

Definition at line 96 of file nrutil.F.

!
!=======================================================================
!                                                                      !
!  Copy double precision array where size of source not known in       !
!  advance.                                                            !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      real(dp), intent(in)  :: src(:)
      real(dp), intent(out) :: dest(:)
 
      integer(i8b), intent(out) :: n_copied, n_not_copied
!
!-----------------------------------------------------------------------
!  Copy double precision array.
!-----------------------------------------------------------------------
!
      n_copied=min(SIZE(src), SIZE(dest))
      n_not_copied=size(src)-n_copied
      dest(1:n_copied)=src(1:n_copied)
 
      RETURN

array_copy_i()

subroutine nrutil::array_copy::array_copy_i	(	integer(i8b), dimension(:), intent(in)	src,
		integer(i8b), dimension(:), intent(out)	dest,
		integer(i8b), intent(out)	n_copied,
		integer(i8b), intent(out)	n_not_copied )

Definition at line 123 of file nrutil.F.

!
!=======================================================================
!                                                                      !
!  Copy integer array where size of source not known in advance.       !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer(i8b), intent(in) :: src(:)
      integer(i8b), intent(out) :: dest(:)
 
      integer(i8b), intent(out) :: n_copied, n_not_copied
!
!-----------------------------------------------------------------------
!  Copy integer array.
!-----------------------------------------------------------------------
!
      n_copied=min(size(src),size(dest))
      n_not_copied=size(src)-n_copied
      dest(1:n_copied)=src(1:n_copied)
 
      RETURN

array_copy_r()

subroutine nrutil::array_copy::array_copy_r	(	real(r4), dimension(:), intent(in)	src,
		real(r4), dimension(:), intent(out)	dest,
		integer(i8b), intent(out)	n_copied,
		integer(i8b), intent(out)	n_not_copied )

Definition at line 69 of file nrutil.F.

!
!=======================================================================
!                                                                      !
!  Copy single precision array where size of source not known in       !
!  advance.                                                            !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      real(r4), intent(in)  :: src(:)
      real(r4), intent(out) :: dest(:)
 
      integer(i8b), intent(out) :: n_copied, n_not_copied
!
!-----------------------------------------------------------------------
!  Copy single precision array.
!-----------------------------------------------------------------------
!
      n_copied=min(SIZE(src), SIZE(dest))
      n_not_copied=SIZE(src)-n_copied
      dest(1:n_copied)=src(1:n_copied)
 
      RETURN

---

The documentation for this interface was generated from the following file:

• ROMS/Utility/nrutil.F