*ident upo2k */ -------------------------------------- */ machine-dependent changes to njoy99 */ for sgi origen 2000 using f90 */ use "*set sw" */ -------------------------------------- *d njoy.308,309 data lab/'lanl t-2'/ data mx/'o2k-f90'/ */ provide machine-specific fatal error exit *d njoy.365,366 stop 77 */ elapsed time *d njoy.514 time=second() */ 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)') 1 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)') 1 values(5),values(6),values(7) */ machine constants for slatec functions *d njoy.5323,5334 *d njoy.5338,5746 c c machine constants for the origen 2000. c the needed values are available using f90 intrinsics. dmach(1)=tiny(1.) dmach(2)=huge(1.) dmach(3)=2.**(-digits(1.)) dmach(4)=2.**(1-digits(1.)) dmach(5)=.3010300d+0 */ random numbers *d njoy.6161 call random_number(rann)