include 'mpif.h'
      
      integer ierr    
      
      call MPI_Init(ierr) 
      
      WRITE(6,*)'Hello World'
      
      call MPI_Finalize(ierr)
      END