BSD 4_2 release

[unix-history] / usr / src / usr.lib / libF77 / range.c

/*
char id_range[] = "@(#)range.c  1.2";
*
* routines to return extreme values
* VERY MACHINE DEPENDENT
*/

union fi
{       float   f;
       long    i;
} ;

union dj
{       double  d;
       long    j[2];
} ;

float
flmax_()
{
       union fi n;
#if     pdp11
       n.i = 0x7fffffffL;
#else   pdp11
#if     vax
       n.i = 0xffff7fff;
#else   vax
       UNKNOWN MACHINE!
#endif  vax
#endif  pdp11
       return(n.f);
}

double
dflmax_()
{
       union dj n;
#if     pdp11
       n.j[0] = 0x7fffffffL;
       n.j[1] = 0xffffffffL;
#else   pdp11
#if     vax
       n.j[0] = 0xffff7fff;
       n.j[1] = 0xffffffff;
#else   vax
       UNKNOWN MACHINE!
#endif  vax
#endif  pdp11
       return(n.d);
}

float
flmin_()
{
       union fi n;
#if     pdp11
       n.i = 0x00800000L;
#else   pdp11
#if     vax
       n.i = 0x00000080;
#else   vax
       UNKNOWN MACHINE!
#endif  vax
#endif  pdp11
       return(n.f);
}

double
dflmin_()
{
       union dj n;
#if     pdp11
       n.j[0] = 0x00800000L;
       n.j[1] = 0;
#else   pdp11
#if     vax
       n.j[0] = 0x00000080;
       n.j[1] = 0;
#else   vax
       UNKNOWN MACHINE!
#endif  vax
#endif  pdp11
       return(n.d);
}

long int
inmax_()
{
       return(0x7fffffffL);
}


float
ffrac_()
{
       union fi n;
#if     pdp11
       n.i = 0x35000000L;
#else   pdp11
#if     vax
       n.i = 0x00003500;
#else   vax
       UNKNOWN MACHINE!
#endif  vax
#endif  pdp11
       return(n.f);
}

double
dffrac_()
{
       union dj n;
#if     pdp11
       n.j[0] = 0x25000000L;
       n.j[1] = 0;
#else   pdp11
#if     vax
       n.j[0] = 0x00002500;
       n.j[1] = 0;
#else   vax
       UNKNOWN MACHINE!
#endif  vax
#endif  pdp11
       return(n.d);
}