libsim  Versione 7.2.4

◆ csv_record_addfield_double()

subroutine, private file_utilities::csv_record_addfield_double ( type(csv_record), intent(inout)  this,
double precision, intent(in)  field,
character(len=*), intent(in), optional  form,
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.

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

Definizione alla linea 720 del file file_utilities.F90.

721 CALL csv_record_getfield(this, field=cfield, ier=ier)
722 IF (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, &
728  'in csv_record_getfield, invalid integer field: '//trim(cfield))
729  CALL raise_error()
730  ELSE
731  ier = 3 ! conversion error

Generated with Doxygen.