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

diff --git a/source/unres/io_base.F90 b/source/unres/io_base.F90
index d07c1f0..e82c308 100644
--- a/source/unres/io_base.F90
+++ b/source/unres/io_base.F90
@@ -1534,7 +1534,8 @@
        stop
       else if (molecule.eq.5) then
       do i=1,ntyp1_molec(molecule)
-        print *,i,restyp(i,molecule)(1:2)
+        print *,restyp(i,molecule)
+        print *,i,restyp(i,molecule)(1:2),nam(1:2)
         if (ucase(nam(1:2)).eq.restyp(i,molecule)(1:2)) then
           rescode=i
           return