& ' Total Nb of available Diagnostics: ndiagt=', ndiagt
DO n=1,ndiagt
DO n = 2,ndiagt
DO n = 1,ndiagt
integer ndiagt
common /diagarrays/ ndiagt
diagNum = ndiagt + 1
ndiagt = diagNum
DO nd=1,ndiagt
do n = 1,ndiagt
ndiagt = 22