|
◆ optionparser_add_r()
subroutine optionparser_class::optionparser_add_r |
( |
type(optionparser), intent(inout) |
this, |
|
|
character(len=*), intent(in) |
short_opt, |
|
|
character(len=*), intent(in) |
long_opt, |
|
|
real, target |
dest, |
|
|
real, optional |
default, |
|
|
character(len=*), optional |
help |
|
) |
| |
|
private |
Add a new option with a real type argument.
When parsing will be performed, if the requested option is encountered, its corresponding compulsory argument will be copied into the provided destination. An optional value default 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 1253 del file optionparser_class.F90.
1255 WRITE(*, '(A)') '### Synopsis' 1257 IF ( ASSOCIATED(this%usage_msg)) THEN 1258 help_line = line_split_new(mdquote_usage_msg(cstr_to_fchar(this%usage_msg)), ncols) 1259 DO j = 1, line_split_get_nlines(help_line) 1260 WRITE(*, '(A)')trim(line_split_get_line(help_line,j)) 1265 i = index(buf, '/', back=.true.) 1266 IF (buf(i+1:i+3) == 'lt-') i = i + 3 1267 WRITE(*, '(A)') 'Usage: `'//trim(buf(i+1:))// ' [options] [arguments]`' 1271 IF ( ASSOCIATED(this%description_msg)) THEN 1273 WRITE(*, '(A)') '### Description' 1274 help_line = line_split_new(cstr_to_fchar(this%description_msg), ncols) 1275 DO j = 1, line_split_get_nlines(help_line) 1276 WRITE(*, '(A)')trim(line_split_get_line(help_line,j)) Distruttori per le 2 classi.
|