c****************************************************************************
c	matrices.cmn
c
c	common that connects all cz* with fot*, with matrix for groups
c
c     @      0-3-97		cristina	
c	JAN 98		MALV		Version para mz1d
c****************************************************************************

c curtis matrix de cza:
	common/curtis_matrixes_15um/ c110,c121, c210,
     @  	c310, c410,
     @  	vc110,vc121, vc210,
     @  	vc310, vc410
	real*8 c110(nl,nl), c121(nl,nl)
	real*8 c210(nl,nl)
	real*8 c310(nl,nl)
	real*8 c410(nl,nl)
	real*8 vc110(nl), vc121(nl)
	real*8 vc210(nl), vc310(nl), vc410(nl)
 
	common/curtis_matr_up_15um/ 
     @          cup110,cup121
	real*8 cup110(nl,nl), cup121(nl,nl)

	common/curtis_matr_dw_15um/ 
     @          cdw110,cdw121
	real*8 cdw110(nl,nl), cdw121(nl,nl)

        common/curtis_matr_taugr_15um/
     @  	taugr110,taugr121
        real*8 taugr110(nl), taugr121(nl)
        
! for the new flux formulation:
!
!
        common/tauinf_15um/ tauinf121,
     @  	tauinf210,tauinf310,tauinf410,tauinf110
        real*8 tauinf121(nl)
        real*8 tauinf210(nl), tauinf310(nl), tauinf410(nl)
        real*8 tauinf110(nl)

! for the cool-to-space formulation:
!
	common/taustar_15um/ taustar11, taustar21, taustar31, 
     @         taustar41, taustar12
	real*8 taustar11(nl), taustar21(nl), taustar31(nl)
	real*8 taustar41(nl), taustar12(nl)

	common/tauii_15um/ tauii110, tauii210, tauii310, 
     @         tauii410, tauii121
	real*8 tauii110(nl), tauii210(nl), tauii310(nl)
	real*8 tauii410(nl), tauii121(nl)

! for the name of the C.Matrix files
!
	common/cm_names/ fileroot
	character        fileroot*3

c****************************************************************************