2 C*********************************************************************
4 SUBROUTINE RLUGET(LFN,MOVE)
6 C...Purpose: to dump the state of the random number generator on a file
7 C...for subsequent startup from this state onwards.
8 COMMON/LUDATR/MRLU(6),RRLU(100)
12 C...Backspace required number of records (or as many as there are).
14 NBCK=MIN(MRLU(6),-MOVE)
16 BACKSPACE(LFN,ERR=110,IOSTAT=IERR)
21 C...Unformatted write on unit LFN.
22 WRITE(LFN,ERR=110,IOSTAT=IERR) (MRLU(I1),I1=1,5),
28 110 WRITE(CHERR,'(I8)') IERR
29 CALL LUERRM(18,'(RLUGET:) error when accessing file, IOSTAT ='//