c***********************************************************************
	subroutine mzescape_fb(ig)                       
                                                            
c 	computes the escape functions of the most important 15um bands       
c       this calls mzescape ( taustar,tauinf,tauii,  ib,isot, iirw,iimu 
                                                            
c 	nov 99 	malv		based on cm15um_fb.f           
c       jul 2011 malv+fgg       adapted to LMD-MGCM
c***********************************************************************
                                                            
	implicit none                                  
                                                            
	include 'nltedefs.h'          
	include 'nlte_matrix.h'      
        include 'nlte_atm.h' 
	include 'tcr_15um.h'
                                                            
c local variables                               
	integer 	i, ib, ik, istyle                     
	integer         ig !ADDED FOR TRACEBACK
	real*8          tau_factor                     
	real*8          aux(nl), aux2(nl), aux3(nl)    
                                                            
c***********************************************************************
                                                            
	call mzescape ( ig,taustar21,tauinf210,tauii210, 1, 2,irw_mztf,imu ) 
	call mzescape ( ig,taustar31,tauinf310,tauii310, 1, 3,irw_mztf,imu )
	call mzescape ( ig,taustar41,tauinf410,tauii410, 1, 4,irw_mztf,imu )
                                                            
	istyle = 2                                     
	call mzescape_normaliz ( taustar21, istyle )   
	call mzescape_normaliz ( taustar31, istyle )   
	call mzescape_normaliz ( taustar41, istyle )   
                                                            
                                                            
c end                                           
	return                                         
	end