diff options
Diffstat (limited to 'src/cctk_WarnLevel.F90')
-rw-r--r-- | src/cctk_WarnLevel.F90 | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/src/cctk_WarnLevel.F90 b/src/cctk_WarnLevel.F90 new file mode 100644 index 0000000..80aab16 --- /dev/null +++ b/src/cctk_WarnLevel.F90 @@ -0,0 +1,46 @@ +/*@@ + @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 + + external CCTK_VWarn + external CCTK_VParamWarn + external CCTK_VInfo + +end module cctk_WarnLevel |