hello_world_mpi_openmp.c
No OneTemporary
Actions

Subscribers

None

File Metadata

	#include <stdio.h>
	#include <mpi.h>
	#include <omp.h>

	int main(int argc, char *argv[]) {
	int numprocs, rank, namelen;
	int * provided;
	char processor_name[MPI_MAX_PROCESSOR_NAME];
	int iam = 0, np = 1;
	MPI_Init_thread(&argc, &argv,MPI_THREAD_SINGLE,provided);
	MPI_Comm_size(MPI_COMM_WORLD, &numprocs);
	MPI_Comm_rank(MPI_COMM_WORLD, &rank);
	#pragma omp parallel default(shared) private(iam, np)
	{
	np = omp_get_num_threads();
	iam = omp_get_thread_num();
	printf("Hello from thread %d out of %d from process %d out of %d on\n",iam, np, rank, numprocs);
	}
	MPI_Finalize();
	}