X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Funres%2Fio.F90;h=61270e5a27c375c45c5c57eaae754ad992c5705f;hb=f7883bb11fc7df1ed921187999982670d26e6fa5;hp=e8b0579e1c7a1dbeae787fe1dad658c6c2b690ac;hpb=94d31d7bcffc5412d9a88a0aef46b68349b60cf3;p=unres4.git

diff --git a/source/unres/io.F90 b/source/unres/io.F90
index e8b0579..61270e5 100644
--- 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))