c...	spur_data.inc
      real Qx_data(maxnpts), Qy_data(maxnpts), Qz_data(maxnpts)
ccc      real qmag_data(maxnpts)
      real E_data(maxnpts)
      real tmp_data(maxnpts)
      real minutes_data(maxnpts)
      integer cnts_data(maxnpts)
c      real Qdata_max, Qdata_min
      real Edata_max, Edata_min
c      integer cntsData_max, cntsData_min
      logical constq_data

      common /cb_data/ Qx_data, Qy_data, Qz_data,
     &	E_data, tmp_data, minutes_data, cnts_data, 
c     &	Qdata_max, Qdata_min, 
     &  Edata_max, Edata_min, 
c     & cntsData_max, cntsData_min,
     &   constq_data
     
      logical plotdata
      common /cb_plotdata/ plotdata
c      parameter (plotdata = .false.)

c... The rest of this info is now in spur_buf.inc
cc                 12345678901234567
cc 'PROSS007.BT2' '12-AUG-2001 12:43' 'Q'    1175000.    6  'NEUT'  105  'RAW'
cc   Filename         Date            Scan       Mon    Prf  Base   #pts  Type
c
c      character*40	data_filename
c      character*17	data_date
c      character*1	data_scantype
c      integer		data_mon, data_prf
c      character*4	data_probe
c      integer 		data_nscan
c      character*4	data_type
c
c      common /cb_datahdr1/ data_mon, data_prf,  data_nscan, 
c     &      data_filename, data_probe, 
c     &	    data_type, data_scantype, data_date
c
cc PrOsS  PrOs4Sb12                                  
cc...	Skipping 2 chemical formulas
c
cc  60 20 40  2       0  0  0         1  0  0   0.000     0  0  1
cc  Collimation        Mosaic              Xstal Orientation
c
c      integer		collimation(4)		!! why not real?
c      integer		mosaic(3)		!! why not real?
c      integer		u_data(3), v_data(3)
c      real 		angle_data
c
c      common /cb_datahdr2/ collimation, mosaic,u_data, 
c     &		angle_data, v_data
c     
c
cc      6.283     6.283     6.283    90.000    90.000    90.000
cc Lattice Parameters in real space
c
c      real	a_data, b_data, c_data, 
c     &		alpha_data, beta_data, gamma_data
c      common /cb_datahdr3/ a_data, b_data, c_data, 
c     &		alpha_data, beta_data, gamma_data
c
c
cc     11.000    -0.250       14.700        3.354   3.354      6.00000   0.00000
cc    E center  Delta E      EA fixed      M-dsp   A-dsp     Tmp strt   Tmp inc
c
c      real ec_data, es_data, fe_data
cc      real m_dsp, a_dsp, tmp_srt, tmp_inc
c      common /cb_datahdr4/ ec_data, es_data, fe_data 
cc     & , m_dsp, a_dsp, tmp_srt, tmp_inc
c
cc   1.800   0.000   0.000    0.0000  0.0000  0.0000      0.0000
cc    Q (hkl scan center)        Delta Q (hkl)            Hfield
c      real hc_data(3), hs_data(3)
cc      real	hfield
c      common /cb_datahdr5/  hc_data, hs_data
c     
c     
