18MODULE vol7d_serialize_csv_class
19use,
INTRINSIC :: iso_c_binding
25 INTEGER :: csv_header=1
27 PROCEDURE :: vol7d_serialize_optionparser
28 PROCEDURE :: vol7d_serialize_export
29END TYPE vol7d_serialize_csv
32PUBLIC vol7d_serialize_csv, vol7d_serialize_csv_new
36FUNCTION vol7d_serialize_csv_new()
RESULT(this)
37TYPE(vol7d_serialize_csv) :: this
39this%vol7d_serialize = vol7d_serialize_new()
41END FUNCTION vol7d_serialize_csv_new
44SUBROUTINE vol7d_serialize_optionparser(this, opt, ext)
45CLASS(vol7d_serialize_csv),
INTENT(inout) :: this
46TYPE(optionparser),
INTENT(inout),
OPTIONAL :: opt
47CHARACTER(len=*),
INTENT(in),
OPTIONAL :: ext
56this%vol7d_serialize%cachedesc = .true.
59CALL this%vol7d_serialize%vol7d_serialize_optionparser(opt, ext)
63 'write 0 to 2 header lines at the beginning of csv output')
66END SUBROUTINE vol7d_serialize_optionparser
69SUBROUTINE vol7d_serialize_export(this, iun)
70CLASS(vol7d_serialize_csv),
INTENT(inout) :: this
71INTEGER,
INTENT(in) :: iun
73CHARACTER(len=64),
TARGET,
ALLOCATABLE :: col(:)
74CHARACTER(len=2048),
TARGET :: line
75CHARACTER(len=1),
POINTER :: pline
77TYPE(vol7d_serialize_iterline) :: linei
78TYPE(vol7d_serialize_itercol) :: coli
82IF (this%csv_header >= 2)
WRITE(iun,
'(A)')
'written by v7d_transform'
86coli = this%vol7d_serialize_itercol_new()
90 line(len_trim(line)+1:) =
','
93 pline => line(len_trim(line)+1:len_trim(line)+1)
94 CALL coli%export(c_loc(pline))
97IF (this%csv_header >= 1)
WRITE(iun,
'(A)')trim(line)
101linei = this%vol7d_serialize_iterline_new()
102DO WHILE(linei%next())
104 coli = linei%vol7d_serialize_itercol_new()
105 DO WHILE(coli%next())
108 line(len_trim(line)+1:) =
','
110 CALL coli%export(c_loc(col(i)(1:1)))
111 line(len_trim(line)+1:) = col(i)
113 WRITE(iun,
'(A)')trim(line)
116END SUBROUTINE vol7d_serialize_export
118END MODULE vol7d_serialize_csv_class
Add a new option of a specific type.
Module for parsing command-line optons.
Extension of vol7d_class for serializing the contents of a volume.
Class for serializing a vol7d object.