*ident linux
*/ ----------------------------------------------------
*/ machine-dependent changes to njoy97
*/ for linux workstations using g77
*/ be sure to use "*set sw"
*/ ----------------------------------------------------
*d njoy.280,281
      data lab/'lanl t-2'/
      data mx/'linuxg77'/
*/ provide machine-specific fatal error exit
*d njoy.337,338
      stop 77
*/ elapsed time
*d njoy.485
      dimension tarray(2)
c     return user time plus system time
      time=etime(tarray)
*/ date
*d njoy.495
      dimension iarray(3)
      call idate(iarray)
      iarray(3)=iarray(3)-2000
      write(hdate,'(i2,1h/,i2,1h/,i2)') iarray(2),iarray(1),iarray(3)
*/ wall clock time
*d njoy.508
      character*24 sdate
      sdate=fdate()
      htime=sdate(12:19)
*/ machine constants for slatec functions
*d njoy.4884,4895
*d njoy.4900,5306
c
c     machine constants for linux g77 with "*set sw"
c
      dmach(1)=2.22507385d-308
      dmach(2)=1.79769313d+308
      dmach(3)=1.11022302d-16
      dmach(4)=2.22044605d-16
      dmach(5)=0.30103001d+0
*/ random number generator
*d njoy.5721,5722
      rann=rand()