source/maxlik/src_MD_T_maxlik-NEWCORR/COMMON.THERMAL

   1       integer NGridT
   2       double precision deltaT,GridT0,sumW(0:MaxGridT,maxprot),
   3      & sumE(0:MaxGridT,maxprot),sumEsq(0:MaxGridT,maxprot),
   4      & sumEbis(0:MaxGridT,maxprot),
   5      & sumQ(0:MaxGridT,maxprot),sumQsq(0:MaxGridT,maxprot),
   6      & sumRMS(0:MaxGridT,maxprot),sumRGY(0:MaxGridT,maxprot),
   7      & sumEQ(0:MaxGridT,maxprot),sumEEQ(0:MaxGridT,maxprot),
   8      & sumEEE(0:MaxGridT,maxprot),Rgas
   9       common /thermal_var/ deltaT,GridT0,sumW,sumE,sumEbis,sumEsq,
  10      & sumQ,sumRMS,sumRGY,sumQsq,sumEQ,sumEEE,sumEEQ,Rgas,nGridT