integer Charge_Type 
      double precision Charge_Min, Charge_Max
     &               , Charge_CParam1, Charge_CParam2
     &               , Charge_CParam3, Charge_CParam4
     &               , Charge_CParam5, Charge_CParam6
     &               , Charge_SettlingTime, Charge_RiseTime
     &               , Charge_PlatoTime, Charge_FallTime
      common /Charge_Data_COM / Charge_Type
     &                        , Charge_Min, Charge_Max
     &                        , Charge_CParam1, Charge_CParam2
     &                        , Charge_CParam3, Charge_CParam4
     &                        , Charge_CParam5, Charge_CParam6
     &               , Charge_SettlingTime, Charge_RiseTime
     &               , Charge_PlatoTime, Charge_FallTime
      double precision Min, Max
     &               , CParam1, CParam2, CParam3
     &               , CParam4, CParam5, CParam6
     &               , SettlingTime, RiseTime
     &               , PlatoTime, FallTime