small fix when x0 is absorbing for automaton G F

automata/automaton_G_and_F.jl

@@ -268,7 +268,8 @@ function create_automaton_G_and_F(m::ContinuousTimeModel, x1::Float64, x2::Float
         @everywhere $(func_name(:cc, :l3F, :l2F, 1))(S::StateLHA, x::Vector{Int}, p::Vector{Float64}) = 
         (getfield(S, :time) >= $t4 || istrue(getfield(S, :values)[$(idx_var_isabs)]))
         @everywhere $(func_name(:us, :l3F, :l2F, 1))(S::StateLHA, x::Vector{Int}, p::Vector{Float64}) = 
-        (setfield!(S, :loc, Symbol("l2F")))
+        (setfield!(S, :loc, Symbol("l2F"));
+         setindex!(getfield(S, :values), getfield(S, :values)[$(idx_var_d)] + getfield(S, :values)[$(idx_var_dprime)], $(idx_var_d)))
     end
     eval(meta_elementary_functions)
 

tests/cosmos/distance_G_F/dist_G_F_ER.lha

@@ -76,8 +76,8 @@ Edges={
 
 ((l3F,l1F), ALL, t>=0, {n=P,test_abs=k_1*(E*S)+(k_2+k_3)*ES});
 
-((l3F,l2F), #, t>=t4, {dprime=d+dprime});
-((l3F,l2F), #, test_abs=0, {dprime=d+dprime});
+((l3F,l2F), #, t>=t4, {d=d+dprime});
+((l3F,l2F), #, test_abs=0, {d=d+dprime});
 
 
 %((l1G,l2G), #, in=1 & t>=t2, #);