external_lMat_matel Function

public pure function external_lMat_matel(nI, ex) result(matel)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nI(:)
integer, intent(in) :: ex(:,:)

Return Value real(kind=dp)


Contents

Source Code

external_lMat_matel

Source Code

    pure function external_lMat_matel(nI, ex) result(matel)
      integer, intent(in) :: nI(:)
      integer, intent(in) :: ex(:,:)
      HElement_t(dp) :: matel

#ifdef USE_TCHINT_
      matel = tc_matel(nI, ex)
#else
      character(*), parameter :: t_r = "external_lMat_matel"
      unused_var(nI); unused_var(ex); unused_var(matel)
      call stop_all(t_r, "Did not compile with TCHINT support")
#endif

    end function external_lMat_matel