libsim Versione 7.2.1
|
◆ optionparser_add_iarray()
Add a new option with an integer 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_integer (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.
Definizione alla linea 1180 del file optionparser_class.F90. 1181
1182SELECT CASE(form)
1183CASE(0)
1184 CALL optionparser_printhelptxt(this)
1185CASE(1)
1186 CALL optionparser_printhelpmd(this)
1187CASE(2)
1188 CALL optionparser_printhelphtmlform(this)
1189END SELECT
1190
1191END SUBROUTINE optionparser_printhelp
1192
1193
1197SUBROUTINE optionparser_printhelptxt(this)
1198TYPE(optionparser),INTENT(in) :: this
1199
1200INTEGER :: i, j, ncols
1201CHARACTER(len=80) :: buf
1202TYPE(line_split) :: help_line
1203
1204ncols = default_columns()
1205
1206! print usage message
1207IF (ASSOCIATED(this%usage_msg)) THEN
1208 help_line = line_split_new(cstr_to_fchar(this%usage_msg), ncols)
1209 DO j = 1, line_split_get_nlines(help_line)
1210 WRITE(*,'(A)')trim(line_split_get_line(help_line,j))
1211 ENDDO
1212 CALL delete(help_line)
1213ELSE
1214 CALL getarg(0, buf)
|