Gestion de fichiers en fortran 90/77
Résolu/Fermé
Irene_Adler
Messages postés
129
Date d'inscription
jeudi 26 juin 2008
Statut
Membre
Dernière intervention
9 juillet 2011
-
26 juin 2008 à 23:54
cchristian Messages postés 921 Date d'inscription lundi 21 janvier 2008 Statut Membre Dernière intervention 6 mars 2012 - 1 juil. 2008 à 17:33
cchristian Messages postés 921 Date d'inscription lundi 21 janvier 2008 Statut Membre Dernière intervention 6 mars 2012 - 1 juil. 2008 à 17:33
A voir également:
- Gestion de fichiers en fortran 90/77
- Wetransfer gratuit fichiers lourd - Guide
- Explorateur de fichiers - Guide
- Renommer plusieurs fichiers en même temps - Guide
- Logiciel gestion photos - Guide
- +32 466 90 77 00 ✓ - Forum Mobile
5 réponses
cchristian
Messages postés
921
Date d'inscription
lundi 21 janvier 2008
Statut
Membre
Dernière intervention
6 mars 2012
131
27 juin 2008 à 22:56
27 juin 2008 à 22:56
Bonsoir,
Essaie en ajoutant : OPEN (UNIT = 70, .............., STATUS = ....
A titre de comparaison je joins une instruction OPEN qui fonctionne (en Fortran 77):
--
Cordialement.
Cchristian.
Essaie en ajoutant : OPEN (UNIT = 70, .............., STATUS = ....
A titre de comparaison je joins une instruction OPEN qui fonctionne (en Fortran 77):
OPEN (UNIT = DATA_UT_IN, IOSTAT = IO_RC, S FILE = F_NAME_IN, STATUS = 'OLD', S ACCESS = 'SEQUENTIAL', FORM = 'FORMATTED', S ERR = 15)
--
Cordialement.
Cchristian.
Char Snipeur
Messages postés
9696
Date d'inscription
vendredi 23 avril 2004
Statut
Contributeur
Dernière intervention
3 octobre 2023
1 297
27 juin 2008 à 08:44
27 juin 2008 à 08:44
regarde là
ftp://ftp-developpez.com/fortran/cours/notions-base.pdf
tu devrais trouve facilement.
ftp://ftp-developpez.com/fortran/cours/notions-base.pdf
tu devrais trouve facilement.
Irene_Adler
Messages postés
129
Date d'inscription
jeudi 26 juin 2008
Statut
Membre
Dernière intervention
9 juillet 2011
18
27 juin 2008 à 16:57
27 juin 2008 à 16:57
Merci pour les cours!
J'ai essayé d'ouvrir un fichier en accès direct mais j'ai toujours le même message d´erreur:
fortcom: Error: funwave2d.f, line 93: Syntax error, found END-OF-STATEMENT when expecting one of: , )
open(70,file='eta_fct_of_time',form='formatted',access='direct',recl=ngage*20)
-----------------------------------------------------------------------------------------------------------------^
voici le bout de code:
open(70,file='eta_fct_of_time',form='formatted',access='direct',recl=ngage*20)
write(70,rec=it,fmt='(100F8.4)')(etn(ixg(k),iyg(k)),k=1,ngage)
close(70)
J'ai essayé d'ouvrir un fichier en accès direct mais j'ai toujours le même message d´erreur:
fortcom: Error: funwave2d.f, line 93: Syntax error, found END-OF-STATEMENT when expecting one of: , )
open(70,file='eta_fct_of_time',form='formatted',access='direct',recl=ngage*20)
-----------------------------------------------------------------------------------------------------------------^
voici le bout de code:
open(70,file='eta_fct_of_time',form='formatted',access='direct',recl=ngage*20)
write(70,rec=it,fmt='(100F8.4)')(etn(ixg(k),iyg(k)),k=1,ngage)
close(70)
Irene_Adler
Messages postés
129
Date d'inscription
jeudi 26 juin 2008
Statut
Membre
Dernière intervention
9 juillet 2011
18
30 juin 2008 à 19:41
30 juin 2008 à 19:41
Pour les futurs lecteurs de cette discussion:
Un des problèmes rencontré est que le compilateur ne comprend pas les instructions open,write,read,....
quand elles sont en début de ligne,
il faut absolument faire une indentation pour qu'il comprenne.(ne pas écrire dans les colonnes 1 à 5 car c'est la zone pour les étiquettes.)
certains compilateurs marchent comme ca...
Un des problèmes rencontré est que le compilateur ne comprend pas les instructions open,write,read,....
quand elles sont en début de ligne,
il faut absolument faire une indentation pour qu'il comprenne.(ne pas écrire dans les colonnes 1 à 5 car c'est la zone pour les étiquettes.)
certains compilateurs marchent comme ca...
Irene_Adler
Messages postés
129
Date d'inscription
jeudi 26 juin 2008
Statut
Membre
Dernière intervention
9 juillet 2011
18
1 juil. 2008 à 17:17
1 juil. 2008 à 17:17
Merci de votre aide, Je crois que j'ai trouvé l'erreur:
fortcom: Error: funwave2d.f, line 93: Syntax error, found END-OF-STATEMENT when expecting one of: , )
open(70,file='eta_fct_of_time',form='formatted',access='direct',recl=ngage*20)
---------------------------------------------------------------------------------------^
ici, outre le fait que je n'avais pas fait d'identation et qu'une fois sur deux il ne reconnaissait pas l'instruction OPEN,
il fallait:
- faire plusieurs lignes car la ligne d'instruction OPEN était trop longue et il ne la lisait pas en entier
en faisant cela, le programme compile.
REMARQUE: avant de lire un fichier binaire, utiliser la fonction
rewind(UNIT_FILE)
MERCI ENCORE!!!!!!!!!
fortcom: Error: funwave2d.f, line 93: Syntax error, found END-OF-STATEMENT when expecting one of: , )
open(70,file='eta_fct_of_time',form='formatted',access='direct',recl=ngage*20)
---------------------------------------------------------------------------------------^
ici, outre le fait que je n'avais pas fait d'identation et qu'une fois sur deux il ne reconnaissait pas l'instruction OPEN,
il fallait:
- faire plusieurs lignes car la ligne d'instruction OPEN était trop longue et il ne la lisait pas en entier
en faisant cela, le programme compile.
REMARQUE: avant de lire un fichier binaire, utiliser la fonction
rewind(UNIT_FILE)
MERCI ENCORE!!!!!!!!!
cchristian
Messages postés
921
Date d'inscription
lundi 21 janvier 2008
Statut
Membre
Dernière intervention
6 mars 2012
131
1 juil. 2008 à 17:33
1 juil. 2008 à 17:33
Bon courage, merci pour ces infos,
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Char Snipeur
Messages postés
9696
Date d'inscription
vendredi 23 avril 2004
Statut
Contributeur
Dernière intervention
3 octobre 2023
1 297
30 juin 2008 à 08:41
30 juin 2008 à 08:41
peut être n'aime til pas le *20...
Irene_Adler
Messages postés
129
Date d'inscription
jeudi 26 juin 2008
Statut
Membre
Dernière intervention
9 juillet 2011
18
30 juin 2008 à 16:55
30 juin 2008 à 16:55
J'ai essayé avec un nombre et j'ai le même message d'erreur.
Les fichiers formattés en accès direct fortran 90 marchent-ils mieux?
Les fichiers formattés en accès direct fortran 90 marchent-ils mieux?
30 juin 2008 à 17:00
Merci de ta réponse,
J'ai essayé avec ton code mais j'ai besoin d'un accès direct et c'est là qu'il trouve un problème .
A titre d'info, J'ai un compilateur ifort que j'ai téléchargé dans le site de Intel...
30 juin 2008 à 19:20
P.S. Question : Le fichier file='eta_fct_of_time' a bien été créé en tant que fichier à organisation et accés directs ? Ce n'est pas un fichier créé en "séquentiel" que tu tentes d'ouvrir en accés direct.
30 juin 2008 à 19:48
1 juil. 2008 à 16:34
1 juil. 2008 à 17:30
Si le fichier n'existe pas il faudra la première fois le créer avec NEW :
Ma remarque était en effet mal formulée, elle sous-entend que le fichier est déjà existant créé dans une précédente étape, alors qu'il va être constitué dans le même programme par les instructions :