Skip to content

Commit

Permalink
Fix branches to calculate dot products of grids
Browse files Browse the repository at this point in the history
  • Loading branch information
fstein93 committed Feb 13, 2024
1 parent aae5287 commit 7eeddba
Showing 1 changed file with 0 additions and 2 deletions.
2 changes: 0 additions & 2 deletions src/pw/pw_methods.F
Original file line number Diff line number Diff line change
Expand Up @@ -1048,8 +1048,6 @@ FUNCTION pw_integral_ab_${kind}$_${kind2}$_${space}$ (pw1, pw2, sumtype, just_su
! Do accurate sum
#:if kind[0]=="r" and kind2[0]=="r"
integral_value = accurate_dot_product(pw1%array, pw2%array)
#:elif kind=="r3d" and kind2=="r3d"
integral_value = accurate_sum(pw1%array*pw2%array) !? complex bit
#:elif kind[0]=="r"
integral_value = accurate_sum(pw1%array*REAL(pw2%array, KIND=dp)) !? complex bit
#:elif kind2[0]=="r"
Expand Down

0 comments on commit 7eeddba

Please sign in to comment.