*ident rs6k
*/ --------------------------------------
*/ machine-dependent changes to njoy97
*/ for ibm rs/6000 workstations using f77
*/ be sure to use "*set sw"
*/ --------------------------------------
*d njoy.280,281
      data lab/'lanl t-2'/
      data mx/'rs6000'/
*/ provide machine-specific fatal error exit
*d njoy.337,338
      stop 77
*/ elapsed time
*d njoy.485
      intrinsic system_clock
      data jtick/0/, itime/0/
      call system_clock(itick,ltick,mtick)
      time=0.
      if (mtick.ne.0) then
         itick=itick/10
         ltick=ltick/10
         mtick=mtick/10
         if (jtick.eq.0) jtick=itick
         inc=itick-jtick
         if (inc.lt.0) inc=inc+mtick
         itime=itime+inc
         jtick=itick
         time=itime
         time=time/ltick
      endif
*/ date
*d njoy.495
      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.508
      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.4884,4895
*d njoy.4900,5306
c
c     machine constants for rs/6000 for use with "*set sw".
c     the needed values are available 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)=.3010300
c     dmach(1)=2.22507385d-308
c     dmach(2)=1.79769313d+308
c     dmach(3)=1.11022302d-16
c     dmach(4)=2.22044605d-16
c     dmach(5)=0.30103001d+0
*d njoy.5721,5722
      call random_number(rann)