*ident cray
*/ --------------------------------------
*/ machine-dependent changes to njoy99
*/ for cray mainframes using f90
*/ do not use *setsw
*/ --------------------------------------
*d njoy.308,309
      data lab/'lanl t-2'/
      data mx/'cray'/
*/ provide machine-specific fatal error exit
*d njoy.365,366
      stop 77
*/ elapsed time
*d njoy.514
      call second(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)') 
     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.5798,5809
*d njoy.5814,6138
c
c     machine constants for the cray.
c     the needed values are available using f90 intrinsics.
      rmach(1)=tiny(1.)
      rmach(2)=huge(1.)
      rmach(3)=2.**(-digits(1.))
      rmach(4)=2.**(1-digits(1.))
      rmach(5)=.3010300
c     rmach(1)=7.3344e-2466
c     rmach(2)=1.3634e-2465
c     rmach(3)=7.1054e-15
c     rmach(4)=1.4211e-14
c     rmach(5)=.3010300
*/ random numbers
*d njoy.6160,6161
      call random_number(rann)