if d_parbl(46)~=r0_setup
 lpg_h=lpg_h-(r0_setup-d_parbl(46))*1e6/p_dtau;
 r0_setup=d_parbl(46);
 form_adpar
end
