[Tech] Fortran77 File I/O

[Alessandro Rossi]

Ciao,

a occhio e croce il codice riportato sotto non ha errori.
Direi che il problema dovrebbe essere che il file
aperto (unit 97) non ha nit+1 linee da leggere.

Se questo e' il problema si puo' ovviare cambiando in:
         ......
            READ(97,*,END=100) FENS(IT)
16      CONTINUE
100     CONTINUE
         CLOSE(97)

Alessandro


On Tue, 3 Feb 2009, Christian wrote:

> Ciao, qualcuno può aiutarmi con il Fortran77?

Per motivi di lavoro, devo utilizzare un programma scritto in Fortran77
ma l'opzione che dovrei usare sembra non funzionare correttamente.
Quello che ottengo in output è il seguente errore:

list in: end of file
apparent state: unit 97 named parfile.dat
last format: list io
lately reading sequential formatted external IO
Aborted

Riporto la parte di codice direttamente interessata:

IF(IFENS.EQ.2)THEN
         POURCE = 0.0
         READ(99,'(A)') CFENS
         OPEN(97,FILE=CFENS,STATUS='OLD')
         DO 16 IT = 1,NIT+1
           READ(97,*) FENS(IT)
16      CONTINUE
         CLOSE(97)
       ENDIF

Più precisamente il programma legge un file principale che viene fornito
come input. Arrivato ad un certo punto il file principale fornisce il
nome di un secondo file (CFENS) che dovrebbe essere aperto e letto.

Forse non è corretta la specifica 97 ? 
Forse bisogna indicare esplicitamente la directory in cui è presente il
file?

Grazie.
-- 
Christian
Instant messaging (Gtalk/jabber-Skype): argonauta74@gmail.com

"..chiunque abbia osservato almeno una volta con i propri occhi la
bellezza della natura non è destinato alla morte, ma alla natura
stessa."

Konrad Lorenz

_______________________________________________
FLUG - Discussioni tecniche - tech@firenze.linux.it
URL: https://lists.firenze.linux.it/mailman/listinfo/tech
Archivio: http://lists.firenze.linux.it/pipermail/tech
Ricerca nell'archivio: http://www.firenze.linux.it/search

-- 
Alessandro Rossi                    Phone: +39 050 3152 953
Spaceflight Dynamics Section        Fax  : +39 050 3152 040
ISTI-CNR
CNR - Area della Ricerca di Pisa
Via Moruzzi, 1
56124  PISA                 e-mail: Alessandro.Rossi@isti.cnr.it
ITALY            URL: http://apollo.isti.cnr.it/rossi/homerossi.html
          ---->            ON Skype:  alessandro.reds
------------------------------------------------------------------