lenguaje - Los datos del bloque FORTRAN parecen no estar funcionando

fortran iv

Question

Estoy trabajando en algún código heredado que dependa en gran medida de bloques comunes que se inicializan con BLOCK DATA similar al código siguiente.

 BLOCK DATA filename
PARAMETER (size=100)
CHARACTER*8 somearray(size)
COMMON /block1/ somearray
DATA(somearray(i), i=100)/
*''string1'', ''string2'', ... , ''string100''/
END

En algún punto del programa, una subrutina usa este bloque común como se muestra en el siguiente código.

 SUBROUTINE SUB(array)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
CHARACTER*8 array(*), somearray(100)
COMMON /block1/ somearray
DO 100 I=1, iterations
array(I)=somearray(I)
...
100 CONTINUE
END

Aquí somearray tiene un par de espacios en cada cadena en lugar de los valores reales especificados en BLOCK DATA . ¿Cuál podría ser la causa de esto?

Nota : el código está compilado con Intel Fortran

Answer 1

Encontré una solución a este problema agregando una declaración SAVE antes de la instrucción END de cualquier BLOCK DATA como se ve a continuación.

 BLOCK DATA filename
PARAMETER (size=100)
CHARACTER*8 somearray(size)
COMMON /block1/ somearray
DATA(somearray(i), i=100)/
*''string1'', ''string2'', ... , ''string100''/
SAVE
END