1c
2c
3c     ###################################################
4c     ##  COPYRIGHT (C)  1992  by  Jay William Ponder  ##
5c     ##              All Rights Reserved              ##
6c     ###################################################
7c
8c     #############################################################
9c     ##                                                         ##
10c     ##  module kstbnd  --  stretch-bend forcefield parameters  ##
11c     ##                                                         ##
12c     #############################################################
13c
14c
15c     maxnsb   maximum number of stretch-bend parameter entries
16c
17c     stbn     force constant parameters for stretch-bend terms
18c     ksb      string of atom classes for stretch-bend terms
19c
20c
21      module kstbnd
22      implicit none
23      integer maxnsb
24      parameter (maxnsb=2000)
25      real*8 stbn(2,maxnsb)
26      character*12 ksb(maxnsb)
27      save
28      end
29