Commit 4724426f authored by Florian Goth's avatar Florian Goth
Browse files

fix a method

parent 03c5cade
......@@ -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
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment