blob: 729590d92436019bd93d318b3d4a0ce0ffdbf024 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#include "cctk.h"
#include "cctk_Arguments.h"
#include "cctk_Functions.h"
#include "cctk_Parameters.h"
subroutine CheckFortranParameters (CCTK_ARGUMENTS)
implicit none
DECLARE_CCTK_ARGUMENTS
DECLARE_CCTK_PARAMETERS
DECLARE_CCTK_FUNCTIONS
if (one /= 1) then
call CCTK_PARAMWARN ("Fortran parameters do not work -- check the C/Fortran language interface")
end if
end subroutine CheckFortranParameters
|