X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fgeometry.F90;h=af8df27b5368094b3bffedfa6dcb6a0a2b83c117;hb=bc23440fbe68672d430f71f22f46b11265f003db;hp=59a79722cf47f9dfee1ccae201d4cc8c381c7a7e;hpb=7614589b4a07e4a7fe731af92c1f850b720f0f54;p=unres4.git

diff --git a/source/unres/geometry.F90 b/source/unres/geometry.F90
index 59a7972..af8df27 100644
--- a/source/unres/geometry.F90
+++ b/source/unres/geometry.F90
@@ -3770,7 +3770,8 @@
 !      common /refstruct/
       if(.not.allocated(cref)) allocate(cref(3,nres2+2,maxperm)) !(3,maxres2+2,maxperm)
 !elwrite(iout,*) "jestem w alloc geo 2"
-      allocate(crefjlee(3,nres2+2)) !(3,maxres2+2)
+!      allocate(crefjlee(3,nres2+2)) !(3,maxres2+2)
+        if (.not.allocated(crefjlee)) allocate (crefjlee(3,nres2+2))
       if(.not.allocated(chain_rep)) allocate(chain_rep(3,nres2+2,maxsym)) !(3,maxres2+2,maxsym)
       if(.not.allocated(tabperm)) allocate(tabperm(maxperm,maxsym)) !(maxperm,maxsym)
 !      common /from_zscore/ in module.compare