C     MACHAR.F.I --- INSERTS FOR FORTRAN 66 TESTS
C
C        Eugene Spafford
C        SWT Math Library Test Support
C        School of Information and Computer Science
C        Georgia Institute of Technology
C        Atlanta, GA  30332
C
C
      INTEGER*4 IBETA,IT,IRND,NGRD,MACHEP,MAXEXP,MINEXP,NEGEP,IEXP
      REAL *8 EPS,EPSNEG,XMAX,XMIN
      COMMON /MACHCM/ IBETA,IT,IRND,NGRD,MACHEP,MAXEXP,MINEXP,NEGEP,
     $EPS,EPSNEG,XMAX,XMIN,IEXP
C
      INTEGER*4 I,I1,K1,K2,K3,N,J
      REAL *8 ZERO,ONE,TWO,THREE,FIVE,HALF,AIT,PI,A,B,BETA,ALBETA,DEL
      REAL *8 Z,ZZ,Y,X,XN,R6,R7,W,TEN,EIGHT,TENTH,C,X1,XL,FOUR
C
      PARAMETER (ZERO=0.0D0,ONE=1.0D0,TWO=2.0D0,THREE=3.0D0)
      PARAMETER (FIVE=5.0D0,HALF=0.5D0,PI=3.14159265D0)
      PARAMETER (XN=5000.0D0,I1=0,TEN=10.0D0)
      PARAMETER (EIGHT=8.0D0,TENTH=0.1D0,FOUR=4.0D0)
C
      REAL *8 XEXP,XALOG,XSQRT,RANDX,RANDL,XPOWER
      REAL *8 DABS,DMAX1,DSIGN,DBLE$M,DINT$M
      INTEGER LT,INT
C
      DATA N/5000/