c  Main MINTAB declarations and common blocks
c  MINTAB 1.0  12/98 with changes up to 12/2011.

      implicit real*8 (a-h,o-z)
      implicit integer (i-n)

      character*80 paramfil, filout, labelfil
*ptx      character*8 gasnam,rname,specnam
      character*20 gasnam,rname
      character*12 specnam

*ptx      character*12 fugalab,mtrylab,mtotlab,cpmlab,
*ptx     +             mollab,gralab,solflab,perlab,parlab,qklab
      character*12 parlab
      character*16 mtrylab,mtotlab,cpmlab
      character*24 fugalab,mollab,gralab,solflab,perlab,qklab

      character*12 parlab0(8,4)  !default labels for general parameters
                                 ! (1=CHIM-XPT, 2=gasworks, 3=solveq, 4=solvgas)
      character*20 blank20
      character*12 blank12
*ptx      character*8  blank8
      character*8  blank8, blank
      character*1  pos

c    I/O file names
c               labelfil     label file (.LAB default)
c               paramfil     parameter file (MINTAB.PAR default)
c               filout       tabulated output file (.TAB default)
      common /file_nam /labelfil, paramfil, filout


c     Labels read in input plot files:
c               specnam      aq. species names
c               rname        mineral names
c               gasname      gas names
      common /names/ gasnam(max3), rname(max7), specnam(max2)


c     Labels for tabulated output
c               parlab       labels assigned to selected par values
c               fugalab      labels assigned to selected fuga values
c               mtrylab      labels assigned to selected rmtry values
c               mtotlab      labels assigned to selected rmtot values
c               cpmlab       labels assigned to selected array cpm
c               mollab       labels assigned to selected rmol values
c               gralab       labels assigned to selected gra value
c               solflab      labels assigned to selected solf values
c               perlab       labels assigned to selected per values
c               qklab        labels assigned to selected qk values
      common /table_lab/parlab(max5),fugalab(max5),mtrylab(max5),
     +                  mtotlab(max5),cpmlab(max5),mollab(max5),
     +                  gralab(max5),solflab(max5),perlab(max5),
     +                  qklab(max5)

c    Number of pointers, and pointer values
c               npar, ipar   number and index of par's to save
c               nmtry,imtry  number and index of rmtry's to save
c               nmtot,imtot  number and index of rmtot's to save
c               ncpm,icpm    number and index of cpm's to save
c               nfuga,ifuga  number and index of fuga's to save
c               nmol,imol    number and index of mol's to save
c               ngra,igra    number and index of gra's to save
c               nsol,isol    number and index of solf's to save
c               nper,iper    number and index of per's to save
c               nqk,iqk      number and index of qk's to save
      common /table_dat/ipar(max5),npar,ifuga(max5),nfuga,
     +                  imtry(max5),nmtry,imtot(max5),nmtot,
     +                  icpm(max5),ncpm,imol(max5),nmol,
     +                  igra(max5),ngra,isol(max5),nsol,
     +                  iper(max5),nper,iqk(max5),nqk


c    Other variables read in the input plot files
c               par    = general parameters (temp, pressure, etc)
c               rmtry  = molalities of individual species
c               rmtot  = total moles of component species
c               cpm    = aqueous moles of component species
c               gasnam = the name of the gas
c               fuga   = fugacity of gas
c               rname  = name of saturated mineral or gas
c               rmol   = saturated mineral/gas moles
c               gra    = saturated mineral/gas grams
c               solf   = saturated mineral/gas mole frac. in solid solution
c               per    = saturated mineral/gas weight percent
c               qklog  = log(Q/K)
      common /plot_dat/par(max1),cpm(max4),rmtot(max4),gra(max7),
     +                 per(max7),solf(max7),rmol(max7),rmtry(max2),
     +                 fuga(max3),divmin(max7),qklog(max7),drvfug(max2)

c    Number of components in simulation
c               ibstot  component species
c               nst     all aqueous species
c               ngas    gases
c               nmin    minerals
*ptx       nmin_save    added so minerals dropped at high T,P are still included in output
      common /dim/nst,ibstot,ngas,nmin,nmin_save


c     see BLOCK DATA for definitions
      common /parlab/parlab0
      common /strings/pos,blank,blank8,blank12,blank20