NEWCORR5D working with 15k, work and iwork in random_vel might need testing

[unres4.git] / source / unres / compare.F90

diff --git a/source/unres/compare.F90 b/source/unres/compare.F90
index 6ad8870..2f47cf6 100644 (file)
--- 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)