double precision TImpedance_TInductive_Factor
      double precision TImpedance_TInductive_Factor_Depth 
      integer TImpedance_TInductive_Factor_IDepth 
      double precision TImpedance_TResistive_Factor
      double precision TImpedance_BZ_Beta
      double precision TImpedance_SqrtBZ_Beta
      double precision TImpedance_TCavitylike_Factor 
      double precision TImpedance_Cavity_Beta
      logical TImpedance_TImpedance_ON
      double precision TImpedance_Chromaticity0
      double precision TImpedance_Chromaticity_Delta
      double precision TImpedance_Chromaticity_Freq
      double precision TImpedance_DNuDa2
C
      double complex   arho(nzmax)
      double precision rearho(nzmax)
      double precision xrho(nzmax)
      double precision T_Local_Ewake(nzmax)
      double complex   T_BZ_Ewake(nzmax)
      double precision T_BZ_EwakeR(nzmax) 
      logical          TImpedance_FirstCall 
      double precision TImpedance_a(nzmax), TImpedance_b(nzmax)
C
      common / TImpedance_Data_COM / TImpedance_TInductive_Factor
     &                         , TImpedance_TInductive_Factor_Depth 
     &                         , TImpedance_TInductive_Factor_IDepth 
     &                         , TImpedance_TResistive_Factor
     &                         , TImpedance_BZ_Beta
     &                         , TImpedance_SqrtBZ_Beta
     &                         , TImpedance_TCavitylike_Factor
     &                         , TImpedance_Cavity_Beta
     &                         , TImpedance_DNuDa2
     &                         , TImpedance_TImpedance_ON
      common / TImpedance_Chromaticity_COM /
     &              TImpedance_Chromaticity0
     &            , TImpedance_Chromaticity_Delta
     &            , TImpedance_Chromaticity_Freq
      common / TImpedance_Particle_COM / arho, xrho
      common / TImpedance_Wake_COM /T_Local_Ewake, T_BZ_Ewake
      common / TImpedance_Tmp_COM / T_BZ_EwakeR
      common / TImpedance_etc_COM / TImpedance_FirstCall
      common / TImpedance_CavitylikeList_COM / TImpedance_a
     &                                   , TImpedance_b
      double precision TInductive_Factor
      double precision TInductive_Factor_Depth
      integer TInductive_Factor_IDepth 
      double precision TResistive_Factor
      double precision TCavitylike_Factor
      double precision BZ_Beta 
      double precision SqrtBZ_Beta 
      double precision Cavity_Beta 
      double precision Chromaticity0
      double precision Chromaticity_Delta
      double precision Chromaticity_Freq
      double precision DNuDa2