c common block time_series
c
      real sampling_rate
      real datath(maxsamp,3)   
c 1:V, 2:NS, 3:EW   
      integer n_samples
c 
      common /timeseries/ datath, sampling_rate, n_samples