forked from TinkerTools/tinker
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathangtor.f
26 lines (26 loc) · 967 Bytes
/
angtor.f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
c
c
c ##########################################################
c ## COPYRIGHT (C) 2014 by Chao Lu & Jay William Ponder ##
c ## All Rights Reserved ##
c ##########################################################
c
c ##############################################################
c ## ##
c ## module angtor -- angle-torsions in current structure ##
c ## ##
c ##############################################################
c
c
c nangtor total number of angle-torsion interactions
c iat torsion and angle numbers used in angle-torsion
c kant 1-, 2- and 3-fold angle-torsion force constants
c
c
module angtor
implicit none
integer nangtor
integer, allocatable :: iat(:,:)
real*8, allocatable :: kant(:,:)
save
end