libsim Versione 7.1.11

◆ csv_record_addfield_real()

subroutine, private csv_record_addfield_real ( type(csv_record), intent(inout)  this,
real, intent(in)  field,
character(len=*), intent(in), optional  form,
logical, intent(in), optional  force_quote 
)
private

Add a field from a REAL 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 686 del file file_utilities.F90.

687CHARACTER(len=*),INTENT(OUT),OPTIONAL :: field
688
689CHARACTER(len=1) :: dummy ! this prevents a memory leak in TRANSFER()???
690
691ocursor = ocursor + 1
692 IF (PRESENT(field)) THEN
693 IF (ocursor <= len(field)) THEN
694 field(ocursor:ocursor) = transfer(char, dummy)
695 ENDIF
696ENDIF
697IF (check_space) THEN

Generated with Doxygen.