[svn-r10130] Purpose:

Retired GASS driver.

Platforms tested:
H5committested.

5 files changed, 29 insertions, 620 deletions

diff --git a/test/Makefile.am b/test/Makefile.am
index 6e03e3d..9744c54 100644
--- a/test/Makefile.am
+++ b/test/Makefile.am
@@ -30,7 +30,7 @@ check_SCRIPTS = $(TEST_SCRIPT)
 # executed, generally most specific tests to least specific tests.
 TEST_PROG=testhdf5 lheap ohdr stab gheap cache hyperslab istore bittests     \
            dtypes dsets cmpd_dset extend external links unlink big mtime     \
-           fillval mount flush1 flush2 enum gass_write gass_read gass_append \
+           fillval mount flush1 flush2 enum \
            set_extent srb_write srb_append srb_read ttsafe stream_test       \
            getname file_handle ntypes dangle dtransform filename reserved    \
            btree2
diff --git a/test/Makefile.in b/test/Makefile.in
index fd638c9..568488b 100644
--- a/test/Makefile.in
+++ b/test/Makefile.in
@@ -200,7 +200,7 @@ check_SCRIPTS = $(TEST_SCRIPT)
 # executed, generally most specific tests to least specific tests.
 TEST_PROG = testhdf5 lheap ohdr stab gheap cache hyperslab istore bittests     \
            dtypes dsets cmpd_dset extend external links unlink big mtime     \
-           fillval mount flush1 flush2 enum gass_write gass_read gass_append \
+           fillval mount flush1 flush2 enum \
            set_extent srb_write srb_append srb_read ttsafe stream_test       \
            getname file_handle ntypes dangle dtransform filename reserved    \
            btree2
@@ -283,8 +283,7 @@ check_PROGRAMS = testhdf5$(EXEEXT) lheap$(EXEEXT) ohdr$(EXEEXT) \
 	dsets$(EXEEXT) cmpd_dset$(EXEEXT) extend$(EXEEXT) \
 	external$(EXEEXT) links$(EXEEXT) unlink$(EXEEXT) big$(EXEEXT) \
 	mtime$(EXEEXT) fillval$(EXEEXT) mount$(EXEEXT) flush1$(EXEEXT) \
-	flush2$(EXEEXT) enum$(EXEEXT) gass_write$(EXEEXT) \
-	gass_read$(EXEEXT) gass_append$(EXEEXT) set_extent$(EXEEXT) \
+	flush2$(EXEEXT) enum$(EXEEXT) set_extent$(EXEEXT) \
 	srb_write$(EXEEXT) srb_append$(EXEEXT) srb_read$(EXEEXT) \
 	ttsafe$(EXEEXT) stream_test$(EXEEXT) getname$(EXEEXT) \
 	file_handle$(EXEEXT) ntypes$(EXEEXT) dangle$(EXEEXT) \
@@ -386,21 +385,6 @@ flush2_OBJECTS = flush2.$(OBJEXT)
 flush2_LDADD = $(LDADD)
 flush2_DEPENDENCIES = libh5test.la $(top_builddir)/src/libhdf5.la
 flush2_LDFLAGS =
-gass_append_SOURCES = gass_append.c
-gass_append_OBJECTS = gass_append.$(OBJEXT)
-gass_append_LDADD = $(LDADD)
-gass_append_DEPENDENCIES = libh5test.la $(top_builddir)/src/libhdf5.la
-gass_append_LDFLAGS =
-gass_read_SOURCES = gass_read.c
-gass_read_OBJECTS = gass_read.$(OBJEXT)
-gass_read_LDADD = $(LDADD)
-gass_read_DEPENDENCIES = libh5test.la $(top_builddir)/src/libhdf5.la
-gass_read_LDFLAGS =
-gass_write_SOURCES = gass_write.c
-gass_write_OBJECTS = gass_write.$(OBJEXT)
-gass_write_LDADD = $(LDADD)
-gass_write_DEPENDENCIES = libh5test.la $(top_builddir)/src/libhdf5.la
-gass_write_LDFLAGS =
 getname_SOURCES = getname.c
 getname_OBJECTS = getname.$(OBJEXT)
 getname_LDADD = $(LDADD)
@@ -530,28 +514,26 @@ am__depfiles_maybe = depfiles
 @AMDEP_TRUE@	./$(DEPDIR)/extend.Po ./$(DEPDIR)/external.Po \
 @AMDEP_TRUE@	./$(DEPDIR)/file_handle.Po ./$(DEPDIR)/filename.Po \
 @AMDEP_TRUE@	./$(DEPDIR)/fillval.Po ./$(DEPDIR)/flush1.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/flush2.Po ./$(DEPDIR)/gass_append.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/gass_read.Po ./$(DEPDIR)/gass_write.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/getname.Po ./$(DEPDIR)/gheap.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/h5test.Plo ./$(DEPDIR)/hyperslab.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/istore.Po ./$(DEPDIR)/lheap.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/links.Po ./$(DEPDIR)/mount.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/mtime.Po ./$(DEPDIR)/ntypes.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/ohdr.Po ./$(DEPDIR)/reserved.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/set_extent.Po ./$(DEPDIR)/srb_append.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/srb_read.Po ./$(DEPDIR)/srb_write.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/stab.Po ./$(DEPDIR)/stream_test.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/tarray.Po ./$(DEPDIR)/tattr.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/tconfig.Po ./$(DEPDIR)/testframe.Plo \
-@AMDEP_TRUE@	./$(DEPDIR)/testhdf5.Po ./$(DEPDIR)/testmeta.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/tfile.Po ./$(DEPDIR)/tgenprop.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/th5s.Po ./$(DEPDIR)/theap.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/tid.Po ./$(DEPDIR)/titerate.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/tmeta.Po ./$(DEPDIR)/tmisc.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/trefer.Po ./$(DEPDIR)/trefstr.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/tselect.Po ./$(DEPDIR)/tskiplist.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/ttime.Po ./$(DEPDIR)/ttsafe.Po \
-@AMDEP_TRUE@	./$(DEPDIR)/ttsafe_acreate.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/flush2.Po ./$(DEPDIR)/getname.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/gheap.Po ./$(DEPDIR)/h5test.Plo \
+@AMDEP_TRUE@	./$(DEPDIR)/hyperslab.Po ./$(DEPDIR)/istore.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/lheap.Po ./$(DEPDIR)/links.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/mount.Po ./$(DEPDIR)/mtime.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/ntypes.Po ./$(DEPDIR)/ohdr.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/reserved.Po ./$(DEPDIR)/set_extent.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/srb_append.Po ./$(DEPDIR)/srb_read.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/srb_write.Po ./$(DEPDIR)/stab.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/stream_test.Po ./$(DEPDIR)/tarray.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/tattr.Po ./$(DEPDIR)/tconfig.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/testframe.Plo ./$(DEPDIR)/testhdf5.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/testmeta.Po ./$(DEPDIR)/tfile.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/tgenprop.Po ./$(DEPDIR)/th5s.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/theap.Po ./$(DEPDIR)/tid.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/titerate.Po ./$(DEPDIR)/tmeta.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/tmisc.Po ./$(DEPDIR)/trefer.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/trefstr.Po ./$(DEPDIR)/tselect.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/tskiplist.Po ./$(DEPDIR)/ttime.Po \
+@AMDEP_TRUE@	./$(DEPDIR)/ttsafe.Po ./$(DEPDIR)/ttsafe_acreate.Po \
 @AMDEP_TRUE@	./$(DEPDIR)/ttsafe_cancel.Po \
 @AMDEP_TRUE@	./$(DEPDIR)/ttsafe_dcreate.Po \
 @AMDEP_TRUE@	./$(DEPDIR)/ttsafe_error.Po ./$(DEPDIR)/ttst.Po \
