[svn-r24864] Description:

    Remove all traces of MPI-POSIX VFD and GPFS detection/code.

    Remove remaining traces of stream VFD.

    Remove testpar/t_posix_compliant test (it's not actually verifying anything).

    Clean up H5D__mpio_opt_possible() further.

    Moved environment variable that disables MPI collective operations into
MPI-IO VFD (instead of it being in src/H5S.c).

    A few other small code cleanups.

Tested on:
    Mac OSX/64 10.9.2 (amazon) w/parallel & serial

1 files changed, 0 insertions, 114 deletions

diff --git a/testpar/t_ph5basic.c b/testpar/t_ph5basic.c
index 1e5d3b3..76eeaef 100644
--- a/testpar/t_ph5basic.c
+++ b/testpar/t_ph5basic.c
@@ -191,117 +191,3 @@ test_fapl_mpio_dup(void)
     }
 }
 
-
-/*-------------------------------------------------------------------------
- * Function:    test_fapl_mpiposix_dup
- *
- * Purpose:     Test if fapl_mpiposix property list keeps a duplicate of the
- * 		communicator object given when set; and returns a duplicate
- * 		of its component when H5Pget_fapl_mpiposix is called.
- * 		Note that fapl_mpiposix does not use INFO object.
- *
- * Return:      Success:        None
- *
- *              Failure:        Abort
- *
- * Programmer:  Albert Cheng
- *              January 9, 2003
- *
- * Modifications:
- *-------------------------------------------------------------------------
- */
-void
-test_fapl_mpiposix_dup(void)
-{
-    int mpi_size, mpi_rank;
-    MPI_Comm comm, comm_tmp;
-    int mpi_size_old, mpi_rank_old;
-    int mpi_size_tmp, mpi_rank_tmp;
-    int mrc;			/* MPI return value */
-    hid_t acc_pl;		/* File access properties */
-    hbool_t use_gpfs = FALSE;
-    herr_t ret;			/* hdf5 return value */
-
-    if (VERBOSE_MED)
-	printf("Verify fapl_mpiposix duplicates communicator object\n");
-
-    /* set up MPI parameters */
-    MPI_Comm_size(MPI_COMM_WORLD,&mpi_size);
-    MPI_Comm_rank(MPI_COMM_WORLD,&mpi_rank);
-    if (VERBOSE_MED)
-	printf("rank/size of MPI_COMM_WORLD are %d/%d\n", mpi_rank, mpi_size);
-
-    /* Create a new communicator that has the same processes as MPI_COMM_WORLD.
-     * Use MPI_Comm_split because it is simplier than MPI_Comm_create
-     */
-    mrc = MPI_Comm_split(MPI_COMM_WORLD, 0, 0, &comm);
-    VRFY((mrc==MPI_SUCCESS), "MPI_Comm_split");
-    MPI_Comm_size(comm,&mpi_size_old);
-    MPI_Comm_rank(comm,&mpi_rank_old);
-    if (VERBOSE_MED)
-	printf("rank/size of comm are %d/%d\n", mpi_rank_old, mpi_size_old);
-
-    acc_pl = H5Pcreate (H5P_FILE_ACCESS);
-    VRFY((acc_pl >= 0), "H5P_FILE_ACCESS");
-
-    ret = H5Pset_fapl_mpiposix(acc_pl, comm, use_gpfs);
-    VRFY((ret >= 0), "");
-
-    /* Case 1:
-     * Free the created communicator object.
-     * Check if the access property list is still valid and can return
-     * valid communicator object.
-     */
-    mrc = MPI_Comm_free(&comm);
-    VRFY((mrc==MPI_SUCCESS), "MPI_Comm_free");
-
-    ret = H5Pget_fapl_mpiposix(acc_pl, &comm_tmp, &use_gpfs);
-    VRFY((ret >= 0), "H5Pget_fapl_mpiposix");
-    MPI_Comm_size(comm_tmp,&mpi_size_tmp);
-    MPI_Comm_rank(comm_tmp,&mpi_rank_tmp);
-    if (VERBOSE_MED)
-	printf("After H5Pget_fapl_mpiposix: rank/size of comm are %d/%d\n",
-	mpi_rank_tmp, mpi_size_tmp);
-    VRFY((mpi_size_tmp==mpi_size), "MPI_Comm_size");
-    VRFY((mpi_rank_tmp==mpi_rank), "MPI_Comm_rank");
-
-    /* Case 2:
-     * Free the retrieved communicator object.
-     * Check if the access property list is still valid and can return
-     * valid communicator object.
-     * Also verify the NULL argument option.
-     */
-    mrc = MPI_Comm_free(&comm_tmp);
-    VRFY((mrc==MPI_SUCCESS), "MPI_Comm_free");
-
-    /* check NULL argument options. */
-    ret = H5Pget_fapl_mpiposix(acc_pl, NULL, NULL);
-    VRFY((ret >= 0), "H5Pget_fapl_mpiposix neither");
-
-    /* now get it again and check validity too. */
-    /* Don't free the returned object which is used in the next case. */
-    ret = H5Pget_fapl_mpiposix(acc_pl, &comm_tmp, &use_gpfs);
-    VRFY((ret >= 0), "H5Pget_fapl_mpiposix");
-    MPI_Comm_size(comm_tmp,&mpi_size_tmp);
-    MPI_Comm_rank(comm_tmp,&mpi_rank_tmp);
-    if (VERBOSE_MED)
-	printf("After second H5Pget_fapl_mpiposix: rank/size of comm are %d/%d\n",
-	mpi_rank_tmp, mpi_size_tmp);
-    VRFY((mpi_size_tmp==mpi_size), "MPI_Comm_size");
-    VRFY((mpi_rank_tmp==mpi_rank), "MPI_Comm_rank");
-
-    /* Case 3:
-     * Close the property list and verify the retrieved communicator
-     * object is still valid.
-     */
-    H5Pclose(acc_pl);
-    MPI_Comm_size(comm_tmp,&mpi_size_tmp);
-    MPI_Comm_rank(comm_tmp,&mpi_rank_tmp);
-    if (VERBOSE_MED)
-	printf("After Property list closed: rank/size of comm are %d/%d\n",
-	mpi_rank_tmp, mpi_size_tmp);
-
-    /* clean up */
-    mrc = MPI_Comm_free(&comm_tmp);
-    VRFY((mrc==MPI_SUCCESS), "MPI_Comm_free");
-}