1d1293ce9SCameron Smith #ifndef PHSOLVER_COMM_H 2d1293ce9SCameron Smith #define PHSOLVER_COMM_H 3d1293ce9SCameron Smith 4d1293ce9SCameron Smith #include <FCMangle.h> 5d1293ce9SCameron Smith 6d1293ce9SCameron Smith #define phcomm_rank FortranCInterface_GLOBAL_(phcomm_rank, PHCOMM_RANK) 7*82f286aaSCameron Smith #define phcomm_size FortranCInterface_GLOBAL_(phcomm_size, PHCOMM_SIZE) 8d1293ce9SCameron Smith 9d1293ce9SCameron Smith #ifdef __cplusplus 10d1293ce9SCameron Smith extern "C" { 11d1293ce9SCameron Smith #endif 12d1293ce9SCameron Smith int phcomm_rank(); 13*82f286aaSCameron Smith int phcomm_size(); 14d1293ce9SCameron Smith #ifdef __cplusplus 15d1293ce9SCameron Smith } 16d1293ce9SCameron Smith #endif 17d1293ce9SCameron Smith 18d1293ce9SCameron Smith #endif 19