X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fcompare.F90;h=2f47cf6c0d7347c4a523b2e07a4ae6fb25ac1d83;hb=91b9f78d94b96277537615722323ebe03cc0a014;hp=6ad88703bfc9b8702876c723829c5c6021285c7c;hpb=ae2f9918e1e5f88a78cc32b1d3a7ff90dede1207;p=unres4.git

diff --git a/source/unres/compare.F90 b/source/unres/compare.F90
index 6ad8870..2f47cf6 100644
--- a/source/unres/compare.F90
+++ b/source/unres/compare.F90
@@ -4549,11 +4549,13 @@
       if(.not.allocated(bfrag)) allocate(bfrag(4,nres/3)) !(4,maxres/3)
       if(.not.allocated(hfrag)) allocate(hfrag(2,nres/3)) !(2,maxres/3)
 !      COMMON /WAGI/
+#ifndef FIVEDIAG
       if(.not.allocated(w)) allocate(w(maxres22),d0(maxres22)) !(maxres22)
 !      COMMON /POCHODNE/
 !el      allocate(DRDG(maxres22,maxres22)) !(MAXRES22,MAXRES)
       if (.not.allocated(DDD)) allocate(DDD(maxres22))	!(maxres22)
       if (.not.allocated(H)) allocate(H(nres,nres)) !(MAXRES,MAXRES)
+#endif
       if (.not.allocated(XX)) allocate(XX(nres)) !(MAXRES)
 !      COMMON /frozen/
       if (.not.allocated(mask)) allocate(mask(nres)) !(maxres)