From a409ec79b887b9799e8cbb0c07396e00f5003d67 Mon Sep 17 00:00:00 2001
From: allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Wed, 10 May 2000 14:05:10 +0000
Subject: Fixed couple of bugs I just commited

git-svn-id: http://svn.cactuscode.org/flesh/trunk@1647 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 src/util/File.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/util')

diff --git a/src/util/File.c b/src/util/File.c
index 69b238a0..4153671c 100644
--- a/src/util/File.c
+++ b/src/util/File.c
@@ -243,7 +243,7 @@ int CCTK_CreateDirectory(int mode, const char *pathname)
 void CCTK_FCALL CCTK_FNAME(CCTK_CreateDirectory)
      (int *ierr, int *mode, ONE_FORTSTRING_ARG)
 {
-  ONE_FORTSTRINGS_CREATE(arg1)
-  *ierr = CCTK_CreateDirectory(mode,arg1);
+  ONE_FORTSTRING_CREATE(arg1)
+  *ierr = CCTK_CreateDirectory(*mode,arg1);
   free(arg1); 
 }
-- 
cgit v1.2.3