diff options
Diffstat (limited to 'src/cctk_Version.F90')
| -rw-r--r-- | src/cctk_Version.F90 | 75 |
1 files changed, 75 insertions, 0 deletions
diff --git a/src/cctk_Version.F90 b/src/cctk_Version.F90 new file mode 100644 index 0000000..0bf7b74 --- /dev/null +++ b/src/cctk_Version.F90 @@ -0,0 +1,75 @@ +/*@@ + @file $RCSfile$ + @author $Author$ + @date $Date$ + @desc + Fortran 90 interface declarations for the routines + which have their C declarations in cctk_Version.h + @enddesc + @version $Header$ +@@*/ + +#include "cctk.h" + +module cctk_Version + implicit none + + interface + + subroutine CCTK_FullVersion (string, string_length) + implicit none + character(*) string + integer string_length + end subroutine CCTK_FullVersion + + subroutine CCTK_MajorVersion (string, string_length) + implicit none + character(*) string + integer string_length + end subroutine CCTK_MajorVersion + + subroutine CCTK_MinorVersion (string, string_length) + implicit none + character(*) string + integer string_length + end subroutine CCTK_MinorVersion + + subroutine CCTK_MicroVersion (string, string_length) + implicit none + character(*) string + integer string_length + end subroutine CCTK_MicroVersion + + subroutine CCTKi_DateStamp (string, string_length) + implicit none + character(*) string + integer string_length + end subroutine CCTKi_DateStamp + + subroutine CCTK_CompileTime (string, string_length) + implicit none + character(*) string + integer string_length + end subroutine CCTK_CompileTime + + subroutine CCTKi_CompileDate (string, string_length) + implicit none + character(*) string + integer string_length + end subroutine CCTKi_CompileDate + + subroutine CCTKi_CompileUser (string, string_length) + implicit none + character(*) string + integer string_length + end subroutine CCTKi_CompileUser + + subroutine CCTKi_RunUser (string, string_length) + implicit none + character(*) string + integer string_length + end subroutine CCTKi_RunUser + + end interface + +end module cctk_Version |