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