double precision LImpedance_LInductive_Factor
      double precision LImpedance_LInductive_Factor_Depth
      double precision LImpedance_LResistive_Factor
      double precision LImpedance_LCavitylike_Factor
      logical LImpedance_LImpedance_ON
C
      double precision rho, L_Vwake
      logical LImpedance_FirstCall 
      double precision LImpedance_a, LImpedance_b
C
      common / LImpedance_Data_COM / LImpedance_LInductive_Factor
     &                         , LImpedance_LInductive_Factor_Depth
     &                         , LImpedance_LResistive_Factor
     &                         , LImpedance_LCavitylike_Factor
     &                         , LImpedance_LImpedance_ON
      common / LImpedance_Array_COM / rho(nzmax), L_Vwake(nzmax)
      common / LImpedance_etc_COM / LImpedance_FirstCall
      common / LImpedance_CavitylikeList_COM / LImpedance_a(0:nzmax)
     &                                       , LImpedance_b(0:nzmax)
      double precision LInductive_Factor
      double precision LInductive_Factor_Depth
      double precision LResistive_Factor
      double precision LCavitylike_Factor