common.h

*
      implicit none

*
* mcluster parameters
*
      integer, dimension(1:10) :: npop, initmodel, imfg, pairing,
     &         adis, eigen
      integer potential_energy, tf, mclusteron, seedmc,numpop,
     &         outputf, check_en, BSE,
     &        scaling_1pop_only

      REAL(KIND=8) qvir, rbar, zini,rh_mcl,delta_formation_pop2,
     &       tdelay_fraction,gas_fraction_initial,
     &       galactocentric_radius, cluster_velocity,qvir_mcluster
      REAL(KIND=8), dimension(1:10) :: fracb, w0, conc_pop, Seg,
     &       equalmass, mlow, mup, alpha_L3,
     &       beta_L3, mu_L3, amin, amax, epoch_pop,
     &       zini_pop, fractal, fracb_reference, qvir_pop,
     &       mass_range_delta_formation_pop2

      character(len=10000) :: npopchar,fracbchar, initmodelchar, w0char,
     &       conc_popchar, Segchar, fractalchar,
     &       imfgchar, equalmasschar, mlowchar, mupchar,
     &       alpha_L3char, beta_L3char, mu_L3char, pairingchar,
     &       adischar, eigenchar, aminchar, amaxchar,
     &       zinichar, epochchar,fracbreferencechar, qvirpopchar,
     &       mass_range_delta_formation_pop2char
      character(len=100000) :: mlimimfchar, alphaimfchar

      common /mclusterarri/  npop, initmodel, imfg, pairing, adis,
     &        eigen

      common /mclusterarrd/ fracb, w0, conc_pop, Seg, fractal,
     &       equalmass, mlow, mup, alpha_L3,
     &       beta_L3, mu_L3, amin, amax, epoch_pop,
     &       zini_pop, fracb_reference, qvir_pop,
     &       mass_range_delta_formation_pop2  

      common /mclusteri/ potential_energy, tf, mclusteron, seedmc,
     &       outputf, check_en, BSE, scaling_1pop_only

      common /mclusterd/ qvir, rbar, rh_mcl,
     &        galactocentric_radius, cluster_velocity,
     &        delta_formation_pop2,
     &       qvir_mcluster
      common /mclusterchar/ alphaimfchar, mlimimfchar