libsim  Versione6.3.0

◆ csv_record_addfield_double_miss()

subroutine, private file_utilities::csv_record_addfield_double_miss ( type(csv_record), intent(inout)  this,
double precision, intent(in)  field,
logical, intent(in), optional  force_quote 
)
private

Add a field from a DOUBLE PRECISION variable to the csv record this.

The field will be quoted if necessary. A missing value is inserted as an empty field.

Parametri
[in,out]thisobject where to add field
[in]fieldfield to be added
[in]force_quoteif provided and .TRUE. , the field will be quoted even if not necessary

Definizione alla linea 754 del file file_utilities.F90.

754 CALL csv_record_getfield(this, field=cfield, ier=ier)
755 IF (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

Generated with Doxygen.