critical_current_density_not_implemented Function

public function critical_current_density_not_implemented(c_pt, T, B, St, Tc0, Bc) result(ret_val) bind(C)

Arguments

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

Return Value real(kind=dp)


Source Code

    function critical_current_density_not_implemented(c_pt,T,B,St,Tc0,Bc) result(ret_val) bind(C)
        type(c_ptr), value :: c_pt
        real(dp), value :: T,B,St,Tc0,Bc
        real(dp) :: ret_val
        ret_val=0.0_dp
        if(.false.) print*,c_associated(c_pt),T,B,St,Tc0,Bc
        error stop 'critical_current_density - not implemented'
    end function critical_current_density_not_implemented