source:
XIOS/dev/branch_yushan/extern/src_ep_dev/ep_lib_fortran.hpp
@
1079
| Last change on this file since 1079 was 1068, checked in by yushan, 7 years ago | |
|---|---|
| File size: 471 bytes | |
| Rev | Line | |
|---|---|---|
| [1037] | 1 | #ifndef EP_LIB_FORTRAN_HPP_INCLUDED |
| 2 | #define EP_LIB_FORTRAN_HPP_INCLUDED | |
| 3 | ||
| 4 | #include "ep_type.hpp" | |
| 5 | ||
| 6 | namespace ep_lib | |
| 7 | { | |
| 8 | ||
| [1068] | 9 | // #ifdef _intelmpi |
| [1053] | 10 | |
| [1068] | 11 | // MPI_Fint MPI_Comm_c2f(MPI_Comm comm); |
| 12 | // MPI_Comm MPI_Comm_f2c(MPI_Fint comm); | |
| [1053] | 13 | |
| [1068] | 14 | // #elif _openmpi |
| [1053] | 15 | |
| [1068] | 16 | // int MPI_Comm_c2f(MPI_Comm comm); |
| 17 | // ep_lib::MPI_Comm MPI_Comm_f2c(MPI_Fint comm); | |
| [1053] | 18 | |
| [1068] | 19 | // #endif |
| [1037] | 20 | |
| [1053] | 21 | int EP_Comm_c2f(MPI_Comm comm); |
| 22 | MPI_Comm EP_Comm_f2c(int comm); | |
| [1037] | 23 | } |
| 24 | ||
| 25 | ||
| 26 | #endif // EP_LIB_FORTRAN_HPP_INCLUDED |
Note: See TracBrowser
for help on using the repository browser.
