c****************************************************************************
c
c	nlte_results.cmn
c
c	JAN 98	MALV		Based on mztv1.cmn, mztv4_abc.cmn
c****************************************************************************

c Next common: parameter that decides which level populations 
c are already known and therefore are read and used in this program.
	common/input_avilable_from/ input_cza, input_czb, input_czc, 
     @                              input_czco
	integer input_cza, input_czb, input_czc, input_czco

c temperatura vibracional de entrada:
	common/temp626/ v626t1,v626t2,v626t3,v626t4, 
     @   		v626t5,v626t6,v626t7,v626t8
	common/temp628/ v628t1, v628t2, v628t3, v628t4
	common/temp636/ v636t1, v636t2, v636t3, v636t4 
	common/temp627/ v627t1, v627t2, v627t3, v627t4 
	common/tempco/ vcot1, vcot2, vcot3, vcot4, v63t1,v63t2,v63t3
	real*8 v626t4(nl), v628t4(nl), v636t4(nl), v627t4(nl)
	real*8 v626t1(nl), v626t2(nl), v626t3(nl) 
	real*8 v626t5(nl), v626t6(nl), v626t7(nl), v626t8(nl)
	real*8 v628t1(nl), v628t2(nl), v628t3(nl) 
	real*8 v636t1(nl), v636t2(nl), v636t3(nl) 
	real*8 v627t1(nl), v627t2(nl), v627t3(nl) 
	real*8 vcot1(nl), vcot2(nl), vcot3(nl), vcot4(nl)
	real*8 v63t1(nl), v63t2(nl), v63t3(nl)

c output de cza.for
	common /tv15um/	vt11, vt12, vt13,
     @      		vt21, vt22, vt23,
     @      		vt31, vt32, vt33,
     @      		vt41, vt42, vt43
	real*8  vt11(nl), vt12(nl), vt13(nl),
     @      	vt21(nl), vt22(nl), vt23(nl),
     @      	vt31(nl), vt32(nl), vt33(nl),
     @      	vt41(nl), vt42(nl), vt43(nl)

	common /hr15um/	hr110,hr210,hr310,hr410,
     @      		hr121,hr221,hr321,hr421,
     @      		hr132,hr232,hr332,hr432
	real*8  hr110(nl),hr121(nl),hr132(nl),
     @      	hr210(nl),hr310(nl),hr410(nl),
     @      	hr221(nl),hr232(nl),hr321(nl),
     @      	hr332(nl),hr421(nl),hr432(nl)

        common/sf15um/ el11,el12,el13, el21,el22,el23,
     @ 		el31,el32,el33, el41,el42,el43
        real*8 el11(nl), el12(nl), el13(nl)
        real*8 el21(nl), el22(nl), el23(nl)
        real*8 el31(nl), el32(nl), el33(nl)
        real*8 el41(nl), el42(nl), el43(nl)

        common/sl15um/ sl110,sl121,sl132, sl210,sl221,sl232,
     @          sl310,sl321,sl332, sl410,sl421,sl432 
        real*8 sl110(nl), sl121(nl), sl132(nl)
        real*8 sl210(nl), sl221(nl), sl232(nl)
        real*8 sl310(nl), sl321(nl), sl332(nl)
        real*8 sl410(nl), sl421(nl), sl432(nl)