fix wrong select case

Fortran-FOSS-Programmers · Apr 19, 2017 · d6f322d · d6f322d
1 parent e4b14af
commit d6f322d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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