array_copy_r Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. array_copy_r

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

Arguments

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

Contents

Source Code

array_copy_r

Source Code

	SUBROUTINE array_copy_r(src,dest,n_copied,n_not_copied)
	REAL(SP), DIMENSION(:), INTENT(IN) :: src
	REAL(SP), 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_r