forked from TinkerTools/tinker
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathkbonds.f
59 lines (59 loc) · 2.48 KB
/
kbonds.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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
c
c
c ###################################################
c ## COPYRIGHT (C) 1992 by Jay William Ponder ##
c ## All Rights Reserved ##
c ###################################################
c
c ################################################################
c ## ##
c ## module kbonds -- bond stretching forcefield parameters ##
c ## ##
c ################################################################
c
c
c maxnb maximum number of bond stretch parameter entries
c maxnb5 maximum number of 5-membered ring bond stretch entries
c maxnb4 maximum number of 4-membered ring bond stretch entries
c maxnb3 maximum number of 3-membered ring bond stretch entries
c maxnel maximum number of electronegativity bond corrections
c
c bcon force constant parameters for harmonic bond stretch
c bcon5 force constant parameters for 5-ring bond stretch
c bcon4 force constant parameters for 4-ring bond stretch
c bcon3 force constant parameters for 3-ring bond stretch
c blen bond length parameters for harmonic bond stretch
c blen5 bond length parameters for 5-ring bond stretch
c blen4 bond length parameters for 4-ring bond stretch
c blen3 bond length parameters for 3-ring bond stretch
c dlen electronegativity bond length correction parameters
c kb string of atom classes for harmonic bond stretch
c kb5 string of atom classes for 5-ring bond stretch
c kb4 string of atom classes for 4-ring bond stretch
c kb3 string of atom classes for 3-ring bond stretch
c kel string of atom classes for electronegativity corrections
c
c
module kbonds
implicit none
integer maxnb
integer maxnb5
integer maxnb4
integer maxnb3
integer maxnel
real*8, allocatable :: bcon(:)
real*8, allocatable :: bcon5(:)
real*8, allocatable :: bcon4(:)
real*8, allocatable :: bcon3(:)
real*8, allocatable :: blen(:)
real*8, allocatable :: blen5(:)
real*8, allocatable :: blen4(:)
real*8, allocatable :: blen3(:)
real*8, allocatable :: dlen(:)
character*8, allocatable :: kb(:)
character*8, allocatable :: kb5(:)
character*8, allocatable :: kb4(:)
character*8, allocatable :: kb3(:)
character*12, allocatable :: kel(:)
save
end