Commit 9a5101ce authored by Matthias Redies's avatar Matthias Redies

missed this one

parent b9a09480
......@@ -846,7 +846,7 @@ CONTAINS
IMPLICIT NONE
REAL, INTENT(IN) :: s
REAL, INTENT(OUT) :: H, dHs2_ds, d2Hs2_ds2
REAL, INTENT(INOUT) :: H, dHs2_ds, d2Hs2_ds2
! helper variables
REAL :: s2, s3, s4, s5, s6
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment