|
◆ optionparser_add_rarray()
subroutine optionparser_class::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 |
|
) |
| |
|
private |
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 1276 del file optionparser_class.F90.
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 1307 SUBROUTINE optionparser_printhelphtmlform(this) 1308 TYPE(optionparser), INTENT(in) :: this
|