Timeout for exact-forward-conformal-lat

Specification

Math

\[\tan^{-1}_* \frac{\sin Cn}{\cos Cn \cdot \cos lam} \]

FPCore

(FPCore (Cn lam)
  :precision binary64
  :pre TRUE
  (atan2 (sin Cn) (* (cos Cn) (cos lam))))

C

double code(double Cn, double lam) {
	return atan2(sin(Cn), (cos(Cn) * cos(lam)));
}

Fortran

real(8) function code(cn, lam)
use fmin_fmax_functions
    real(8), intent (in) :: cn
    real(8), intent (in) :: lam
    code = atan2(sin(cn), (cos(cn) * cos(lam)))
end function

Java

public static double code(double Cn, double lam) {
	return Math.atan2(Math.sin(Cn), (Math.cos(Cn) * Math.cos(lam)));
}

Python

def code(Cn, lam):
	return math.atan2(math.sin(Cn), (math.cos(Cn) * math.cos(lam)))

Julia

function code(Cn, lam)
	return atan(sin(Cn), Float64(cos(Cn) * cos(lam)))
end

MATLAB

function tmp = code(Cn, lam)
	tmp = atan2(sin(Cn), (cos(Cn) * cos(lam)));
end

Wolfram

code[Cn_, lam_] := N[ArcTan[N[Sin[Cn], $MachinePrecision] / N[(N[Cos[Cn], $MachinePrecision] * N[Cos[lam], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]