*Set Var oMujMat=tcl(TK_FindMaterialNumber *MatProp(0) "MultiLinearFunction")

FUNCTION ID *Operation(25250000+oMujMat)
  NAME "*MatProp(0)"
  TYPE "CCMultiLinearFunction" REMOVE_ALL
*Realformat "%10.7e"  
*If(strcmp(MatProp(Type_of_input),"USER")==0)
  xvalues *\
*for(i=1;i<=MatProp(Function,Int);i=i+2)
   *Operation(MatProp(Function,*i,Real)*MatProp(Multiplier_X,Real)) *\   
*End
*Realformat "%10.7e"

  yvalues *\
*for(i=2;i<=MatProp(Function,Int);i=i+2)
   *Operation(MatProp(Function,*i,Real)*MatProp(Multiplier_Y,Real)) *\     
*End
*ElseIf(strcmp(MatProp(Type_of_input),"FILE")==0)
*tcl(DejObsahSouboru *MatProp(File_to_input))
*EndIf

*If(MatProp(Sieve_function,Int)==1)

// sieving the function
FUNCTION id   *Operation(25250000+oMujMat) sieve MAX_ERROR *MatProp(Sieve_max_error,Real) ;
*EndIf
