aboutsummaryrefslogtreecommitdiff
path: root/src/cctk_CommandLine.F90
diff options
context:
space:
mode:
Diffstat (limited to 'src/cctk_CommandLine.F90')
-rw-r--r--src/cctk_CommandLine.F9036
1 files changed, 36 insertions, 0 deletions
diff --git a/src/cctk_CommandLine.F90 b/src/cctk_CommandLine.F90
new file mode 100644
index 0000000..7ca632d
--- /dev/null
+++ b/src/cctk_CommandLine.F90
@@ -0,0 +1,36 @@
+/*@@
+ @file $RCSfile$
+ @author $Author$
+ @date $Date$
+ @desc
+ Fortran 90 interface declarations for the routines
+ which have their C declarations in cctk_CommandLine.h
+ @enddesc
+ @version $Header$
+@@*/
+
+#include "cctk.h"
+
+module cctk_CommandLine
+ implicit none
+
+ interface
+
+! This subroutine has been renamed
+! because it conflicts with the name of this module
+ subroutine CCTK_GetCommandLine (argc, outargv)
+ implicit none
+ integer argc
+ CCTK_POINTER outargv
+ end subroutine CCTK_GetCommandLine
+
+ subroutine CCTK_ParameterFileName (ierr, filename, filenamelen)
+ implicit none
+ integer ierr
+ character(*) filename
+ integer filenamelen
+ end subroutine CCTK_ParameterFileName
+
+ end interface
+
+end module cctk_CommandLine