forked from TinkerTools/tinker
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathkopdst.f
27 lines (27 loc) · 973 Bytes
/
kopdst.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
c
c
c ###################################################
c ## COPYRIGHT (C) 1999 by Jay William Ponder ##
c ## All Rights Reserved ##
c ###################################################
c
c ##################################################################
c ## ##
c ## module kopdst -- out-of-plane distance forcefield params ##
c ## ##
c ##################################################################
c
c
c maxnopd maximum number of out-of-plane distance entries
c
c opds force constant parameters for out-of-plane distance
c kopd string of atom classes for out-of-plane distance
c
c
module kopdst
implicit none
integer maxnopd
real*8, allocatable :: opds(:)
character*16, allocatable :: kopd(:)
save
end