Merge branch 'master' into binaries
This commit is contained in:
commit
c7c68922b7
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user