program ch3002
implicit none
integer :: I
character(len=20) :: name[*]='*****'
   print 10,name,this_image()
   10 format(1x,' Hello ', a20,' from image ',i3)
   if (this_image() == 1) then
      print *,' Type in your name'
      read *, name
      do i = 2, num_images()
        name[i] = name
      end do
   end if
   sync all
   print 10,name,this_image()
end program ch3002