source:
trunk/WRF.COMMON/WRFV2/tools/mpi2_test.c
@
3547
Last change on this file since 3547 was 11, checked in by , 14 years ago | |
---|---|
File size: 185 bytes |
Line | |
---|---|
1 | #include <stdio.h> |
2 | #include <mpi.h> |
3 | main() |
4 | { |
5 | int y ; |
6 | MPI_Comm x ; |
7 | y = 1 ; |
8 | #if 1 |
9 | x = MPI_Comm_f2c( y ) ; |
10 | y = MPI_Comm_c2f( x ) ; |
11 | #endif |
12 | fprintf(stderr,"y %d \n",y) ; |
13 | } |
Note: See TracBrowser
for help on using the repository browser.