*Set Var oMujMat = 0
*# // Material and Function definition or Combine Material Components.
*# // provizorne Set Var Axisym=0
*# Set Var Axisym=0
*# Set Var SignMinus=-1.0
*Set Var matvar=0
*Set Var MaxMatNum=0
*# // Material functions and child materials of combine material etc.
*loop materials
*Set Var matvar=MatNum
*include ..\include.src.bas\MaterialFunctionAndParameters.bas
*End materials
 ;
*# // Material definition.
*loop materials
*Set Var matvar=MatNum
*Set Var MaxMatNum=MatNum 
*If(strcmp(MatProp(Material_Prototype),"CCDummyMaterial")==0)
*Else
*include ..\include.src.bas\MaterialDefinition.bas
 ;
*# // Geometry definition.
*include ..\include.src.bas\MaterialGeometry.bas
*EndIf
*End materials
 ;
 
*# // User function.
*loop materials *NotUsed
*If(strcmp(MatProp(Material_Prototype),"CCMultiLinearFunction")==0)
*include ..\include.src.bas\CCMultiLinearFunction.bas
*EndIf
*End materials
 ; 