// Random base Material definition
*#
*# // projeti materialu a jisteni jestli nejsou temp dep. či comb
*Set Var oMujMat=tcl(TK_FindMaterialNumber *MatProp(Use_Base_Material) *MatProp(0))
*Set Var oShellMatUse=0
*Set Var oShellMatUseTemp=0
*Set Var oShellMatUseComb=1
*Set Var oShellMatUseCombTemp=0
*#loop materials *NotUsed *all
*#Set Var oMat=tcl(TK_FindMaterialNumber *MatProp(0) *MatProp(0))
*#//b *oMat  *oMujMat
*#End materials
*loop materials *NotUsed *all
*Set Var oMat=tcl(TK_FindMaterialNumber *MatProp(0) *MatProp(0))
*#
*#// matvar *matvar
*#// oMujMat *oMujMat
*#// oMat *oMat
*#
*If(oMat==oMujMat)
*include ..\include.src.bas\MaterialFunctionAndParametersShell.bas
*#
*#
*If(strcmp(MatProp(Material_Prototype),"CC3DNonLinCementitious2Variable")==0)
*include ..\include.src.bas\Function_for_Variable_NonCem2.bas
*EndIf
*#
*#
*EndIf                                              
*#
*If(oMat==oMujMat && strcmp(MatProp(Material_Prototype),"CC3DNonLinCementitious2WithTempDepProperties")==0) 
*Set Var oShellMatUseTemp=1
*Set Var oShellMatUse=1
*break
*EndIf
*#
*If(oMat==oMujMat && strcmp(MatProp(Material_Prototype),"CC3DNonLinCementitious2SHCCWithTempDepProperties")==0) 
*Set Var oShellMatUseTemp=1
*Set Var oShellMatUse=1
*break
*EndIf
*#
*If(oMat==oMujMat && strcmp(MatProp(Material_Prototype),"CCCombinedMaterialWithTempDepProperties")==0)
*Set Var oShellMatUseCombTemp=1
*Set Var oShellMatUse=1
*break
*EndIf
*If(oMat==oMujMat && strcmp(MatProp(Material_Prototype),"CC3DBiLinearVonMisesWithTempDepProperties")==0)
*Set Var oShellMatUseCombTemp=1
*Set Var oShellMatUse=1
*break
*EndIf
*If(oMat==oMujMat && strcmp(MatProp(Material_Prototype),"CCCombinedMaterial")==0)
*Set Var oShellMatUseComb=1
*Set Var oShellMatUse=1
*break
*EndIf
*If(oMat==oMujMat && strcmp(MatProp(Material_Prototype),"CCMaterialWithRandomFields")==0)
*Set Var oShellMatUseComb=1
*Set Var oShellMatUse=1
*break
*EndIf
*End materials
             

*If(oShellMatUse(Int)==0)
*loop materials *all
*Set Var oMat=tcl(TK_FindMaterialNumber *MatProp(0) *MatProp(0))
*#
*If(oMat==oMujMat)
*include ..\include.src.bas\MaterialFunctionAndParametersShell.bas
*EndIf
*#
*If(oMat==oMujMat && strcmp(MatProp(Material_Prototype),"CC3DNonLinCementitious2WithTempDepProperties")==0)
*Set Var oShellMatUseTemp=1
*Set Var oShellMatUse=1
*break
*EndIf
*#
*If(oMat==oMujMat && strcmp(MatProp(Material_Prototype),"CC3DNonLinCementitious2SHCCWithTempDepProperties")==0)
*Set Var oShellMatUseTemp=1
*Set Var oShellMatUse=1
*break
*EndIf
*#
*If(oMat==oMujMat && strcmp(MatProp(Material_Prototype),"CCCombinedMaterialWithTempDepProperties")==0)
*Set Var oShellMatUseCombTemp=1
*Set Var oShellMatUse=1
*break
*EndIf
*If(oMat==oMujMat && strcmp(MatProp(Material_Prototype),"CC3DBiLinearVonMisesWithTempDepProperties")==0)
*Set Var oShellMatUseCombTemp=1
*Set Var oShellMatUse=1
*break
*EndIf
*If(oMat==oMujMat && strcmp(MatProp(Material_Prototype),"CCCombinedMaterial")==0)
*Set Var oShellMatUseComb=1
*Set Var oShellMatUse=1
*break
*EndIf
*End materials
*endif

