comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-28 14:15:19 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

HDF5: initialize output_unit in wrapper

Browse source 
- Rely on cp_logger_get_default_io_unit()
This commit is contained in:
Hans Pabst 2026-02-05 09:51:12 +01:00
parent dbde302009
commit 63b8883d67
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/hdf5_wrapper.F
View file

@ -25,6 +25,7 @@ MODULE hdf5_wrapper
#endif
USE iso_c_binding, ONLY: C_LOC, &
c_ptr
USE cp_log_handling, ONLY: cp_logger_get_default_io_unit
USE kinds, ONLY: dp
#include "./base/base_uses.f90"
@ -172,6 +173,8 @@ CONTAINS
TYPE(c_ptr) :: buffer
TYPE(c_ptr), TARGET :: in_between_ptr
output_unit = cp_logger_get_default_io_unit()
! create a scalar dataspace
CALL h5screate_f(h5s_scalar_f, space_id, error)
IF (error < 0) THEN
@ -248,6 +251,8 @@ CONTAINS
INTEGER(KIND=hid_t) :: attr_id, space_id, type_id
TYPE(c_ptr) :: buffer
output_unit = cp_logger_get_default_io_unit()
! create a scalar dataspace
CALL h5screate_f(h5s_scalar_f, space_id, error)
IF (error < 0) THEN
@ -322,6 +327,8 @@ CONTAINS
INTEGER, TARGET :: attr_data_to_int
TYPE(c_ptr) :: buffer
output_unit = cp_logger_get_default_io_unit()
! 8-bit integers in enum bool_type
! create a scalar dataspace
@ -402,6 +409,8 @@ CONTAINS
INTEGER(KIND=hid_t) :: attr_id, space_id, type_id
TYPE(c_ptr) :: buffer
output_unit = cp_logger_get_default_io_unit()
! create a scalar dataspace
CALL h5screate_f(h5s_scalar_f, space_id, error)
IF (error < 0) THEN