Merge branch 'UCGM' of mmka.chem.univ.gda.pl:unres4 into UCGM

[unres4.git] / source / unres / io_base.F90

diff --git a/source/unres/io_base.F90 b/source/unres/io_base.F90
index d07c1f0..a8729a7 100644 (file)
--- 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
@@ -1534,7 +1535,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