1c 2c 3c ################################################### 4c ## COPYRIGHT (C) 1992 by Jay William Ponder ## 5c ## All Rights Reserved ## 6c ################################################### 7c 8c ################################################################## 9c ## ## 10c ## module opbend -- out-of-plane bends in current structure ## 11c ## ## 12c ################################################################## 13c 14c 15c nopbend total number of out-of-plane bends in the system 16c iopb bond angle numbers used in out-of-plane bending 17c opbk force constant values for out-of-plane bending 18c 19c 20 module opbend 21 implicit none 22 integer nopbend 23 integer, allocatable :: iopb(:) 24 real*8, allocatable :: opbk(:) 25 save 26 end 27