diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/util/File.c | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/util/File.c b/src/util/File.c index 145c05ab..541693c3 100644 --- a/src/util/File.c +++ b/src/util/File.c @@ -14,13 +14,14 @@ #include <stdio.h> #include "cctk_WarnLevel.h" +#include "cctk_FortranString.h" int CCTK_mkdir(char *dir) { int retval; char *command; char *message; - + command = (char *)malloc(1024*sizeof(char)); /*** @@ -53,3 +54,11 @@ int CCTK_mkdir(char *dir) } +void FMODIFIER FORTRAN_NAME(CCTK_mkdir)(int *ierr, ONE_FORTSTRING_ARG) +{ + int retval; + ONE_FORTSTRING_CREATE(arg1) + *ierr = CCTK_mkdir(arg1); + free(arg1); +} + |