code 35115;
 real procedure ARCCOSH(X); value X; real X;
 ARCCOSH:= if X <= 1 then 0 else 
           if X > "10 then 0.69314718055995 + LN(X) else 
           LN(X+SQRT((X-1)*(X+1)));
        eop