INTEGER ndiagMax
PARAMETER( ndiagMax = 500 )
PARAMETER( ndiagMax = 602 )
integer kdiag(ndiagMax)
character*8 cdiag(ndiagMax)
character*80 tdiag(ndiagMax)
character*16 gdiag(ndiagMax)
character*16 udiag(ndiagMax)
& ' Exceed Max.Number of diagnostics ndiagMax=', ndiagMax
IF ( diagNum .LE. ndiagMax ) THEN
do n=1,ndiagMax