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