libsim Versione 7.2.6
|
◆ 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 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 !< object where to add field
452CHARACTER(len=*),INTENT(IN) :: field !< field to be added
453LOGICAL, INTENT(in), OPTIONAL :: force_quote !< if provided and \c .TRUE. , the field will be quoted even if not necessary
454
455CALL csv_record_addfield(this, t2c(field, ''), force_quote=force_quote)
456
457END SUBROUTINE csv_record_addfield_char_miss
458
459
460!> Add a field from an \c INTEGER variable to the csv record \a this.
461!! The field will be quoted if necessary.
462SUBROUTINE csv_record_addfield_int(this, field, form, force_quote)
463TYPE(csv_record),INTENT(INOUT) :: this !< object where to add field
464INTEGER,INTENT(IN) :: field !< field to be added
465CHARACTER(len=*),INTENT(in),OPTIONAL :: form !< optional format
466LOGICAL, INTENT(in), OPTIONAL :: force_quote !< if provided and \c .TRUE. , the field will be quoted even if not necessary
467
468IF (PRESENT(form)) THEN
469 CALL csv_record_addfield(this, trim(to_char(field, form)), force_quote=force_quote)
470ELSE
|