X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Finitialize_p.F;h=0dd08c0afc01c53a7419b406277eee68f9fc4985;hb=5a9c41de10a0c6daf93c0e1c42de016d57444a74;hp=9d159a98d0c0b20840172105a79353aca9d6ac06;hpb=4ff96e42006641e2b5fcc2bc9ac6a9fb13ca6316;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.