8 common/ludatr/mrlu(6),rrlu(100)
14 nbck=min(mrlu(6),-move)
16 100 backspace(lfn,err=120,iostat=ierr)
23 110
READ(lfn,err=120,iostat=ierr) (mrlu(
i1),
i1=1,5),
29 120
WRITE(cherr,
'(I8)') ierr
30 CALL
luerrm(18,
'(RLUSET:) error when accessing file, IOSTAT ='//