get_diag_rv Function

  1. special_fun_modules.f90
  2. nrutil
  3. get_diag_rv

public function get_diag_rv(mat)

Arguments

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

Return Value real(kind=SP), DIMENSION(size(mat,1))


Calls

proc~~get_diag_rv~~CallsGraph proc~get_diag_rv get_diag_rv proc~assert_eq2 assert_eq2 proc~get_diag_rv->proc~assert_eq2

Called by

proc~~get_diag_rv~~CalledByGraph proc~get_diag_rv get_diag_rv interface~get_diag get_diag interface~get_diag->proc~get_diag_rv

Contents

Source Code

get_diag_rv

Source Code

	FUNCTION get_diag_rv(mat)
	REAL(SP), DIMENSION(:,:), INTENT(IN) :: mat
	REAL(SP), DIMENSION(size(mat,1)) :: get_diag_rv
	INTEGER(I4B) :: j
	j=assert_eq2(size(mat,1),size(mat,2),'get_diag_rv')
	do j=1,size(mat,1)
		get_diag_rv(j)=mat(j,j)
	end do
	END FUNCTION get_diag_rv