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

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)