INTEGER diagSt_size
PARAMETER( diagSt_size = 10*Nr )
PARAMETER( diagSt_size = 50*Nr )
PARAMETER( diagSt_size = 20*Nr )
PARAMETER( diagSt_size = 1000*Nr )
PARAMETER( diagSt_size = 5*Nr )
PARAMETER( diagSt_size = 45*Nr )
_RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy)
DO k = 1,diagSt_size
IF ( ndiagcount.LE.diagSt_size .AND.
IF ( ndiagcount.GT.diagSt_size ) THEN
& 'DIAGSTATS_SET_POINTERS: diagSt_size=', diagSt_size,
IF (ndiagmx+kdiag(mate).GT.diagSt_size) THEN
IF (ndiagmx+kdiag(ndId).GT.diagSt_size) THEN