blk8c = ' '
fileFlags(l) = blk8c
fields(m,l) = blk8c
stat_fields(m,l) = blk8c
flds(m,n) = blk8c
fflags(n) = blk8c
IF ( fields(m,l).NE.blk8c .AND.
ELSEIF ( fields(m,l).NE.blk8c ) THEN
diagSt_Flds(m,n) = blk8c
IF ( stat_fields(m,l).NE.blk8c .AND.
ELSEIF ( stat_fields(m,l).NE.blk8c ) THEN
IF ( fflags(n).EQ.blk8c ) THEN
CHARACTER*8 blk8c
IF ( cdiag(n).NE.blk8c ) THEN