[1960] | 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 |
---|