thermal_conductivity_glass_epoxy Function

public function thermal_conductivity_glass_epoxy(c_pt, T, B) result(thermal_conductivity) bind(C)

Arguments

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

Return Value real(kind=dp)


Source Code

  function thermal_conductivity_glass_epoxy(c_pt,T,B) result(thermal_conductivity) bind(C)
      type(c_ptr), value :: c_pt
      real(dp), value :: T,B
      real(dp) :: thermal_conductivity    
      real(dp) :: Tmin,Tmax,TT,cc,dd,c,d,nc,nd,t0,aa,a,na,bb,bbb,nb
      type(glass_epoxy_cfg_t), pointer :: glass_epoxy_ptr
      call c_f_pointer(c_pt,glass_epoxy_ptr)

      Tmin = 1.0_dp
      Tmax = 300.0_dp
      TT=min(T,Tmax)
      TT=max(TT,Tmin)

      thermal_conductivity = 3.81925332e-8_dp*TT**3 - 2.24517344e-5_dp*TT**2 + 0.00591967022_dp*TT + 0.0645106161_dp
  end function thermal_conductivity_glass_epoxy