2 integer rank, nprocs, len
3 character(MPI_MAX_PROCESSOR_NAME) name
5 call MPI_Init(argc,argv,ierr)
6 call MPI_Comm_size(MPI_COMM_WORLD,nprocs,ierr)
7 call MPI_Comm_rank(MPI_COMM_WORLD,rank,ierr)
8 call MPI_Get_processor_name(name, len,ierr)
9 print *,"Hello, world. I am",rank," of ",nprocs," on ",
11 call MPI_Finalize(ierr)