1c 2c 3c ################################################### 4c ## COPYRIGHT (C) 2003 by Jay William Ponder ## 5c ## All Rights Reserved ## 6c ################################################### 7c 8c ############################################################# 9c ## ## 10c ## module bitor -- bitorsions in the current structure ## 11c ## ## 12c ############################################################# 13c 14c 15c nbitor total number of bitorsions in the system 16c ibitor numbers of the atoms in each bitorsion 17c 18c 19 module bitor 20 implicit none 21 integer nbitor 22 integer, allocatable :: ibitor(:,:) 23 save 24 end 25