summaryrefslogtreecommitdiffstats
path: root/fortran/examples
diff options
context:
space:
mode:
authorAllen Byrne <50328838+byrnHDF@users.noreply.github.com>2023-11-10 13:36:46 (GMT)
committerGitHub <noreply@github.com>2023-11-10 13:36:46 (GMT)
commit66786fa036fa6da86c56725808c3d82d48a89b0e (patch)
tree5de41a8e066d52c2b9eee37a3d6e258728f73df5 /fortran/examples
parente0d095ebf020706ec7d7c82e6674b18f1a0a2d5b (diff)
downloadhdf5-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.f906
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