FunctionSpace { 
  { Name Hgrad_T; Type Form0; 
    BasisFunction { 
      { Name sn; NameOfCoef Tn; Function BF_Node; Support Tot_The; 
        Entity NodesOf[Tot_The]; } 
		
	  For i In {0:#Sur_RESISTANCE_T_List()-1}
		ThermRes_OneSideVol_i = ThermRes_OneSideVol_List(i);
		Sur_RESISTANCE_T_i = Sur_RESISTANCE_T_List(i);
				{ Name sdn ; NameOfCoef Tdn~{i} ; Function BF_Node ;
					Support ElementsOf[{ThermRes_OneSideVol_i, Sur_RESISTANCE_T_i}, 
					OnOneSideOf {Sur_RESISTANCE_T_i}] ; 
					Entity NodesOf[ {Sur_RESISTANCE_T_i}] ; }	
	  EndFor

    } 
	If (#Sur_RESISTANCE_T_List())
		SubSpace {
		{ Name Tresistance ; NameOfBasisFunction { sdn } ; }
    }
	EndIf
    Constraint { 
      { NameOfCoef Tn; EntityType NodesOf ; NameOfConstraint temperature; } 
    } 
  }

  { Name Hrgrad_flux; Type Form0; 
    BasisFunction { 
      { Name sn; NameOfCoef Tn; Function BF_Region; Support Region [{Sur_RADIATION_T, Sur_COMBINED_T}] ; 
        Entity Region [{Sur_RADIATION_T, Sur_COMBINED_T}]; } 
    } 
  	 GlobalQuantity {
    { Name U_hrflux; Type AliasOf; NameOfCoef Tn; }
	}	
  }

  { Name Hgrad_flux; Type Form0; 
    BasisFunction { 
      { Name sn; NameOfCoef Tn; Function BF_Region; Support Region [{Sur_CONVECTIVE_T, Sur_COMBINED_T}] ; 
        Entity Region [{Sur_CONVECTIVE_T, Sur_COMBINED_T}]; } 
    }
    	 GlobalQuantity {
    { Name U_hflux; Type AliasOf; NameOfCoef Tn; }
	}	
  }
}