get_diag Interface

  1. special_fun_modules.f90
  2. nrutil
  3. get_diag

public interface get_diag

Contents

Module Procedures


Module Procedures

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

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