source: XIOS/trunk/src/test/parse_xml.f90 @ 576

Last change on this file since 576 was 576, checked in by rlacroix, 5 years ago

Fix compilation with PGI for the development version of XIOS 2.0

  • Convert parse_xml.cpp to Fortran (port r573 to the trunk).
  • Modify date_interface to work-around a problem related to xios_duration type.
  • Reorganize the XIOS module to work-around a problem related to operator overloads for xios_duration and xios_date types.
File size: 273 bytes
Line 
1PROGRAM 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
12END PROGRAM parse_xml
Note: See TracBrowser for help on using the repository browser.