C***********************************************************
C             Test Program of MPI /  test-1
C
C                                H. Matsufuru  20 Jan 2000
C***********************************************************
      PROGRAM TEST1
C
      IMPLICIT REAL*8 (A-H, O-Z)
      INCLUDE 'mpif.h'
C----------Variables----------------------------------------
C------------Main-------------------------------------------
C
      CALL MPI_Init(ierr)
C
      CALL MPI_Comm_size(MPI_COMM_WORLD, Nproc, ierr)
      CALL MPI_Comm_rank(MPI_COMM_WORLD, Nid, ierr)
C
      IF(Nid.EQ.0) WRITE(*,*) ' Nproc = ',Nproc
C
      WRITE(*,*) 'Hello world ! from processor ', Nid
C
      CALL MPI_Finalize(ierr)
C
C-----------------------------------------------------------
      STOP
      END
C***********************************************************
C***************************************************END*****
