|
Last change
on this file since 573 was
573,
checked in by rlacroix, 9 years ago
|
|
Convert parse_xml.cpp to Fortran to ease compiling with PGI compilers.
Previously linking would fail because a special compiler switch is required when linking a CPP code with a Fortran library using PGI. To avoid having to handle that special case, switch to Fortran.
|
|
File size:
282 bytes
|
| Line | |
|---|
| 1 | PROGRAM parse_xml |
|---|
| 2 | USE, INTRINSIC :: ISO_C_BINDING |
|---|
| 3 | IMPLICIT NONE |
|---|
| 4 | |
|---|
| 5 | INTERFACE |
|---|
| 6 | SUBROUTINE xios_init() BIND(C, name='cxios_init') |
|---|
| 7 | END SUBROUTINE |
|---|
| 8 | END INTERFACE |
|---|
| 9 | |
|---|
| 10 | CALL xios_init() ! This will parse the XML file and report any parsing error |
|---|
| 11 | |
|---|
| 12 | END PROGRAM parse_xml |
|---|
| 13 | |
|---|
| 14 | |
|---|
| 15 | |
|---|
| 16 | |
|---|
| 17 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
