xNew=xOld+1
xNew=ndiag(ii,1,1)
IF (xNew.EQ.xOld) THEN
xOld = xNew
INTEGER xNew, xOld, ii, nDup
INTEGER xNew, xOld
xNew = fld(K )
IF ( .NOT. compact .OR. (xNew .NE. xOld) ) THEN
LOGICAL xNew, xOld
IF ( .NOT. compact .OR. (xNew .NEQV. xOld) ) THEN
Real*8 xNew, xOld