wham debug on for NARES

[unres4.git] / source / cluster / io_clust.F90

diff --git a/source/cluster/io_clust.F90 b/source/cluster/io_clust.F90
index b4cf707..79cb8d4 100644 (file)
--- a/source/cluster/io_clust.F90
+++ b/source/cluster/io_clust.F90
@@ -887,8 +887,9 @@
       jjj=jjj+1
       chalen=int((nct-nnt+2)/symetr)
       call int_from_cart1(.false.)
-      do j=nnt+1,nct
+      do j=nnt+1,nct-1
         mnum=molnum(j)
+        write (iout,*) "Check atom",j
         if (mnum.eq.5) cycle
         if (itype(j,mnum).eq.ntyp1_molec(mnum)) cycle
         if (itype(j+1,molnum(j+1)).eq.ntyp1_molec(molnum(j+1))) cycle