Lettura senza avanzamento in Fortran con formato libero

Question

Voglio leggere una riga in un file, che include tre numeri reali, senza far avanzare il puntatore. Così ho scritto: (TXT è la variabile che rappresenta il mio file che ha un valore di 80)

read(TXT, *, ADVANCE='NO') (numbers(i),i=1,3) 

Tuttavia, ho ricevuto un messaggio di errore che dice:

"Errore # 6568: Questo uso del ADVANCE, L'identificatore SIZE o EOR non è valido. "

Quindi, come devo scriverlo per renderlo corretto?

Grazie.

Answer 1

È possibile utilizzare advance = 'no' solo con un formato esplicito. Il motivo è il seguente: advance = 'no' evita semplicemente di andare al record successivo (si noti che il puntatore del file avanza comunque, subito dopo l'ultimo valore letto); ma con una lista diretta (formato *), non si sa quanti record sono coinvolti dalla propria dichiarazione di lettura (i tre numeri possono essere scritti su quattro righe, per esempio).