CHARACTER*8 fflags(numLists)
& flds, fnames, fflags
IF ( fflags(ld)(2:2).EQ.'P' ) THEN
IF (fflags(listId)(2:2).EQ.'P') THEN
IF ( fflags(listId)(2:2).EQ.'I' ) kLev = 1
& (fflags(listId)(1:1) .NE. 'D'))
& .OR. (fflags(listId)(1:1) .EQ. 'R') ) THEN
& .OR. (fflags(listId)(1:1) .EQ. 'D') ) THEN
IF ( fflags(listId)(2:2).EQ.'I' ) nLevOutp = 1
IF ( fflags(listId)(2:2).EQ.' ' ) THEN
IF ( fflags(listId)(2:2).EQ.'P' ) THEN
IF ( fflags(listId)(2:2).EQ.'I' ) THEN
IF ( fflags(listId)(1:1).EQ.'R' ) prec = precFloat32
IF ( fflags(listId)(1:1).EQ.'D' ) prec = precFloat64
fflags(n) = blk8c
fflags(n) = fileFlags(l)
IF ( fflags(n).EQ.blk8c ) THEN
& ' ; F-Flags="', fflags(n),'"'
IF ( nlevels(n).EQ.-1 .AND. fflags(n)(2:2).EQ.'I' ) THEN
ELSEIF ( fflags(n)(2:2).EQ.'P' ) THEN
IF ( fflags(n)(2:2).EQ.'I' ) suffix = ' Sum Levels:'
IF ( fflags(ld)(2:2).EQ.'I' ) suffix = ' Sum Levels:'
ELSEIF ( fflags(ld)(2:2).NE.'P' ) THEN
IF ( fflags(listId)(3:3).EQ.'h' ) THEN