FUNCTION ID *Operation(matvar*IncrAdvancedFunID+5)
  NAME "PARAM  Wd for *MatProp(Material_Prototype) material"
  TYPE "CCMultiLinearFunction" REMOVE_ALL 
  xvalues *\
*for(i=1;i<=MatProp(Function_for_Wd,Int);i=i+2)
   *MatProp(Function_for_Wd,*i,Real) *\
*End

  yvalues *\
*for(i=2;i<=MatProp(Function_for_Wd,Int);i=i+2)
*Realformat "%10.4e"
   *Operation(MatProp(Critical_Comp_Disp-WD,Real)*MatProp(Function_for_Wd,*i,Real)) *\   
*End
