libsim  Versione 7.2.6

◆ csv_record_addfield_real()

subroutine, private file_utilities::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 690 del file file_utilities.F90.

691 ocursor = ocursor + 1
692  IF (PRESENT(field)) THEN
693  IF (ocursor <= len(field)) THEN
694  field(ocursor:ocursor) = transfer(char, dummy)
695  ENDIF
696 ENDIF
697 IF (check_space) THEN
698  IF (.NOT.is_space_b(char)) ofcursor = ocursor
699 ELSE
700  ofcursor = ocursor
701 ENDIF

Generated with Doxygen.