cell.f

c
c
c     ###################################################
c     ##  COPYRIGHT (C)  1992  by  Jay William Ponder  ##
c     ##              All Rights Reserved              ##
c     ###################################################
c
c     ############################################################
c     ##                                                        ##
c     ##  module cell  --  replicated cell periodic boundaries  ##
c     ##                                                        ##
c     ############################################################
c
c
c     ncell    total number of cell replicates for periodic boundaries
c     icell    offset along axes for each replicate periodic cell
c     xcell    length of the a-axis of the complete replicated cell
c     ycell    length of the b-axis of the complete replicated cell
c     zcell    length of the c-axis of the complete replicated cell
c     xcell2   half the length of the a-axis of the replicated cell
c     ycell2   half the length of the b-axis of the replicated cell
c     zcell2   half the length of the c-axis of the replicated cell
c
c
      module cell
      implicit none
      integer ncell
      integer, allocatable :: icell(:,:)
      real*8 xcell
      real*8 ycell
      real*8 zcell
      real*8 xcell2
      real*8 ycell2
      real*8 zcell2
      save
      end