character*8 fflags(numlists)
& flds, fnames, fflags
if(fflags(listId)(2:2).eq.'P') then
if(fflags(listId)(3:3).eq.'1') then
elseif(fflags(listId)(3:3).eq.'2')then
IF (fflags(listId)(1:1) .EQ. ' ') THEN
ELSEIF (fflags(listId)(1:1) .EQ. 'R') THEN
ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN
IF ((fflags(listId)(1:1) .EQ. ' ')
& .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN
fflags(n) = fileflags(l)