blob: 623224c5eb9c62521ae2d1ad425d6ab2216ce902 (
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
|
/*@@
@file $RCSfile$
@author $Author$
@date $Date$
@desc
Fortran 90 interface declarations for the routines
which have their C declarations in cctk_WarnLevel.h
@enddesc
@version $Header$
@@*/
#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
|