libsim Versione 7.2.0

◆ open_package_file()

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

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 447 del file file_utilities.F90.

448!! The field will be quoted if necessary. A missing value is inserted
449!! as an empty field.
450SUBROUTINE csv_record_addfield_char_miss(this, field, force_quote)
451TYPE(csv_record),INTENT(INOUT) :: this
452CHARACTER(len=*),INTENT(IN) :: field
453LOGICAL, INTENT(in), OPTIONAL :: force_quote
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
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

Generated with Doxygen.