*If(strcmp(GenData(Calculation_Analysis),"Static")==0 && oShellMatUseTemp==1)
MATERIAL ID *Operation(matvar*IncrAdvancedMatID)
*ElseIf(strcmp(GenData(Calculation_Analysis),"Static")==0 && oShellMatUseCombTemp==1)
MATERIAL ID *Operation(matvar*IncrAdvancedMatID)
*ElseIf(strcmp(GenData(Calculation_Analysis),"Static")==0 && oShellMatUseComb==1)
MATERIAL ID *Operation(matvar*IncrAdvancedMatID+9)
*Else     
MATERIAL ID *matvar
*Endif     
  NAME "Concrete:*MatProp(0)#*matvar#*MatNum"
  TYPE
*If(strcmp(GenData(Calculation_Analysis),"Creep")==0)
  "*MatProp(Solid_Material_Prototype)"
*If(strcmp(MatProp(Solid_Material_Prototype),"CCModelB3Improved")!=0 )
// Error in Solid_Material_Prototype of Material Template Shell. Material Model For Creep *MatProp(Solid_Material_Prototype) of Solid is not programed - please se to *.dat
*MessageBox error: Error in Solid_Material_Prototype of Material Template Shell. Material Model For Creep of Solid is not programed - please se to *.dat
*EndIf
*If(strcmp(MatProp(Solid_Material_Prototype),"CCModelB3Improved")==0 )
*#
*Set Var oJdeoShell=1
*include ..\include.src.bas\BasicCreepMaterialParameters.bas
*include ..\include.src.bas\Check_MaterialParameter_End_OF_CURING_TIME.bas
*include ..\include.src.bas\addComplianceCreepMaterialParameter.bas
*include ..\include.src.bas\addLosessCreepMaterialParameter.bas
*include ..\include.src.bas\addShrinkagesCreepMaterialParameter.bas
*include ..\include.src.bas\addHistoryCreepMaterialParameter.bas
BASE
  TYPE *\
*EndIf
*EndIf
*#
*# // projeti nepouzitych i pouzitych materialu a najiti stejneho interniho cisla, pak vypis.
*Set Var oMujMat=tcl(TK_FindMaterialNumber *MatProp(Use_Base_Material) *MatProp(0))
*# Material *MatProp(Use_Base_Material) ma ID *oMujMat *tcl(TK_FindMaterialNumber *MatProp(Use_Base_Material))
*#
*# // pro nepouzite materialy
*Set Var oShellMatUse=0
*loop materials *NotUsed *all
*# jumbo *matnum() *MatProp(0) *tcl(TK_FindMaterialNumber *MatProp(0)) *MatProp(Material_Prototype)
*Set Var oMat=tcl(TK_FindMaterialNumber *MatProp(0) *MatProp(0))
*If(oMat==oMujMat)
*#
*include ..\include.src.bas\CCShell_and_Beam3DMaterial_base.bas
*#include ..\include.src.bas\MaterialFunctionAndParametersShell.bas // presunuto vyse
*#
*Set Var oShellMatUse=1
*break
*EndIf
*End materials
*#
*#
*# // pro pouzite materialy
*If(oShellMatUse(Int)==0)
*loop materials *all
*Set Var oMat=tcl(TK_FindMaterialNumber *MatProp(0) *MatProp(0))
*If(oMat==oMujMat)
*#
*include ..\include.src.bas\CCShell_and_Beam3DMaterial_base.bas
*#include ..\include.src.bas\MaterialFunctionAndParametersShell.bas // presunuto vyse
*#
*Set Var oShellMatUse=1
*break
*EndIf
*End materials
*endif

*If(oShellMatUse(Int)==1)
*#WarningBox Info: Material of Shell Base was written...
*EndIf
*# **********************************konec shellu