RE: The Great Circle

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Never use "S" always use "D" it works. I've always had trouble with the "S"
versions of these APIs.  See if that helps. CEESDACS.
If you have the RPG xTools, use the ACOS() function instead of calling the
API. The math APIs in the xTools does not require a runtime license, so you
can just download it, install it and /COPY in the MATH include member and
call all the highlevel math functions from within RPG IV.
Here's the code for the Acos() proc from the xTools.

     P ACOS            B                   Export
     D ACos            PI             8F
     D  fValue1                       8F   Value

     D fResult         S              8F 
     
     C                   CallB     'CEESDACS'    
     C                   PARM                    fValue1
     C                   PARM                    fResult
     C                   return    fResult
     P ACos            E

-Bob Cozzi

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bruce Odum
Sent: Wednesday, August 18, 2004 2:14 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: The Great Circle

I am trying to convert the formula for taking two deg mm ss convert them to
dec and calc the distance from the two points.   I am having some problems
making this formula work I have posted the formula as an image below.  I am
trying to use the ceessacs but its returns a error every time. The sin and
cos works fine.  I am converting all my dec. to float.  Has anyone ever
translated this formula to free or fixed and made it work.
dACS PR 8f Extproc('CEESSACS')

din 8f value