integer          Impedance_nz, Impedance_izrms
      double precision Impedance_zmin
     &               , Impedance_zmax
     &               , Impedance_dz
     &               , Impedance_dzmin
     &               , Impedance_dzhist(Ndz)
      integer Impedance_NonZeroRho_IZMin, Impedance_NonZeroRho_IZMax
      integer Impedance_NonZeroARho_IZMin, Impedance_NonZeroARho_IZMax
      common / Impedance_Data_COM /
     &        Impedance_nz, Impedance_izrms
     &      , Impedance_zmin, Impedance_zmax
     &      , Impedance_dz, Impedance_dzmin
     &      , Impedance_dzhist
     &      , Impedance_NonZeroRho_IZMin, Impedance_NonZeroRho_IZMax
     &      , Impedance_NonZeroARho_IZMin, Impedance_NonZeroARho_IZMax
      integer          nz, izrms
      double precision zmin, zmax, dz, dzmin
      integer NonZeroRho_IZMin, NonZeroRho_IZMax
      integer NonZeroARho_IZMin, NonZeroARho_IZMax