... | ... | @@ -281,12 +281,9 @@ include 'H5hut.f90' |
|
|
implicit none
|
|
|
include 'mpif.h'
|
|
|
|
|
|
! the file name we want to read
|
|
|
character (len=*), parameter :: FNAME = "example_file_attribs.h5"
|
|
|
|
|
|
character (len=*), parameter :: ATTR_STRING = "StepAttrString"
|
|
|
character (len=*), parameter :: ATTR_I4 = "StepAttrInt32"
|
|
|
|
|
|
character (len=128) :: fmt
|
|
|
|
|
|
! attribute values. Note: allocatable strings aren't supported in Fortran90
|
... | ... | @@ -298,7 +295,6 @@ include 'H5hut.f90' |
|
|
integer*8 status
|
|
|
integer*8 type
|
|
|
integer*8 len
|
|
|
integer*8 i
|
|
|
|
|
|
call mpi_init (ierr)
|
|
|
call h5_abort_on_error ()
|
... | ... | |