source: trunk/WRF.COMMON/WRFV3/tools/mpi2_thread_test.c @ 3431

Last change on this file since 3431 was 2759, checked in by aslmd, 2 years ago

adding unmodified code from WRFV3.0.1.1, expurged from useless data +1M size

File size: 189 bytes
Line 
1#include <stdio.h>
2#include <mpi.h>
3main( int argc, char ** argv ) 
4{
5   int y, retval ;
6   MPI_Comm x ;
7   y = 1 ;
8
9   MPI_Init_thread( &argc, &argv, MPI_THREAD_FUNNELED, &retval  ) ;
10}
11
12
Note: See TracBrowser for help on using the repository browser.