Fortran
kossivi
-
jisisv Messages postés 3678 Statut Modérateur -
jisisv Messages postés 3678 Statut Modérateur -
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
Je ne suis pas spécialiste FORTRAN, mai c²hez moi (debian wheezy) ceci fonctionne:
Ceci fonctionne aussi avec GNU-FORTRAN.
Gates gave ^H sold you the windows.
GNU gave us the whole house.(Alexandrin)
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)
