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_parent_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!
     
    99102    USE, INTRINSIC ::  ISO_C_BINDING
    100103
    101 #if defined( __mpifh )
    102     INCLUDE "mpif.h"
    103 #else
     104#if !defined( __mpifh )
    104105    USE MPI
    105106#endif
     
    117118
    118119   IMPLICIT NONE
     120
     121#if defined( __mpifh )
     122   INCLUDE "mpif.h"
     123#endif
    119124
    120125   PRIVATE
Note: See TracChangeset for help on using the changeset viewer.