Fortran 77, variable

Bonjour à tous,

Je voulais savoir si dans l'instruction:

real lon,lat,sla_free(14),sla_assim(14),sla_moy(14),
S sla_moy_ass(14)

DATA (sla_moy (i), i = 1,14, 1) /14 * 0 /
DATA (sla_moy_ass (i), i = 1,14, 1) /14 * 0 /

il est possible de mettre une variable à la place du pas 14. Ce pas varie en faite à chaque fois en fonction de l'étude.
J'ai essayé de faire un programme qui enregistre ce pas dans un fichier txt pour le réutiliser dans mon programme, mais sans succès. Voici le script:
------------------------------------------------------------­------------------------------------------------------------­--------
program interval_sla
integer ok,ligne,A

open(10,file='/data/ctsiim/augee/SIMULATEUR_V_1_0/SORTIES_E­MMANUEL_CIRCU/select_point.txt',status='old',iostat=ok)
open(20,file='/data/ctsiim/augee/SIMULATEUR_V_1_0/SORTIES_E­MMANUEL_CIRCU/A.txt',status='old',iostat=ok)
if(ok /= 0) then
write(*,*) 'erreur 1 fichier xko.dat'
stop
end if

ligne = 0

do while(ok == 0) !boucle pour compter le nb.de ligne du fichier
read(10,*,iostat = ok)
if (ok == 0) ligne = ligne + 1
end do
rewind(unit=10,iostat=ok)

A=ligne/14
write(20,*)A
close(20)
call yo

END

subroutine yo

integer ok,ligne,i,j,count,A

open(20,file='/data/ctsiim/augee/SIMULATEUR_V_1_0/SORTIES_E­MMANUEL_CIRCU/A.txt',status='old',iostat=ok)

read(20,*)A
close(20)


lon,lat,sla_free(A),sla_assim(A),sla_moy(A),
S sla_moy_ass(A)

DATA (sla_moy (i), i = 1,A, 1) /A * 0 /
DATA (sla_moy_ass (i), i = 1,A, 1) /A * 0 /

------------------------------------------------------------­------------------------------------------------------------­--

Il me semble pas très logique d'effectuer un read avant d'avoir fini les déclarations.
De plus j'ai essayé avec un common entre le programme principal et la subroutine mais sans succès.