y-out definition

DARcorporation · May 14, 2021 · ce182a0 · ce182a0
1 parent 21952d5
commit ce182a0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/api.f90 b/src/api.f90
@@ -494,7 +494,7 @@ subroutine get_cp(x_out, y_out, cp_out, n_points) bind(c, name='get_cp')
         implicit none
 
         integer(c_int), intent(in) :: n_points
-        real(c_float), dimension(n_points), intent(inout) :: x_out, cp_out
+        real(c_float), dimension(n_points), intent(inout) :: x_out, y_out, cp_out
 
         real :: beta, bfac, cpcom, cpinc, den
         integer :: i