X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fcompare.f90;fp=source%2Funres%2Fcompare.f90;h=b65e57cb7a73c5ab657bfdb6c02de28a79f4d6db;hb=513f5fb9e31afc4a12d8ae2d113f7677ef057892;hp=05bedc0d89c7558742fae0a1a80548baff84a752;hpb=726f5567e5b296dfadb884e2db91562c1a46536c;p=unres4.git

diff --git a/source/unres/compare.f90 b/source/unres/compare.f90
index 05bedc0..b65e57c 100644
--- a/source/unres/compare.f90
+++ b/source/unres/compare.f90
@@ -3791,9 +3791,9 @@
 ! Thread the sequence through a database of known structures
 !      implicit real*8 (a-h,o-z)
 !      include 'DIMENSIONS'
-#ifdef MPI
       use MPI_data	!include 'COMMON.INFO'
       use MPI_
+#ifdef MPI
       include 'mpif.h'
 #endif
 !      include 'COMMON.CONTROL'