una - GFortran I/O error 5002 al leer un archivo de acceso directo

manejo de archivos en fortran

Question

Tengo un pequeño problema al leer un archivo en Fortran. Como pueden ver, estoy sobre un archivo que lee ciertos registros con una longitud específica.

Lo que sucede es que, cuando se trata de un cierto registro, recibo un error IOSTAT 5002. Ahora mi pregunta es qué significa este error: ¿está al final del archivo o no queda registro o algo más? ¿Puedo ignorarlo?

Estoy usando MinGW GFortran 4.8.0.

Aquí está el código:

PROGRAM test_read
INTEGER*4 HCM_error
DOUBLE PRECISION N_Record(22)
CHARACTER*8 C_Record(22)
EQUIVALENCE (N_Record,C_Record)
OPEN (UNIT=11, FILE=''C:/BORDER/D__HOL.000'',STATUS=''OLD'', ACCESS=''DIRECT'',RECL=176, ACTION=''READ'', IOSTAT=IOS)
HCM_error=0
DO N_rec = 1, 2000
READ (11, REC=N_rec, IOSTAT=IOS) C_Record
WRITE(*,*) "|",IOS,'' '',N_rec,'' '',N_record(21),'' '',N_record(22),"|"
!End of file reached (or non existing record) ?
IF ((IOS .LT. 0) .OR. (IOS .EQ. 36)) EXIT
IF (IOS .NE. 0) THEN
!Error in (border-) line data
HCM_Error = 1049
EXIT
END IF
END DO
CLOSE(UNIT=11)
WRITE (*,*) HCM_error
END PROGRAM

Answer 1

Los valores distintos de cero devueltos por un especificador iostat= no son portátiles entre los compiladores. Si desea determinar qué significa un código en particular, entonces tiene dos opciones:

• lea la documentación del compilador (si existe)
• utilice el iomsg= especificador con una variable de caracteres

En este caso, cuando probé iomsg= recibiste el mensaje "Número de registro iomsg= ". Entonces, problema resuelto.

Bueno, casi. Hay más para decir.

Puede que se sorprenda de que esté revisando los registros, a su vez, en acceso directo, pero que estén llegando al estado "sin registro" sin alcanzar primero el estado "final del archivo". Está probando (IOS .LT. 0) con un comentario "! Fin del archivo alcanzado".

Al leer un archivo conectado para acceso directo, no se produce el final de la condición de archivo.

¿Qué puede hacer para detectar que el registro no es un número válido, más allá del final del archivo? No mucho, de forma portátil, pero cualquier número positivo de iostat= indica una condición de error. Ahora sabes, sin embargo, lo que significa este particular 5002 .

Probablemente también debería agregar que la variable de caracteres para iomsg= está definida por la declaración de transferencia solo si no hay éxito. Considérelo solo si sabe que la transferencia falló.