| 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 |
|---|
