root / synthbench / euroben-ports / base / C-MPI / mod2f / .svn / text-base / tstinp.c.svn-base @ 0:839f52ef7657
History | View | Annotate | Download (943 Bytes)
1 |
#include <stdio.h> |
---|---|
2 |
#include <stdlib.h> |
3 |
|
4 |
void tstinp( int mc, int mr, int nc, int nr, int me, int nodes ) |
5 |
// --------------------------------------------------------------------- |
6 |
// --- 'tstinp' checks whether the problem input is large enough to |
7 |
// be run on 'nodes' processes. If not it gives a warning and |
8 |
// aborts. |
9 |
// --------------------------------------------------------------------- |
10 |
{ |
11 |
if ( mr == 0 ) { |
12 |
if ( me == 0 ) { |
13 |
printf( " No. of rows in 2-D decomposition of FFT %5d\n", nr ); |
14 |
printf( "< No. of processes %7d. Increase problem size.\n", |
15 |
nodes ); |
16 |
} |
17 |
MPI_Finalize(); |
18 |
exit( -1 ); |
19 |
} |
20 |
if ( mc == 0 ) { |
21 |
if ( me == 0 ) { |
22 |
printf( " No. of columns in 2-D decomposition of FFT %5d\n", nc ); |
23 |
printf( "< No. of processes %7d. Increase problem size.\n", |
24 |
nodes ); |
25 |
} |
26 |
MPI_Finalize(); |
27 |
exit( -1 ); |
28 |
} |
29 |
} |
30 |
|
31 |
|