X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Finitialize_p.F;h=0dd08c0afc01c53a7419b406277eee68f9fc4985;hb=13279fc00959f1e7a4bf024637996dcf4c729e99;hp=9d159a98d0c0b20840172105a79353aca9d6ac06;hpb=011f9a16683bb48096837601ff7136a747e01981;p=unres.git

diff --git a/source/wham/src-M/initialize_p.F b/source/wham/src-M/initialize_p.F
index 9d159a9..0dd08c0 100644
--- a/source/wham/src-M/initialize_p.F
+++ b/source/wham/src-M/initialize_p.F
@@ -328,6 +328,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.