pub fn transport_4_e(x: f64) -> Result<Result, Value>
This routine computes the transport function J(4,x).