Ignore:
Timestamp:
Feb 27, 2018 3:02:57 PM (6 years ago)
Author:
knoop
Message:

Bugfix: wrong placement of include 'mpif.h' corrected

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pmc_particle_interface.f90

    r2809 r2841  
    2626! -----------------!
    2727! $Id$
     28! Bugfix: wrong placement of include 'mpif.h' corrected
     29!
     30! 2809 2018-02-15 09:55:58Z schwenkel
    2831! Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE.
    2932
     
    4043
    4144   USE, INTRINSIC ::  ISO_C_BINDING
     45
     46#if !defined( __mpifh )
    4247   USE MPI
     48#endif
    4349
    4450   USE kinds
     
    9298
    9399   IMPLICIT NONE
     100
     101#if defined( __mpifh )
     102   INCLUDE "mpif.h"
     103#endif
     104
    94105   PRIVATE
    95106   SAVE
Note: See TracChangeset for help on using the changeset viewer.