*ident decau
*/ ----------------------------------------------------
*/ machine-dependent changes to njoy94
*/ for dec-alpha unix 
*/ use *set sw
*/ --------------------------------------
*d njoy.293
      data mx/'deca'/
*d njoy.347
      call exit(1)
*i njoy.410
      common/mainio/nsysi,nsyso,nsyse,ntty
*d njoy.439
  100 if (ntty.ne.0) write(ntty,'(3h ? ,$)')
      read(nin,'(80a1)') (a(i),i=1,ncol)
*/ elapsed time
*d njoy.741
      dimension tarray(2)
      time=etime(tarray)
*/ date
*d njoy.751
      call date(hdate)
*/ wall clock time
*d njoy.761
      call time(htime)
*/ machine constants for slatec functions
*i up86.2574
c     WARNING!!! The appropriate constants
c     must be added here!!!  See instructions
c     and examples in function d1mach.