*ident sun
*/ ----------------------------------------------------
*/ machine-dependent changes to transx
*/ for sun workstations
*/ be sure to use '*set sw'
*/ --------------------------------------
*/ elapsed time
*d transx.3984
      dimension tarray(2)
      secs=etime(tarray)
*/ date
*d transx.3994
      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 transx.4004
      character*24 sdate
      call fdate(sdate)
      htime=sdate(12:19)
*/ fatal error exit
*d transx.4017,4018
      stop 77