INTEGER FUNCTION PDA_I1MACH (I)
  
  
  ***BEGIN PROLOGUE  PDA_I1MACH
  ***PURPOSE  Return integer machine dependent constants.
  ***LIBRARY   SLATEC
  ***CATEGORY  R1
  ***TYPE      INTEGER (PDA_I1MACH-I)
  ***KEYWORDS  MACHINE CONSTANTS
  ***AUTHOR  Fox, P. A., (Bell Labs)
             Hall, A. D., (Bell Labs)
             Schryer, N. L., (Bell Labs)
  ***DESCRIPTION
  
     PDA_I1MACH can be used to obtain machine-dependent parameters for the
     local machine environment.  It is a function subprogram with one
     (input) argument and can be referenced as follows:
  
          K = PDA_I1MACH(I)
  
     where I=1,...,16.  The (output) value of K above is determined by
     the (input) value of I.  The results for various values of I are
     discussed below.
  
     I/O unit numbers:
       PDA_I1MACH( 1) = the standard input unit.
       PDA_I1MACH( 2) = the standard output unit.
       PDA_I1MACH( 3) = the standard punch unit.
       PDA_I1MACH( 4) = the standard error message unit.
  
     Words:
       PDA_I1MACH( 5) = the number of bits per integer storage unit.
       PDA_I1MACH( 6) = the number of characters per integer storage unit.
  
     Integers:
       assume integers are represented in the S-digit, base-A form
  
                  sign ( X(S-1)*A**(S-1) + ... + X(1)*A + X(0) )
  
                  where 0 .LE. X(I) .LT. A for I=0,...,S-1.
       PDA_I1MACH( 7) = A, the base.
       PDA_I1MACH( 8) = S, the number of base-A digits.
       PDA_I1MACH( 9) = A**S - 1, the largest magnitude.
  
     Floating-Point Numbers:
       Assume floating-point numbers are represented in the T-digit,
       base-B form
                  sign (B**E)*( (X(1)/B) + ... + (X(T)/B**T) )
  
                  where 0 .LE. X(I) .LT. B for I=1,...,T,
                  0 .LT. X(1), and EMIN .LE. E .LE. EMAX.
       PDA_I1MACH(10) = B, the base.
  
     Single-Precision:
       PDA_I1MACH(11) = T, the number of base-B digits.
       PDA_I1MACH(12) = EMIN, the smallest exponent E.
       PDA_I1MACH(13) = EMAX, the largest exponent E.
  
     Double-Precision:
       PDA_I1MACH(14) = T, the number of base-B digits.
       PDA_I1MACH(15) = EMIN, the smallest exponent E.
       PDA_I1MACH(16) = EMAX, the largest exponent E.
  
     To alter this function for a particular environment, the desired
     set of DATA statements should be activated by removing the C from
     column 1.  Also, the values of PDA_I1MACH(1) - PDA_I1MACH(4) should be
     checked for consistency with the local operating system.
  
  ***REFERENCES  P. A. Fox, A. D. Hall and N. L. Schryer, Framework for
                   a portable library, ACM Transactions on Mathematical
                   Software 4, 2 (June 1978), pp. 177-188.
  ***ROUTINES CALLED  (NONE)
  ***REVISION HISTORY  (YYMMDD)
     750101  DATE WRITTEN
     891012  Added VAX G-floating constants.  (WRB)
     891012  REVISION DATE from Version 3.2
     891214  Prologue converted to Version 4.0 format.  (BAB)
     900618  Added DEC RISC constants.  (WRB)
     900723  Added IBM RS 6000 constants.  (WRB)
     901009  Correct PDA_I1MACH(7) for IBM Mainframes. Should be 2 not 16.
             (RWC)
     910710  Added HP 730 constants.  (SMR)
     911114  Added Convex IEEE constants.  (WRB)
     920121  Added SUN -r8 compiler option constants.  (WRB)
     920229  Added Touchstone Delta i860 constants.  (WRB)
     920501  Reformatted the REFERENCES section.  (WRB)
     920625  Added Convex -p8 and -pd8 compiler option constants.
             (BKS, WRB)
     930201  Added DEC Alpha and SGI constants.  (RWC and WRB)
     930618  Corrected PDA_I1MACH(5) for Convex -p8 and -pd8 compiler
             options.  (DWL, RWC and WRB).
     950404  If index out of range, return value zero, but return.
             (HME).
  ***END PROLOGUE  PDA_I1MACH