/* mpdl info for jba */ #include "/app/lang/parallel/mpd/lib/mpd/mpdmulti.h" #include "/app/lang/parallel/mpd/lib/mpd/mpd.h" static char MPD_version[] = "MPD version 1.0.1, January 2004"; int mpd_max_co_stmts = 1000000; int mpd_max_classes = 1000000; int mpd_max_loops = 10000; int mpd_max_operations = 1000000; int mpd_max_processes = 1000000; int mpd_max_rmt_reqs = 1000000; int mpd_max_resources = 1000000; int mpd_max_semaphores = 1000000; int mpd_stack_size = 40000; int mpd_async_flag = 0; char mpd_exec_path[] = "/app/lang/parallel/mpd/lib/mpd/mpdx"; int N_Jacobi = 0; extern void R_Jacobi(), F_Jacobi(); int N_barriere = 1; extern void R_barriere(), F_barriere(); Rpat mpd_rpatt[] = { { "Jacobi", R_Jacobi, F_Jacobi }, { "barriere", R_barriere, F_barriere }, }; int mpd_num_rpats = 2;