IF ( nActiveMax.GT.numperlist ) THEN
& ' but needs at least', nActiveMax
INTEGER mate, nActiveMax
nActiveMax = 0
nActiveMax = MAX(nActive(ld),nActiveMax)
& nActiveMax.LE.numperlist ) THEN
nActiveMax = MAX(diagSt_nbActv(ld),nActiveMax)
INTEGER mm, mate, nActiveMax