!
	common/spectral/imr, imrco, 
     @		nu, nun2, nuco_10,
     @          nu12_0200,nu12_1000, nu22_0200,nu22_1000, 
     @		nu32_0200,nu32_1000, nu42_0200,nu42_1000, 
     @  	elow, deltanu, deltanuco, indexisot
	real imr(nisot), imrco
	real nu(nisot,8), elow(nisot,nb), deltanu(nisot,nb)
	real nun2, nu12_0200,nu12_1000, nu22_0200,nu22_1000, 
     @  	nu32_0200,nu32_1000, nu42_0200,nu42_1000
	real nuco_10, deltanuco
	integer indexisot(nisot)
!
!
        common/datis/  vlight, ee, hplanck, gamma
        real*8  vlight, ee, hplanck, gamma