Add more Fortran interfaces

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@27 51d2df92-0e4f-0410-a727-bd43d766d6b6

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