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