strain_nb3sn Function

public function strain_nb3sn(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_nb3sn(c_pt,B,I) result(strain) bind(C)
      type(c_ptr), value :: c_pt
      real(dp), value :: B,I
      real(dp) :: strain

      type(nb3sn_cfg_t), pointer :: nb3sn_ptr
      call c_f_pointer(c_pt,nb3sn_ptr)

      strain = -nb3sn_ptr%str1-nb3sn_ptr%str2*I*B
  end function strain_nb3sn