1 | program simple |
---|
2 | |
---|
3 | use flib_wxml |
---|
4 | |
---|
5 | type(xmlf_t) :: xf |
---|
6 | |
---|
7 | integer :: age = 34 |
---|
8 | real, dimension(20) :: x |
---|
9 | real, dimension(20,20) :: y |
---|
10 | |
---|
11 | call xml_OpenFile("simple.xml",xf, indent=.true.) |
---|
12 | |
---|
13 | call xml_AddXMLDeclaration(xf,"UTF-8") |
---|
14 | call xml_NewElement(xf,"john") |
---|
15 | call xml_AddAttribute(xf,"age",str(age)) |
---|
16 | call xml_NewElement(xf,"peter") |
---|
17 | call xml_NewElement(xf,"tim") |
---|
18 | call xml_AddAttribute(xf,"age","37") |
---|
19 | call xml_AddAttribute(xf,"weight",str(123.45,"(f7.3)")) |
---|
20 | call xml_AddAttribute(xf,"cholesterol",str(167.0,format="(f8.0)")) |
---|
21 | call xml_EndElement(xf,"tim") |
---|
22 | call xml_AddPcdata(xf,"Ping-pong") |
---|
23 | call xml_AddPcdata(xf,"champion", line_feed=.false.) |
---|
24 | call xml_AddPcdata(xf," in 2004", space=.false., line_feed=.false.) |
---|
25 | call xml_NewElement(xf,"data") |
---|
26 | call xml_AddAttribute(xf,"units","eV") |
---|
27 | call random_number(x) |
---|
28 | call random_number(y) |
---|
29 | call xml_AddArray(xf,x) |
---|
30 | call xml_AddArray(xf,reshape(y,(/ 400 /))) |
---|
31 | call xml_EndElement(xf,"data") |
---|
32 | call xml_EndElement(xf,"peter") |
---|
33 | call xml_EndElement(xf,"john") |
---|
34 | |
---|
35 | call xml_Close(xf) |
---|
36 | |
---|
37 | end program simple |
---|