fixes to Fortran API

This commit is contained in:
2013-09-02 09:31:14 +02:00
parent 273b1831d9
commit 7174b36a20
11 changed files with 27 additions and 8 deletions
+1
View File
@@ -6,6 +6,7 @@ LDADD =
if ENABLE_FORTRAN
LDADD += -lH5hutF
AM_LDFLAGS += -L${abs_top_builddir}/src/Fortran/.libs
endif
LDADD += -lH5hut
+4
View File
@@ -38,6 +38,7 @@ PROGRAM H5PartExampleF
CALL EXIT (1)
END IF
DO i = 1, num_args
PRINT *, "Loop..."
if (skip .EQV. .TRUE.) THEN
CYCLE
END IF
@@ -103,13 +104,16 @@ PROGRAM H5PartExampleF
IF (h5_err < 0) THEN
PRINT "('[proc ', I3, ']: Error closing file ...')", myproc
ENDIF
PRINT "('[proc ', I3, ']: File closed.')", myproc
h5_err = h5_finalize ()
IF (h5_err < 0) THEN
PRINT "('[proc ', I3, ']: Error closing H5hut library ...')", myproc
ENDIF
PRINT "('[proc ', I3, ']: H5hut finalized.')", myproc
CALL MPI_Finalize (mpi_error)
PRINT "('[proc ', I3, ']: MPI finalized.')", myproc
#else
!! SERIAL CODE
+1
View File
@@ -10,6 +10,7 @@ endif
if ENABLE_FORTRAN
LDADD += -lH5hutF
AM_LDFLAGS += -L${abs_top_builddir}/src/Fortran/.libs
endif
LDADD += -lH5hut