c****************************************************************************
c
c       curtis.cmn
c 
c       Common blocks for Curtis Matrix calculation
c       
c       JAN 98  MALV            First version
c****************************************************************************


	common/block1/s,alsa,alna,alda,ka,kr
	real*8 ka(nbox_max),alsa(nbox_max),alna(nbox_max),alda(nbox_max),s
	integer kr

	common/block2/hisfile, hfile1
	character hisfile*75, hfile1*3

	common/block3/sl_ua,ua,pt,pp,ta,w, icls
	real*8 sl_ua,ua(nbox_max),pt,pp,ta(nbox_max),w
	integer	icls

	common/block4/no,sk1,xls1,xln1,xld1,thist,dist, nbox
	real*8	sk1(nhist,nbox_max)	! line intensity
	real*8  xls1(nhist,nbox_max)	! Lorentz half width (self-col.)
	real*8	xln1(nhist,nbox_max)	! Lorentz half width
	real*8 	xld1(nhist,nbox_max)	! Doppler half width
	real*8	thist(nhist)		! temperatures in the histogram
	real*8	no(nbox_max)		! number of lines in box
	real*8  dist(nbox_max)		! mean distance between lines in box
	integer nbox		! actual number of boxes

	common/block5/eqw, aa, bb, cc, dd, ddbox, ccbox
	real*8 eqw, aa, bb, cc, dd
	real*8 ddbox(nbox_max), ccbox(nbox_max)

	common/block7/ mr, p
	real*8  mr(nzy), p(nzy)

	common/block8/ tmin,tmax, mm
	real*8 tmin,tmax
	integer mm

	common/block9/ w_strongLor_prev
	real*8 w_strongLor_prev(nbox_max)

        common/block10/no_c1,no_c2,no_c3,no_c4,no_c5,no_c6,no_c7
	real*8	no_c1(nbox_max)
	real*8	no_c2(nbox_max)
	real*8	no_c3(nbox_max)
	real*8	no_c4(nbox_max)
	real*8	no_c5(nbox_max)
	real*8	no_c6(nbox_max)
	real*8	no_c7(nbox_max)

	common/block11/nbox_c1,nbox_c2,nbox_c3,nbox_c4,
     $     nbox_c5,nbox_c6,nbox_c7
	integer nbox_c1
	integer nbox_c2
	integer nbox_c3
	integer nbox_c4
	integer nbox_c5
	integer nbox_c6
	integer nbox_c7

	common/block12/thist_c1,thist_c2,thist_c3,thist_c4,thist_c5,
     $    thist_c6,thist_c7
	real*8	thist_c1(nhist)
	real*8	thist_c2(nhist)
	real*8	thist_c3(nhist)
	real*8	thist_c4(nhist)
	real*8	thist_c5(nhist)
	real*8	thist_c6(nhist)
	real*8	thist_c7(nhist)

	common/block13/dist_c1,dist_c2,dist_c3,dist_c4,dist_c5,
     $    dist_c6,dist_c7
	real*8  dist_c1(nbox_max)
	real*8  dist_c2(nbox_max)
	real*8  dist_c3(nbox_max)
	real*8  dist_c4(nbox_max)
	real*8  dist_c5(nbox_max)
	real*8  dist_c6(nbox_max)
	real*8  dist_c7(nbox_max)

	common/block14/sk1_c1,sk1_c2,sk1_c3,sk1_c4,sk1_c5,sk1_c6,sk1_c7
	real*8	sk1_c1(nhist,nbox_max)
	real*8	sk1_c2(nhist,nbox_max)
	real*8	sk1_c3(nhist,nbox_max)
	real*8	sk1_c4(nhist,nbox_max)
	real*8	sk1_c5(nhist,nbox_max)
	real*8	sk1_c6(nhist,nbox_max)
	real*8	sk1_c7(nhist,nbox_max)

	common/block15/xls1_c1,xls1_c2,xls1_c3,xls1_c4,xls1_c5,xls1_c6,
     $     xls1_c7
	real*8  xls1_c1(nhist,nbox_max)
	real*8  xls1_c2(nhist,nbox_max)
	real*8  xls1_c3(nhist,nbox_max)
	real*8  xls1_c4(nhist,nbox_max)
	real*8  xls1_c5(nhist,nbox_max)
	real*8  xls1_c6(nhist,nbox_max)
	real*8  xls1_c7(nhist,nbox_max)

	common/block16/xln1_c1,xln1_c2,xln1_c3,xln1_c4,xln1_c5,xln1_c6,
     $     xln1_c7
	real*8  xln1_c1(nhist,nbox_max)
	real*8  xln1_c2(nhist,nbox_max)
	real*8  xln1_c3(nhist,nbox_max)
	real*8  xln1_c4(nhist,nbox_max)
	real*8  xln1_c5(nhist,nbox_max)
	real*8  xln1_c6(nhist,nbox_max)
	real*8  xln1_c7(nhist,nbox_max)

	common/block17/xld1_c1,xld1_c2,xld1_c3,xld1_c4,xld1_c5,xld1_c6,
     $     xld1_c7
	real*8  xld1_c1(nhist,nbox_max)
	real*8  xld1_c2(nhist,nbox_max)
	real*8  xld1_c3(nhist,nbox_max)
	real*8  xld1_c4(nhist,nbox_max)
	real*8  xld1_c5(nhist,nbox_max)
	real*8  xld1_c6(nhist,nbox_max)
	real*8  xld1_c7(nhist,nbox_max)

	common/block18/mm_c1,mm_c2,mm_c3,mm_c4,mm_c5,mm_c6,mm_c7
	integer mm_c1
	integer mm_c2
	integer mm_c3
	integer mm_c4
	integer mm_c5
	integer mm_c6
	integer mm_c7

	common/block19/tmin_c1,tmin_c2,tmin_c3,tmin_c4,tmin_c5,tmin_c6,
     $     tmin_c7
	real*8 tmin_c1
	real*8 tmin_c2
	real*8 tmin_c3
	real*8 tmin_c4
	real*8 tmin_c5
	real*8 tmin_c6
	real*8 tmin_c7

	common/block20/tmax_c1,tmax_c2,tmax_c3,tmax_c4,tmax_c5,tmax_c6,
     $     tmax_c7
	real*8 tmax_c1
	real*8 tmax_c2
	real*8 tmax_c3
	real*8 tmax_c4
	real*8 tmax_c5
	real*8 tmax_c6
	real*8 tmax_c7

        common /lor_overlap/ asat_box, i_supersat
	real*8 		asat_box
	integer 	i_supersat