|
◆ optionparser_add_d()
subroutine optionparser_class::optionparser_add_d |
( |
type(optionparser), intent(inout) |
this, |
|
|
character(len=*), intent(in) |
short_opt, |
|
|
character(len=*), intent(in) |
long_opt, |
|
|
double precision, target |
dest, |
|
|
double precision, optional |
default, |
|
|
character(len=*), optional |
help |
|
) |
| |
|
private |
Add a new option with a double precision 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 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 1320 del file optionparser_class.F90.
1321 SUBROUTINE optionparser_make_completion(this) 1322 TYPE(optionparser), INTENT(in) :: this 1325 CHARACTER(len=512) :: buf 1329 WRITE(*, '(A/A/A)') '_'//trim(buf)// '()', '{', 'local cur' 1331 WRITE(*, '(A/A/A/A)') 'COMPREPLY=()', 'cur=${COMP_WORDS[COMP_CWORD]}', & 1332 'case "$cur" in', '-*)' 1336 DO i = 1, this%options%arraysize 1337 IF (this%options%array(i)%need_arg == 2) THEN 1341 WRITE(*, '(A/A/A)') 'esac', 'return 0', '}' 1343 END SUBROUTINE optionparser_make_completion 1346 SUBROUTINE dirty_char_assignment(destc, destclen, src) 1350 CHARACTER(len=1) :: destc(*) 1351 CHARACTER(len=*) :: src Definition of constants to be used for declaring variables of a desired type.
|