|
◆ 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 1294 del file optionparser_class.F90.
1296 colon = index(usage_msg, ':') 1297 IF (colon > 0 .AND. colon < len(usage_msg)-1) THEN 1298 mdquote_usage_msg = usage_msg(:colon+1)// '`'//usage_msg(colon+2:)// '`' 1300 mdquote_usage_msg = usage_msg 1303 END FUNCTION mdquote_usage_msg 1305 END SUBROUTINE optionparser_printhelpmd 1310 SUBROUTINE optionparser_printhelphtmlform(this) 1311 TYPE(optionparser), INTENT(in) :: this 1315 DO i = 1, this%options%arraysize 1316 CALL option_format_htmlform(this%options%array(i)) 1319 WRITE(*, '(A)') '<input class="libsim_sub" type="submit" value="runprogram" />' 1321 END SUBROUTINE optionparser_printhelphtmlform 1324 SUBROUTINE optionparser_make_completion(this) 1325 TYPE(optionparser), INTENT(in) :: this
|