*ident linux
*/ -------------------------------------------
*/ machine-dependent changes to njoy99
*/ for linux workstations using g77 and 32 bits
*/ be sure to use "*set sw"
*/ -------------------------------------------
*d njoy.308,309
      data lab/'lanl t-2'/
      data mx/'lnx-g77'/
*/ provide machine-specific fatal error exit
*d njoy.365,366
      stop 77
*/ elapsed time
*d njoy.514
      real*4 tarray(2)
c     return user time plus system time
      time=etime(tarray)
      time=tarray(1)+tarray(2)
*/ date
*d njoy.524
      integer*4 iarray(3)
      call idate(iarray)
      iarray(3)=iarray(3)-2000
      write(hdate,'(i2,''/'',i2,''/'',i2)') 
     1  iarray(2),iarray(1),iarray(3)
*d njoy.537
      character*24 sdate
      call fdate(sdate)
      htime=sdate(12:19)
*/ machine constants for slatec functions
*d njoy.5323,5334
*d njoy.5338,5746
c     for linux g77 using sw
      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