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))


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