diagmult_rv Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. diagmult_rv

public subroutine diagmult_rv(mat, diag)

Arguments

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

Calls

proc~~diagmult_rv~~CallsGraph proc~diagmult_rv diagmult_rv proc~assert_eq2 assert_eq2 proc~diagmult_rv->proc~assert_eq2

Called by

proc~~diagmult_rv~~CalledByGraph proc~diagmult_rv diagmult_rv interface~diagmult diagmult interface~diagmult->proc~diagmult_rv

Contents

Source Code

diagmult_rv

Source Code

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