libsim Versione 7.1.11
|
◆ csv_record_addfield_real()
Add a field from a The field will be quoted if 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
|