c..
c..declaration for pipelining the eos routines

c..maximum length of the row vector
      integer   nrowmax
      parameter (nrowmax = 1000)


c..maximum number of isotopes
      integer   irowmax
      parameter (irowmax = 30)


c..maximum number of ionization stages
      integer   jstagemax
      parameter (jstagemax = 30)


c..failure of an eos 
      logical          eosfail
      common /eosfc1/  eosfail



c..lower and upper limits of the loop over rows
      integer          jlo_eos,jhi_eos
      common /eosvec2/ jlo_eos,jhi_eos



c..thermodynamic and composition inputs
      double precision     
     1          temp_row(nrowmax),den_row(nrowmax),
     2          abar_row(nrowmax),zbar_row(nrowmax),
     3          zeff_row(nrowmax)

      common /thinp/
     1          temp_row,den_row,
     2          abar_row,zbar_row,
     3          zeff_row


c..composition input
      integer          niso 
      double precision xmass_row(irowmax,nrowmax),
     1                 aion_row(irowmax,nrowmax),
     2                 zion_row(irowmax,nrowmax)
      common  /cmpinp/ xmass_row,aion_row,zion_row,niso



c..composition outout
      double precision frac_row(jstagemax,irowmax,nrowmax)
      common /cmpout/  frac_row
     
      


       

c..totals and their derivatives
      double precision
     1          ptot_row(nrowmax),dpt_row(nrowmax),dpd_row(nrowmax),
     2          dpa_row(nrowmax),dpz_row(nrowmax),
     3          etot_row(nrowmax),det_row(nrowmax),ded_row(nrowmax),
     4          dea_row(nrowmax),dez_row(nrowmax),
     5          stot_row(nrowmax),dst_row(nrowmax),dsd_row(nrowmax),
     6          dsa_row(nrowmax),dsz_row(nrowmax)
      common /thtot/
     1          ptot_row,dpt_row,dpd_row,dpa_row,dpz_row,
     2          etot_row,det_row,ded_row,dea_row,dez_row,
     3          stot_row,dst_row,dsd_row,dsa_row,dsz_row


c..radiation contributions 
      double precision 
     1          prad_row(nrowmax),
     2          erad_row(nrowmax),
     3          srad_row(nrowmax)
      common /thrad/
     1          prad_row,
     2          erad_row,
     3          srad_row


c..ion contributions 
      double precision 
     1          pion_row(nrowmax),
     2          eion_row(nrowmax),
     3          sion_row(nrowmax),
     4          xni_row(nrowmax)
      common /thion/
     1          pion_row,
     2          eion_row,
     3          sion_row,
     4          xni_row

c..electron-positron contributions 
      double precision 
     1         pele_row(nrowmax),ppos_row(nrowmax),
     2         dpept_row(nrowmax),dpepd_row(nrowmax),
     3         dpepa_row(nrowmax),dpepz_row(nrowmax),
     4         eele_row(nrowmax),epos_row(nrowmax),
     5         deept_row(nrowmax),deepd_row(nrowmax),
     6         deepa_row(nrowmax),deepz_row(nrowmax),
     7         sele_row(nrowmax),spos_row(nrowmax),
     8         dsept_row(nrowmax),dsepd_row(nrowmax),
     9         dsepa_row(nrowmax),dsepz_row(nrowmax),
     &         xnem_row(nrowmax),
     1         xne_row(nrowmax),dxnet_row(nrowmax),dxned_row(nrowmax),
     2         dxnea_row(nrowmax),dxnez_row(nrowmax),xnp_row(nrowmax),
     3         etaele_row(nrowmax),etapos_row(nrowmax),
     4         detat_row(nrowmax),detad_row(nrowmax),
     5         detaa_row(nrowmax),detaz_row(nrowmax)
      common /thepc/
     1         pele_row,ppos_row,
     2         dpept_row,dpepd_row,
     3         dpepa_row,dpepz_row,
     4         eele_row,epos_row,
     5         deept_row,deepd_row,
     6         deepa_row,deepz_row,
     7         sele_row,spos_row,
     8         dsept_row,dsepd_row,
     9         dsepa_row,dsepz_row,
     &         xnem_row,
     1         xne_row,dxnet_row,dxned_row,
     2         dxnea_row,dxnez_row,xnp_row,
     3         etaele_row,etapos_row,
     4         detat_row,detad_row,
     5         detaa_row,detaz_row



c..ionization potential contributions
      double precision eip_row(nrowmax),
     1                 pip_row(nrowmax),
     1                 sip_row(nrowmax)
      common /thxip/   eip_row,pip_row,sip_row 



c..coulomb contributions
      double precision 
     1          pcou_row(nrowmax),
     2          ecou_row(nrowmax),
     3          scou_row(nrowmax),
     4          plasg_row(nrowmax)
      common /thcou/
     1          pcou_row,
     2          ecou_row,
     3          scou_row,
     4          plasg_row


c..thermodynamic consistency checks; maxwell relations 
      double precision
     1          dse_row(nrowmax),dpe_row(nrowmax),dsp_row(nrowmax)
      common /thmax/
     1          dse_row,dpe_row,dsp_row


c..derivative based quantities
      double precision
     1          cp_row(nrowmax),cv_row(nrowmax),
     2          gam1_row(nrowmax),gam2_row(nrowmax),gam3_row(nrowmax),
     3          cs_row(nrowmax)
      common /thder/
     1          cp_row,cv_row,
     2          gam1_row,gam2_row,gam3_row,
     3          cs_row


c..for debugging
c      double precision crap1_row(nrowmax),
c     1                 dcrap1d_row(nrowmax),
c     2                 dcrap1t_row(nrowmax),
c     3                 dcrap1a_row(nrowmax),
c     4                 dcrap1z_row(nrowmax),
c      common /dbg3/    crap1_row,
c     1                 dcrap1d_row,dcrap1t_row,dcrap1a_row,dcrap1z_row