Character
Z Wikipedii
character to odpowiednik typu string do przechowywania zmiennych łańcuchowych w języku Fortran (w standardzie od wersji Fortran 77).
Przykład (zmienna buffer o długości 128 B):
character*(128) buffer
buffer = 'abc' l = len(buffer) buffer = buffer(:l) + 'cdef ' l = len(buffer) buffer = buffer(:3) // ' xyx ' // buffer(4:) // ' pqr ' print *, '#' // buffer(:len(buffer))// '#'
Wynik działania - na ekranie zobaczymy:
#abc xyx cdef pqr #
Powyżej wykorzystano:
- standardową funkcję len określającą pozycję od lewej ostatniego znaku różnego od NUL (chcąc odrzucić końcowe spacje należy użyć fukcji len_trim)
- tworzenie wycinka zmiennej typu character:
- znaki nr m do n (włącznie): var(m:n)
- od początku do nr n włącznie: var(:n)
- od znaku nr m do końca: var(m:)
- konkatenację łańcuchów: operator "//" lub "+"