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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pmc_child_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!
     
    9699    USE, INTRINSIC ::  iso_c_binding
    97100
    98 #if defined( __mpifh )
    99     INCLUDE "mpif.h"
    100 #else
     101#if !defined( __mpifh )
    101102    USE MPI
    102103#endif
    103104
    104105    USE kinds
     106
    105107    USE pmc_general,                                                           &
    106108        ONLY:  arraydef, childdef, da_desclen, da_namedef, da_namelen, pedef,  &
     
    114116
    115117    IMPLICIT NONE
     118
     119#if defined( __mpifh )
     120    INCLUDE "mpif.h"
     121#endif
    116122
    117123    PRIVATE
Note: See TracChangeset for help on using the changeset viewer.