rluset.f

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file rluset.f

    
C*********************************************************************  
    
      SUBROUTINE rluset(LFN,MOVE)   
    
C...Purpose: to read a state of the random number generator from a file 
C...for subsequent generation from this state onwards.  
      common/ludatr/mrlu(6),rrlu(100)   
      SAVE /ludatr/ 
      CHARACTER cherr*8 
    
C...Backspace required number of records (or as many as there are). 
      IF(move.LT.0) THEN    
        nbck=min(mrlu(6),-move) 
        DO 100 ibck=1,nbck  
  100   backspace(lfn,err=120,iostat=ierr)  
        mrlu(6)=mrlu(6)-nbck    
      ENDIF 
    
C...Unformatted read from unit LFN. 
      nfor=1+max(0,move)    
      DO 110 ifor=1,nfor    
  110 READ(lfn,err=120,iostat=ierr) (mrlu(i1),i1=1,5),  
     &(rrlu(i2),i2=1,100)   
      mrlu(6)=mrlu(6)+nfor  
      RETURN    
    
C...Write error.    
  120 WRITE(cherr,'(I8)') ierr  
      CALL luerrm(18,'(RLUSET:) error when accessing file, IOSTAT ='//  
     &cherr)    
    
      RETURN    
      END