c common block for windows 
      character    data_file(maxnwin)*200
      real         start_time(maxnwin), end_time(maxnwin)
      real          rmaxwl, rminwl 
      character*3  idV(maxnwin), idN(maxnwin), idE(maxnwin) 
      integer   n_windows ! current number of windows (<= maxnwin) 
      character*10 idsta(maxnwin) 
      integer idfor(maxnwin)
c
c added a.tento 02/04 : storage of labels for ploting purposes only
c
        character*12  kv(maxnwin), kn(maxnwin), ke(maxnwin),
     #                kunits(maxnwin)
c
      common /windows/ data_file, start_time, end_time, idV, idN, idE,
     &                 n_windows, rmaxwl, rminwl, idsta, idfor,
     &                 kv, kn, ke, kunits
c format index : 1 = gse, 2 = saf, 3 = cityshark