*ident rs6k
*/ ----------------------------------------------------
*/ machine-dependent changes to njoy91
*/ for IBM RS6000  workstations
*/ be sure to use '*set sw'
*/ --------------------------------------
*d njoy.146,147
      if (iopt.eq.1) ntty=6
      nsyse=6
      nsyso=7
      open(nsyso,file='output')
*d njoy.327,328
      data lab/'lanl'/
      data mx/'rs6k'/
*/ provide risc-specific fatal error exit
*d njoy.382,383
      stop 77
*/ provide ? prompt for input
*i njoy.445
      common/mainio/nsysi,nsyso,nsyse,ntty
*d njoy.472
  100 if (ntty.ne.0) write(ntty,'(2h ?,$)')
      read(nin,'(80a1)') (a(i),i=1,ncol)
*/ elapsed time
*d njoy.768
      type tb_type
       sequence
       real*4 usrtime
       real*4 systime
      end type
      type (tb_type) etime
      time=etime_(etime)
*/ date
*d njoy.778
      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.788
      character*26 sdate
      call fdate_(sdate)
      htime=sdate(12:19)
*/ allow for intrinsic rand function
*d purr.1032
      er(ir)=er(ir-1)+dcon*sqrt(-alog(rrand(0.)))                           
*d purr.1035
  105 er(ir)=elow+dcon*rrand(0.)                                           
*d purr.1046
  130 t1=2.*rrand(0.)-1.                                                    
*d purr.1047
      t2=2.*rrand(0.)-1.                                                    
*d purr.1063
  150 t1=2.*rrand(0.)-1.                                                    
*d purr.1064
      t2=2.*rrand(0.)-1.                                                    
*d purr.1081
  160 t1=2.*rrand(0.)-1.                                                    
*d purr.1082
      t2=2.*rrand(0.)-1.                                                    
*d purr.1138
      er(ir)=er(ir-1)+dcon*sqrt(-alog(rrand(0.)))                           
*d purr.1141
  105 er(ir)=elow+dcon*rrand(0.)                                            
*d purr.1152
      n=1+19.9999*rrand(0.)                                                 
*d purr.1159
      n=1+19.9999*rrand(0.)                                                 
*d purr.1166
      n=1+19.9999*rrand(0.)                                                 
*d purr.1238
      es(ie)=emin+espan*rrand(0.)                                           
*i purr.1720
      function rrand(r)                                                    
c     random number generator.                                             
      rrand=0.                                                              
      call error('rand','not installed',' ')                               
      return
      end