! common blocks from rdamie.f

      ! declarations for implicit none
      real EMKEV,WPM2
      real EE, EN, EPOT, VPOT, PEDRM, HALRM, EVAR, EFER, EFPOT, CPOT,
     |     SMQJ, RVQJ, DFAC, EMPR, APEDMDL, AHALMDL, PKVMDL, EMDL,
     |     EKVMDL, EFXMDL, SIGPER, SIGHER, ESVP, ZARR, EEERR, ENERR,
     |     PSI, CVPOT, DEN, DEE, DEEH, DEEP, DENH, DENP, PSIH, PSIP,
     |     EESMDL, ENSMDL, POT1

      ! electron energy and flux (EMFLX is WPM2)
      COMMON/PARFLUX/EMKEV(0:LONMX,0:ITHMX),WPM2(0:LONMX,0:ITHMX)
      
      ! other quantities (mostly want EPOT)
      common /calc/ EE(0:LONMX,0:ITHMX),EN(0:LONMX,0:ITHMX),
     1    EPOT(0:LONMX,0:ITHMX),VPOT(0:LONMX,0:ITHMX),
     2    PEDRM(0:LONMX,0:ITHMX),HALRM(0:LONMX,0:ITHMX),
     3    EVAR(0:LONMX,0:ITHMX),EFER(0:LONMX,0:ITHMX),
     4    EFPOT(0:LONMX,0:ITHMX),CPOT(0:LONMX,0:ITHMX),
     5    SMQJ(0:LONMX,0:ITHMX),RVQJ(0:LONMX,0:ITHMX),
     6    DFAC(0:LONMX,0:ITHMX),EMPR(0:LONMX,0:ITHMX),
     7    APEDMDL(0:LONMX,0:ITHMX),AHALMDL(0:LONMX,0:ITHMX),
     8    PKVMDL(0:LONMX,0:ITHMX), EMDL(0:LONMX,0:ITHMX),
     9    EKVMDL(0:LONMX,0:ITHMX), EFXMDL(0:LONMX,0:ITHMX),
     1    SIGPER(0:LONMX,0:ITHMX),SIGHER(0:LONMX,0:ITHMX),
     2    ESVP(0:LONMX,0:ITHMX),ZARR(0:LONMX,0:ITHMX),
     3    EEERR(0:LONMX,0:ITHMX),ENERR(0:LONMX,0:ITHMX),
     4    PSI(0:LONMX,0:ITHMX), CVPOT(0:LONMX,0:ITHMX),
     5    DEN(0:LONMX,0:ITHMX),DEE(0:LONMX,0:ITHMX),
     6    DEEH(0:LONMX,0:ITHMX),DEEP(0:LONMX,0:ITHMX),
     7    DENH(0:LONMX,0:ITHMX),DENP(0:LONMX,0:ITHMX),
     8    PSIH(0:LONMX,0:ITHMX),PSIP(0:LONMX,0:ITHMX),
     9    EESMDL(0:LONMX,0:ITHMX),ENSMDL(0:LONMX,0:ITHMX),
     1    POT1(2,0:ITHMX)