223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fixed intent in/out

This commit is contained in:
Martin Diehl 2016-05-05 15:47:15 +02:00
parent 0c105658c3
commit e0cc66950f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/system_routines.f90
View File

@ -21,11 +21,11 @@ interface
character(kind=C_CHAR),intent(in) :: path(*) character(kind=C_CHAR),intent(in) :: path(*)
end function isDirectory_C 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: & use, intrinsic :: ISO_C_Binding, only: &
C_INT, & C_INT, &
C_CHAR 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 integer(C_INT),intent(out) :: stat
end subroutine getCurrentWorkDir_C end subroutine getCurrentWorkDir_C