*ident unicos
*/ ----------------------------------------------------
*/ machine-dependent changes to njoy91
*/ for cray-xmp machines using unicos
*/ san diego supercomputer center (sdsc) version
*/ -------------------------------------------------
*d njoy.146,147
      if (iopt.eq.1) ntty=6
      nsyse=6
      nsyso=7
      open(nsyso,file='output')
*d njoy.327,328
      data lab/'sdsc'/
      data mx/'y'/
*d njoy.382
c     request traceback and dropfile
      call trbk(nsyso)
      if (nsyse.ne.nsyso) call trbk(nsyse)
      stop 77
*i njoy.445
      common/mainio/nsysi,nsyso,ntty
*d njoy.472
  100 if (ntty.ne.0) write(ntty,'(3h ? ,$)')
      read(nin,'(80a1)') (a(i),i=1,ncol)
*/ elapsed time
*d njoy.768
      call second(time)
*/ date
*d njoy.778
      call date(hdate)
*/ wall clock time
*d njoy.788
      call clock(htime)
*/ disspla plotting in covr
*d covr.141,142
         call opngks
*d covr.447
      if (nout.eq.0) call donepl
*/ disspla plotting for dtfr
*d dtfr.2257,2258
      call opngks
*d dtfr.2280
      call donepl
*/ disspla plotting for plotr
*d up63.21,plotr.311
  100 call opngks
*d plotr.1154
      call donepl