Skip to content
Permalink
Browse files

add entropy to output H% file

  • Loading branch information...
Evan O'Connor
Evan O'Connor committed Jul 13, 2017
1 parent 7308d47 commit fb4535ea4073cf004cac2e6d20c30239a93d0aa9
Showing with 8 additions and 0 deletions.
  1. +8 −0 src/restart_H5.F90
@@ -496,6 +496,14 @@ subroutine restart_output_h5
call h5sclose_f(dspace_id, error)
cerror = cerror + error

call h5screate_simple_f(rank, dims1, dspace_id, error)
call h5dcreate_f(file_id, "entropy", H5T_NATIVE_DOUBLE, dspace_id,&
& dset_id, error)
call h5dwrite_f(dset_id, H5T_NATIVE_DOUBLE, entropy, dims1, error)
call h5dclose_f(dset_id, error)
call h5sclose_f(dspace_id, error)
cerror = cerror + error

call h5screate_simple_f(rank, dims1, dspace_id, error)
call h5dcreate_f(file_id, "ye", H5T_NATIVE_DOUBLE, dspace_id,&
& dset_id, error)

0 comments on commit fb4535e

Please sign in to comment.
You can’t perform that action at this time.