diff options
Diffstat (limited to 'src/Get_Coeff.F90')
-rw-r--r-- | src/Get_Coeff.F90 | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Get_Coeff.F90 b/src/Get_Coeff.F90 index 3c7a09f..60dab5b 100644 --- a/src/Get_Coeff.F90 +++ b/src/Get_Coeff.F90 @@ -22,6 +22,8 @@ CCTK_REAL function GetCoeff () GetCoeff = 13649.0_wp/43200.0_wp case (8) GetCoeff = 1498139.0_wp/5080320.0_wp + case default + call CCTK_WARN (0, "operator not implemented") end select else if ( CCTK_EQUALS(operator_type,'Minimal Bandwidth') ) then @@ -30,6 +32,8 @@ CCTK_REAL function GetCoeff () GetCoeff = 3.0_wp/11.0_wp case(6) GetCoeff = 30.0_wp/137.0_wp + case default + call CCTK_WARN (0, "operator not implemented") end select else select case (order) @@ -37,6 +41,8 @@ CCTK_REAL function GetCoeff () GetCoeff = 0.2388575707774486064323157210922003533466_wp case(6) GetCoeff = 0.2028105550720356346665604029847379994496_wp + case default + call CCTK_WARN (0, "operator not implemented") end select end if end if |