CHARACTER*8 blkName
PARAMETER ( blkName = ' ' )
fields(m,l) = blkName
stat_fields(m,l) = blkName
flds(m,n) = blkName
IF ( fields(m,l).NE.blkName .AND.
ELSEIF ( fields(m,l).NE.blkName ) THEN
diagSt_Flds(m,n) = blkName
IF ( stat_fields(m,l).NE.blkName .AND.
ELSEIF ( stat_fields(m,l).NE.blkName ) THEN
IF ( cdiag(n).NE.blkName ) THEN
IF ( diagName.EQ.blkName ) THEN