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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pmc_mpi_wrapper_mod.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!
     
    7477    USE, INTRINSIC ::  ISO_C_BINDING
    7578
    76 #if defined( __mpifh )
    77     INCLUDE "mpif.h"
    78 #else
     79#if !defined( __mpifh )
    7980    USE MPI
    8081#endif
     
    8586
    8687    IMPLICIT NONE
     88
     89#if defined( __mpifh )
     90    INCLUDE "mpif.h"
     91#endif
    8792
    8893    PRIVATE
Note: See TracChangeset for help on using the changeset viewer.