*ident sun8
*/ ----------------------------------------
*/ machine-dependent changes to njoy97
*/ for sun workstations using f77 with -dbl
*/ do not use "*set sw"
*/ ----------------------------------------
*d njoy.280,281
      data lab/'lanl t-2'/
      data mx/'sun-dbl'/
*/ provide machine-specific fatal error exit
*d njoy.337,338
      stop 77
*/ elapsed time
*d njoy.485
      real*4 tarray(2)
c     return user time plus system time
      time=etime(tarray)
      time=tarray(1)+tarray(2)
*/ date
*d njoy.495
      integer*4 iarray(3)
      call idate(iarray)
      iarray(3)=iarray(3)-2000
      write(hdate,'(i2,''/'',i2,''/'',i2)') 
     1  iarray(2),iarray(1),iarray(3)
*d njoy.508
      character*24 sdate
      call fdate(sdate)
      htime=sdate(12:19)
*/ machine constants for slatec functions
*d njoy.5359,5370
*d njoy.5375,5699
c     for sun using -dbl option
      rmach(1)=2.22507385d-308
      rmach(2)=1.79769313d+308
      rmach(3)=1.11022302d-16
      rmach(4)=2.22044605d-16
      rmach(5)=0.30103001d+0
*/ random numbers
*i njoy.5717
      integer*4 k
*d njoy.5722
      rann=drand(k)