ndCount = ndCount + 1
O ndCount,
IF ( ndCount.EQ.0 ) RETURN
INTEGER ndCount
ndCount = 0.
IF ( ndCount.GT.0 ) THEN
INTEGER ndiagcount, ndCount
IF ( ndCount.EQ.0 ) THEN