      parallel do i=1,n
        "local part of computation"
        call barrier()
        "use results computed by others"
      end parallel do
