Use a double instead of an integer for (n C k).

Fixes #156.
dhermes · Jan 4, 2020 · 5768824 · 5768824
1 parent 6af3326
commit 5768824
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fortran/curve.f90 b/src/fortran/curve.f90
@@ -110,7 +110,7 @@ subroutine evaluate_curve_barycentric( &
     ! Variables outside of signature.
     integer(c_int) :: i, j
     real(c_double) :: lambda2_pow(num_vals)
-    integer(c_int) :: binom_val
+    real(c_double) :: binom_val
 
     lambda2_pow = 1.0_dp
     binom_val = 1