gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into binaries

Browse Source
This commit is contained in:
Grzegorz Kowal 2022-01-02 18:03:11 -03:00
commit c7c68922b7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
sources/schemes.F90
View File

@ -3582,8 +3582,8 @@ module schemes
x2 = b2 / bp x2 = b2 / bp
x3 = b3 / bp x3 = b3 / bp
else else
x2 = 1.0d+00 / sqrt(2.0d+00) x2 = 0.0d+00
x3 = x2 x3 = 0.0d+00
end if end if
ca2 = b1**2 ca2 = b1**2
@ -3764,9 +3764,9 @@ module schemes
rm(:,:) = 0.0d+00 rm(:,:) = 0.0d+00
rm(6,4) = 1.0d+00 rm(6,4) = 1.0d+00
rm(9,4) = 1.0d+00 rm(9,4) = 1.0d+00
rm(1,5) = 1.0d+00
rm(6,6) = 1.0d+00 rm(6,6) = 1.0d+00
rm(9,6) = - 1.0d+00 rm(9,6) = - 1.0d+00
rm(1,5) = 1.0d+00
first = .false. first = .false.
end if end if
@ -3843,8 +3843,8 @@ module schemes
x2 = b2 / bp x2 = b2 / bp
x3 = b3 / bp x3 = b3 / bp
else else
x2 = 1.0d+00 / sqrt(2.0d+00) x2 = 0.0d+00
x3 = x2 x3 = 0.0d+00
end if end if
ca2 = b1**2 ca2 = b1**2