← Back to branch summary

~ubuntu-branches/ubuntu/vivid/adios/vivid-proposed

« back to all changes in this revision

Viewing changes to examples/staging/stage_write/genarray_stream.F90

  • Committer: Package Import Robot
  • Author(s): Alastair McKinstry
  • Date: 2014-06-16 23:06:38 UTC
  • mfrom: (15.1.8 sid)
  • Revision ID: package-import@ubuntu.com-20140616230638-cxryhot6b8ge32l6
Tags: 1.7.0-1
* New upstream release.
* Add adios.pc pkgconfig file. adios_config now uses this.

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/staging/stage_write/genarray_stream.F90
70
70
    ! Have to split and create a 'world' communicator for genarray only
71
71
    color = 1
72
72
    !print *,"call MPI_split "
73
 
    !call MPI_Comm_split (MPI_COMM_WORLD, color, wrank, app_comm, ierr)
74
 
    call MPI_Comm_dup (MPI_COMM_WORLD, app_comm, ierr)
 
73
    call MPI_Barrier(MPI_COMM_WORLD, ierr);
 
74
    call MPI_Comm_split (MPI_COMM_WORLD, color, wrank, app_comm, ierr)
 
75
    !call MPI_Comm_dup (MPI_COMM_WORLD, app_comm, ierr)
75
76
    !print *,"call MPI_rank (app) "
76
77
    call MPI_Comm_rank (app_comm, rank, ierr)
77
78
    !print *,"call MPI_size (app) "
110
111
    ! Terminate
111
112
    call MPI_Barrier (app_comm, ierr)
112
113
    call adios_finalize (rank, ierr)
113
 
    call MPI_Barrier (MPI_COMM_WORLD, ierr)
 
114
    !call MPI_Barrier (MPI_COMM_WORLD, ierr)
114
115
    print *,"Writer calls MPI_Finalize"
115
116
    call MPI_Finalize (ierr)
116
117
    print *,"Exit writer code "