/IF NOT DEFINED(MATHPROTO)
      /DEFINE MATHPROTO
      /COPY datatype
     **  RPG IV Prototypes for C runtime library Math functions.
     **   NumVal = atof('1234.56') 
     D atof            PR             8F   Extproc('acos')
     D  dInput                      100A   Options(*STRING)

     D acos            PR             8F   Extproc('acos')
     D  dInput                             value Like(double)

     D asin            PR             8F   Extproc('asin')
     D  dInput                             value Like(double)

     D atan            PR             8F   Extproc('atan')
     D  dInput                             value Like(double)

     D atan2           PR             8F   Extproc('atan2')
     D  dInput1                            value Like(double)
     D  dInput2                            value Like(double)

     D ceil            PR             8F   Extproc('ceil')
     D  dInput1                            value Like(double)

     D cos             PR             8F   Extproc('cos')
     D  dInput1                            value Like(double)

     D cosh            PR             8F   Extproc('cosh')
     D  dInput1                            value Like(double)

     D exp             PR             8F   Extproc('exp')
     D  dInput1                            value Like(double)

     D fabs            PR             8F   Extproc('fabs')
     D  dInput1                            value Like(double)

     D floor           PR             8F   Extproc('floor')
     D  dInput1                            value Like(double)

     D fmod            PR             8F   Extproc('fmod')
     D  dInput1                            value Like(double)
     D  dInput2                            value Like(double)

     D frexp           PR             8F   Extproc('frexp')
     D  dInput1                            value Like(double)
     **  second parm is a pointer to a Int4 value
     D  pInt                           *   value

     D ldexp           PR             8F   Extproc('ldexp')
     D  dInput                             value Like(double)
     **  second parm is a pointer to a Int4 value
     D  nInt                               value Like(int)

     D log             PR             8F   Extproc('log')
     D  dInput                             value Like(double)

     D log10           PR             8F   Extproc('log10')
     D  dInput                             value Like(double)

     D modf            PR             8F   Extproc('modf')
     D  dInput1                            value Like(double)
     **  Second parm is a pointer to a double
     D  pDouble                        *   value

     D pow             PR             8F   Extproc('pow')
     D  dInput1                            value Like(double)
     D  dInput2                            value Like(double)

     D Sin             PR             8F   Extproc('sin')
     D  dInput                             value like(double)

     D Sinh            PR             8F   Extproc('sinh')
     D  dInput                             value like(double)

     D SQRT            PR             8F   Extproc('sqrt')
     D  dInput                             value like(double)

     D tan             PR             8F   Extproc('tan')
     D  dInput                             value like(double)

     D tanH            PR             8F   Extproc('tanh')
     D  dInput                             value like(double)

     D gamma           PR             8F   Extproc('gamma')
     D  dInput                             value like(double)

     D hypot           PR             8F   Extproc('hypot')
     ** Hypotenuse of a right triangle
     **   example: hypot(x,y) is the same as Sqrt(X**2 + Y**2)
     D  dInput1                            value like(double)
     D  dInput2                            value like(double)

     D jn              PR             8F   Extproc('jn')
     D  dInput1                            value like(int)
     D  dInput2                            value like(double)

     D j0              PR             8F   Extproc('j0')
     D  dInput1                            value like(double)

     D j1              PR             8F   Extproc('j1')
     D  dInput1                            value like(double)

     D yn              PR             8F   Extproc('yn')
     D  dInput1                            value like(int)
     D  dInput2                            value like(double)

     D y0              PR             8F   Extproc('y0')
     D  dInput1                            value like(double)

     D y1              PR             8F   Extproc('y1')
     D  dInput1                            value like(double)
      /ENDIF