From d6f322dd2d5e4f11c84af67ef511fa63f7194383 Mon Sep 17 00:00:00 2001 From: Giacomo Rossi Date: Wed, 19 Apr 2017 11:27:42 +0200 Subject: [PATCH] fix wrong select case --- src/lib/concrete_objects/wenoof_interpolations_int_js.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lib/concrete_objects/wenoof_interpolations_int_js.f90 b/src/lib/concrete_objects/wenoof_interpolations_int_js.f90 index 2c5f087..47b4598 100644 --- a/src/lib/concrete_objects/wenoof_interpolations_int_js.f90 +++ b/src/lib/concrete_objects/wenoof_interpolations_int_js.f90 @@ -185,7 +185,7 @@ subroutine create(self, constructor) endselect elseif(x_target==0.5_R_P) then ! right interface (i+1/2) - select case(self%S) + select case(S) case(2) ! 3rd order ! cell 1 ; cell 0 c(1,0)= -0.5_R_P; c(0,0)= 1.5_R_P ! stencil 0