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