diagadd_r Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. diagadd_r

public subroutine diagadd_r(mat, diag)

Arguments

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

Called by

proc~~diagadd_r~~CalledByGraph proc~diagadd_r diagadd_r interface~diagadd diagadd interface~diagadd->proc~diagadd_r

Contents

Source Code

diagadd_r

Source Code

	SUBROUTINE diagadd_r(mat,diag)
	REAL(SP), DIMENSION(:,:), INTENT(INOUT) :: mat
	REAL(SP), INTENT(IN) :: diag
	INTEGER(I4B) :: j,n
	n = min(size(mat,1),size(mat,2))
	do j=1,n
		mat(j,j)=mat(j,j)+diag
	end do
	END SUBROUTINE diagadd_r