& mult_aqh,
_RL mult_aqh
& mult_atemp, mult_aqh,
mult_aqh = 0. _d 0
& + mult_aqh * ( objf_aqh(bi,bj)+objf_aqhm(bi,bj)