X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fio_clust.f90;h=1e24794a1847ef7d96ea17f2540b8c68e33e6c37;hb=fe0a8e52832b7703fb74f8b6909871fc17047a02;hp=75703891d1373f019011d8ce61d86858f1d9e373;hpb=7077a079d2932fdbb6cb5c28bae95bad9ff9105c;p=unres4.git

diff --git a/source/cluster/io_clust.f90 b/source/cluster/io_clust.f90
index 7570389..1e24794 100644
--- a/source/cluster/io_clust.f90
+++ b/source/cluster/io_clust.f90
@@ -1357,7 +1357,8 @@
                  indpdb
       use geometry, only: chainbuild,alloc_geo_arrays
       use energy, only: alloc_ener_arrays
-      use control, only: rescode,setup_var,init_int_table
+      use io_base, only: rescode
+      use control, only: setup_var,init_int_table
       use conform_compar, only: contact
 !      implicit none
 !      include 'DIMENSIONS'