From e0cc66950f485be30825cf112b8edc2a3be7b755 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 5 May 2016 15:47:15 +0200 Subject: [PATCH] fixed intent in/out --- code/system_routines.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/system_routines.f90 b/code/system_routines.f90 index 98c7be098..cfd326277 100644 --- a/code/system_routines.f90 +++ b/code/system_routines.f90 @@ -21,11 +21,11 @@ interface character(kind=C_CHAR),intent(in) :: path(*) end function isDirectory_C - subroutine getCurrentWorkDir_C(str_out, stat) bind(C) + subroutine getCurrentWorkDir_C(str, stat) bind(C) use, intrinsic :: ISO_C_Binding, only: & C_INT, & C_CHAR - character( kind=c_char ), dimension(*), intent(inout) :: str_out + character(kind=c_char), dimension(*), intent(out) :: str integer(C_INT),intent(out) :: stat end subroutine getCurrentWorkDir_C