libsim  Versione 7.1.8

◆ open_package_file()

integer function file_utilities::open_package_file ( character(len=*), intent(in)  filename,
integer, intent(in)  filetype 
)

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.

Parametri
[in]filenamename of the file to be opened, it must be a relative path name
[in]filetypetype of file, the constants filetype_data or filetype_config have to be used

Definizione alla linea 453 del file file_utilities.F90.

454 
455 CALL csv_record_addfield(this, t2c(field, ''), force_quote=force_quote)
456 
457 END SUBROUTINE csv_record_addfield_char_miss
458 
459 
462 SUBROUTINE csv_record_addfield_int(this, field, form, force_quote)
463 TYPE(csv_record),INTENT(INOUT) :: this
464 INTEGER,INTENT(IN) :: field
465 CHARACTER(len=*),INTENT(in),OPTIONAL :: form !< optional format
466 LOGICAL, INTENT(in), OPTIONAL :: force_quote
467 
468 IF (PRESENT(form)) THEN
469  CALL csv_record_addfield(this, trim(to_char(field, form)), force_quote=force_quote)
470 ELSE
471  CALL csv_record_addfield(this, t2c(field), force_quote=force_quote)
472 ENDIF
473 
474 END SUBROUTINE csv_record_addfield_int
475 
476 

Generated with Doxygen.