@@ -568,14 +550,13 @@ CFLAGS = @CFLAGS@
 DIST_SOURCES = $(libh5test_la_SOURCES) big.c bittests.c btree2.c cache.c \
 	cmpd_dset.c dangle.c dsets.c dtransform.c dtypes.c enum.c \
 	err_compat.c error_test.c extend.c external.c file_handle.c \
-	filename.c fillval.c flush1.c flush2.c gass_append.c \
-	gass_read.c gass_write.c getname.c gheap.c hyperslab.c istore.c \
-	lheap.c links.c mount.c mtime.c ntypes.c ohdr.c reserved.c \
-	set_extent.c srb_append.c srb_read.c srb_write.c stab.c \
-	stream_test.c $(testhdf5_SOURCES) testmeta.c $(ttsafe_SOURCES) \
-	unlink.c
+	filename.c fillval.c flush1.c flush2.c getname.c gheap.c \
+	hyperslab.c istore.c lheap.c links.c mount.c mtime.c ntypes.c \
+	ohdr.c reserved.c set_extent.c srb_append.c srb_read.c \
+	srb_write.c stab.c stream_test.c $(testhdf5_SOURCES) testmeta.c \
+	$(ttsafe_SOURCES) unlink.c
 DIST_COMMON = Makefile.am Makefile.in
-SOURCES = $(libh5test_la_SOURCES) big.c bittests.c btree2.c cache.c cmpd_dset.c dangle.c dsets.c dtransform.c dtypes.c enum.c err_compat.c error_test.c extend.c external.c file_handle.c filename.c fillval.c flush1.c flush2.c gass_append.c gass_read.c gass_write.c getname.c gheap.c hyperslab.c istore.c lheap.c links.c mount.c mtime.c ntypes.c ohdr.c reserved.c set_extent.c srb_append.c srb_read.c srb_write.c stab.c stream_test.c $(testhdf5_SOURCES) testmeta.c $(ttsafe_SOURCES) unlink.c
+SOURCES = $(libh5test_la_SOURCES) big.c bittests.c btree2.c cache.c cmpd_dset.c dangle.c dsets.c dtransform.c dtypes.c enum.c err_compat.c error_test.c extend.c external.c file_handle.c filename.c fillval.c flush1.c flush2.c getname.c gheap.c hyperslab.c istore.c lheap.c links.c mount.c mtime.c ntypes.c ohdr.c reserved.c set_extent.c srb_append.c srb_read.c srb_write.c stab.c stream_test.c $(testhdf5_SOURCES) testmeta.c $(ttsafe_SOURCES) unlink.c
 
 all: all-am
 
@@ -661,15 +642,6 @@ flush1$(EXEEXT): $(flush1_OBJECTS) $(flush1_DEPENDENCIES)
 flush2$(EXEEXT): $(flush2_OBJECTS) $(flush2_DEPENDENCIES) 
 	@rm -f flush2$(EXEEXT)
 	$(LINK) $(flush2_LDFLAGS) $(flush2_OBJECTS) $(flush2_LDADD) $(LIBS)
-gass_append$(EXEEXT): $(gass_append_OBJECTS) $(gass_append_DEPENDENCIES) 
-	@rm -f gass_append$(EXEEXT)
-	$(LINK) $(gass_append_LDFLAGS) $(gass_append_OBJECTS) $(gass_append_LDADD) $(LIBS)
-gass_read$(EXEEXT): $(gass_read_OBJECTS) $(gass_read_DEPENDENCIES) 
-	@rm -f gass_read$(EXEEXT)
-	$(LINK) $(gass_read_LDFLAGS) $(gass_read_OBJECTS) $(gass_read_LDADD) $(LIBS)
-gass_write$(EXEEXT): $(gass_write_OBJECTS) $(gass_write_DEPENDENCIES) 
-	@rm -f gass_write$(EXEEXT)
-	$(LINK) $(gass_write_LDFLAGS) $(gass_write_OBJECTS) $(gass_write_LDADD) $(LIBS)
 getname$(EXEEXT): $(getname_OBJECTS) $(getname_DEPENDENCIES) 
 	@rm -f getname$(EXEEXT)
 	$(LINK) $(getname_LDFLAGS) $(getname_OBJECTS) $(getname_LDADD) $(LIBS)
