X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fio_base.F90;h=a8729a7c9046709e92419fad5e102077a3bc52f7;hb=bc23440fbe68672d430f71f22f46b11265f003db;hp=e82c30865ff117c26a9061f42ddcaba35942798e;hpb=e837223cef419e16dfd7fc71baee35cd807096e9;p=unres4.git

diff --git a/source/unres/io_base.F90 b/source/unres/io_base.F90
index e82c308..a8729a7 100644
--- a/source/unres/io_base.F90
+++ b/source/unres/io_base.F90
@@ -1521,6 +1521,7 @@
       else if (molecule.eq.2) then
       do i=1,ntyp1_molec(molecule)
          print *,nam(1:1),restyp(i,molecule)(1:1)
+         print *,nam(2:2),"read",i
         if (nam(2:2).eq.restyp(i,molecule)(1:1)) then
           rescode=i
           return