fixes to Fortran API
This commit is contained in:
@@ -6,6 +6,7 @@ LDADD =
|
||||
|
||||
if ENABLE_FORTRAN
|
||||
LDADD += -lH5hutF
|
||||
AM_LDFLAGS += -L${abs_top_builddir}/src/Fortran/.libs
|
||||
endif
|
||||
|
||||
LDADD += -lH5hut
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -10,6 +10,7 @@ endif
|
||||
|
||||
if ENABLE_FORTRAN
|
||||
LDADD += -lH5hutF
|
||||
AM_LDFLAGS += -L${abs_top_builddir}/src/Fortran/.libs
|
||||
endif
|
||||
|
||||
LDADD += -lH5hut
|
||||
|
||||
Reference in New Issue
Block a user