*ident x86lf9 */ ---------------------------------------- */ machine-dependent changes to njoy99 */ for x86 machines using */ Lahey LF95 with f77-style fixed lines */ be sure to use "*set sw" */ ---------------------------------------- *d njoy.308,309 data lab/'lanl t-2'/ data mx/'x86lf95'/ */ provide machine-specific fatal error exit *d njoy.365,366 stop 77 */ elapsed time *d njoy.514 call cpu_time(time) */ date *d njoy.524 character date*8,time*10,zone*5 integer values(8) intrinsic date_and_time call date_and_time(date,time,zone,values) write(hdate,'(i2,''/'',i2,''/'',i2)') & values(2),values(3),mod(values(1),100) */ wall clock time *d njoy.537 character date*8,time*10,zone*5 integer values(8) intrinsic date_and_time call date_and_time(date,time,zone,values) write(htime,'(i2,'':'',i2,'':'',i2)') & values(5),values(6),values(7) */ random numbers *d njoy.6161 call random_number(rr) rann=rr */ machine constants for slatec functions *d njoy.5323,5334 *d njoy.5338,5746 c for absoft f90 using f90 intrinsics dmach(1)=tiny(1.d0) dmach(2)=huge(1.d0) dmach(3)=2.d0**(-digits(1.d0)) dmach(4)=2.d0**(1-digits(1.d0)) dmach(5)=0.30103001d+0