diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-10-01 00:41:00 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-10-01 00:41:00 (GMT) |
| commit | 2041f537e60c56ac9111229d50aacba25062603e (patch) | |
| tree | d40fc1852099bf1a886d89fed9a4fd6029ea9040 /fortran/test/t.c | |
| parent | cdb4e39a1390c666cb634a17b004abe9a492b0c2 (diff) | |
| download | hdf5-2041f537e60c56ac9111229d50aacba25062603e.zip hdf5-2041f537e60c56ac9111229d50aacba25062603e.tar.gz hdf5-2041f537e60c56ac9111229d50aacba25062603e.tar.bz2 | |
[svn-r15742] Maintenance: Merged new Fortran Features and tests from trunk into hdf5_1_8 branch
(used svn merge -r 14941:15740 http://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran
command).
Diffstat (limited to 'fortran/test/t.c')
| -rw-r--r-- | fortran/test/t.c | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/fortran/test/t.c b/fortran/test/t.c index de450f9..861a3e7 100644 --- a/fortran/test/t.c +++ b/fortran/test/t.c @@ -129,3 +129,22 @@ nh5_exit_c(int_f *status) HDexit((int)*status); } /* h5_exit_c */ +/*---------------------------------------------------------------------------- + * Name: h5_env_nocleanup_c + * Purpose: Determines the state of the environment variable HDF5_NOCLEANUP + * Input: none + * Output: status: 1 - HDF5_NOCLEANUP is set + * 0 - HDF5_NOCLEANUP is not set + * Returns: none + * Programmer: M.S. Breitenfeld + * September 30, 3008 + * Modifications: + *---------------------------------------------------------------------------*/ +void +nh5_env_nocleanup_c(int_f *status) +{ + *status = (int_f)0; + if (HDgetenv("HDF5_NOCLEANUP")) + *status = (int_f)1; +} /* h5_env_nocleanup_c */ + |