cleaning water

[unres4.git] / source / unres / data / geometry_data.F90

diff --git a/source/unres/data/geometry_data.F90 b/source/unres/data/geometry_data.F90
index eb64d82..0ba82e6 100644 (file)
--- a/source/unres/data/geometry_data.F90
+++ b/source/unres/data/geometry_data.F90
@@ -19,7 +19,7 @@
       real(kind=8),dimension(:,:,:),allocatable :: cref !(3,maxres2+2,maxperm),
       real(kind=8),dimension(:,:),allocatable :: crefjlee !(3,maxres2+2),
       real(kind=8),dimension(:,:,:),allocatable :: chain_rep !(3,maxres2+2,maxsym)
-      integer :: nsup,nstart_sup,nstart_seq,chain_length,iprzes,nperm
+      integer :: nsup,nstart_sup,nstart_seq,iprzes,nperm
       integer :: nend_sup,ishift_pdb  !wham
       real(kind=8) :: rmssing,anatemp !wham
       real(kind=8) :: buftubebot, buftubetop,bordtubebot,bordtubetop, &