lectura de ficheros

Lectura y escritura de ficheros
UN EJEMPLO DE PROGRAMA
Este programa abre y lee de un fichero de datos llamado datos.d, que se supone está en el
mismo directorio que el programa, tres coeficientesA, B y C (de tipo REAL*8)
PROGRAM fichero

IMPLICIT NONE
INTEGER :: ierror=2
REAL*8 :: A, B, C
! Los datos se leen en el fichero datos.d
OPEN(UNIT=10, FILE="datos.d", STATUS="OLD",IOSTAT=ierror)
IF (ierror /= 0) THEN
PRINT *, "Error de lectura de fichero"
STOP 123456
END IF
READ (10,*) A, B, C

! Lee del fichero

CLOSE(10)
PRINT *, " ", "A=", A, " ", "B=", B, " ", "C=", C
ENDPROGRAM

•

•

•

La sentencia OPEN(… )abre un fichero ya existente (OLD), llamado datos.d (FILE)
como unidad 10 (UNIT). Si la apertura es correcta, la variable INTEGER ierror
tomará valor 0,pero si se produce un error tomará un valor positivo. En la sentencia
siguiente se comprueba que no ha habido error; si lo hay, la sentencia STOP detiene
el programa imprimiendo el número que va acontinuación.
La sentencia READ (10,*) … lee los tres valores A, B, C del fichero (se supone que
el fichero contiene una primera línea con tres números reales:
3.14 1.59 2.65

La sentenciaCLOSE(10)cierra el fichero.

INSTRUCCIONES PARA LECTURA Y ESCRITURA.

OPEN(unit=u, file=‘hola.dat’, status=’new’, iostat=ierr )
unit=u
file=name

: u es la unidad de referencia para el ficheroabierto.

: name dato de tipo character con el nombre del fichero

[opcional]status=’new’: El fichero no existía previamente.

’old’: El fichero ya existe
’unknown’: No sabemos si existe. Si noexiste lo crea (por defecto)
’scratch’: Crea el fichero y lo destruye al acabar la ejecución.
[opcional]action=’read’: El fichero se usará para leer datos.
’write’: El fichero se usará para escribir.’readwrite’: El fichero se puede usar para ambas (por defecto).

[opcional]iostat=info: info variable entera que devuelve 0 si no ha habido error.
CLOSE(unit=u)
unit=u

:Cierra el fichero...