X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M-newcorr%2Finitialize_p.F;h=d2474fc7d07e8d2835d4f064dd12900afabc8963;hb=b9025a366733ac0290debbd52ede3527d29c9ed5;hp=a650241753d78bb7e605549a354896dd05d0a2fe;hpb=31389e1d082428c71d42d61559ca2620daf6cf8d;p=unres.git

diff --git a/source/unres/src_MD-M-newcorr/initialize_p.F b/source/unres/src_MD-M-newcorr/initialize_p.F
index a650241..d2474fc 100644
--- a/source/unres/src_MD-M-newcorr/initialize_p.F
+++ b/source/unres/src_MD-M-newcorr/initialize_p.F
@@ -377,6 +377,7 @@ cd    write (iout,*) 'ns=',ns,' nss=',nss,' ihpb,jhpb',
 cd   &   (ihpb(i),jhpb(i),i=1,nss)
       do i=nnt,nct-1
         scheck=.false.
+       if (dyn_ss) goto 10
         do ii=1,nss
           if (ihpb(ii).eq.i+nres) then
             scheck=.true.