INTEGER ndiagt
& ndiagt, kdiag, hdiag
diagNum = ndiagt + 1
ndiagt = diagNum
DO n=1,ndiagt
ndiagt = 22
DO i=1,ndiagt
DO n = 1,ndiagt
IF ( hdiag(n).LT.0 .OR. hdiag(n).GT.ndiagt ) THEN
& ' Total Nb of available Diagnostics: ndiagt=', ndiagt
DO n = 2,ndiagt
DO nd=1,ndiagt
DIAGS_GET_PARMS_I = ndiagt