trunk/runParallel/runParallel.c

#include "mpi.h"
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <dirent.h>


int main(int argc, char *argv[]){

  int myid,numprocs,i,rank;
  extern char **environ;
  char *newargv[] ={
    "/bin/echo",
    "Hey this now spews on multiple machines",
    NULL
  };
  MPI_Init(&argc,&argv);
  MPI_Comm_size(MPI_COMM_WORLD,&numprocs);
  MPI_Comm_rank(MPI_COMM_WORLD,&myid);

  for (rank = 0;rank<numprocs;rank++){
    if (rank == myid){
      execve(argv[0],newargv,environ);
    }
  }

  MPI_Finalize();


}
Revision:	2929
Committed:	Wed Jul 12 22:01:11 2006 UTC (19 years, 3 months ago) by chuckv
Content type:	text/plain
File size:	529 byte(s)
Log Message:	First commit of code to run multiple amber jobs in parallel
#	Content
1	#include "mpi.h"
2	#include <stdio.h>
3	#include <stdlib.h>
4	#include <unistd.h>
5	#include <dirent.h>
6
7
8
9
10	int main(int argc, char *argv[]){
11
12	int myid,numprocs,i,rank;
13	extern char **environ;
14	char *newargv[] ={
15	"/bin/echo",
16	"Hey this now spews on multiple machines",
17	NULL
18	};
19	MPI_Init(&argc,&argv);
20	MPI_Comm_size(MPI_COMM_WORLD,&numprocs);
21	MPI_Comm_rank(MPI_COMM_WORLD,&myid);
22
23	for (rank = 0;rank<numprocs;rank++){
24	if (rank == myid){
25	execve(argv[0],newargv,environ);
26	}
27	}
28
29	MPI_Finalize();
30
31
32	}