2.9BSD - /usr/src/lib/libF77/range.c

   1: /*
   2: char id_range[] = "@(#)range.c	1.2";
   3:  *
   4:  * routines to return extreme values
   5:  * VERY MACHINE DEPENDENT
   6:  */
   7: 
   8: union fi
   9: {   float   f;
  10:     long    i;
  11: } ;
  12: 
  13: union dj
  14: {   double  d;
  15:     long    j[2];
  16: } ;
  17: 
  18: float
  19: flmax_()
  20: {
  21:     union fi n;
  22: #if pdp11
  23:     n.i = 0x7fffffffL;
  24: #else   pdp11
  25: #if vax
  26:     n.i = 0xffff7fff;
  27: #else   vax
  28:     UNKNOWN MACHINE!
  29: #endif	vax
  30: #endif	pdp11
  31:     return(n.f);
  32: }
  33: 
  34: double
  35: dflmax_()
  36: {
  37:     union dj n;
  38: #if pdp11
  39:     n.j[0] = 0x7fffffffL;
  40:     n.j[1] = 0xffffffffL;
  41: #else   pdp11
  42: #if vax
  43:     n.j[0] = 0xffff7fff;
  44:     n.j[1] = 0xffffffff;
  45: #else   vax
  46:     UNKNOWN MACHINE!
  47: #endif	vax
  48: #endif	pdp11
  49:     return(n.d);
  50: }
  51: 
  52: float
  53: flmin_()
  54: {
  55:     union fi n;
  56: #if pdp11
  57:     n.i = 0x00800000L;
  58: #else   pdp11
  59: #if vax
  60:     n.i = 0x00000080;
  61: #else   vax
  62:     UNKNOWN MACHINE!
  63: #endif	vax
  64: #endif	pdp11
  65:     return(n.f);
  66: }
  67: 
  68: double
  69: dflmin_()
  70: {
  71:     union dj n;
  72: #if pdp11
  73:     n.j[0] = 0x00800000L;
  74:     n.j[1] = 0;
  75: #else   pdp11
  76: #if vax
  77:     n.j[0] = 0x00000080;
  78:     n.j[1] = 0;
  79: #else   vax
  80:     UNKNOWN MACHINE!
  81: #endif	vax
  82: #endif	pdp11
  83:     return(n.d);
  84: }
  85: 
  86: long int
  87: inmax_()
  88: {
  89:     return(0x7fffffffL);
  90: }
  91: 
  92: 
  93: float
  94: ffrac_()
  95: {
  96:     union fi n;
  97: #if pdp11
  98:     n.i = 0x35000000L;
  99: #else   pdp11
 100: #if vax
 101:     n.i = 0x00003500;
 102: #else   vax
 103:     UNKNOWN MACHINE!
 104: #endif	vax
 105: #endif	pdp11
 106:     return(n.f);
 107: }
 108: 
 109: double
 110: dffrac_()
 111: {
 112:     union dj n;
 113: #if pdp11
 114:     n.j[0] = 0x25000000L;
 115:     n.j[1] = 0;
 116: #else   pdp11
 117: #if vax
 118:     n.j[0] = 0x00002500;
 119:     n.j[1] = 0;
 120: #else   vax
 121:     UNKNOWN MACHINE!
 122: #endif	vax
 123: #endif	pdp11
 124:     return(n.d);
 125: }

Defined functions

Defined union's