fix a method

Prog/splittings.f90

@@ -312,10 +312,11 @@ subroutine init_splittings(split)
     splits(27)%Tcoeffs(4) = CMPLX(4.D0/15, +2.D0/15, kind=kind(0.D0))
     splits(27)%Tcoeffs(5) = CMPLX(1.D0/10, -1.D0/30, kind=kind(0.D0))
 
-    splits(27)%Vcoeffs(1) = 1.D0/4.D0
+    splits(27)%Vcoeffs(1) = 0.0
     splits(27)%Vcoeffs(2) = 1.D0/4.D0
     splits(27)%Vcoeffs(3) = 1.D0/4.D0
     splits(27)%Vcoeffs(4) = 1.D0/4.D0
+    splits(27)%Vcoeffs(5) = 1.D0/4.D0
 
     ! The optimized Order-4 method from here: http://www.gicas.uji.es/Research/splitting-complex.html
     call createsplit(splits(28), 5, 5)
@@ -421,7 +422,7 @@ splits(30)%Tcoeffs(17) = splits(30)%Tcoeffs(1)
     splits(34)%Vcoeffs(4) = 1.D0-2.D0*(splits(34)%Vcoeffs(2)+splits(34)%Vcoeffs(3) )
     splits(34)%Vcoeffs(5) = splits(34)%Vcoeffs(3)
     splits(34)%Vcoeffs(6) = splits(34)%Vcoeffs(2)
-
+    
 
 end subroutine
 end module splittings