*ident sun
*/ ----------------------------------------------------
*/ machine-dependent changes to njoy94
*/ for linux using g77
*/ be sure to use '*set sw'
*/ --------------------------------------
*d njoy.292,293
      data lab/'lanl'/
      data mx/'lnux'/
*/ provide linux-specific fatal error exit
*d njoy.347,348
      stop 77
*/ provide ? prompt for input
*i njoy.410
      common/mainio/nsysi,nsyso,nsyse,ntty
*d njoy.439
  100 if (ntty.ne.0) write(ntty,'(2h ?,$)')
      read(nin,'(80a1)') (a(i),i=1,ncol)
*/ elapsed time
*d njoy.741
      dimension tarray(2)
c     return user time plus system time
      time=etime(tarray)
*/ date
*d njoy.751
      dimension iarray(3)
      call idate(iarray)
      iarray(3)=iarray(3)-1900
      write(hdate,'(i2,1h/,i2,1h/,i2)') iarray(2),iarray(1),iarray(3)
*/ wall clock time
*d njoy.761
      character*24 sdate
      sdate=fdate()
      htime=sdate(12:19)
*/ machine constants for slatec functions
*i up86.2577
c
c     machine constants for the ibm pc
c     assumes that all arithmetic is done in double precision
c     on 8088, i.e., not in 80 bit form for the 8087.
c
      data small(1) / 2.23d-308  /
      data large(1) / 1.79d+308  /
      data right(1) / 1.11d-16   /
      data diver(1) / 2.22d-16   /
      data log10(1) / 0.301029995663981195d0 /