write y read internos en Fortran

write puede apuntar a una cadena, y read puede parsearla de vuelta.

program internal_write
    implicit none
    character(len=32) :: line
    real :: mean = 68.14
    integer :: day = 3

    ! An internal write formats into a string instead of the screen.
    write (line, '(a, i0, a, f6.2)') "day ", day, " mean ", mean
    print *, "built: [", trim(line), "]"

    ! An internal read parses text back into variables.
    read (line(5:5), '(i1)') day
    print *, "parsed the day back: ", day
end program internal_write

Cómo funciona

write (line, fmt) ... formatea dentro de line en vez de la pantalla.
La cadena armada se imprime recortada, con corchetes mostrando sus bordes.
read (line(5:5), '(i1)') parsea el dígito del día directo del texto.

Palabras clave y builtins usados aquí

character
end
implicit
integer
len
none
print
program
read
real
trim
write

El intento, en números

Líneas: 14
Caracteres a escribir: 413
Tokens: 69
Ritmo de tres estrellas: 60 tpm

Al ritmo de tres estrellas de 60 tokens por minuto, este intento toma unos 69 segundos.

Escribe este fragmento

Paso 3 de 3 en Cadenas y formatos; paso 18 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →