Marc Howison
122e913f08
* read/write call variants for different datatypes * HDF5 properties tuned for lustre filesystems and the Cray XT (enabled using flags passed during file open) * HDF5 chunking for field data * HDF5 alignment (set during file open) * support for both HDF5 1.6 and 1.8 using #if statements * a new error reporting level: debug_detail (HDF5 errors are now printed at debug level 1 by default) These changes have undergone limited testing. I will begin using this version for my H5Part projects so that I can test it more thoroughly. ~Mark
117 lines
3.7 KiB
C++
117 lines
3.7 KiB
C++
|
|
INTERFACE
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_write_scalar_field_r8 ( filehandle, name, data )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
REAL*8, INTENT(IN) :: data(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_read_scalar_field_r8 ( filehandle, name, data )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
REAL*8, INTENT(OUT) :: data(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_write_3dvector_field_r8 ( filehandle, name, x, y, z )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
REAL*8, INTENT(IN) :: x(*)
|
|
REAL*8, INTENT(IN) :: y(*)
|
|
REAL*8, INTENT(IN) :: z(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_read_3dvector_field_r8 ( filehandle, name, x, y, z )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
REAL*8, INTENT(OUT) :: x(*)
|
|
REAL*8, INTENT(OUT) :: y(*)
|
|
REAL*8, INTENT(OUT) :: z(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_write_scalar_field_r4 ( filehandle, name, data )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
REAL*4, INTENT(IN) :: data(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_read_scalar_field_r4 ( filehandle, name, data )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
REAL*4, INTENT(OUT) :: data(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_write_3dvector_field_r4 ( filehandle, name, x, y, z )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
REAL*4, INTENT(IN) :: x(*)
|
|
REAL*4, INTENT(IN) :: y(*)
|
|
REAL*4, INTENT(IN) :: z(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_read_3dvector_field_r4 ( filehandle, name, x, y, z )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
REAL*4, INTENT(OUT) :: x(*)
|
|
REAL*4, INTENT(OUT) :: y(*)
|
|
REAL*4, INTENT(OUT) :: z(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_write_scalar_field_i8 ( filehandle, name, data )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
INTEGER*8, INTENT(IN) :: data(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_read_scalar_field_i8 ( filehandle, name, data )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
INTEGER*8, INTENT(OUT) :: data(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_write_3dvector_field_i8 ( filehandle, name, x, y, z )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
INTEGER*8, INTENT(IN) :: x(*)
|
|
INTEGER*8, INTENT(IN) :: y(*)
|
|
INTEGER*8, INTENT(IN) :: z(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_read_3dvector_field_i8 ( filehandle, name, x, y, z )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
INTEGER*8, INTENT(OUT) :: x(*)
|
|
INTEGER*8, INTENT(OUT) :: y(*)
|
|
INTEGER*8, INTENT(OUT) :: z(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_write_scalar_field_i4 ( filehandle, name, data )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
INTEGER*4, INTENT(IN) :: data(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_read_scalar_field_i4 ( filehandle, name, data )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
INTEGER*4, INTENT(OUT) :: data(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_write_3dvector_field_i4 ( filehandle, name, x, y, z )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
INTEGER*4, INTENT(IN) :: x(*)
|
|
INTEGER*4, INTENT(IN) :: y(*)
|
|
INTEGER*4, INTENT(IN) :: z(*)
|
|
END FUNCTION
|
|
|
|
INTEGER*8 FUNCTION h5bl_3d_read_3dvector_field_i4 ( filehandle, name, x, y, z )
|
|
INTEGER*8, INTENT(IN) :: filehandle
|
|
CHARACTER(LEN=*), INTENT(IN) :: name
|
|
INTEGER*4, INTENT(OUT) :: x(*)
|
|
INTEGER*4, INTENT(OUT) :: y(*)
|
|
INTEGER*4, INTENT(OUT) :: z(*)
|
|
END FUNCTION
|
|
|
|
END INTERFACE
|