diff options
Diffstat (limited to 'src/cctk_CommandLine.F90')
-rw-r--r-- | src/cctk_CommandLine.F90 | 36 |
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 |