blob: 489949e5de45efd993b7fc72ea02d5ba761fdbf2 (
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
|