!Homework 8 Collectives with problem 2
!Programmer: Chad Brewbaker
!Email address: crb002@iastate.edu
!Date: Febuary 26, 2004
!Machine used: hpc-class.iastate.edu (Intel Xenon cluster)
!Compiler options used:


program
implicit none
integer, parameter :: n=3
integer::i,ierror
real*8,dimension(n)::A
include "mpif.h"
integer::p,rank,status(mpi_status_size)
call mpi_init(ierror)
call mpi_comm_size(mpi_comm_world,p,ierror)
call mpi_comm_rank(mpi_comm_world,rank,ierror)

if(rank==0)then
   do i=1,n
      A(i)=float(i)
   enddo
endif
call MPI_Bcast(A(1),n,MPI_REAL8,0,MPI_COMM_WORLD,ierror)
print *,  'On processor ',rank,' A= ',A

call MPI_Finalize(ierror)
end program

!!RESULTS
!!$ On processor            0  A=    1.00000000000000        2.00000000000000     
!!$   3.00000000000000     
!!$ On processor            3  A=    1.00000000000000        2.00000000000000     
!!$ On processor            1  A=    1.00000000000000        2.00000000000000     
!!$ On processor            2  A=    1.00000000000000        2.00000000000000     
!!$   3.00000000000000     
!!$   3.00000000000000     
!!$   3.00000000000000