18MODULE vol7d_serialize_csvdba_class
19use,
INTRINSIC :: iso_c_binding
26 PROCEDURE :: vol7d_serialize_optionparser
27 PROCEDURE :: vol7d_serialize_parse
28 PROCEDURE :: vol7d_serialize_export
29END TYPE vol7d_serialize_csvdba
32PUBLIC vol7d_serialize_csvdba, vol7d_serialize_csvdba_new
36FUNCTION vol7d_serialize_csvdba_new()
RESULT(this)
37TYPE(vol7d_serialize_csvdba) :: this
39this%vol7d_serialize = vol7d_serialize_new()
41END FUNCTION vol7d_serialize_csvdba_new
44SUBROUTINE vol7d_serialize_optionparser(this, opt, ext)
45CLASS(vol7d_serialize_csvdba),
INTENT(inout) :: this
46TYPE(optionparser),
INTENT(inout),
OPTIONAL :: opt
47CHARACTER(len=*),
INTENT(in),
OPTIONAL :: ext
56this%cachedesc = .true.
57this%column =
'ana,network,time,level,timerange,var,value'
58this%loop =
'time,timerange,level,ana,network,var'
61END SUBROUTINE vol7d_serialize_optionparser
64SUBROUTINE vol7d_serialize_parse(this, category)
65CLASS(vol7d_serialize_csvdba),
INTENT(inout) :: this
66INTEGER,
INTENT(in),
OPTIONAL :: category
69CALL this%vol7d_serialize%vol7d_serialize_parse(category)
71END SUBROUTINE vol7d_serialize_parse
74SUBROUTINE vol7d_serialize_export(this, iun)
75CLASS(vol7d_serialize_csvdba),
INTENT(inout) :: this
76INTEGER,
INTENT(in) :: iun
78CHARACTER(len=64),
TARGET,
ALLOCATABLE :: col(:)
79CHARACTER(len=2048),
TARGET :: line
80CHARACTER(len=1),
POINTER :: pline
82TYPE(vol7d_serialize_iterline) :: linei
83TYPE(vol7d_serialize_itercol) :: coli
87coli = this%vol7d_serialize_itercol_new()
91 line(len_trim(line)+1:) =
','
94 pline => line(len_trim(line)+1:len_trim(line)+1)
95 CALL coli%export(c_loc(pline))
98WRITE(iun,
'(A)')trim(line)
102linei = this%vol7d_serialize_iterline_new()
103DO WHILE(linei%next())
105 coli = linei%vol7d_serialize_itercol_new()
106 DO WHILE(coli%next())
109 line(len_trim(line)+1:) =
','
111 CALL coli%export(c_loc(col(i)(1:1)))
112 line(len_trim(line)+1:) = col(i)
114 WRITE(iun,
'(A)')trim(line)
117END SUBROUTINE vol7d_serialize_export
119END MODULE vol7d_serialize_csvdba_class
Module for parsing command-line optons.
Extension of vol7d_class for serializing the contents of a volume.
Class for serializing a vol7d object.