diff options
author | Allen Byrne <50328838+byrnHDF@users.noreply.github.com> | 2023-11-10 13:36:46 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2023-11-10 13:36:46 (GMT) |
commit | 66786fa036fa6da86c56725808c3d82d48a89b0e (patch) | |
tree | 5de41a8e066d52c2b9eee37a3d6e258728f73df5 /fortran/examples | |
parent | e0d095ebf020706ec7d7c82e6674b18f1a0a2d5b (diff) | |
download | hdf5-66786fa036fa6da86c56725808c3d82d48a89b0e.zip hdf5-66786fa036fa6da86c56725808c3d82d48a89b0e.tar.gz hdf5-66786fa036fa6da86c56725808c3d82d48a89b0e.tar.bz2 |
Add intel oneapi windows build to CI CMake (#3836)
Diffstat (limited to 'fortran/examples')
-rw-r--r-- | fortran/examples/ph5example.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/examples/ph5example.f90 b/fortran/examples/ph5example.f90 index 138969e..29423b3 100644 --- a/fortran/examples/ph5example.f90 +++ b/fortran/examples/ph5example.f90 @@ -24,7 +24,7 @@ CHARACTER(LEN=8), PARAMETER :: dsetname = "IntArray" ! Dataset name CHARACTER(LEN=100) :: filename ! File name - INTEGER :: fnamelen ! File name length + INTEGER :: fnamelen ! File name length INTEGER(HID_T) :: file_id ! File identifier INTEGER(HID_T) :: dset_id ! Dataset identifier INTEGER(HID_T) :: filespace ! Dataspace identifier in file @@ -76,9 +76,9 @@ CALL get_environment_variable("HDF5_PARAPREFIX", filename) fnamelen = LEN_TRIM(filename) if ( fnamelen == 0 ) then - filename = default_fname + filename = default_fname else - filename = filename(1:fnamelen) // "/" // default_fname + filename = filename(1:fnamelen) // "/" // default_fname endif print *, "Using filename = ", filename |