current_sharing_temperature_not_implemented Function

public function current_sharing_temperature_not_implemented(c_pt, B, St, Jop, Bc0, Jc0, Tc, Tc0, Bc) result(ret_val) bind(C)

Arguments

Type IntentOptional Attributes Name
type(c_ptr), value :: c_pt
real(kind=dp), value :: B
real(kind=dp), value :: St
real(kind=dp), value :: Jop
real(kind=dp), value :: Bc0
real(kind=dp), value :: Jc0
real(kind=dp), value :: Tc
real(kind=dp), value :: Tc0
real(kind=dp), value :: Bc

Return Value real(kind=dp)


Source Code

    function current_sharing_temperature_not_implemented(c_pt,B,St,Jop,Bc0,Jc0,Tc,Tc0,Bc) result(ret_val) bind(C)
        type(c_ptr), value :: c_pt
        real(dp), value :: B,St,Jop,Bc0,Jc0,Tc,Tc0,Bc
        real(dp) :: ret_val
        ret_val=0.0_dp
        if(.false.) print*,c_associated(c_pt),B,St,Jop,Bc0,Jc0,Tc,Tc0,Bc
        error stop 'current_sharing_temperature - not implemented'
    end function current_sharing_temperature_not_implemented