*ident rs6k
*/ ----------------------------------------------------
*/ machine-dependent changes to njoy94
*/ for IBM RS6000  workstations
*/ be sure to use '*set sw'
*/ --------------------------------------
*d njoy.292,293
      data lab/'lanl'/
      data mx/'rs6k'/
*/ provide risc-specific fatal error exit
*d njoy.347,348
      stop 77
*/ provide ? prompt for input
*i njoy.410
      common/mainio/nsysi,nsyso,nsyse,ntty
*d njoy.439
  100 if (ntty.ne.0) write(ntty,'(2h ?,$)')
      read(nin,'(80a1)') (a(i),i=1,ncol)
*/ elapsed time
*d njoy.741
      type tb_type
       sequence
       real*4 usrtime
       real*4 systime
      end type
      type (tb_type) etime
      time=etime_(etime)
*/ date
*d njoy.751
      type iar
       sequence
       integer*4 iday
       integer*4 imonth
       integer*4 iyear
      end type
      type (iar) idate
      call idate_(idate)
      idate%iyear=idate%iyear-1900
      write(hdate,'(i2,1h/,i2,1h/,i2)') 
     x   idate%imonth,idate%iday,idate%iyear
*/ wall clock time
*d njoy.761
      character*26 sdate
      call fdate_(sdate)
      htime=sdate(12:19)
*/ machine constants for slatec functions
*i up86.2574
c     WARNING!!! The appropriate constants
c     must be added here!!!  See instructions
c     and examples in function d1mach.