*#// CCCreepBase_function.bas
*# // 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
*Set Var oJdeoShell=1
*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
*#
*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
*#
*Set Var oShellMatUse=1
*break
*EndIf
*End materials
*endif

*If(oShellMatUse(Int)==1)
*#WarningBox Info: Material of Shell Base was written...
*EndIf
*# **********************************konec shellu
*Set Var oJdeoShell=1
*#// CCCreepBase_function.bas end