io - ejemplos - lista completa de comandos linux pdf

Leer entero desde el final del archivo con `` Formato faltante para la transferencia de datos FORMATTED hecho`

Question

Estoy actualizando un programa Fortran para mis necesidades. El programa compila usando f95 y gcc versión 4.1.2 (sé que es antiguo, pero no puedo actualizarlo). Quiero leer los parámetros de un archivo y pruebo esto a través de

      inquire (file="resLast", exist=resExist)
      if (readStart.eq.1.and.resExist) then
         open (unit=18,file=''resLast'', status=''old'', action=''read'')
         read (18) startConf
         read (18) avlength, stdlength, avenergy
         read (18) i,h2(1)
         read (18) i,h2(2)
         read (18) i,h2(4)
         read (18) i,h2(5)
         read (18) i,h2(8)
         read (18) i,h2(9)
         read (18) i,h2(13)
         read (18) i,h2(16)
         read (18) i,h2(17)
         read (18) i,h2(18)
         read (18) i,h2(20)
         read (18) i,h2(25)
         read (18) i,h2(32)
         close (18)
      else
         startConf = 0
         do i=1,32
            h2(i)=0
            comh2(i)=0
         enddo
         avlength=0d0
         stdlength=0d0
         avenergy=0d0
      endif

El archivo de entrada se ve como

           0
   196.090732114834        38451.5752213317        53.4452884569457     
           1  9.188750409521163E-004
           2  4.548226133920252E-004
           4  8.704101492185146E-005
           5  2.175445697503164E-004
           8  4.992044341634028E-005
           9  2.108949411194772E-005
          13  4.304789035813883E-005
          16  4.693072696682066E-005
          17  8.976260141935199E-005
          18  2.737747854553163E-005
          20  5.637826689053327E-005
          25  3.860405195155181E-005
          32  3.193027441739105E-005

Cuando intento ejecutar esto obtengo un error

Fortran runtime error: Missing format for FORMATTED data transfer
done

Lo que apunta a la primera línea de read . La startConf variable, as well as i`` es un número entero. El resto de las variables son de doble precisión.

He usado este método para leer datos en enteros previamente (incluso en el mismo código) sin problemas, ¿dónde está mi falla actual?

Answer 1

Como no lo especifica explícitamente, su instrucción open asume un archivo formatted (texto). Cuando lee un archivo de texto, también debe proporcionar un formato:

read(18, *) i1

Alternativamente, si su archivo unformatted está unformatted (binario), abra su archivo en consecuencia:

 open (unit=18, file=''resLast'', status=''old'', action=''read'', form=''unformatted'')

Answer 2

leer (18, *) es una mejor opción. puedes probar esto