Optimizing Allocate Rule

Hello experts, I have a doubt with a calc script doing an allocation. Type my code and explain if is possible optimize this code:

FIX (&Act_Year,"Actual","EUR",@RELATIVE("Project",0 ),@RELATIVE("NetProfit",0 ),"C_250")

"Jan"(

@CALCMODE(BOTTOMUP);

"Allocation"=@ALLOCATE("Input"*"pct"->"BegBalance"->"Driver"->"LC"->"Proyecto_NA"->"Alloc_Driver"->"C_101",@RELATIVE("C_101",0 ),@CURRMBR("NetProfit"),,spread,SKIPNONE);

)

ENDFIX

FIX (&Act_Year,"Actual","EUR",@RELATIVE("Project",0 ),@RELATIVE("NetProfit",0 ),"C_250")

"Jan"(

@CALCMODE(BOTTOMUP);

"Allocation"=@ALLOCATE("Input"*"pct"->"BegBalance"->"Driver"->"LC"->"Proyecto_NA"->"Alloc_Driver"->"C_102",@RELATIVE("C_102",0 ),@CURRMBR("NetProfit"),,spread,SKIPNONE);

)

ENDFIX