objf_transp = objf_transp +
& objf_transp
_RL objf_transp
f_transp = mult_transp*objf_transp
objf_transp = 0. _d 0