home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 30 fixes_v / 30-fixes_v.zip / c32_b.zip / GD26.B < prev    next >
Text File  |  1994-01-11  |  2KB  |  102 lines
  1. *$noreference
  2.  
  3. * MATHCODE.FI
  4. * This is the include file required to handle math errors.
  5.  
  6.     integer FUNC_ACOS
  7.     integer FUNC_ASIN
  8.     integer FUNC_SQRT
  9.     integer FUNC_EXP
  10.     integer FUNC_COSH
  11.     integer FUNC_SINH
  12.     integer FUNC_POW
  13.     integer FUNC_ACOSH
  14.     integer FUNC_LOG2
  15.     integer FUNC_LOG
  16.     integer FUNC_LOG10
  17.     integer FUNC_ATANH
  18.     integer FUNC_ATAN2
  19.     integer FUNC_IPOW
  20.     integer FUNC_DPOWI
  21.     integer FUNC_COS
  22.     integer FUNC_SIN
  23.     integer FUNC_TAN
  24.     integer FUNC_Y0
  25.     integer FUNC_Y1
  26.     integer FUNC_YN
  27.  
  28.     parameter ( FUNC_ACOS    = 1 )
  29.     parameter ( FUNC_ASIN    = 2 )
  30.     parameter ( FUNC_SQRT    = 3 )
  31.     parameter ( FUNC_EXP    = 4 )
  32.     parameter ( FUNC_COSH    = 5 )
  33.     parameter ( FUNC_SINH    = 6 )
  34.     parameter ( FUNC_POW    = 7 )
  35.     parameter ( FUNC_ACOSH    = 8 )
  36.     parameter ( FUNC_LOG2    = 9 )
  37.     parameter ( FUNC_LOG    = 10 )
  38.     parameter ( FUNC_LOG10    = 11 )
  39.     parameter ( FUNC_ATANH    = 12 )
  40.     parameter ( FUNC_ATAN2    = 13 )
  41.     parameter ( FUNC_IPOW    = 14 )
  42.     parameter ( FUNC_DPOWI    = 15 )
  43.     parameter ( FUNC_COS    = 16 )
  44.     parameter ( FUNC_SIN    = 17 )
  45.     parameter ( FUNC_TAN    = 18 )
  46.     parameter ( FUNC_Y0    = 19 )
  47.     parameter ( FUNC_Y1    = 20 )
  48.     parameter ( FUNC_YN    = 21 )
  49.  
  50.     integer FUNC_MASK
  51.     parameter ( FUNC_MASK = '0000001f'x )
  52.  
  53. * Bits for the type of math errors
  54.  
  55.     integer M_DOMAIN
  56.     integer M_SING
  57.     integer M_OVERFLOW
  58.     integer M_PLOSS
  59.     integer M_TLOSS
  60.     integer M_UNDERFLOW
  61.  
  62.     parameter ( M_DOMAIN    = '00000040'x )
  63.     parameter ( M_SING    = '00000080'x )
  64.     parameter ( M_OVERFLOW    = '00000100'x )
  65.     parameter ( M_PLOSS    = '00000200'x )
  66.     parameter ( M_TLOSS    = '00000400'x )
  67.     parameter ( M_UNDERFLOW = '00000800'x )
  68.  
  69.     integer SIGFPE
  70.     parameter ( SIGFPE    = 2 )
  71.  
  72.     integer FPE_OVERFLOW
  73.     integer FPE_UNDERFLOW
  74.     integer FPE_ZERODIVIDE
  75.     integer FPE_SQRTNEG
  76.  
  77.     parameter ( FPE_OVERFLOW    = '00000084'x )
  78.     parameter ( FPE_UNDERFLOW    = '00000085'x )
  79.     parameter ( FPE_ZERODIVIDE    = '00000083'x )
  80.     parameter ( FPE_SQRTNEG     = '00000088'x )
  81.  
  82.     integer CP_TERMINATE
  83.     integer EX_Z_2_NOT_POS
  84.     integer EX_NOT_INT_ARG
  85.     integer KO_FDIV_ZERO
  86.     integer KO_FOVERFLOW
  87.     integer KO_FUNDERFLOW
  88.     integer LI_ARG_NEG
  89.     integer LI_ARG_LE_ONE
  90.     integer LI_ARG_ZERO
  91.  
  92.     parameter ( CP_TERMINATE    = 0 )
  93.     parameter ( EX_Z_2_NOT_POS    = 256 )
  94.     parameter ( EX_NOT_INT_ARG    = 257 )
  95.     parameter ( KO_FDIV_ZERO    = 1024 )
  96.     parameter ( KO_FOVERFLOW    = 1025 )
  97.     parameter ( KO_FUNDERFLOW    = 1026 )
  98.     parameter ( LI_ARG_NEG        = 1282 )
  99.     parameter ( LI_ARG_LE_ONE    = 1281 )
  100.     parameter ( LI_ARG_ZERO     = 1283 )
  101. *$reference
  102.