1_dp to 1.0_dp (no consequence here but better practice)

MESAHub · Sep 6, 2024 · cc29f7d · cc29f7d
1 parent a6a2f6e
commit cc29f7d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/math/private/math_pown.f90 b/math/private/math_pown.f90
@@ -89,7 +89,7 @@ elemental function powm1_ (x) result (powm1_x)
     real(dp), intent(in) :: x
     real(dp)             :: powm1_x
 
-    powm1_x = 1_dp / x
+    powm1_x = 1.0_dp / x
 
   end function powm1_