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)
|
angle_left_right(i) = dacos(arg) * 180.d0/dacos(-1.d0)
|
||||||
enddo
|
enddo
|
||||||
double precision :: angle(mo_num)
|
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)
|
max_angle_left_right = maxval(angle)
|
||||||
END_PROVIDER
|
END_PROVIDER
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user