blk8c = ' '
IF ( cdiag(n).NE.blk8c ) THEN
CHARACTER*8 blk8c
stat_fields(m,l) = blk8c
flds(m,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
fields (m,l) = blk8c