Radio va Mobil aloqa

using namespace std; 
#include  
#include  
int main (int nargs, char* args[]) 
{ 
int numprocs, my_rank; 
// MPI initializations 
MPI_Init (&nargs, &args); 
MPI_Comm_size (MPI_COMM_WORLD, &numprocs); 
MPI_Comm_rank (MPI_COMM_WORLD, &my_rank); 
cout << "Hello world, I have rank " << my_rank << " out of "
<< numprocs << endl; 
// End MPI 
MPI_Finalize (); 
 

---

Fortran 
PROGRAM hello 
INCLUDE "mpif.h" 
INTEGER:: size, my_rank, ierr 

CALL MPI_INIT(ierr) 
CALL MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierr) 
CALL MPI_COMM_RANK(MPI_COMM_WORLD, my_rank, ierr) 
WRITE(*,*)"Hello world, I've rank ",my_rank," out of ",size 
CALL MPI_FINALIZE(ierr) 

END PROGRAM hello