strain_nbti Function

public function strain_nbti(c_pt, B, I) result(strain) bind(C)

Arguments

Type IntentOptional Attributes Name
type(c_ptr), value :: c_pt
real(kind=dp), value :: B
real(kind=dp), value :: I

Return Value real(kind=dp)


Source Code

  function strain_nbti(c_pt,B,I) result(strain) bind(C)
      type(c_ptr), value :: c_pt
      real(dp), value :: B,I
      real(dp) :: strain

      type(nbti_cfg_t), pointer :: nbti_ptr
      call c_f_pointer(c_pt,nbti_ptr)

      strain = -nbti_ptr%str1-nbti_ptr%str2*I*B
  end function strain_nbti