From ce182a05bb96104e2c60c7a412b61422d6d03b4b Mon Sep 17 00:00:00 2001
From: time-trader <marikovsky_jr@yahoo.com>
Date: Fri, 14 May 2021 20:25:26 +0200
Subject: [PATCH] y-out definition

---
 src/api.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/api.f90 b/src/api.f90
index c79e85a..f6cc22e 100644
--- 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