
FUNCTION ID *Operation(matvar*IncrAdvancedFunID+21)
  NAME "Tension_function for *MatProp(Material_Prototype) material"
  TYPE "CCMultiLinearFunction" REMOVE_ALL 
*Set Var hlaska=0
  xvalues *\
*for(i=1;i<=MatProp(Tension_function,Int);i=i+2)
   *MatProp(Tension_function,*i,Real) *\
*Set Var hodnota = MatProp(Tension_function,*i,Real)    
*If(hodnota<0)
*Set Var hlaska=1   
*EndIf      
*End

*If(*hlaska>0)
*MessageBox error: Function for Tension_function has negative value(s). 
*EndIf  

  yvalues *\
*for(i=2;i<=MatProp(Tension_function,Int);i=i+2)
   *MatProp(Tension_function,*i) *\
*End

