looks like dnad

Nicholaswogan · Mar 28, 2024 · be872c8 · be872c8
1 parent 7918b34
commit be872c8
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/forwarddif_dual.f90 b/src/forwarddif_dual.f90
@@ -280,7 +280,7 @@ elemental function add_dr(u, r) result(res)
     type(dual), intent(in) :: u
     real(wp), intent(in) :: r
     type(dual) :: res
-    res%val = u%val + r
+    res%val = r + u%val
     res%der = u%der
   end function
 
@@ -296,7 +296,8 @@ elemental function add_rd(r, v) result(res)
     real(wp), intent(in) :: r
     type(dual), intent(in) :: v
     type(dual) :: res
-    res = v + r
+    res%val = r + v%val
+    res%der = v%der
   end function
 
   !~~~ subtraction ~~~!