AlbertoVV
08 de Enero del 2010

Que tal compa帽eros, espero que alguien me pueda ayudar a solucionar el error en el siguiente programa, esta hecho en fortran, al llegar a la linea read(68,*,end=22) me marca un error

c234567
Program build_map_from_profilo
character*12 fichier
character*12 fichierres
REAL data
INTEGER Nval, Np, Profxy
INTEGER j, n
Dimension data(5000,5000)

print *, 'Entrez le nom du fichier profilo (8caract.txt):'
Read(*,'(a)') fichier
Print *, 'Profil suivant X (1) ou Y (2):'
read(*,*) Profxy
Print *, 'Nombre de points par profil :'
read(*,*) Nval
Print *, 'Nombre de profils :'
read(*,*) Np

open(68,file=fichier)
read(68,*,end=22)

22 if (Profxy.eq.1) then

c********* lecture des valeur X
read(68,*) (data(1,j), j=1,Nval)

do N=1, Np
read(68,*) (data(N+1,j), j=1,Nval+1)

c do j=1, Nval
c Print*, 'Z= ',data(N+1,j)
c if (j.eq.25) pause
c end do
c pause

end do

else
c********* lecture des abscisses profils
read(68,*) (data(1,n), n=1,Np)

do j=1, Nval
read(68,*) (data(j+1,n), n=1,Np+1)
end do
endif
close (68)

c********** Ouverture du fichier resultats **********
fichierres=fichier(1:8)//'.dat'
open(69,file=fichierres)
c
if (Profxy.eq.1) then

do N=1, Np
c Print*, 'Traitement du profil ',N
c
do j=1, Nval

write(69,500)
& data(1,j)/1.E3, data(N+1,1)/1.E3,
6 data(N+1,j+1)/1.E3
end do

write(69,*)

end do

else


do N=1, Np
c Print*, 'Traitement du profil ',N
c
do j=1, Nval

write(69,500) data(j+1,1)/1.E3,
& data(1,N)/1.E3,
6 data(j+1,N+1)/1.E3
end do

write(69,*)

end do

endif

500 format(F7.3, 1X, F7.3, 1X, F8.4)

c
print *, 'Les r茅sultats sont enregistr茅s dans ', fichierres
print *, 'Ce fichier comporte ', Np,' profils de ', Nval,
& ' points.'
c print *, 'Forme des donn茅es : X Y Z (mm)'
c
close (69)
END