|
◆ optionparser_add_rarray()
subroutine optionparser_add_rarray |
( |
type(optionparser), intent(inout) |
this, |
|
|
character(len=*), intent(in) |
short_opt, |
|
|
character(len=*), intent(in) |
long_opt, |
|
|
type(arrayof_real), target |
dest, |
|
|
real, dimension(:), optional |
default, |
|
|
character(len=*), optional |
help |
|
) |
| |
Add a new option with a real type array argument.
When parsing will be performed, if the requested option is encountered, its corresponding compulsory argument will be copied into the provided destination. The argument must be provided in the form of comma-separated list of values and is stored in an object of type arrayof_real (module array_utilities). An optional default value can be provided for the destination. Please use the generic optionparser_add method rather than this particular method. - Parametri
-
[in,out] | this | optionparser object |
[in] | short_opt | the short option (may be empty) |
[in] | long_opt | the long option (may be empty) |
| dest | the destination of the option parse result |
| default | the default value to give to dest if option is not found |
| help | the help message that will be formatted and pretty-printed on screen |
Definizione alla linea 1271 del file optionparser_class.F90.
1272 DO j = 1, line_split_get_nlines(help_line)
1273 WRITE(*, '(A)')trim(line_split_get_line(help_line,j))
1275 CALL delete(help_line)
1279 WRITE(*, '(/,A)') '### Options'
1281 DO i = 1, this%options%arraysize
1282 CALL option_format_md(this%options%array(i), ncols)
1287 FUNCTION mdquote_usage_msg(usage_msg)
1288 CHARACTER(len=*), INTENT(in) :: usage_msg
1290 CHARACTER(len=LEN(usage_msg)+2) :: mdquote_usage_msg
1293 colon = index(usage_msg, ':')
1294 IF (colon > 0 .AND. colon < len(usage_msg)-1) THEN
1295 mdquote_usage_msg = usage_msg(:colon+1)// '`'//usage_msg(colon+2:)// '`'
1297 mdquote_usage_msg = usage_msg
1300 END FUNCTION mdquote_usage_msg
1302 END SUBROUTINE optionparser_printhelpmd
|