X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Funres%2Fsrc_MD%2Finitialize_p.F;h=a99edfc54f7f76988db7e71860ebd7faef9c8c11;hb=73df986c46d3d16b8e54b6fe5c807d91be796974;hp=0f6c7328d169cfb4194d86594759be17f63dfb02;hpb=9c0bfb53163c8ec9e78cfa992fb222f1c8be23bd;p=unres.git

diff --git a/source/unres/src_MD/initialize_p.F b/source/unres/src_MD/initialize_p.F
index 0f6c732..a99edfc 100644
--- a/source/unres/src_MD/initialize_p.F
+++ b/source/unres/src_MD/initialize_p.F
@@ -345,6 +345,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.