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