... | ... | @@ -72,11 +72,8 @@ main ( |
|
|
include 'H5hut.f90'
|
|
|
|
|
|
program openclose
|
|
|
|
|
|
use H5hut
|
|
|
|
|
|
implicit none
|
|
|
|
|
|
include 'mpif.h'
|
|
|
|
|
|
integer :: comm, rank, ierr
|
... | ... | @@ -94,6 +91,5 @@ program openclose |
|
|
status = h5_closefile (file_id);
|
|
|
|
|
|
call mpi_finalize(ierr)
|
|
|
|
|
|
end program openclose
|
|
|
---- |
|
|
\ No newline at end of file |