libsim Versione 7.2.1
|
◆ csv_record_addfield_real()
Add a field from a The field will be quoted if necessary.
Definizione alla linea 680 del file file_utilities.F90. 681
682CONTAINS
683
684SUBROUTINE add_char(char, check_space, field)
685INTEGER(kind=int_b) :: char
686LOGICAL,INTENT(IN) :: check_space
687CHARACTER(len=*),INTENT(OUT),OPTIONAL :: field
688
689CHARACTER(len=1) :: dummy ! this prevents a memory leak in TRANSFER()???
690
691ocursor = ocursor + 1
|