read_shared.f90

! -*- Mode: Fortran90; -*-
! 
!  (C) 2003 by Argonne National Laboratory.
!      See COPYRIGHT in top-level directory.
!
! DO NOT EDIT THIS FILE.  CREATED AUTOMATICALLY WITH TESTMERGE.
!
        program main
        use mpi
        integer maxfparm
        parameter (maxfparm=5)
        integer max_buffer
        parameter (max_buffer=65536)
        integer maxftype
        parameter (maxftype=3)
!
        integer comm, fh, ftype, itmp, fparm, n, b, i, k, r, s
        integer intsize
        integer errs, toterrs, err, ierr
        integer wrank, wsize
        character *(100) filename
        integer status(MPI_STATUS_SIZE)
        integer buf(MAX_BUFFER), ans
        integer src, dest
        errs = 0
        call MPI_Init( ierr )
        call mpi_comm_rank( MPI_COMM_WORLD, wrank, ierr )
        call mpi_comm_size( MPI_COMM_WORLD, wsize, ierr )
        call mpi_type_size( MPI_INTEGER, intsize, ierr )
	filename = "iotest.txt"
	comm = MPI_COMM_WORLD;  
	call mpi_comm_size( comm, s, ierr )
	call mpi_comm_rank( comm, r, ierr )
	n = 1
	b = 4000
! Now, open the same file for reading
	call mpi_file_open( comm, filename, MPI_MODE_RDWR +       &
& MPI_MODE_CREATE, MPI_INFO_NULL, fh, ierr )

	do k=1, b
	    call mpi_file_read_shared( fh, buf, n, MPI_INTEGER,   &
& status, ierr )
	enddo

	call mpi_file_close( fh, ierr )
	call mpi_barrier( comm, ierr )
        call mpi_finalize( ierr )
        end