From ca570ad0e33b7a03d2b83c277e7b9e191e5491b0 Mon Sep 17 00:00:00 2001
From: "Wiarda, Dorothea" <wiardada@ornl.gov>
Date: Fri, 14 May 2021 13:45:48 +0000
Subject: [PATCH] Apply 1 suggestion(s) to 1 file(s)
---
sammy/src/the/interface/fortran/DerivativeHandler_M.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/sammy/src/the/interface/fortran/DerivativeHandler_M.f90 b/sammy/src/the/interface/fortran/DerivativeHandler_M.f90
index cb22e96e0..b2cef25e0 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
--
GitLab