* the number of nodes and class for which a benchmark is being built.
* The utility takes 3 arguments:
- * setparams benchmark-name nprocs class
- * benchmark-name is "sp", "bt", etc
- * nprocs is the number of processors to run on
- * class is the size of the benchmark
+ * setparams benchmark-name nprocs class
+ * benchmark-name is "ep", "dt", or "is"
+ * nprocs is the number of processors to run on
+ * class is the size of the benchmark
* These parameters are checked for the current benchmark. If they
* are invalid, this program prints a message and aborts.
* If the parameters are ok, the current npbsize.h (actually just
#include <time.h>
/*
- * This is the master version number for this set of
- * NPB benchmarks. It is in an obscure place so people
+ * This is the master version number for this set of NPB benchmarks. It is in an obscure place so people
* won't accidentally change it.
*/
#define FILENAME "npbparams.h"
#define DESC_LINE "c NPROCS = %d CLASS = %c\n"
-#define BT_DESC_LINE "c NPROCS = %d CLASS = %c SUBTYPE = %s\n"
#define DEF_CLASS_LINE "#define CLASS '%c'\n"
#define DEF_NUM_PROCS_LINE "#define NUM_PROCS %d\n"
#define FINDENT " "
#define CONTINUE " > "
-#ifdef FORTRAN_REC_SIZE
-int fortran_rec_size = FORTRAN_REC_SIZE;
-#else
-int fortran_rec_size = 4;
-#endif
-
-void get_info(int argc, char *argv[], int *typep, int *nprocsp, char *classp,
- int* subtypep);
+void get_info(int argc, char *argv[], int *typep, int *nprocsp, char *classp, int* subtypep);
void check_info(int type, int nprocs, char class);
void read_info(int type, int *nprocsp, char *classp, int *subtypep);
void write_info(int type, int nprocs, char class, int subtype);
-void write_sp_info(FILE *fp, int nprocs, char class);
-void write_bt_info(FILE *fp, int nprocs, char class, int io);
-void write_lu_info(FILE *fp, int nprocs, char class);
-void write_mg_info(FILE *fp, int nprocs, char class);
-void write_cg_info(FILE *fp, int nprocs, char class);
-void write_ft_info(FILE *fp, int nprocs, char class);
-void write_ep_info(FILE *fp, int nprocs, char class);
void write_ep_info_C(FILE *fp, int nprocs, char class); /* after C translation */
void write_is_info(FILE *fp, int nprocs, char class);
void write_dt_info(FILE *fp, int nprocs, char class);
void write_compiler_info(int type, FILE *fp);
-void write_convertdouble_info(int type, FILE *fp);
void check_line(char *line, char *label, char *val);
int check_include_line(char *line, char *filename);
void put_string(FILE *fp, char *name, char *val);
int ilog2(int i);
int ipow2(int i);
-enum benchmark_types {SP, BT, LU, MG, FT, IS, DT, EP, CG};
-enum iotypes { NONE = 0, FULL, SIMPLE, EPIO, FORTRAN};
+enum benchmark_types {IS, DT, EP};
int main(int argc, char *argv[])
{
int nprocs, nprocs_old, type;
char class, class_old;
int subtype = -1, old_subtype = -1;
-
+
/* Get command line arguments. Make sure they're ok. */
get_info(argc, argv, &type, &nprocs, &class, &subtype);
if (class != 'U') {
#ifdef VERBOSE
printf("setparams: For benchmark %s: number of processors = %d class = %c\n",
- argv[1], nprocs, class);
+ argv[1], nprocs, class);
#endif
check_info(type, nprocs, class);
}
if (class_old != 'X') {
#ifdef VERBOSE
printf("setparams: old settings: number of processors = %d class = %c\n",
- nprocs_old, class_old);
+ nprocs_old, class_old);
#endif
}
} else {
if (class_old != 'X') {
#ifdef VERBOSE
printf("setparams: Previous settings were CLASS=%c NPROCS=%d\n",
- class_old, nprocs_old);
+ class_old, nprocs_old);
#endif
}
exit(1); /* exit on class==U */
return 0;
}
-
-/*
- * get_info(): Get parameters from command line
- */
-
-void get_info(int argc, char *argv[], int *typep, int *nprocsp, char *classp,
- int *subtypep)
+/* get_info(): Get parameters from command line */
+void get_info(int argc, char *argv[], int *typep, int *nprocsp, char *classp, int *subtypep)
{
-
if (argc < 4) {
printf("Usage: %s (%d) benchmark-name nprocs class\n", argv[0], argc);
exit(1);
}
*nprocsp = atoi(argv[2]);
-
*classp = *argv[3];
- if (!strcmp(argv[1], "sp") || !strcmp(argv[1], "SP")) *typep = SP;
- else if (!strcmp(argv[1], "ft") || !strcmp(argv[1], "FT")) *typep = FT;
- else if (!strcmp(argv[1], "lu") || !strcmp(argv[1], "LU")) *typep = LU;
- else if (!strcmp(argv[1], "mg") || !strcmp(argv[1], "MG")) *typep = MG;
- else if (!strcmp(argv[1], "is") || !strcmp(argv[1], "IS")) *typep = IS;
+ if (!strcmp(argv[1], "is") || !strcmp(argv[1], "IS")) *typep = IS;
else if (!strcmp(argv[1], "dt") || !strcmp(argv[1], "DT")) *typep = DT;
else if (!strcmp(argv[1], "ep") || !strcmp(argv[1], "EP")) *typep = EP;
- else if (!strcmp(argv[1], "cg") || !strcmp(argv[1], "CG")) *typep = CG;
- else if (!strcmp(argv[1], "bt") || !strcmp(argv[1], "BT")) {
- *typep = BT;
- if (argc != 5) {
- /* printf("Usage: %s (%d) benchmark-name nprocs class\n", argv[0], argc); */
- /* exit(1); */
- *subtypep = NONE;
- } else {
- if (!strcmp(argv[4], "full") || !strcmp(argv[4], "FULL")) {
- *subtypep = FULL;
- } else if (!strcmp(argv[4], "simple") || !strcmp(argv[4], "SIMPLE")) {
- *subtypep = SIMPLE;
- } else if (!strcmp(argv[4], "epio") || !strcmp(argv[4], "EPIO")) {
- *subtypep = EPIO;
- } else if (!strcmp(argv[4], "fortran") || !strcmp(argv[4], "FORTRAN")) {
- *subtypep = FORTRAN;
- } else if (!strcmp(argv[4], "none") || !strcmp(argv[4], "NONE")) {
- *subtypep = NONE;
- } else {
- printf("setparams: Error: unknown btio type %s\n", argv[4]);
- exit(1);
- }
- }
- } else {
+ else {
printf("setparams: Error: unknown benchmark type %s\n", argv[1]);
exit(1);
}
exit(1);
}
switch(type) {
-
- case SP:
- case BT:
- rootprocs = isqrt(nprocs);
- if (rootprocs < 0) {
- printf("setparams: Number of processors %d must be a square (1,4,9,...) for this benchmark",
- nprocs);
- exit(1);
- }
- if (class == 'S' && nprocs > 16) {
- printf("setparams: BT and SP sample sizes cannot be run on more\n");
- printf(" than 16 processors because the cell size would be too small.\n");
- exit(1);
- }
- break;
-
- case CG:
- case FT:
- case MG:
case IS:
- case LU:
logprocs = ilog2(nprocs);
if (logprocs < 0) {
printf("setparams: Number of processors must be a power of two (1,2,4,...) for this benchmark\n");
exit(1);
}
-
break;
case EP:
}
}
-
/*
* read_info(): Read previous information from file.
- * Not an error if file doesn't exist, because this
- * may be the first time we're running.
- * Assumes the first line of the file is in a special
- * format that we understand (since we wrote it).
+ * Not an error if file doesn't exist, because this may be the first time we're running.
+ * Assumes the first two lines of the file is in a special format that we understand (since we wrote it).
*/
void read_info(int type, int *nprocsp, char *classp, int *subtypep)
#endif
goto abort;
}
-
- /* first line of file contains info (fortran), first two lines (C) */
- switch(type) {
- case BT: {
- char subtype_str[100];
- nread = fscanf(fp, BT_DESC_LINE, nprocsp, classp, subtype_str);
- if (nread != 3) {
- if (nread != 2) {
- printf("setparams: Error parsing config file %s. Ignoring previous settings\n", FILENAME);
- goto abort;
- }
- *subtypep = 0;
- break;
- }
- if (!strcmp(subtype_str, "full") || !strcmp(subtype_str, "FULL")) {
- *subtypep = FULL;
- } else if (!strcmp(subtype_str, "simple") ||
- !strcmp(subtype_str, "SIMPLE")) {
- *subtypep = SIMPLE;
- } else if (!strcmp(subtype_str, "epio") || !strcmp(subtype_str, "EPIO")) {
- *subtypep = EPIO;
- } else if (!strcmp(subtype_str, "fortran") ||
- !strcmp(subtype_str, "FORTRAN")) {
- *subtypep = FORTRAN;
- } else {
- *subtypep = -1;
- }
- break;
- }
-
- case SP:
- case FT:
- case MG:
- case LU:
- //case EP:
- case CG:
- nread = fscanf(fp, DESC_LINE, nprocsp, classp);
- if (nread != 2) {
- printf("setparams: Error line %d parsing config file %s. Ignoring previous settings\n", __LINE__,FILENAME);
- goto abort;
- }
- break;
- case IS:
- case EP:
- case DT:
- nread = fscanf(fp, DEF_CLASS_LINE, classp);
- nread += fscanf(fp, DEF_NUM_PROCS_LINE, nprocsp);
- if (nread != 2) {
- printf("setparams: Error line %d parsing config file %s. Ignoring previous settings\n", __LINE__,FILENAME);
- goto abort;
- }
- break;
- default:
- /* never should have gotten this far with a bad name */
- printf("setparams: (Internal Error) Benchmark type %d unknown to this program\n", type);
- exit(1);
+ /* first two lines of file contains info */
+ nread = fscanf(fp, DEF_CLASS_LINE, classp);
+ nread += fscanf(fp, DEF_NUM_PROCS_LINE, nprocsp);
+ if (nread != 2) {
+ printf("setparams: Error line %d parsing config file %s. Ignoring previous settings\n", __LINE__,FILENAME);
+ goto abort;
}
fclose(fp);
-
-
return;
abort:
return;
}
-
/*
* write_info(): Write new information to config file.
* First line is in a special format so we can read
exit(1);
}
- switch(type) {
- case BT:
- /* Write out the header */
- if (subtype == -1 || subtype == 0) {
- fprintf(fp, DESC_LINE, nprocs, class);
- } else {
- fprintf(fp, BT_DESC_LINE, nprocs, class, BT_TYPES[subtype]);
- }
- /* Print out a warning so bozos don't mess with the file */
- fprintf(fp, "\
-c \n\
-c \n\
-c This file is generated automatically by the setparams utility.\n\
-c It sets the number of processors and the class of the NPB\n\
-c in this directory. Do not modify it by hand.\n\
-c \n");
-
- break;
-
- case SP:
- case FT:
- case MG:
- case LU:
- //case EP:
- case CG:
- /* Write out the header */
- fprintf(fp, DESC_LINE, nprocs, class);
- /* Print out a warning so bozos don't mess with the file */
- fprintf(fp, "\
-c \n\
-c \n\
-c This file is generated automatically by the setparams utility.\n\
-c It sets the number of processors and the class of the NPB\n\
-c in this directory. Do not modify it by hand.\n\
-c \n");
-
- break;
- case EP:
- case IS:
- case DT:
- fprintf(fp, DEF_CLASS_LINE, class);
- fprintf(fp, DEF_NUM_PROCS_LINE, nprocs);
- fprintf(fp, "\
+ fprintf(fp, DEF_CLASS_LINE, class);
+ fprintf(fp, DEF_NUM_PROCS_LINE, nprocs);
+ fprintf(fp, "\
/*\n\
This file is generated automatically by the setparams utility.\n\
It sets the number of processors and the class of the NPB\n\
in this directory. Do not modify it by hand. */\n\
\n");
- break;
- default:
- printf("setparams: (Internal error): Unknown benchmark type %d\n",
- type);
- exit(1);
- }
/* Now do benchmark-specific stuff */
switch(type) {
- case SP:
- write_sp_info(fp, nprocs, class);
- break;
- case LU:
- write_lu_info(fp, nprocs, class);
- break;
- case MG:
- write_mg_info(fp, nprocs, class);
- break;
case IS:
write_is_info(fp, nprocs, class);
break;
case DT:
write_dt_info(fp, nprocs, class);
break;
- case FT:
- write_ft_info(fp, nprocs, class);
- break;
case EP:
- //write_ep_info(fp, nprocs, class);
write_ep_info_C(fp, nprocs, class);
break;
- case CG:
- write_cg_info(fp, nprocs, class);
- break;
- case BT:
- write_bt_info(fp, nprocs, class, subtype);
- break;
default:
printf("setparams: (Internal error): Unknown benchmark type %d\n", type);
exit(1);
}
- write_convertdouble_info(type, fp);
write_compiler_info(type, fp);
fclose(fp);
return;
}
-
-/*
- * write_sp_info(): Write SP specific info to config file
- */
-
-void write_sp_info(FILE *fp, int nprocs, char class)
-{
- int maxcells, problem_size, niter;
- char *dt;
- maxcells = isqrt(nprocs);
- if (class == 'S') { problem_size = 12; dt = "0.015d0"; niter = 100; }
- else if (class == 'W') { problem_size = 36; dt = "0.0015d0"; niter = 400; }
- else if (class == 'A') { problem_size = 64; dt = "0.0015d0"; niter = 400; }
- else if (class == 'B') { problem_size = 102; dt = "0.001d0"; niter = 400; }
- else if (class == 'C') { problem_size = 162; dt = "0.00067d0"; niter = 400; }
- else if (class == 'D') { problem_size = 408; dt = "0.00030d0"; niter = 500; }
- else if (class == 'E') { problem_size = 1020; dt = "0.0001d0"; niter = 500; }
- else {
- printf("setparams: Internal error: invalid class %c\n", class);
- exit(1);
- }
- fprintf(fp, "%sinteger maxcells, problem_size, niter_default\n", FINDENT);
- fprintf(fp, "%sparameter (maxcells=%d, problem_size=%d, niter_default=%d)\n",
- FINDENT, maxcells, problem_size, niter);
- fprintf(fp, "%sdouble precision dt_default\n", FINDENT);
- fprintf(fp, "%sparameter (dt_default = %s)\n", FINDENT, dt);
-}
-
-/*
- * write_bt_info(): Write BT specific info to config file
- */
-
-void write_bt_info(FILE *fp, int nprocs, char class, int io)
-{
- int maxcells, problem_size, niter, wr_interval;
- char *dt;
- maxcells = isqrt(nprocs);
- if (class == 'S') { problem_size = 12; dt = "0.010d0"; niter = 60; }
- else if (class == 'W') { problem_size = 24; dt = "0.0008d0"; niter = 200; }
- else if (class == 'A') { problem_size = 64; dt = "0.0008d0"; niter = 200; }
- else if (class == 'B') { problem_size = 102; dt = "0.0003d0"; niter = 200; }
- else if (class == 'C') { problem_size = 162; dt = "0.0001d0"; niter = 200; }
- else if (class == 'D') { problem_size = 408; dt = "0.00002d0"; niter = 250; }
- else if (class == 'E') { problem_size = 1020; dt = "0.4d-5"; niter = 250; }
- else {
- printf("setparams: Internal error: invalid class %c\n", class);
- exit(1);
- }
- wr_interval = 5;
- fprintf(fp, "%sinteger maxcells, problem_size, niter_default\n", FINDENT);
- fprintf(fp, "%sparameter (maxcells=%d, problem_size=%d, niter_default=%d)\n",
- FINDENT, maxcells, problem_size, niter);
- fprintf(fp, "%sdouble precision dt_default\n", FINDENT);
- fprintf(fp, "%sparameter (dt_default = %s)\n", FINDENT, dt);
- fprintf(fp, "%sinteger wr_default\n", FINDENT);
- fprintf(fp, "%sparameter (wr_default = %d)\n", FINDENT, wr_interval);
- fprintf(fp, "%sinteger iotype\n", FINDENT);
- fprintf(fp, "%sparameter (iotype = %d)\n", FINDENT, io);
- if (io) {
- fprintf(fp, "%scharacter*(*) filenm\n", FINDENT);
- switch (io) {
- case FULL:
- fprintf(fp, "%sparameter (filenm = 'btio.full.out')\n", FINDENT);
- break;
- case SIMPLE:
- fprintf(fp, "%sparameter (filenm = 'btio.simple.out')\n", FINDENT);
- break;
- case EPIO:
- fprintf(fp, "%sparameter (filenm = 'btio.epio.out')\n", FINDENT);
- break;
- case FORTRAN:
- fprintf(fp, "%sparameter (filenm = 'btio.fortran.out')\n", FINDENT);
- fprintf(fp, "%sinteger fortran_rec_sz\n", FINDENT);
- fprintf(fp, "%sparameter (fortran_rec_sz = %d)\n",
- FINDENT, fortran_rec_size);
- break;
- default:
- break;
- }
- }
-}
-
-
-
-/*
- * write_lu_info(): Write SP specific info to config file
- */
-
-void write_lu_info(FILE *fp, int nprocs, char class)
-{
- int isiz1, isiz2, itmax, inorm, problem_size;
- int xdiv, ydiv; /* number of cells in x and y direction */
- char *dt_default;
-
- if (class == 'S') { problem_size = 12; dt_default = "0.5d0"; itmax = 50; }
- else if (class == 'W') { problem_size = 33; dt_default = "1.5d-3"; itmax = 300; }
- else if (class == 'A') { problem_size = 64; dt_default = "2.0d0"; itmax = 250; }
- else if (class == 'B') { problem_size = 102; dt_default = "2.0d0"; itmax = 250; }
- else if (class == 'C') { problem_size = 162; dt_default = "2.0d0"; itmax = 250; }
- else if (class == 'D') { problem_size = 408; dt_default = "1.0d0"; itmax = 300; }
- else if (class == 'E') { problem_size = 1020; dt_default = "0.5d0"; itmax = 300; }
- else {
- printf("setparams: Internal error: invalid class %c\n", class);
- exit(1);
- }
- inorm = itmax;
- xdiv = ydiv = ilog2(nprocs)/2;
- if (xdiv+ydiv != ilog2(nprocs)) xdiv += 1;
- xdiv = ipow2(xdiv); ydiv = ipow2(ydiv);
- isiz1 = problem_size/xdiv; if (isiz1*xdiv < problem_size) isiz1++;
- isiz2 = problem_size/ydiv; if (isiz2*ydiv < problem_size) isiz2++;
-
-
- fprintf(fp, "\nc number of nodes for which this version is compiled\n");
- fprintf(fp, "%sinteger nnodes_compiled\n", FINDENT);
- fprintf(fp, "%sparameter (nnodes_compiled = %d)\n", FINDENT, nprocs);
-
- fprintf(fp, "\nc full problem size\n");
- fprintf(fp, "%sinteger isiz01, isiz02, isiz03\n", FINDENT);
- fprintf(fp, "%sparameter (isiz01=%d, isiz02=%d, isiz03=%d)\n",
- FINDENT, problem_size, problem_size, problem_size);
-
- fprintf(fp, "\nc sub-domain array size\n");
- fprintf(fp, "%sinteger isiz1, isiz2, isiz3\n", FINDENT);
- fprintf(fp, "%sparameter (isiz1=%d, isiz2=%d, isiz3=isiz03)\n",
- FINDENT, isiz1, isiz2);
-
- fprintf(fp, "\nc number of iterations and how often to print the norm\n");
- fprintf(fp, "%sinteger itmax_default, inorm_default\n", FINDENT);
- fprintf(fp, "%sparameter (itmax_default=%d, inorm_default=%d)\n",
- FINDENT, itmax, inorm);
-
- fprintf(fp, "%sdouble precision dt_default\n", FINDENT);
- fprintf(fp, "%sparameter (dt_default = %s)\n", FINDENT, dt_default);
-
-}
-
-/*
- * write_mg_info(): Write MG specific info to config file
- */
-
-void write_mg_info(FILE *fp, int nprocs, char class)
-{
- int problem_size, nit, log2_size, log2_nprocs, lt_default, lm;
- int ndim1, ndim2, ndim3;
- if (class == 'S') { problem_size = 32; nit = 4; }
- else if (class == 'W') { problem_size = 128; nit = 4; }
- else if (class == 'A') { problem_size = 256; nit = 4; }
- else if (class == 'B') { problem_size = 256; nit = 20; }
- else if (class == 'C') { problem_size = 512; nit = 20; }
- else if (class == 'D') { problem_size = 1024; nit = 50; }
- else if (class == 'E') { problem_size = 2048; nit = 50; }
- else {
- printf("setparams: Internal error: invalid class type %c\n", class);
- exit(1);
- }
- log2_size = ilog2(problem_size);
- log2_nprocs = ilog2(nprocs);
- /* lt is log of largest total dimension */
- lt_default = log2_size;
- /* log of log of maximum dimension on a node */
- lm = log2_size - log2_nprocs/3;
- ndim1 = lm;
- ndim3 = log2_size - (log2_nprocs+2)/3;
- ndim2 = log2_size - (log2_nprocs+1)/3;
-
- fprintf(fp, "%sinteger nprocs_compiled\n", FINDENT);
- fprintf(fp, "%sparameter (nprocs_compiled = %d)\n", FINDENT, nprocs);
- fprintf(fp, "%sinteger nx_default, ny_default, nz_default\n", FINDENT);
- fprintf(fp, "%sparameter (nx_default=%d, ny_default=%d, nz_default=%d)\n",
- FINDENT, problem_size, problem_size, problem_size);
- fprintf(fp, "%sinteger nit_default, lm, lt_default\n", FINDENT);
- fprintf(fp, "%sparameter (nit_default=%d, lm = %d, lt_default=%d)\n",
- FINDENT, nit, lm, lt_default);
- fprintf(fp, "%sinteger debug_default\n", FINDENT);
- fprintf(fp, "%sparameter (debug_default=%d)\n", FINDENT, 0);
- fprintf(fp, "%sinteger ndim1, ndim2, ndim3\n", FINDENT);
- fprintf(fp, "%sparameter (ndim1 = %d, ndim2 = %d, ndim3 = %d)\n",
- FINDENT, ndim1, ndim2, ndim3);
-}
-
-
-/*
- * write_dt_info(): Write DT specific info to config file
- */
+/* write_dt_info(): Write DT specific info to config file */
void write_dt_info(FILE *fp, int nprocs, char class)
{
fprintf(fp, "#define NUM_SOURCES %d\n", num_sources);
}
-/*
- * write_is_info(): Write IS specific info to config file
- */
-
-void write_is_info(FILE *fp, int nprocs, char class)
-{
- if( class != 'S' &&
- class != 'W' &&
- class != 'A' &&
- class != 'B' &&
- class != 'C' &&
- class != 'D' )
- {
- printf("setparams: Internal error: invalid class type %c\n", class);
- exit(1);
- }
-}
-
-/*
- * write_cg_info(): Write CG specific info to config file
- */
-
-void write_cg_info(FILE *fp, int nprocs, char class)
+/* write_is_info(): Write IS specific info to config file */
+void write_is_info(FILE *fp, int nprocs, char class)
{
- int na,nonzer,niter;
- char *shift,*rcond="1.0d-1";
- char *shiftS="10.",
- *shiftW="12.",
- *shiftA="20.",
- *shiftB="60.",
- *shiftC="110.",
- *shiftD="500.",
- *shiftE="1.5d3";
-
- int num_proc_cols, num_proc_rows;
-
-
- if( class == 'S' )
- { na=1400; nonzer=7; niter=15; shift=shiftS; }
- else if( class == 'W' )
- { na=7000; nonzer=8; niter=15; shift=shiftW; }
- else if( class == 'A' )
- { na=14000; nonzer=11; niter=15; shift=shiftA; }
- else if( class == 'B' )
- { na=75000; nonzer=13; niter=75; shift=shiftB; }
- else if( class == 'C' )
- { na=150000; nonzer=15; niter=75; shift=shiftC; }
- else if( class == 'D' )
- { na=1500000; nonzer=21; niter=100; shift=shiftD; }
- else if( class == 'E' )
- { na=9000000; nonzer=26; niter=100; shift=shiftE; }
- else
+ if( class != 'S' && class != 'W' && class != 'A' && class != 'B' && class != 'C' && class != 'D' )
{
printf("setparams: Internal error: invalid class type %c\n", class);
exit(1);
}
- fprintf( fp, "%sinteger na, nonzer, niter\n", FINDENT );
- fprintf( fp, "%sdouble precision shift, rcond\n", FINDENT );
- fprintf( fp, "%sparameter( na=%d,\n", FINDENT, na );
- fprintf( fp, "%s nonzer=%d,\n", CONTINUE, nonzer );
- fprintf( fp, "%s niter=%d,\n", CONTINUE, niter );
- fprintf( fp, "%s shift=%s,\n", CONTINUE, shift );
- fprintf( fp, "%s rcond=%s )\n", CONTINUE, rcond );
-
-
- num_proc_cols = num_proc_rows = ilog2(nprocs)/2;
- if (num_proc_cols+num_proc_rows != ilog2(nprocs)) num_proc_cols += 1;
- num_proc_cols = ipow2(num_proc_cols); num_proc_rows = ipow2(num_proc_rows);
-
- fprintf( fp, "\nc number of nodes for which this version is compiled\n" );
- fprintf( fp, "%sinteger nnodes_compiled\n", FINDENT );
- fprintf( fp, "%sparameter( nnodes_compiled = %d)\n", FINDENT, nprocs );
- fprintf( fp, "%sinteger num_proc_cols, num_proc_rows\n", FINDENT );
- fprintf( fp, "%sparameter( num_proc_cols=%d, num_proc_rows=%d )\n",
- FINDENT,
- num_proc_cols,
- num_proc_rows );
-}
-
-
-/*
- * write_ft_info(): Write FT specific info to config file
- */
-
-void write_ft_info(FILE *fp, int nprocs, char class)
-{
- /* easiest way (given the way the benchmark is written)
- * is to specify log of number of grid points in each
- * direction m1, m2, m3. nt is the number of iterations
- */
- int nx, ny, nz, maxdim, niter;
- if (class == 'S') { nx = 64; ny = 64; nz = 64; niter = 6;}
- else if (class == 'W') { nx = 128; ny = 128; nz = 32; niter = 6;}
- else if (class == 'A') { nx = 256; ny = 256; nz = 128; niter = 6;}
- else if (class == 'B') { nx = 512; ny = 256; nz = 256; niter =20;}
- else if (class == 'C') { nx = 512; ny = 512; nz = 512; niter =20;}
- else if (class == 'D') { nx = 2048; ny = 1024; nz = 1024; niter =25;}
- else if (class == 'E') { nx = 4096; ny = 2048; nz = 2048; niter =25;}
- else {
- printf("setparams: Internal error: invalid class type %c\n", class);
- exit(1);
- }
- maxdim = nx;
- if (ny > maxdim) maxdim = ny;
- if (nz > maxdim) maxdim = nz;
- fprintf(fp, "%sinteger nx, ny, nz, maxdim, niter_default, ntdivnp, np_min\n", FINDENT);
- fprintf(fp, "%sparameter (nx=%d, ny=%d, nz=%d, maxdim=%d)\n",
- FINDENT, nx, ny, nz, maxdim);
- fprintf(fp, "%sparameter (niter_default=%d)\n", FINDENT, niter);
- fprintf(fp, "%sparameter (np_min = %d)\n", FINDENT, nprocs);
- fprintf(fp, "%sparameter (ntdivnp=((nx*ny)/np_min)*nz)\n", FINDENT);
- fprintf(fp, "%sdouble precision ntotal_f\n", FINDENT);
- fprintf(fp, "%sparameter (ntotal_f=1.d0*nx*ny*nz)\n", FINDENT);
-}
-
-/*
- * write_ep_info(): Write EP specific info to config file
- */
-
-void write_ep_info(FILE *fp, int nprocs, char class)
-{
- /* easiest way (given the way the benchmark is written)
- * is to specify log of number of grid points in each
- * direction m1, m2, m3. nt is the number of iterations
- */
- int m;
- if (class == 'S') { m = 24; }
- else if (class == 'W') { m = 25; }
- else if (class == 'A') { m = 28; }
- else if (class == 'B') { m = 30; }
- else if (class == 'C') { m = 32; }
- else if (class == 'D') { m = 36; }
- else if (class == 'E') { m = 40; }
- else {
- printf("setparams: Internal error: invalid class type %c\n", class);
- exit(1);
- }
- /* number of processors given by "npm" */
-
-
- fprintf(fp, "%scharacter class\n",FINDENT);
- fprintf(fp, "%sparameter (class =\'%c\')\n",
- FINDENT, class);
- fprintf(fp, "%sinteger m, npm\n", FINDENT);
- fprintf(fp, "%sparameter (m=%d, npm=%d)\n",
- FINDENT, m, nprocs);
}
-/*
- * write_ep_info_C(): Write EP specific info to config file
- */
-
+/* write_ep_info_C(): Write EP specific info to config file */
void write_ep_info_C(FILE *fp, int nprocs, char class)
{
- /* easiest way (given the way the benchmark is written)
- * is to specify log of number of grid points in each
+ /* easiest way (given the way the benchmark is written) is to specify log of number of grid points in each
* direction m1, m2, m3. nt is the number of iterations
*/
int m;
printf("setparams: Internal error: invalid class type %c\n", class);
exit(1);
}
- /* number of processors given by "npm" */
-
+ /* number of processors given by "npm" */
fprintf(fp, "%schar *_class=\"%c\";\n",FINDENT,class);
fprintf(fp, "%sint m=%d;\n", FINDENT,m);
fprintf(fp, "%sint npm=%d;\n", FINDENT,nprocs);
}
+
/*
- * This is a gross hack to allow the benchmarks to
- * print out how they were compiled. Various other ways
- * of doing this have been tried and they all fail on
- * some machine - due to a broken "make" program, or
- * F77 limitations, of whatever. Hopefully this will
- * always work because it uses very portable C. Unfortunately
+ * This is a gross hack to allow the benchmarks to print out how they were compiled. Various other ways
+ * of doing this have been tried and they all fail on some machine - due to a broken "make" program, or
+ * F77 limitations, of whatever. Hopefully this will always work because it uses very portable C. Unfortunately
* it relies on parsing the make.def file - YUK.
* If your machine doesn't have <string.h> or <ctype.h>, happy hacking!
- *
*/
#define VERBOSE
void write_compiler_info(int type, FILE *fp)
{
char line[LL];
- char mpif77[LL], flink[LL], fmpi_lib[LL], fmpi_inc[LL], fflags[LL], flinkflags[LL];
char compiletime[LL], randfile[LL];
char mpicc[LL], cflags[LL], clink[LL], clinkflags[LL],
cmpi_lib[LL], cmpi_inc[LL];
the file config/make.def.template\n", DEFFILE);
exit(1);
}
- strcpy(mpif77, DEFAULT_MESSAGE);
- strcpy(flink, DEFAULT_MESSAGE);
- strcpy(fmpi_lib, DEFAULT_MESSAGE);
- strcpy(fmpi_inc, DEFAULT_MESSAGE);
- strcpy(fflags, DEFAULT_MESSAGE);
- strcpy(flinkflags, DEFAULT_MESSAGE);
strcpy(randfile, DEFAULT_MESSAGE);
strcpy(mpicc, DEFAULT_MESSAGE);
strcpy(cflags, DEFAULT_MESSAGE);
while (fgets(line, LL, deffile) != NULL) {
if (*line == '#') continue;
/* yes, this is inefficient. but it's simple! */
- check_line(line, "MPIF77", mpif77);
- check_line(line, "FLINK", flink);
- check_line(line, "FMPI_LIB", fmpi_lib);
- check_line(line, "FMPI_INC", fmpi_inc);
- check_line(line, "FFLAGS", fflags);
- check_line(line, "FLINKFLAGS", flinkflags);
check_line(line, "RAND", randfile);
check_line(line, "MPICC", mpicc);
check_line(line, "CFLAGS", cflags);
check_line(line, "CLINKFLAGS", clinkflags);
check_line(line, "CMPI_LIB", cmpi_lib);
check_line(line, "CMPI_INC", cmpi_inc);
- /* if the dummy library is used by including make.dummy, we set the
- Fortran and C paths to libraries and headers accordingly */
- if(check_include_line(line, "../config/make.dummy")) {
- strcpy(fmpi_lib, "-L../MPI_dummy -lmpi");
- strcpy(fmpi_inc, "-I../MPI_dummy");
- strcpy(cmpi_lib, "-L../MPI_dummy -lmpi");
- strcpy(cmpi_inc, "-I../MPI_dummy");
- }
}
-
(void) time(&t);
tmp = localtime(&t);
(void) strftime(compiletime, (size_t)LL, "%d %b %Y", tmp);
-
- switch(type) {
- case FT:
- case SP:
- case BT:
- case MG:
- case LU:
- //case EP:
- case CG:
- put_string(fp, "compiletime", compiletime);
- put_string(fp, "npbversion", VERSION);
- put_string(fp, "cs1", mpif77);
- put_string(fp, "cs2", flink);
- put_string(fp, "cs3", fmpi_lib);
- put_string(fp, "cs4", fmpi_inc);
- put_string(fp, "cs5", fflags);
- put_string(fp, "cs6", flinkflags);
- put_string(fp, "cs7", randfile);
- break;
- case IS:
- case EP:
- case DT:
- put_def_string(fp, "COMPILETIME", compiletime);
- put_def_string(fp, "NPBVERSION", VERSION);
- put_def_string(fp, "MPICC", mpicc);
- put_def_string(fp, "CFLAGS", cflags);
- put_def_string(fp, "CLINK", clink);
- put_def_string(fp, "CLINKFLAGS", clinkflags);
- put_def_string(fp, "CMPI_LIB", cmpi_lib);
- put_def_string(fp, "CMPI_INC", cmpi_inc);
- break;
- default:
- printf("setparams: (Internal error): Unknown benchmark type %d\n",
- type);
- exit(1);
- }
-
+ put_def_string(fp, "COMPILETIME", compiletime);
+ put_def_string(fp, "NPBVERSION", VERSION);
+ put_def_string(fp, "MPICC", mpicc);
+ put_def_string(fp, "CFLAGS", cflags);
+ put_def_string(fp, "CLINK", clink);
+ put_def_string(fp, "CLINKFLAGS", clinkflags);
+ put_def_string(fp, "CMPI_LIB", cmpi_lib);
+ put_def_string(fp, "CMPI_INC", cmpi_inc);
}
void check_line(char *line, char *label, char *val)
else return(1);
}
-
#define MAXL 46
void put_string(FILE *fp, char *name, char *val)
{
fprintf(fp, "#define %s %s\n", name, val);
}
-
-
#if 0
-
-/* this version allows arbitrarily long lines but
- * some compilers don't like that and they're rarely
- * useful
- */
+/* this version allows arbitrarily long lines but some compilers don't like that and they're rarely useful */
#define LINELEN 65
void put_string(FILE *fp, char *name, char *val)
else fprintf(fp, "\n");
}
}
-
#endif
-/* integer square root. Return error if argument isn't
- * a perfect square or is less than or equal to zero
- */
-
+/* integer square root. Return error if argument isn't a perfect square or is less than or equal to zero */
int isqrt(int i)
{
int root, square;
}
return(-1);
}
-
-
-/* integer log base two. Return error is argument isn't
- * a power of two or is less than or equal to zero
- */
+/* integer log base two. Return error is argument isn't a power of two or is less than or equal to zero */
int ilog2(int i)
{
int log2;
while(i--) pow2 *= 2;
return(pow2);
}
-
-
-
-void write_convertdouble_info(int type, FILE *fp)
-{
- switch(type) {
- case SP:
- case BT:
- case LU:
- case FT:
- case MG:
- //case EP:
- case CG:
- fprintf(fp, "%slogical convertdouble\n", FINDENT);
-#ifdef CONVERTDOUBLE
- fprintf(fp, "%sparameter (convertdouble = .true.)\n", FINDENT);
-#else
- fprintf(fp, "%sparameter (convertdouble = .false.)\n", FINDENT);
-#endif
- break;
- }
-}
