libsim Versione 7.1.11

◆ optionparser_add_d()

subroutine 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 
)

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]thisoptionparser object
[in]short_optthe short option (may be empty)
[in]long_optthe long option (may be empty)
destthe destination of the option parse result
defaultthe default value to give to dest if option is not found
helpthe help message that will be formatted and pretty-printed on screen

Definizione alla linea 1315 del file optionparser_class.F90.

1316WRITE(*,'(A)')'<input class="libsim_sub" type="submit" value="runprogram" />'
1317
1318END SUBROUTINE optionparser_printhelphtmlform
1319
1320
1321SUBROUTINE optionparser_make_completion(this)
1322TYPE(optionparser),INTENT(in) :: this
1323
1324INTEGER :: i
1325CHARACTER(len=512) :: buf
1326
1327CALL getarg(0, buf)
1328
1329WRITE(*,'(A/A/A)')'_'//trim(buf)//'()','{','local cur'
1330
1331WRITE(*,'(A/A/A/A)')'COMPREPLY=()','cur=${COMP_WORDS[COMP_CWORD]}', &
1332 'case "$cur" in','-*)'
1333
1334!-*)
1335! COMPREPLY=( $( compgen -W
1336DO i = 1, this%options%arraysize ! loop over options
1337 IF (this%options%array(i)%need_arg == 2) THEN
1338 ENDIF
1339ENDDO
1340
1341WRITE(*,'(A/A/A)')'esac','return 0','}'
1342
1343END SUBROUTINE optionparser_make_completion
1344
1345
1346SUBROUTINE dirty_char_assignment(destc, destclen, src)
1347USE kinds
Definition of constants to be used for declaring variables of a desired type.
Definition: kinds.F90:251

Generated with Doxygen.