libsim Versione 7.1.11
|
◆ open_package_file()
Opens a specific file for the libsim package. It searches in different directories using get_package_filepath to locate the file. It returns the unit number associated to the file found and successfully opened, or -1 if the file does not exist or an error occurred while opening it.
Definizione alla linea 453 del file file_utilities.F90. 454
455CALL csv_record_addfield(this, t2c(field, ''), force_quote=force_quote)
456
457END SUBROUTINE csv_record_addfield_char_miss
458
459
462SUBROUTINE csv_record_addfield_int(this, field, form, force_quote)
463TYPE(csv_record),INTENT(INOUT) :: this
464INTEGER,INTENT(IN) :: field
465CHARACTER(len=*),INTENT(in),OPTIONAL :: form !< optional format
466LOGICAL, INTENT(in), OPTIONAL :: force_quote
467
468IF (PRESENT(form)) THEN
469 CALL csv_record_addfield(this, trim(to_char(field, form)), force_quote=force_quote)
470ELSE
471 CALL csv_record_addfield(this, t2c(field), force_quote=force_quote)
472ENDIF
473
474END SUBROUTINE csv_record_addfield_int
475
476
|