*ident pc_g95
*/ ----------------------------------------------
*/ machine-dependent changes to njoy99
*/ for pc with the g95 compiler and 32 bits
*/ be sure to use "*set sw"
*/ ----------------------------------------------
*d njoy.308,309
      data lab/'lanl t16'/
      data mx/'pc_g95'/
*/ provide machine-specific fatal error exit
*d njoy.365,366
      stop 77
*/ elapsed time
*d njoy.514
c     return user time plus system time
      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.
*/ provide code for either double or single precision.
*/ this is the double precision code:
*d njoy.5323,5334
*d njoy.5338,5746
c
c     for intel ifort (or any f90 and later compiler)
      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)=log10(2.d0)
*/ this is the single precision code:
*/ *d njoy.5798,5809
*/ *d njoy.5813,6139
*/ c
*/ c     for intel ifort (or any f90 and later compiler)
*/       rmach(1)=tiny(1.e0)
*/       rmach(2)=huge(1.e0)
*/       rmach(3)=2.e0**(-digits(1.e0))
*/       rmach(4)=2.e0**(1-digits(1.e0))
*/       rmach(5)=log10(2.e0)