libsim Versione 7.1.11

◆ csv_record_addfield_csv_record()

subroutine, private csv_record_addfield_csv_record ( type(csv_record), intent(inout)  this,
type(csv_record), intent(in)  record 
)
private

Add a full csv_record object to the csv record this.

The object to be added must have been generated through csv_record_addfield calls (csv encoding mode). Both csv_record objects this and record must use the same delimiter and quoting characters, otherwise the operation will silently fail.

Parametri
[in,out]thisobject where to add record
[in]recordrecord to be added

Definizione alla linea 749 del file file_utilities.F90.

750
751CHARACTER(len=32) :: cfield
752INTEGER :: lier
753
754CALL csv_record_getfield(this, field=cfield, ier=ier)
755IF (c_e(cfield) .AND. len_trim(cfield) /= 0) THEN
756 READ(cfield, '(F32.0)', iostat=lier) field
757 IF (lier /= 0) THEN
758 field = rmiss
759 IF (.NOT.PRESENT(ier)) THEN
760 CALL l4f_log(l4f_error, &
761 'in csv_record_getfield, invalid real field: '//trim(cfield))

Generated with Doxygen.