get_diag_dv Function

  1. special_fun_modules.f90
  2. nrutil
  3. get_diag_dv

public function get_diag_dv(mat)

Arguments

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

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


Contents

Source Code

get_diag_dv

Source Code

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