Fortran
Bonjour,
Je suis un débutant en fortran. J'ai écrit un programme pour lire les données et le récrire sous. Je remarque que le fichier de sortie "toto" n'est pas créé. Donnez-moi un coup de main.
Merci à tous.
INTEGER n,i
CHARACTER*80 toto
n=744
OPEN(11,FILE='/st1_fs9/tete/West_Africa_2006/Traitement/PR/valgm.txt',STATUS='old')
DO i=1,n
WRITE(11,*) toto
ENDDO
CLOSE(11)
end
Je suis un débutant en fortran. J'ai écrit un programme pour lire les données et le récrire sous. Je remarque que le fichier de sortie "toto" n'est pas créé. Donnez-moi un coup de main.
Merci à tous.
INTEGER n,i
CHARACTER*80 toto
n=744
OPEN(11,FILE='/st1_fs9/tete/West_Africa_2006/Traitement/PR/valgm.txt',STATUS='old')
DO i=1,n
WRITE(11,*) toto
ENDDO
CLOSE(11)
end
1 réponse
-
ModérateurJe ne suis pas spécialiste FORTRAN, mai c²hez moi (debian wheezy) ceci fonctionne:
johand@osiris: ~/src/fortran $ rm brol.txt; touch brol.txt johand@osiris: ~/src/fortran $ cat ccm.f INTEGER n,i CHARACTER*80 toto toto='Salut le monde' n=744 OPEN(11,FILE='brol.txt',STATUS='old') DO i=1,n WRITE(11,*) toto ENDDO CLOSE(11) END johand@osiris: ~/src/fortran $ f77 -o ccm -Wall ccm.f MAIN: johand@osiris: ~/src/fortran $ f77 -o ccm ccm.f MAIN: johand@osiris: ~/src/fortran $ ./ccm johand@osiris: ~/src/fortran $ wc -l brol.txt 744 brol.txtIl en est de même si je supprime brol.txt et remplace le champ status par 'new' lors de l'ouverture du fichier.
Ceci fonctionne aussi avec GNU-FORTRAN.
Gates gave ^H sold you the windows.
GNU gave us the whole house.(Alexandrin)
