PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-26 15:12:19 +02:00
Code Releases Activity

fixed stupid bug in angle

Browse Source
This commit is contained in:
eginer 2022-10-27 18:38:26 +02:00
parent 41d8fa2f0e
commit 877d1e621a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/bi_ortho_mos/overlap.irp.f
View File

@ -135,7 +135,7 @@ END_PROVIDER
angle_left_right(i) = dacos(arg) * 180.d0/dacos(-1.d0)
enddo
double precision :: angle(mo_num)
angle(1:mo_num) = dabs(angle_left_right(i))
angle(1:mo_num) = dabs(angle_left_right(1:mo_num))
max_angle_left_right = maxval(angle)
END_PROVIDER