|
◆ 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] | 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 691 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
|