source/maxlik/src_MD_T_maxlik-NEWCORR-PMF/test.f

   1       program main
   2       include "mpif.h"
   3       integer rank, size, RESULTLEN
   4       integer argc
   5       character *4 argv
   6       character(MPI_MAX_PROCESSOR_NAME) name
   7       call MPI_Init( ierr );
   8       call MPI_Comm_rank( MPI_COMM_WORLD, rank, ierr )
   9       call MPI_Comm_size( MPI_COMM_WORLD, size, ierr )
  10       print 10, rank, size
  11       call MPI_GET_PROCESSOR_NAME( NAME, RESULTLEN, IERR)
  12       print *,"My name is ",NAME(:RESULTLEN)
  13       call MPI_Finalize(ierr);
  14    10 format("Hello world! I'm",i3," of",i3)
  15       return
  16       end