|
◆ csv_record_addfield_real()
subroutine 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 |
|
) |
| |
Add a field from a REAL variable to the csv record this.
The field will be quoted if necessary. - Parametri
-
[in,out] | this | object where to add field |
[in] | field | field to be added |
[in] | form | optional format |
[in] | force_quote | if 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)
697 IF (check_space) THEN
698 IF (.NOT.is_space_b(char)) ofcursor = ocursor
|