|
◆ cstr_to_fchar()
character(len=size(cstr)-1) function, public char_utilities::cstr_to_fchar |
( |
integer(kind=int_b), dimension(:), intent(in) |
cstr | ) |
|
Converts a null-terminated C-style string into a Fortran CHARACTER variable of the same length, the null termination character is removed.
- Parametri
-
[in] | cstr | variable to be converted |
Definizione alla linea 810 del file char_utilities.F90.
811 nwords = word_split(line, this%word_start, this%word_end) 815 DO WHILE(nw < nwords) 818 DO WHILE(nw < nwords) 820 ncols_next_word = this%word_end(nw) - this%word_start(nw) + 1 821 IF (words_in_line > 0) ncols_next_word = ncols_next_word + 1 822 IF (columns_in_line + ncols_next_word <= this%ncols .OR. & 823 words_in_line == 0) THEN
|