X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Freadpdb.F;h=c7f0dddceb3cd25e42026c7713b7384b2ad30b74;hb=e39b9b369e87de20bb1826764be18633ea348f58;hp=8b6f3313013b7cbd4d6b8de16b44c01aecce859f;hpb=71ab8ad9b5eacd0bbf5c069f91191d293f43f4de;p=unres.git

diff --git a/source/unres/src_MD-M/readpdb.F b/source/unres/src_MD-M/readpdb.F
index 8b6f331..c7f0ddd 100644
--- a/source/unres/src_MD-M/readpdb.F
+++ b/source/unres/src_MD-M/readpdb.F
@@ -169,7 +169,7 @@ C 2/15/2013 by Adam: corrected insertion of the last dummy residue
         c(j,nres+1)=c(j,1)
         c(j,2*nres)=c(j,nres)
       enddo
-      if (itype(1).eq.21) then
+      if (itype(1).eq.21) then 
         nsup=nsup-1
         nstart_sup=2
         if (unres_pdb) then