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