diff --git a/sammy/src/the/interface/fortran/DerivativeHandler_M.f90 b/sammy/src/the/interface/fortran/DerivativeHandler_M.f90
index cb22e96e0a0cdc378de47a34571bf25c07be9d38..b2cef25e03e6938535baa6b928966cf2b1f787bc 100644
--- a/sammy/src/the/interface/fortran/DerivativeHandler_M.f90
+++ b/sammy/src/the/interface/fortran/DerivativeHandler_M.f90
@@ -256,8 +256,8 @@ end function
 subroutine DerivativeHandler_addCalculatedData(this, row, nnsig, ndasig, ndbsig, iso, Sigx, Dasigx, Dbsigx)
    implicit none
    class(DerivativeHandler)::this
-   integer::row, ndasig, ndbsig, nnsig, iso
-   real(kind=8)::Sigx(*),Dasigx(nnsig,*), Dbsigx(nnsig,*)
+   integer, intent(in) :: row, ndasig, ndbsig, nnsig, iso
+   real(8) :: Sigx(*),Dasigx(nnsig,*), Dbsigx(nnsig,*)
 
    integer::Jsig, Iipar, ourIso, isop