Fortran binding for CCTK_mkdir

git-svn-id: http://svn.cactuscode.org/flesh/trunk@1021 17b73243-c579-4c4c-a9d2-2d5706c11dac

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); 
+}
+