X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fminim_jlee.F;fp=source%2Funres%2Fsrc_MD-M%2Fminim_jlee.F;h=56d50103621fcb84b9d9ef2f38f07547408dd77f;hp=d83b15bda91f9bb9b3e85ee2ff7125b2ef902b4e;hb=94c9f54ff76d22351c0cd2f1b01e809515163940;hpb=2a226bfc86eabc6e4eae0c3ad1cbc3cb5417a05a

diff --git a/source/unres/src_MD-M/minim_jlee.F b/source/unres/src_MD-M/minim_jlee.F
index d83b15b..56d5010 100644
--- a/source/unres/src_MD-M/minim_jlee.F
+++ b/source/unres/src_MD-M/minim_jlee.F
@@ -7,16 +7,18 @@ c  controls minimization and sorting routines
       include 'COMMON.IOUNITS'
       include 'COMMON.MINIM'
       include 'COMMON.CONTROL'
-      include 'mpif.h'
       external func,gradient,fdum
       real ran1,ran2,ran3
+#ifdef MPI
+      include 'mpif.h'
       include 'COMMON.SETUP'
+      dimension muster(mpi_status_size)
+#endif
       include 'COMMON.GEO'
       include 'COMMON.FFIELD'
       include 'COMMON.SBRIDGE'
       include 'COMMON.DISTFIT'
       include 'COMMON.CHAIN'
-      dimension muster(mpi_status_size)
       dimension var(maxvar),erg(mxch*(mxch+1)/2+1)
       dimension var2(maxvar)
       integer iffr(maxres),ihpbt(maxdim),jhpbt(maxdim)