*ident decau
*/ ---------------------------------------
*/ machine-dependent changes to njoy99
*/ for dec-alpha unix using f90
*/ use *set sw
*/ ---------------------------------------
*d njoy.308,309
      data lab/'lanl t-2'/
      data mx/'decalpha'/
*d njoy.365,366
      call exit(1)
*/ elapsed time
*d njoy.514
      dimension tarray(2)
      time=etime(tarray)
*/ 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     machine constants for the dec alpha
c     using g_float
c
c     data dmach(1) / '0000000000000010'x /
c     data dmach(2) / 'ffffffffffff7fff'x /
c     data dmach(3) / '0000000000003cc0'x /
c     data dmach(4) / '0000000000003cd0'x /
c     data dmach(5) / '79ff509f44133ff3'x /
c
c     machine constants for the dec alpha
c     using ieee_format
c
      data dmach(1) / '0010000000000000'x /
      data dmach(2) / '7fefffffffffffff'x /
      data dmach(3) / '3ca0000000000000'x /
      data dmach(4) / '3cb0000000000000'x /
      data dmach(5) / '3fd34413509f79ff'x /
c
c     machine constants for ieee arithmetic with "*set sw".
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
*/ random numbers
*d njoy.6160,6161
      call random_number(rann)