*ident sun
*/ ----------------------------------------------------
*/ machine-dependent changes to njoy91
*/ for sun workstations
*/ be sure to use '*set sw'
*/ --------------------------------------
*d njoy.146,147
      if (iopt.eq.1) ntty=6
      nsyse=6
      nsyso=7
      open(nsyso,file='output')
*d njoy.327,328
      data lab/'lanl'/
      data mx/' sun'/
*/ provide sun-specific fatal error exit
*d njoy.382,383
      stop 77
*/ provide ? prompt for input
*i njoy.445
      common/mainio/nsysi,nsyso,nsyse,ntty
*d njoy.472
  100 if (ntty.ne.0) write(ntty,'(2h ?,$)')
      read(nin,'(80a1)') (a(i),i=1,ncol)
*/ elapsed time
*d njoy.768
      dimension tarray(2)
c     return user time plus system time
      time=etime(tarray)
*/ date
*d njoy.778
      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.788
      character*24 sdate
      call fdate(sdate)
      htime=sdate(12:19)