correction in new ions and clusterfix

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

diff --git a/source/unres/io.F90 b/source/unres/io.F90
index e8b0579..61270e5 100644 (file)
--- a/source/unres/io.F90
+++ b/source/unres/io.F90
@@ -1227,6 +1227,7 @@
         enddo 
       else if (ndih_constr.lt.0) then
         raw_psipred=.true.
+        allocate(idih_constr(nres))
         allocate(secprob(3,nres))
         allocate(vpsipred(3,nres))
         allocate(sdihed(2,nres))