Statistics
| Branch: | Revision:

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