pyrget.f

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

 
C*********************************************************************
 
C...PYRGET
C...Dumps the state of the random number generator on a file
C...for subsequent startup from this state onwards.
 
      SUBROUTINE pyrget(LFN,MOVE)
 
C...Double precision and integer declarations.
      IMPLICIT DOUBLE PRECISION(a-h, o-z)
      IMPLICIT INTEGER(i-n)
      INTEGER pyk,pychge,pycomp
C...Commonblocks.
      common/pydatr/mrpy(6),rrpy(100)
      SAVE /pydatr/
C...Local character variable.
      CHARACTER cherr*8
 
C...Backspace required number of records (or as many as there are).
      IF(move.LT.0) THEN
        nbck=min(mrpy(6),-move)
        DO 100 ibck=1,nbck
          backspace(lfn,err=110,iostat=ierr)
  100   CONTINUE
        mrpy(6)=mrpy(6)-nbck
      ENDIF
 
C...Unformatted write on unit LFN.
      WRITE(lfn,err=110,iostat=ierr) (mrpy(i1),i1=1,5),
     &(rrpy(i2),i2=1,100)
      mrpy(6)=mrpy(6)+1
      RETURN
 
C...Write error.
  110 WRITE(cherr,'(I8)') ierr
      CALL pyerrm(18,'(PYRGET:) error when accessing file, IOSTAT ='//
     &cherr)
 
      RETURN
      END