

FUNCTION ID *Operation(matvar*IncrAdvancedFunID+3)
  NAME "Shear_Stiffness_function for *MatProp(Material_Prototype) material"
  TYPE "CCMultiLinearFunction" REMOVE_ALL 
  xvalues *\
*for(i=1;i<=MatProp(Shear_Stiffness_Function,Int);i=i+2)
   *MatProp(Shear_Stiffness_Function,*i) *\
*End

  yvalues *\
*for(i=2;i<=MatProp(Shear_Stiffness_Function,INT);i=i+2)
   *MatProp(Shear_Stiffness_Function,*i) *\
*End

FUNCTION ID *Operation(matvar*IncrAdvancedFunID+6)
  NAME "Shear_Strenght_function for *MatProp(Material_Prototype) material"
  TYPE "CCMultiLinearFunction" REMOVE_ALL 
  xvalues *\
*for(i=1;i<=MatProp(Shear_Strength_Function,Int);i=i+2)
   *MatProp(Shear_Strength_Function,*i) *\
*End

  yvalues *\
*for(i=2;i<=MatProp(Shear_Strength_Function,INT);i=i+2)
   *MatProp(Shear_Strength_Function,*i) *\
*End

