rluget.f

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

    
C*********************************************************************  
    
      SUBROUTINE rluget(LFN,MOVE)   
    
C...Purpose: to dump the state of the random number generator on a file 
C...for subsequent startup 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=110,iostat=ierr)  
        mrlu(6)=mrlu(6)-nbck    
      ENDIF 
    
C...Unformatted write on unit LFN.  
      WRITE(lfn,err=110,iostat=ierr) (mrlu(i1),i1=1,5), 
     &(rrlu(i2),i2=1,100)   
      mrlu(6)=mrlu(6)+1 
      RETURN    
    
C...Write error.    
  110 WRITE(cherr,'(I8)') ierr  
      CALL luerrm(18,'(RLUGET:) error when accessing file, IOSTAT ='//  
     &cherr)    
    
      RETURN    
      END