55! > @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
66! > @author Philip Eisenlohr, Michigan State University
77!- -------------------------------------------------------------------------------------------------
8+ #ifdef PETSC
9+ #include < petsc/finclude/petscsys.h>
10+ #endif
811module HDF5_utilities
912 use IO
1013 use HDF5
1114#ifdef PETSC
12- #include < petsc/finclude/petscsys.h>
1315 use PETScSys
1416#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY
1517 use MPI_f08
@@ -659,7 +661,7 @@ end subroutine HDF5_setLink
659661
660662
661663!- -------------------------------------------------------------------------------------------------
662- ! > @brief read dataset of type real with 1 dimension
664+ ! > @brief Read dataset of type real with 1 dimension.
663665!- -------------------------------------------------------------------------------------------------
664666subroutine HDF5_read_real1 (dataset ,loc_id ,datasetName ,parallel )
665667
@@ -693,7 +695,7 @@ subroutine HDF5_read_real1(dataset,loc_id,datasetName,parallel)
693695end subroutine HDF5_read_real1
694696
695697!- -------------------------------------------------------------------------------------------------
696- ! > @brief read dataset of type real with 2 dimensions
698+ ! > @brief Read dataset of type real with 2 dimensions.
697699!- -------------------------------------------------------------------------------------------------
698700subroutine HDF5_read_real2 (dataset ,loc_id ,datasetName ,parallel )
699701
@@ -727,7 +729,7 @@ subroutine HDF5_read_real2(dataset,loc_id,datasetName,parallel)
727729end subroutine HDF5_read_real2
728730
729731!- -------------------------------------------------------------------------------------------------
730- ! > @brief read dataset of type real with 2 dimensions
732+ ! > @brief Read dataset of type real with 2 dimensions.
731733!- -------------------------------------------------------------------------------------------------
732734subroutine HDF5_read_real3 (dataset ,loc_id ,datasetName ,parallel )
733735
@@ -761,7 +763,7 @@ subroutine HDF5_read_real3(dataset,loc_id,datasetName,parallel)
761763end subroutine HDF5_read_real3
762764
763765!- -------------------------------------------------------------------------------------------------
764- ! > @brief read dataset of type real with 4 dimensions
766+ ! > @brief Read dataset of type real with 4 dimensions.
765767!- -------------------------------------------------------------------------------------------------
766768subroutine HDF5_read_real4 (dataset ,loc_id ,datasetName ,parallel )
767769
@@ -796,7 +798,7 @@ subroutine HDF5_read_real4(dataset,loc_id,datasetName,parallel)
796798end subroutine HDF5_read_real4
797799
798800!- -------------------------------------------------------------------------------------------------
799- ! > @brief read dataset of type real with 5 dimensions
801+ ! > @brief Read dataset of type real with 5 dimensions.
800802!- -------------------------------------------------------------------------------------------------
801803subroutine HDF5_read_real5 (dataset ,loc_id ,datasetName ,parallel )
802804
@@ -832,7 +834,7 @@ end subroutine HDF5_read_real5
832834
833835
834836!- -------------------------------------------------------------------------------------------------
835- ! > @brief read dataset of type integer with 1 dimension
837+ ! > @brief Read dataset of type integer with 1 dimension.
836838!- -------------------------------------------------------------------------------------------------
837839subroutine HDF5_read_int1 (dataset ,loc_id ,datasetName ,parallel )
838840
@@ -866,7 +868,7 @@ subroutine HDF5_read_int1(dataset,loc_id,datasetName,parallel)
866868end subroutine HDF5_read_int1
867869
868870!- -------------------------------------------------------------------------------------------------
869- ! > @brief read dataset of type integer with 2 dimensions
871+ ! > @brief Read dataset of type integer with 2 dimensions.
870872!- -------------------------------------------------------------------------------------------------
871873subroutine HDF5_read_int2 (dataset ,loc_id ,datasetName ,parallel )
872874
@@ -901,7 +903,7 @@ subroutine HDF5_read_int2(dataset,loc_id,datasetName,parallel)
901903end subroutine HDF5_read_int2
902904
903905!- -------------------------------------------------------------------------------------------------
904- ! > @brief read dataset of type integer with 3 dimensions
906+ ! > @brief Read dataset of type integer with 3 dimensions.
905907!- -------------------------------------------------------------------------------------------------
906908subroutine HDF5_read_int3 (dataset ,loc_id ,datasetName ,parallel )
907909
@@ -921,8 +923,8 @@ subroutine HDF5_read_int3(dataset,loc_id,datasetName,parallel)
921923 myShape = int (shape (dataset),HSIZE_T)
922924
923925 call initialize_read(dset_id,filespace_id,memspace_id,plist_id,aplist_id, &
924- myStart,totalShape,loc_id,myShape,datasetName, &
925- misc_optional(parallel,parallel_default))
926+ myStart,totalShape,loc_id,myShape,datasetName, &
927+ misc_optional(parallel,parallel_default))
926928
927929 if (any (totalShape == 0 )) return
928930
@@ -935,7 +937,7 @@ subroutine HDF5_read_int3(dataset,loc_id,datasetName,parallel)
935937end subroutine HDF5_read_int3
936938
937939!- -------------------------------------------------------------------------------------------------
938- ! > @brief read dataset of type integer withh 4 dimensions
940+ ! > @brief Read dataset of type integer with 4 dimensions.
939941!- -------------------------------------------------------------------------------------------------
940942subroutine HDF5_read_int4 (dataset ,loc_id ,datasetName ,parallel )
941943
@@ -955,8 +957,8 @@ subroutine HDF5_read_int4(dataset,loc_id,datasetName,parallel)
955957 myShape = int (shape (dataset),HSIZE_T)
956958
957959 call initialize_read(dset_id,filespace_id,memspace_id,plist_id,aplist_id, &
958- myStart,totalShape,loc_id,myShape,datasetName, &
959- misc_optional(parallel,parallel_default))
960+ myStart,totalShape,loc_id,myShape,datasetName, &
961+ misc_optional(parallel,parallel_default))
960962
961963 if (any (totalShape == 0 )) return
962964
@@ -969,7 +971,7 @@ subroutine HDF5_read_int4(dataset,loc_id,datasetName,parallel)
969971end subroutine HDF5_read_int4
970972
971973!- -------------------------------------------------------------------------------------------------
972- ! > @brief read dataset of type integer with 5 dimensions
974+ ! > @brief Read dataset of type integer with 5 dimensions.
973975!- -------------------------------------------------------------------------------------------------
974976subroutine HDF5_read_int5 (dataset ,loc_id ,datasetName ,parallel )
975977
@@ -989,8 +991,8 @@ subroutine HDF5_read_int5(dataset,loc_id,datasetName,parallel)
989991 myShape = int (shape (dataset),HSIZE_T)
990992
991993 call initialize_read(dset_id,filespace_id,memspace_id,plist_id,aplist_id, &
992- myStart,totalShape,loc_id,myShape,datasetName, &
993- misc_optional(parallel,parallel_default))
994+ myStart,totalShape,loc_id,myShape,datasetName, &
995+ misc_optional(parallel,parallel_default))
994996
995997 if (any (totalShape == 0 )) return
996998
@@ -1736,7 +1738,7 @@ subroutine initialize_write(dset_id, filespace_id, memspace_id, plist_id, &
17361738 call H5Sselect_hyperslab_f(filespace_id, H5S_SELECT_SET_F, myStart, localShape, hdferr)
17371739 call HDF5_chkerr(hdferr,__FILE__// ' :' // IO_intAsStr(__LINE__))
17381740
1739- call H5Pclose_f(dcpl , hdferr)
1741+ call H5Pclose_f(dcpl, hdferr)
17401742 call HDF5_chkerr(hdferr,__FILE__// ' :' // IO_intAsStr(__LINE__))
17411743
17421744 contains
0 commit comments