put_diag_rv Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. put_diag_rv

public subroutine put_diag_rv(diagv, mat)

Arguments

Type IntentOptional AttributesName
real(kind=SP), intent(in), DIMENSION(:):: diagv
real(kind=SP), intent(inout), DIMENSION(:,:):: mat

Calls

proc~~put_diag_rv~~CallsGraph proc~put_diag_rv put_diag_rv proc~assert_eq2 assert_eq2 proc~put_diag_rv->proc~assert_eq2

Called by

proc~~put_diag_rv~~CalledByGraph proc~put_diag_rv put_diag_rv interface~put_diag put_diag interface~put_diag->proc~put_diag_rv

Contents

Source Code

put_diag_rv

Source Code

	SUBROUTINE put_diag_rv(diagv,mat)
	REAL(SP), DIMENSION(:), INTENT(IN) :: diagv
	REAL(SP), DIMENSION(:,:), INTENT(INOUT) :: mat
	INTEGER(I4B) :: j,n
	n=assert_eq2(size(diagv),min(size(mat,1),size(mat,2)),'put_diag_rv')
	do j=1,n
		mat(j,j)=diagv(j)
	end do
	END SUBROUTINE put_diag_rv