array_copy_i Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. array_copy_i

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

Arguments

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

Called by

proc~~array_copy_i~~CalledByGraph proc~array_copy_i array_copy_i interface~array_copy array_copy interface~array_copy->proc~array_copy_i

Contents

Source Code

array_copy_i

Source Code

	SUBROUTINE array_copy_i(src,dest,n_copied,n_not_copied)
	INTEGER(I4B), DIMENSION(:), INTENT(IN) :: src
	INTEGER(I4B), 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_i