Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Armin Wehrfritz
Xdmf
Commits
366b7b37
Commit
366b7b37
authored
Apr 28, 2014
by
Andrew J. Burns (Cont
Browse files
Added Fortran bindings for multiopen code
parent
eb3575d5
Changes
4
Hide whitespace changes
Inline
Side-by-side
utils/Xdmf.f
View file @
366b7b37
...
...
@@ -9,6 +9,7 @@
integer
xdmfstoremap
integer
xdmfaddcoordinate
integer
xdmfaddset
integer
xdmfgetmaxopenedfiles
! Array Type
integer
XDMF_ARRAY_TYPE_INT8
...
...
utils/XdmfFortran.cpp
View file @
366b7b37
...
...
@@ -52,6 +52,7 @@
#include
"XdmfUnstructuredGrid.hpp"
#include
"XdmfWriter.hpp"
#include
"XdmfHDF5Writer.hpp"
#include
"XdmfHDF5Controller.hpp"
#include
"string.h"
#include
<stdio.h>
...
...
@@ -9964,6 +9965,24 @@ extern "C"
xdmfFortran
->
initHDF5
(
xmlFilePath
,
release
);
}
unsigned
int
XdmfGetMaxOpenedFiles
()
{
return
XdmfHDF5Controller
::
getMaxOpenedFiles
();
}
void
XdmfSetMaxOpenedFiles
(
int
*
numFilePtr
)
{
XdmfHDF5Controller
::
setMaxOpenedFiles
(
*
numFilePtr
);
}
void
XdmfCloseOpenedHDF5Files
()
{
XdmfHDF5Controller
::
closeFiles
();
}
void
XdmfRead
(
long
*
pointer
,
char
*
xmlFilePath
)
...
...
utils/XdmfFortran.hpp
View file @
366b7b37
...
...
@@ -183,6 +183,9 @@ class XdmfHDF5WriterDSM;
#define XdmfWriteToDSM xdmfwritetodsm_
#define XdmfWriteHDF5 xdmfwritehdf5_
#define XdmfInitHDF5 xdmfinithdf5_
#define XdmfGetMaxOpenedFiles xdmfgetmaxopenedfiles_
#define XdmfSetMaxOpenedFiles xdmfsetmaxopenedfiles_
#define XdmfCloseOpenedHDF5Files xdmfcloseopenedhdf5files_
#define XdmfSetTopologyPolyline xdmfsettopologypolyline_
#define XdmfSetTopologyPolygon xdmfsettopologypolygon_
#define XdmfRetrieveNumDomainGridCollections xdmfretrievenumdomaingridcollections_
...
...
utils/tests/Fortran/TestXdmfFortran.f90
View file @
366b7b37
...
...
@@ -26,6 +26,13 @@ PROGRAM XdmfFortranExample
infilename
=
'my_output.xmf'
//
CHAR
(
0
)
CALL
XDMFINIT
(
obj
)
CALL
XDMFSETMAXOPENEDFILES
(
1
)
numContained
=
XDMFGETMAXOPENEDFILES
()
PRINT
*
,
'Maximum hdf5 files loaded: '
,
numContained
CALL
XDMFREAD
(
obj
,
infilename
)
PRINT
*
,
'Load From: '
,
TRIM
(
infilename
)
...
...
@@ -312,6 +319,7 @@ PROGRAM XdmfFortranExample
PRINT
*
,
'Key: '
,
itemKey
PRINT
*
,
'Value: '
,
itemValue
CALL
XDMFCLOSEOPENEDHDF5FILES
()
CALL
XDMFCLOSE
(
obj
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment