mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-01 21:53:40 +02:00
This commit is contained in:
parent
41d8fa2f0e
commit
877d1e621a
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user