libsim Versione 7.1.11
|
◆ csv_record_addfield_double()
Add a field from a The field will be quoted if necessary.
Definizione alla linea 716 del file file_utilities.F90. 717
718CHARACTER(len=32) :: cfield
719INTEGER :: lier
720
721CALL csv_record_getfield(this, field=cfield, ier=ier)
722IF (c_e(cfield) .AND. len_trim(cfield) /= 0) THEN
723 READ(cfield, '(I32)', iostat=lier) field
724 IF (lier /= 0) THEN
725 field = imiss
726 IF (.NOT.PRESENT(ier)) THEN
727 CALL l4f_log(l4f_error, &
|