1 subroutine simple(comm)
4 integer comm, comm1, numtasks, rank, ierr, rc
5 common /rownia/ comm1, numtasks, rank, ierr, rc
10 c if (ierr .ne. MPI_SUCCESS) then
11 c print *,'Error starting MPI program. Terminating.'
12 c call MPI_ABORT(MPI_COMM_WORLD, rc, ierr)
15 call MPI_COMM_RANK(comm, rank, ierr)
16 call MPI_COMM_SIZE(comm, numtasks, ierr)
17 print *, 'Number of tasks=',numtasks,' My rank=',rank
25 integer comm1, numtasks, rank, ierr, rc, sumrank
26 common /rownia/ comm1, numtasks, rank, ierr, rc
29 print *,"my rank",rank
31 call mpi_allreduce(rank,sumrank,1,MPI_INTEGER,MPI_SUM,comm1,ierr)
33 print *,"sumrank",sumrank," ierr",ierr
35 call getenv("SRUT",glut)
39 call MPI_FINALIZE(ierr)