*ident sun8 */ ---------------------------------------- */ machine-dependent changes to njoy99 */ for sun workstations using f77 with -dbl */ do not use "*set sw" */ ---------------------------------------- *d njoy.308,309 data lab/'lanl t-2'/ data mx/'sun-dbl'/ */ provide machine-specific fatal error exit *d njoy.365,366 stop 77 */ elapsed time *d njoy.514 real*4 tarray(2) c return user time plus system time time=etime(tarray) time=tarray(1)+tarray(2) */ date *d njoy.524 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.537 character*24 sdate call fdate(sdate) htime=sdate(12:19) */ machine constants for slatec functions *d njoy.5798,5809 *d njoy.5814,6138 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.6156 integer*4 k *d njoy.6161 rann=drand(k)