*     -*-fortran-*-

      character*7 SelectedCharge
      character*4 InSelectedCharge
*
      common / SelectedChargeAPFEL / SelectedCharge,InSelectedCharge