array_copy_d Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. array_copy_d

public subroutine array_copy_d(src, dest, n_copied, n_not_copied)

Arguments

Type IntentOptional AttributesName
real(kind=DP), intent(in), DIMENSION(:):: src
real(kind=DP), intent(out), DIMENSION(:):: dest
integer(kind=I4B), intent(out) :: n_copied
integer(kind=I4B), intent(out) :: n_not_copied

Called by

proc~~array_copy_d~~CalledByGraph proc~array_copy_d array_copy_d interface~array_copy array_copy interface~array_copy->proc~array_copy_d

Contents

Source Code

array_copy_d

Source Code

	SUBROUTINE array_copy_d(src,dest,n_copied,n_not_copied)
	REAL(DP), DIMENSION(:), INTENT(IN) :: src
	REAL(DP), DIMENSION(:), INTENT(OUT) :: dest
	INTEGER(I4B), INTENT(OUT) :: n_copied, n_not_copied
	n_copied=min(size(src),size(dest))
	n_not_copied=size(src)-n_copied
	dest(1:n_copied)=src(1:n_copied)
	END SUBROUTINE array_copy_d