blob: 58dd515ff1634afc55de3a7f251a7607dfa03f77 (
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
|
#include "cctk.h"
module cctk_WarnLevel
implicit none
interface
subroutine CCTK_Warn (level, line, file, thorn, message)
implicit none
integer level
integer line
character(*) file
character(*) thorn
character(*) message
end subroutine CCTK_Warn
subroutine CCTK_ParamWarn (thorn, message)
implicit none
character(*) thorn
character(*) message
end subroutine CCTK_ParamWarn
subroutine CCTK_Info (thorn, message)
implicit none
character(*) thorn
character(*) message
end subroutine CCTK_Info
end interface
! Do not declare these, because some compilers insist on a
! definition once they have seen an external declaration:
!!$ external CCTK_VWarn
!!$ external CCTK_VParamWarn
!!$ external CCTK_VInfo
end module cctk_WarnLevel
|