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