source/maxlik/src_FPy.org/simple.f

   1       subroutine simple(comm)
   2       include 'mpif.h'
   3
   4       integer comm, comm1, numtasks, rank, ierr, rc
   5       common /rownia/ comm1, numtasks, rank, ierr, rc
   6
   7
   8
   9 c      call MPI_INIT(ierr)
  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)
  13 c      end if
  14
  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
  18
  19       return
  20
  21       end subroutine
  22
  23       subroutine cwel
  24       include 'mpif.h'
  25       integer comm1, numtasks, rank, ierr, rc, sumrank
  26       common /rownia/ comm1, numtasks, rank, ierr, rc
  27       character glut
  28
  29       print *,"my rank",rank
  30
  31       call mpi_allreduce(rank,sumrank,1,MPI_INTEGER,MPI_SUM,comm1,ierr)
  32
  33       print *,"sumrank",sumrank," ierr",ierr
  34
  35       call getenv("SRUT",glut)
  36
  37       print *,"glut ",glut
  38
  39       call MPI_FINALIZE(ierr)
  40
  41       return
  42
  43       end