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