X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Funres%2Fsrc%2Ffitsq.f;h=fbcf223b2273e320da9c0e05180ea101b628fff0;hb=550f832d956213047c82b1c17397e45ded1534bf;hp=17d92eef5f8483be8ede0bbb06726d69ae0521c3;hpb=9871d519471d253de8e09bc983cb395dc7a95173;p=unres.git

diff --git a/source/cluster/unres/src/fitsq.f b/source/cluster/unres/src/fitsq.f
index 17d92ee..fbcf223 100644
--- a/source/cluster/unres/src/fitsq.f
+++ b/source/cluster/unres/src/fitsq.f
@@ -1,5 +1,5 @@
       subroutine fitsq(rms,x,y,nn,t,b,non_conv)
-      implicit real*8 (a-h,o-z)
+      include 'DIMENSIONS'
       include 'COMMON.IOUNITS'
 c  x and y are the vectors of coordinates (dimensioned (3,n)) of the two
 c  structures to be superimposed.  nn is 3*n, where n is the number of