*IntFormat "%10i"
*Set Var oiSel=988800
*#
*include ..\include.src.bas\FireFunctions.bas
// Load Cases definition

Load CASE ID *Operation(IntervalIndex+AddFireIncrementLC) NAME "LoadName *IntvData(LOAD_NAME) -- load case only for Fire_Boundary"

*include ..\include.src.bas\FireBoundary_for.bas

*include ..\include.src.bas\MoistureTemperatureBoundary_for.bas

Load CASE ID *IntervalIndex NAME "LoadName *IntvData(LOAD_NAME)"
*If(IntvData(Fixed_Temperature_Dof,Int)==1)
SUPPORT SIMPLE SELECTION "all_nodes#*oiSel" DOF 2 VALUE 0.0
*EndIf

*If(IntvData(Fixed_Moisture_Dof,Int)==1)
SUPPORT SIMPLE SELECTION "all_nodes#*oiSel" DOF 1 VALUE 0.0
*EndIf
*include ..\include.src.bas\DirichletBoundary_for_Nodes.bas

*include ..\include.src.bas\NeumannBoundary_for.bas

*include ..\include.src.bas\Int_Source.bas

*If(strcmp(GenData(Calculation_Analysis),"SandwichTemperature3D")!=0)
*include ..\include.src.bas\Fixed_Contact_for_Surface.bas
*Else
*Set Var nMasterSlaveIndex=0
*EndIf
 ;
//	-> block of Dirichlete Temperature - number of condition #*nSupportTemp
//	-> block of Dirichlete Humidity - number of condition #*nSupportHum
//
//	-> block of Neumann Temperature - node: number of condition #*nLoadTemp
//	-> block of Neumann Humidity - node: number of condition #*nLoadHum
//
//	-> block of Fire boundary - elems: number condition #*eLoadFire
//	-> block of Generation of Internal temperature source boundary - elems: number condition #*eLoadIntSource
//
//	-> block of Master/Slave  #*nMasterSlaveIndex
