Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Ruben Di Battista
Xdmf
Commits
df2dcfcf
Commit
df2dcfcf
authored
Feb 21, 2014
by
Andrew J. Burns (Cont
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Edited Fortran Include file for Fixed Form compatibility
parent
1f57c1ba
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
142 additions
and
145 deletions
+142
-145
utils/Xdmf.f
utils/Xdmf.f
+142
-145
No files found.
utils/Xdmf.f
View file @
df2dcfcf
integer
xdmfaddattribute
! Function Return Types
integer
xdmfaddinformation
integer
xdmfaddattribute
integer
xdmfsetgeometry
integer
xdmfaddinformation
integer
xdmfsettopology
integer
xdmfsetgeometry
integer
xdmfsetdimensions
integer
xdmfsettopology
integer
xdmfsetorigin
integer
xdmfsetdimensions
integer
xdmfsetbrick
integer
xdmfsetorigin
integer
xdmfstoremap
integer
xdmfsetbrick
integer
xdmfaddcoordinate
integer
xdmfstoremap
integer
xdmfaddset
integer
xdmfaddcoordinate
integer
xdmfaddset
! Array Type
! Array Type
integer
XDMF_ARRAY_TYPE_INT8
integer
XDMF_ARRAY_TYPE_INT8
integer
XDMF_ARRAY_TYPE_INT16
integer
XDMF_ARRAY_TYPE_INT16
integer
XDMF_ARRAY_TYPE_INT32
integer
XDMF_ARRAY_TYPE_INT32
integer
XDMF_ARRAY_TYPE_INT64
integer
XDMF_ARRAY_TYPE_INT64
integer
XDMF_ARRAY_TYPE_UINT8
integer
XDMF_ARRAY_TYPE_UINT8
integer
XDMF_ARRAY_TYPE_UINT16
integer
XDMF_ARRAY_TYPE_UINT16
integer
XDMF_ARRAY_TYPE_UINT32
integer
XDMF_ARRAY_TYPE_UINT32
integer
XDMF_ARRAY_TYPE_FLOAT32
integer
XDMF_ARRAY_TYPE_FLOAT32
integer
XDMF_ARRAY_TYPE_FLOAT64
integer
XDMF_ARRAY_TYPE_FLOAT64
! Attribute Center
! Attribute Center
integer
XDMF_ATTRIBUTE_CENTER_GRID
integer
XDMF_ATTRIBUTE_CENTER_GRID
integer
XDMF_ATTRIBUTE_CENTER_CELL
integer
XDMF_ATTRIBUTE_CENTER_CELL
integer
XDMF_ATTRIBUTE_CENTER_FACE
integer
XDMF_ATTRIBUTE_CENTER_FACE
integer
XDMF_ATTRIBUTE_CENTER_EDGE
integer
XDMF_ATTRIBUTE_CENTER_EDGE
integer
XDMF_ATTRIBUTE_CENTER_NODE
integer
XDMF_ATTRIBUTE_CENTER_NODE
! Attribute Type
! Attribute Type
integer
XDMF_ATTRIBUTE_TYPE_SCALAR
integer
XDMF_ATTRIBUTE_TYPE_SCALAR
integer
XDMF_ATTRIBUTE_TYPE_VECTOR
integer
XDMF_ATTRIBUTE_TYPE_VECTOR
integer
XDMF_ATTRIBUTE_TYPE_TENSOR
integer
XDMF_ATTRIBUTE_TYPE_TENSOR
integer
XDMF_ATTRIBUTE_TYPE_MATRIX
integer
XDMF_ATTRIBUTE_TYPE_MATRIX
integer
XDMF_ATTRIBUTE_TYPE_TENSOR6
integer
XDMF_ATTRIBUTE_TYPE_TENSOR6
integer
XDMF_ATTRIBUTE_TYPE_GLOBALID
integer
XDMF_ATTRIBUTE_TYPE_GLOBALID
integer
XDMF_ATTRIBUTE_TYPE_NOTYPE
integer
XDMF_ATTRIBUTE_TYPE_NOTYPE
! Geometry Type
! Geometry Type
integer
XDMF_GEOMETRY_TYPE_XYZ
integer
XDMF_GEOMETRY_TYPE_XYZ
integer
XDMF_GEOMETRY_TYPE_XY
integer
XDMF_GEOMETRY_TYPE_XY
! Grid Collection Type
! Grid Collection Type
integer
XDMF_GRID_COLLECTION_TYPE_SPATIAL
integer
XDMF_GRID_COLLECTION_TYPE_SPATIAL
integer
XDMF_GRID_COLLECTION_TYPE_TEMPORAL
integer
XDMF_GRID_COLLECTION_TYPE_TEMPORAL
! Topology Type
! Topology Type
integer
XDMF_TOPOLOGY_TYPE_POLYVERTEX
integer
XDMF_TOPOLOGY_TYPE_POLYVERTEX
integer
XDMF_TOPOLOGY_TYPE_POLYLINE
integer
XDMF_TOPOLOGY_TYPE_POLYLINE
integer
XDMF_TOPOLOGY_TYPE_POLYGON
integer
XDMF_TOPOLOGY_TYPE_POLYGON
integer
XDMF_TOPOLOGY_TYPE_TRIANGLE
integer
XDMF_TOPOLOGY_TYPE_TRIANGLE
integer
XDMF_TOPOLOGY_TYPE_QUADRILATERAL
integer
XDMF_TOPOLOGY_TYPE_QUADRILATERAL
integer
XDMF_TOPOLOGY_TYPE_TETRAHEDRON
integer
XDMF_TOPOLOGY_TYPE_TETRAHEDRON
integer
XDMF_TOPOLOGY_TYPE_PYRAMID
integer
XDMF_TOPOLOGY_TYPE_PYRAMID
integer
XDMF_TOPOLOGY_TYPE_WEDGE
integer
XDMF_TOPOLOGY_TYPE_WEDGE
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON
integer
XDMF_TOPOLOGY_TYPE_EDGE_3
integer
XDMF_TOPOLOGY_TYPE_EDGE_3
integer
XDMF_TOPOLOGY_TYPE_TRIANGLE_6
integer
XDMF_TOPOLOGY_TYPE_TRIANGLE_6
integer
XDMF_TOPOLOGY_TYPE_QUADRILATERAL_8
integer
XDMF_TOPOLOGY_TYPE_QUADRILATERAL_8
integer
XDMF_TOPOLOGY_TYPE_QUADRILATERAL_9
integer
XDMF_TOPOLOGY_TYPE_QUADRILATERAL_9
integer
XDMF_TOPOLOGY_TYPE_TETRAHEDRON_10
integer
XDMF_TOPOLOGY_TYPE_TETRAHEDRON_10
integer
XDMF_TOPOLOGY_TYPE_PYRAMID_13
integer
XDMF_TOPOLOGY_TYPE_PYRAMID_13
integer
XDMF_TOPOLOGY_TYPE_WEDGE_15
integer
XDMF_TOPOLOGY_TYPE_WEDGE_15
integer
XDMF_TOPOLOGY_TYPE_WEDGE_18
integer
XDMF_TOPOLOGY_TYPE_WEDGE_18
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_20
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_20
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_24
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_24
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_27
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_27
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_64
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_64
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_125
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_125
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_216
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_216
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_343
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_343
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_512
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_512
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_729
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_729
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_1000
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_1000
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_1331
integer
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_1331
integer
XDMF_TOPOLOGY_TYPE_MIXED
integer
XDMF_TOPOLOGY_TYPE_MIXED
! Set Type
! Set Type
integer
XDMF_SET_TYPE_NODE
integer
XDMF_SET_TYPE_NODE
integer
XDMF_SET_TYPE_CELL
integer
XDMF_SET_TYPE_CELL
integer
XDMF_SET_TYPE_FACE
integer
XDMF_SET_TYPE_FACE
integer
XDMF_SET_TYPE_EDGE
integer
XDMF_SET_TYPE_EDGE
! Grid Type
! Grid Type
integer
XDMF_GRID_TYPE_CURVILINEAR
integer
XDMF_GRID_TYPE_CURVILINEAR
integer
XDMF_GRID_TYPE_RECTILINEAR
integer
XDMF_GRID_TYPE_RECTILINEAR
integer
XDMF_GRID_TYPE_REGULAR
integer
XDMF_GRID_TYPE_REGULAR
integer
XDMF_GRID_TYPE_UNSTRUCTURED
integer
XDMF_GRID_TYPE_UNSTRUCTURED
!------------------------------------------------------
!------------------------------------------------------
parameter
(
XDMF_ARRAY_TYPE_INT8
=
0
)
parameter
(
XDMF_ARRAY_TYPE_INT8
=
0
)
parameter
(
XDMF_ARRAY_TYPE_INT16
=
1
)
parameter
(
XDMF_ARRAY_TYPE_INT16
=
1
)
parameter
(
XDMF_ARRAY_TYPE_INT32
=
2
)
parameter
(
XDMF_ARRAY_TYPE_INT32
=
2
)
parameter
(
XDMF_ARRAY_TYPE_INT64
=
3
)
parameter
(
XDMF_ARRAY_TYPE_INT64
=
3
)
parameter
(
XDMF_ARRAY_TYPE_UINT8
=
4
)
parameter
(
XDMF_ARRAY_TYPE_UINT8
=
4
)
parameter
(
XDMF_ARRAY_TYPE_UINT16
=
5
)
parameter
(
XDMF_ARRAY_TYPE_UINT16
=
5
)
parameter
(
XDMF_ARRAY_TYPE_UINT32
=
6
)
parameter
(
XDMF_ARRAY_TYPE_UINT32
=
6
)
parameter
(
XDMF_ARRAY_TYPE_FLOAT32
=
7
)
parameter
(
XDMF_ARRAY_TYPE_FLOAT32
=
7
)
parameter
(
XDMF_ARRAY_TYPE_FLOAT64
=
8
)
parameter
(
XDMF_ARRAY_TYPE_FLOAT64
=
8
)
parameter
(
XDMF_ATTRIBUTE_CENTER_GRID
=
100
)
parameter
(
XDMF_ATTRIBUTE_CENTER_GRID
=
100
)
parameter
(
XDMF_ATTRIBUTE_CENTER_CELL
=
101
)
parameter
(
XDMF_ATTRIBUTE_CENTER_CELL
=
101
)
parameter
(
XDMF_ATTRIBUTE_CENTER_FACE
=
102
)
parameter
(
XDMF_ATTRIBUTE_CENTER_FACE
=
102
)
parameter
(
XDMF_ATTRIBUTE_CENTER_EDGE
=
103
)
parameter
(
XDMF_ATTRIBUTE_CENTER_EDGE
=
103
)
parameter
(
XDMF_ATTRIBUTE_CENTER_NODE
=
104
)
parameter
(
XDMF_ATTRIBUTE_CENTER_NODE
=
104
)
parameter
(
XDMF_ATTRIBUTE_TYPE_SCALAR
=
200
)
parameter
(
XDMF_ATTRIBUTE_TYPE_SCALAR
=
200
)
parameter
(
XDMF_ATTRIBUTE_TYPE_VECTOR
=
201
)
parameter
(
XDMF_ATTRIBUTE_TYPE_VECTOR
=
201
)
parameter
(
XDMF_ATTRIBUTE_TYPE_TENSOR
=
202
)
parameter
(
XDMF_ATTRIBUTE_TYPE_TENSOR
=
202
)
parameter
(
XDMF_ATTRIBUTE_TYPE_MATRIX
=
203
)
parameter
(
XDMF_ATTRIBUTE_TYPE_MATRIX
=
203
)
parameter
(
XDMF_ATTRIBUTE_TYPE_TENSOR6
=
204
)
parameter
(
XDMF_ATTRIBUTE_TYPE_TENSOR6
=
204
)
parameter
(
XDMF_ATTRIBUTE_TYPE_GLOBALID
=
205
)
parameter
(
XDMF_ATTRIBUTE_TYPE_GLOBALID
=
205
)
parameter
(
XDMF_ATTRIBUTE_TYPE_NOTYPE
=
206
)
parameter
(
XDMF_ATTRIBUTE_TYPE_NOTYPE
=
206
)
parameter
(
XDMF_GEOMETRY_TYPE_XYZ
=
301
)
parameter
(
XDMF_GEOMETRY_TYPE_XYZ
=
301
)
parameter
(
XDMF_GEOMETRY_TYPE_XY
=
302
)
parameter
(
XDMF_GEOMETRY_TYPE_XY
=
302
)
parameter
(
XDMF_GRID_COLLECTION_TYPE_SPATIAL
=
400
)
parameter
(
XDMF_GRID_COLLECTION_TYPE_SPATIAL
=
400
)
parameter
(
XDMF_GRID_COLLECTION_TYPE_TEMPORAL
=
401
)
parameter
(
XDMF_GRID_COLLECTION_TYPE_TEMPORAL
=
401
)
parameter
(
XDMF_TOPOLOGY_TYPE_POLYVERTEX
=
500
)
parameter
(
XDMF_TOPOLOGY_TYPE_POLYVERTEX
=
500
)
parameter
(
XDMF_TOPOLOGY_TYPE_POLYLINE
=
501
)
parameter
(
XDMF_TOPOLOGY_TYPE_POLYLINE
=
501
)
parameter
(
XDMF_TOPOLOGY_TYPE_POLYGON
=
502
)
parameter
(
XDMF_TOPOLOGY_TYPE_POLYGON
=
502
)
parameter
(
XDMF_TOPOLOGY_TYPE_TRIANGLE
=
503
)
parameter
(
XDMF_TOPOLOGY_TYPE_TRIANGLE
=
503
)
parameter
(
XDMF_TOPOLOGY_TYPE_QUADRILATERAL
=
504
)
parameter
(
XDMF_TOPOLOGY_TYPE_QUADRILATERAL
=
504
)
parameter
(
XDMF_TOPOLOGY_TYPE_TETRAHEDRON
=
505
)
parameter
(
XDMF_TOPOLOGY_TYPE_TETRAHEDRON
=
505
)
parameter
(
XDMF_TOPOLOGY_TYPE_PYRAMID
=
506
)
parameter
(
XDMF_TOPOLOGY_TYPE_PYRAMID
=
506
)
parameter
(
XDMF_TOPOLOGY_TYPE_WEDGE
=
507
)
parameter
(
XDMF_TOPOLOGY_TYPE_WEDGE
=
507
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON
=
508
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON
=
508
)
parameter
(
XDMF_TOPOLOGY_TYPE_EDGE_3
=
509
)
parameter
(
XDMF_TOPOLOGY_TYPE_EDGE_3
=
509
)
parameter
(
XDMF_TOPOLOGY_TYPE_TRIANGLE_6
=
510
)
parameter
(
XDMF_TOPOLOGY_TYPE_TRIANGLE_6
=
510
)
parameter
(
XDMF_TOPOLOGY_TYPE_QUADRILATERAL_8
=
511
)
parameter
(
XDMF_TOPOLOGY_TYPE_QUADRILATERAL_8
=
511
)
parameter
(
XDMF_TOPOLOGY_TYPE_QUADRILATERAL_9
=
512
)
parameter
(
XDMF_TOPOLOGY_TYPE_QUADRILATERAL_9
=
512
)
parameter
(
XDMF_TOPOLOGY_TYPE_TETRAHEDRON_10
=
513
)
parameter
(
XDMF_TOPOLOGY_TYPE_TETRAHEDRON_10
=
513
)
parameter
(
XDMF_TOPOLOGY_TYPE_PYRAMID_13
=
514
)
parameter
(
XDMF_TOPOLOGY_TYPE_PYRAMID_13
=
514
)
parameter
(
XDMF_TOPOLOGY_TYPE_WEDGE_15
=
515
)
parameter
(
XDMF_TOPOLOGY_TYPE_WEDGE_15
=
515
)
parameter
(
XDMF_TOPOLOGY_TYPE_WEDGE_18
=
516
)
parameter
(
XDMF_TOPOLOGY_TYPE_WEDGE_18
=
516
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_20
=
517
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_20
=
517
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_24
=
518
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_24
=
518
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_27
=
519
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_27
=
519
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_64
=
520
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_64
=
520
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_125
=
521
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_125
=
521
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_216
=
522
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_216
=
522
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_343
=
523
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_343
=
523
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_512
=
524
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_512
=
524
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_729
=
525
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_729
=
525
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_1000
=
526
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_1000
=
526
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_1331
=
527
)
parameter
(
XDMF_TOPOLOGY_TYPE_HEXAHEDRON_1331
=
527
)
parameter
(
XDMF_TOPOLOGY_TYPE_MIXED
=
528
)
parameter
(
XDMF_TOPOLOGY_TYPE_MIXED
=
528
)
parameter
(
XDMF_SET_TYPE_NODE
=
601
)
parameter
(
XDMF_SET_TYPE_NODE
=
601
)
parameter
(
XDMF_SET_TYPE_CELL
=
602
)
parameter
(
XDMF_SET_TYPE_CELL
=
602
)
parameter
(
XDMF_SET_TYPE_FACE
=
603
)
parameter
(
XDMF_SET_TYPE_FACE
=
603
)
parameter
(
XDMF_SET_TYPE_EDGE
=
604
)
parameter
(
XDMF_SET_TYPE_EDGE
=
604
)
parameter
(
XDMF_GRID_TYPE_CURVILINEAR
=
701
)
parameter
(
XDMF_GRID_TYPE_CURVILINEAR
=
701
)
parameter
(
XDMF_GRID_TYPE_RECTILINEAR
=
702
)
parameter
(
XDMF_GRID_TYPE_RECTILINEAR
=
702
)
parameter
(
XDMF_GRID_TYPE_REGULAR
=
703
)
parameter
(
XDMF_GRID_TYPE_REGULAR
=
703
)
parameter
(
XDMF_GRID_TYPE_UNSTRUCTURED
=
704
)
parameter
(
XDMF_GRID_TYPE_UNSTRUCTURED
=
704
)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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