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