*ident unicos
*/ ----------------------------------------------------
*/ machine-dependent changes to njoy94
*/ for cray-xmp machines using unicos
*/ los alamos version
*/ --------------------------------------
*d njoy.292,293
      data lab/'lanl'/
      data mx/'r'/
*d njoy.347
c     request traceback and dropfile
      call trbk(nsyso)
      if (nsyse.ne.nsyso) call trbk(nsyse)
      stop 77
*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
      call second(time)
*/ date
*d njoy.751
      call date(hdate)
*/ wall clock time
*d njoy.761
      call clock(htime)
*/ machine constants for slatec functions
*i up86.2965
c
c     machine constants for the cray
c
      data rmach(1) / 200034000000000000000b /
      data rmach(2) / 577767777777777777776b /
      data rmach(3) / 377224000000000000000b /
      data rmach(4) / 377234000000000000000b /
*/ random numbers
*d up86.2985,2986
      if (r.ne.0.) call ranset(r)
      rann=ranf()