c
c Blank common:
c
      COMMON ZP(KMX),ZPHT(KMX),TNMS(KMX),XOM(KMX),XN2M(KMX),XO2M(KMX),  
     1ZPMHT(KMX),SHTMS(KMX),AMASS(KMX),RHOMS(KMX),TE(KMX),TI(KMX),      
     2TN(KMX),XNE(KMX),XNO(KMX),XNO2(KMX),XNN2(KMX),XN4S(KMX),XNNO(KMX),
     3XN2D(KMX),RHO(KMX),SHT(KMX),XIN2P(KMX),XIOP(KMX),XINOP(KMX),      
     4XINP(KMX),AMAS(KMX),XCHUE(KMX),XIO2P(KMX),XCO2(KMX),SHCO2(KMX),
     5XNH2O(KMX),XNHOX(KMX),XNHO2(KMX),XNOH(KMX),XNHM(KMX),XNO1D(KMX),  
     6XNO3(KMX),XNH2(KMX),XIHP(KMX),XIOHP(KMX),XIH2OP(KMX),XNNO2(KMX),  
     7XNCH4(KMX),XNH2O2(KMX),XNHTOT(KMX),XNCO2(KMX),XNCO(KMX),XNH(KMX), 
     8O1DEX(KMX),XNHE(KMX),XNHEM(KMX),XNARG(KMX),XNARGM(KMX),XN4SM(KMX),
     9ZPMS(KMX),GZ(KMX),QHOXI(KMX),ZQHT(KMX),F107,F107A,CO2MIX,DAY,     
     1GLAT,GLONG,STL,ZI,SCHAP(KMX),RE,BOLTZ