blob: 0bf7b74228acd71bdb76acb0ac2d869b0f22b4be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
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
|