@@ -759,9 +731,6 @@ distclean-compile:
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fillval.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/flush1.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/flush2.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gass_append.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gass_read.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gass_write.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/getname.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gheap.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/h5test.Plo@am__quote@
diff --git a/test/gass_append.c b/test/gass_append.c
deleted file mode 100644
index 5827a74..0000000
--- a/test/gass_append.c
+++ /dev/null
@@ -1,169 +0,0 @@
-/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- * Copyright by the Board of Trustees of the University of Illinois.         *
- * All rights reserved.                                                      *
- *                                                                           *
- * This file is part of HDF5.  The full HDF5 copyright notice, including     *
- * terms governing use, modification, and redistribution, is contained in    *
- * the files COPYING and Copyright.html.  COPYING can be found at the root   *
- * of the source code distribution tree; Copyright.html can be found at the  *
- * root level of an installed copy of the electronic HDF5 document set and   *
- * is linked from the top-level documents page.  It can also be found at     *
- * http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
- * access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
-
-/*
- * Programmer:  Saurabh Bagchi (bagchi@uiuc.edu)
- *              Wednesday, August 11, 1999.
- *
- * Modifications: Saurabh Bagchi (Aug 17, 1999)
- *                Modified to work with VFL (HDF51.3). 
- */
-
-/* Test the following functionality of the GASS driver. 
-   1. Open a remote file for append.
-   2. Create a new dataset within the file.
-   3. Create a local memory buffer to hold the data.
-   4. Write the local data to the remote dataset.
-*/
-#include "h5test.h"
-
-#ifndef H5_HAVE_GASS
-int main(void)
-{
-    printf("Test skipped because GASS driver not available\n");
-    return 0;
-}
-#else
-
-#ifdef hide
-
-#define URL    "ftp://gass:gass12@which/tmp/gass/junk.w"
-#define DATASETNAME "Int1Array"
-#define NX     5                      /* dataset dimensions */
-#define NY     6
-#define RANK   2
-
-int main (void)
-{
-
-  hid_t         fapl =-1, file;
-  hid_t         dataspace, datatype, dataset;
-  hsize_t       dimsf[2];
-  
-  herr_t        status = 0;
-  int           data[NX][NY];          /* data to write */
-  int           i, j;
-  GASS_Info     ginf;
-  
-  /* 
-   * Data  and output buffer initialization. 
-   */
-  for (j = 0; j < NX; j++) {
-    for (i = 0; i < NY; i++)
-      data[j][i] = i*i + j*j;
-  }     
-  /*
-   *  0   1  4  9 16 25 
-   *  1   2  5 10 17 26
-   *  4   5  8 13 20 29
-   *  9  10 13 18 25 34
-   * 16  17 20 25 32 41
-   */
-  
-  /* Create access property list and set the driver to GASS */
-  fapl = H5Pcreate (H5P_FILE_ACCESS);
-  if (fapl < 0) {
-    printf (" H5Pcreate failed. \n");
-    return -1;
-  }
- 
-  ginf.block_size = 0;
-  ginf.max_length =0;
-  /* ginf = GASS_INFO_NULL; */
-  
-  status = H5Pset_fapl_gass (fapl, ginf);
-  if (status < 0) {
-    printf ("H5Pset_fapl_gass failed. \n");
-    return -1;
-  }
-  
-  /*
-   * Open an existing file using H5F_ACC_RDWR access,
-   * and gass file access properties.
-   */
-  file = H5Fopen(URL, H5F_ACC_RDWR, fapl);
-  if (file < 0) {
-    printf ("H5Fopen failed. \n");
-    return -1;
-  }
-  
-  /*
-   * Describe the size of the array and create the data space for fixed
-   * size dataset. 
-   */
-  dimsf[0] = NX;
-  dimsf[1] = NY;
-    dataspace = H5Screate_simple(RANK, dimsf, NULL); 
-    if (dataspace < 0) {
-      printf ("H5Screate failed. \n");
-      return -1;
-    }
-
-    /* 
-     * Define datatype for the data in the file.
-     * We will store little endian INT numbers.
-     */
-    datatype = H5Tcopy(H5T_NATIVE_INT);
-    if (datatype < 0) {
-      printf ("H5Tcopy failed. \n");
-      return -1;
-    }
-    
-    status = H5Tset_order(datatype, H5T_ORDER_LE);
-    if (status < 0) {
-      printf ("H5Tset_order failed. \n");
-      return -1;
-    }
-
-    /*
-     * Create a new dataset within the file using defined dataspace and
-     * datatype and default dataset creation properties.
-     */
-    dataset = H5Dcreate(file, DATASETNAME, datatype, dataspace,
-			H5P_DEFAULT);
-    if (dataset < 0) {
-      printf ("H5Dcreate failed. \n");
-      return -1;
-    }
-
-    /*
-     * Write the data to the dataset using default transfer properties.
-     */
-    status = H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL,
-		      H5P_DEFAULT, data);
-    if (status < 0) {
-      printf ("H5Dwrite failed. \n");
-      return -1;
-    }
-
-    /*
-     * Close/release resources.
-     */
-    H5Sclose(dataspace);
-    H5Tclose(datatype);
-    H5Dclose(dataset);
-    H5Fclose(file);
-    H5Pclose(fapl);
-    
-    return 0;
-}     
-
-#else
-int main(void)
-{
-    printf("Test skipped because append depends on web server!\n");
-    return 0;
-}
-#endif   
-#endif
diff --git a/test/gass_read.c b/test/gass_read.c
deleted file mode 100644
index 4e6e1e1..0000000
--- a/test/gass_read.c
+++ /dev/null
@@ -1,212 +0,0 @@
-/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- * Copyright by the Board of Trustees of the University of Illinois.         *
- * All rights reserved.                                                      *
- *                                                                           *
- * This file is part of HDF5.  The full HDF5 copyright notice, including     *
- * terms governing use, modification, and redistribution, is contained in    *
- * the files COPYING and Copyright.html.  COPYING can be found at the root   *
- * of the source code distribution tree; Copyright.html can be found at the  *
- * root level of an installed copy of the electronic HDF5 document set and   *
- * is linked from the top-level documents page.  It can also be found at     *
- * http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
- * access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
-
-/*
- * Programmer:  Saurabh Bagchi (bagchi@uiuc.edu)
- *              Wednesday, August 11, 1999.
- *
- * Modifications: Saurabh Bagchi (Aug 17, 1999)
- *                Modified to work with VFL (HDF51.3).
- */
-
-/* Test the following functionality of the GASS driver. 
-   1. Open a remote file for read (the dataset was written using gass_write.c).
-   2. Create a memory buffer to hold the dataset.
-   3. Read the dataset into the memory buffer.
-   4. Get some information about the dataset from the file.
-*/
-#include "h5test.h"
-#include <string.h>
-
-#ifndef H5_HAVE_GASS
-int main(void)
-{
-    printf("Test skipped because GASS driver not available\n");
-    return 0;
-}
-#else
-
-/*#define URL    "ftp://gass:gass12@which/tmp/gass/junk.w"*/
-/*#define URL    "http://paz.ncsa.uiuc.edu:8080/test/a.h5"*/
-#define URL    "http://hdf.ncsa.uiuc.edu/GLOBUS/a.h5"
-/* #define DATASETNAME "Int1Array"  */
-#define NX_SUB  3           /* hyperslab dimensions */ 
-#define NY_SUB  4 
-#define NX 7           /* output buffer dimensions */ 
-#define NY 7 
-#define NZ  3 
-#define RANK         2
-#define RANK_OUT     3
-
-int
-main (int argc, char **argv)
-{
-    hid_t       fapl =  -1, file, dataset;         /* handles */
-    char        DATASETNAME[32];
-    hid_t       datatype, dataspace;   
-    hid_t       memspace; 
-    H5T_class_t class;                 /* data type class */
-    H5T_order_t order;                 /* data order */
-    size_t      size;                  /*
-				        * size of the data element	       
-				        * stored in file
-				        */
-    hsize_t     dimsm[3];              /* memory space dimensions */
-    hsize_t     dims_out[2];           /* dataset dimensions */      
-    herr_t      status;                             
-
-    int         data_out[NX][NY][NZ ]; /* output buffer */
-   
-    hsize_t      count[2];              /* size of the hyperslab in the file */
-    hssize_t     offset[2];             /* hyperslab offset in the file */
-    hsize_t      count_out[3];          /* size of the hyperslab in memory */
-    hssize_t     offset_out[3];         /* hyperslab offset in memory */
-    int          i, j, k, status_n, rank;
-    GASS_Info    ginf;
-    
-    if (argc > 2) {
-      printf ("Incorrect command line. \n");
-      printf ("Correct command line: %s [DATASET NAME] \n", argv[0]);
-      printf ("The two datasets present in the file are: \"IntArray\" and "
-	      "\"Int1Array\"\n");
-      exit(1);
-    }
-    
-    printf ("Correct command line: %s [DATASET NAME] \n", argv[0]);
-    printf ("The two datasets present in the file are: \"IntArray\" and "
-	    "\"Int1Array\"\n");
-    printf ("Default dataset is IntArray. \n");
-    
-    if (argc == 1) 
-      strcpy (DATASETNAME, "IntArray");
-    else if (!strcmp(argv[1],"IntArray") || !strcmp(argv[1],"Int1Array"))
-      strcpy (DATASETNAME, argv[1]);
-    else
-      strcpy (DATASETNAME, "IntArray");
-    printf ("\n Reading dataset %s \n\n", DATASETNAME);
-    
-    for (j = 0; j < NX; j++) {
-	for (i = 0; i < NY; i++) {
-	    for (k = 0; k < NZ ; k++)
-		data_out[j][i][k] = 0;
-	}
-    } 
- 
-     /* Create access property list and set the driver to GASS */
-    fapl = H5Pcreate (H5P_FILE_ACCESS);
-    if (fapl < 0) {
-      printf (" H5Pcreate failed. \n");
-      return -1;
-    }
-    
-   
-    ginf.block_size = 0;
-    ginf.max_length =0;
-   
-    /* ginf = GASS_INFO_NULL; */
-    
-    status = H5Pset_fapl_gass (fapl, ginf);
-    if (status < 0) {
-      printf ("H5Pset_fapl_gass failed. \n");
-      return -1;
-    }
-
-    /*
-     * Open the file and the dataset.
-     */
-    file = H5Fopen(URL, H5F_ACC_RDONLY, fapl);
-    dataset = H5Dopen(file, DATASETNAME);
-
-    /*
-     * Get datatype and dataspace handles and then query
-     * dataset class, order, size, rank and dimensions.
-     */
-    datatype  = H5Dget_type(dataset);     /* datatype handle */ 
-    class     = H5Tget_class(datatype);
-    if (class == H5T_INTEGER) printf("Data set has INTEGER type \n");
-    order     = H5Tget_order(datatype);
-    if (order == H5T_ORDER_LE) printf("Little endian order \n");
-
-    size  = H5Tget_size(datatype);
-    printf(" Data size is %d \n", size);
-
-    dataspace = H5Dget_space(dataset);    /* dataspace handle */
-    rank      = H5Sget_simple_extent_ndims(dataspace);
-    status_n  = H5Sget_simple_extent_dims(dataspace, dims_out, NULL);
-    printf("rank %d, dimensions %lu x %lu \n", rank,
-	   (unsigned long)(dims_out[0]), (unsigned long)(dims_out[1]));
-
-    /* 
-     * Define hyperslab in the dataset. 
-     */
-    offset[0] = 1;
-    offset[1] = 2;
-    count[0]  = NX_SUB;
-    count[1]  = NY_SUB;
-    status = H5Sselect_hyperslab(dataspace, H5S_SELECT_SET, offset, NULL, 
-				 count, NULL);
-
-    /*
-     * Define the memory dataspace.
-     */
-    dimsm[0] = NX;
-    dimsm[1] = NY;
-    dimsm[2] = NZ ;
-    memspace = H5Screate_simple(RANK_OUT,dimsm,NULL);   
-
-    /* 
-     * Define memory hyperslab. 
-     */
-    offset_out[0] = 3;
-    offset_out[1] = 0;
-    offset_out[2] = 0;
-    count_out[0]  = NX_SUB;
-    count_out[1]  = NY_SUB;
-    count_out[2]  = 1;
-    status = H5Sselect_hyperslab(memspace, H5S_SELECT_SET, offset_out, NULL, 
-				 count_out, NULL);
-
-    /*
-     * Read data from hyperslab in the file into the hyperslab in 
-     * memory and display.
-     */
-    status = H5Dread(dataset, H5T_NATIVE_INT, memspace, dataspace,
-		     H5P_DEFAULT, data_out);
-    for (j = 0; j < NX; j++) {
-	for (i = 0; i < NY; i++) printf("%d ", data_out[j][i][0]);
-	printf("\n");
-    }
-    /*
-     * 0 0 0 0 0 0 0
-     * 0 0 0 0 0 0 0
-     * 0 0 0 0 0 0 0
-     * 3 4 5 6 0 0 0  
-     * 4 5 6 7 0 0 0
-     * 5 6 7 8 0 0 0
-     * 0 0 0 0 0 0 0
-     */
-
-    /*
-     * Close/release resources.
-     */
-    H5Tclose(datatype);
-    H5Dclose(dataset);
-    H5Sclose(dataspace);
-    H5Sclose(memspace);
-    H5Fclose(file);
-    H5Pclose(fapl);
-    
-    return 0;
-}     
-#endif
diff --git a/test/gass_write.c b/test/gass_write.c
deleted file mode 100644
index 6017224..0000000
--- a/test/gass_write.c
+++ /dev/null
@@ -1,179 +0,0 @@
-/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- * Copyright by the Board of Trustees of the University of Illinois.         *
- * All rights reserved.                                                      *
- *                                                                           *
- * This file is part of HDF5.  The full HDF5 copyright notice, including     *
- * terms governing use, modification, and redistribution, is contained in    *
- * the files COPYING and Copyright.html.  COPYING can be found at the root   *
- * of the source code distribution tree; Copyright.html can be found at the  *
- * root level of an installed copy of the electronic HDF5 document set and   *
- * is linked from the top-level documents page.  It can also be found at     *
- * http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
- * access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
-
-/*
- * Programmer:  Saurabh Bagchi (bagchi@uiuc.edu)
- *              Friday, August 6, 1999.
- *
- * Modifications: Saurabh Bagchi (Aug 17, 1999)
- *                Modified to work with VFL (HDF51.3). 
- */
-
-/* Test the following functionality of the GASS driver. 
-   1. Open a remote file for write.
-   2. Create a new dataset within the file.
-   3. Create a local memory buffer to hold the data.
-   4. Write the local data to the remote dataset.
-*/
-#include "h5test.h"
-
-#ifndef H5_HAVE_GASS
-int main(void)
-{
-    printf("Test skipped because GASS driver not available\n");
-    return 0;
-}
-#else
-
-#ifdef hide
-
-/*#define URL    "ftp://gass:gass12@which/tmp/gass/junk.w"*/   
-#define URL    "http://paz.ncsa.uiuc.edu:8080/test/put/test/b.h5"
-
-#define DATASETNAME "IntArray"
-#define NX     5                      /* dataset dimensions */
-#define NY     6
-#define RANK   2
-
-int main (void)
-{
-
-  hid_t         fapl =-1, file;
-  hid_t         dataspace, datatype, dataset;
-  hsize_t       dimsf[2];
-  
-  herr_t        status = 0;
-  int           data[NX][NY];          /* data to write */
-  int           i, j;
-  GASS_Info     ginf;
-  
-  /* 
-   * Data  and output buffer initialization. 
-   */
-  for (j = 0; j < NX; j++) {
-    for (i = 0; i < NY; i++)
-      data[j][i] = i + j;
-  }     
-  /*
-   * 0 1 2 3 4 5 
-   * 1 2 3 4 5 6
-   * 2 3 4 5 6 7
-   * 3 4 5 6 7 8
-   * 4 5 6 7 8 9
-   */
-  
-  /* Create access property list and set the driver to GASS */
-  fapl = H5Pcreate (H5P_FILE_ACCESS);
-  if (fapl < 0) {
-    printf (" H5Pcreate failed. \n");
-    return -1;
-  }
- 
-  ginf.block_size = 0;
-  ginf.max_length =0;
-  /* ginf = GASS_INFO_NULL;*/
-    
-  status = H5Pset_fapl_gass (fapl, ginf);
-  if (status < 0) {
-    printf ("H5Pset_fapl_gass failed. \n");
-    return -1;
-  }
-  
-  /*
-   * Create a new file using H5F_ACC_TRUNC access,
-   * default file creation properties, and gass file
-   * access properties.
-   */
-  /*
-  // file = H5Fcreate(URL, H5F_ACC_TRUNC, H5P_DEFAULT, fapl);
-  // Works. Truncates existing files.
-  // file = H5Fcreate(URL, H5F_ACC_EXCL, H5P_DEFAULT, fapl);
-  // Works. Croaks if existing file, else creates.
-  // Any other flag has no effect as long as one and exactly one of TRUNC/
-  // EXCL is there */
-  /* printf ("I'm here just before H5Fcreate. \n");*/
-  file = H5Fcreate(URL, H5F_ACC_TRUNC, H5P_DEFAULT, fapl);
-  if (file < 0) {
-    printf ("H5Fcreate failed. \n");
-    return -1;
-  }
-  
-  /*
-     * Describe the size of the array and create the data space for fixed
-     * size dataset. 
-     */
-    dimsf[0] = NX;
-    dimsf[1] = NY;
-    dataspace = H5Screate_simple(RANK, dimsf, NULL); 
-    if (dataspace < 0) {
-      printf ("H5Screate failed. \n");
-      return -1;
-    }
-
-    /* 
-     * Define datatype for the data in the file.
-     * We will store little endian INT numbers.
-     */
-    datatype = H5Tcopy(H5T_NATIVE_INT);
-    if (datatype < 0) {
-      printf ("H5Tcopy failed. \n");
-      return -1;
-    }
-    
-    status = H5Tset_order(datatype, H5T_ORDER_LE);
-    if (status < 0) {
-      printf ("H5Tset_order failed. \n");
-      return -1;
-    }
-
-    /*
-     * Create a new dataset within the file using defined dataspace and
-     * datatype and default dataset creation properties.
-     */
-    dataset = H5Dcreate(file, DATASETNAME, datatype, dataspace,
-			H5P_DEFAULT);
-    if (dataset < 0) {
-      printf ("H5Dcreate failed. \n");
-      return -1;
-    }
-
-    /*
-     * Write the data to the dataset using default transfer properties.
-     */
-    status = H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL,
-		      H5P_DEFAULT, data);
-    if (status < 0) {
-      printf ("H5Dwrite failed. \n");
-      return -1;
-    }
-
-    /*
-     * Close/release resources.
-     */
-    H5Sclose(dataspace);
-    H5Tclose(datatype);
-    H5Dclose(dataset);
-    H5Fclose(file);
-    H5Pclose(fapl);
-    
-    return 0;
-}
-#else 
-int main(void)
-{
-    printf("Test skipped because writing depends on web server!\n");
-    return 0;
-}
-#endif  
-#endif