libsim  Versione7.2.6

◆ vol7d_serialize_optionparser()

subroutine vol7d_serialize_class::vol7d_serialize_optionparser ( class(vol7d_serialize), intent(inout)  this,
type(optionparser), intent(inout), optional  opt,
character(len=*), intent(in), optional  ext 
)
private

Method for adding the standard vol7d_serialize command-line options to a program.

An initialised object of the optionparser class is used for adding the relevant options, an extension is provided for formatting the options and the help messages. Alternatively the configurable options can be set directly since the corresponding members in the vol7d_serialize class are PUBLIC. In both cases the vol7d_serialize_parse method must be successively called in order to process the configurable options.

Definizione alla linea 229 del file vol7d_serialize_class.F03.

229 END SUBROUTINE vol7d_serialize_parse
230 
231 
232 ! internal sobroutine to parse a string like
233 ! 'time,timerange,level,ana,network,var,value' (ccol) transforming
234 ! into an integer array of the corresponding PARAMETER values defined
235 ! in vol7d_class (icol)
236 SUBROUTINE parse_v7d_column(ccol, icol, par_name, check_all, category)
237 CHARACTER(len=*),INTENT(in) :: ccol
238 INTEGER,INTENT(out) :: icol(:)
239 CHARACTER(len=*),INTENT(in) :: par_name
240 LOGICAL,INTENT(in) :: check_all
241 INTEGER,INTENT(in),OPTIONAL :: category
242 
243 INTEGER :: i, j, nc
244 INTEGER,POINTER :: w_s(:), w_e(:)
245 
246 nc = word_split(ccol, w_s, w_e, ',')
247 j = 0
248 icol(:) = -1
249 DO i = 1, min(nc, SIZE(icol))
250  SELECT CASE(ccol(w_s(i):w_e(i)))
251  CASE('time')
252  j = j + 1
253  icol(j) = vol7d_time_d
254  CASE('timerange')
255  j = j + 1
256  icol(j) = vol7d_timerange_d
257  CASE('level')
258  j = j + 1
259  icol(j) = vol7d_level_d
260  CASE('ana')
261  j = j + 1
262  icol(j) = vol7d_ana_d
263  CASE('var')

Generated with Doxygen.