[Fortran 77] Problème incrémentation nom_fichier

bonjour,

Je travaille sur un programme fortran ou je cherche a faire ce qui suit:

Pour l'instant mon programme me crée et écrit dans un fichier appelé 'contrainte', mais je désire en fait qu'il me crée x fichiers (un tous les 1000 pas) avec mes resultats a l'interieur biensur (pour des faciliter l'exploitation car les fichiers sont tellement gros que quand je les ouvre avec Excel il n'arrive pas à prendre en considération toutes les données or si je divise ce fichier en plusieurs petits fichiers de taille correcte, le problème ne se posera plus). Le seul soucis , c'est que je n'arrive pas a changer le nom du fichier a chaque fois que ma boucle do..enddo implemente de 1000 pas. Je desirerai avoir x fichiers texte du type 'contrainte1', 'contrainte2, 'contrainte3' etc... mais je ne sais absolument pas comment faire incrementer le numero dans le nom du fichier avec:

Code:

---

1 2 3

OPEN(br3,file='/tmp/mon_non/RESULTATS/contrainte', & form='formatted',access='APPEND') WRITE(br3,1200) temps,contrainte

---

Si quelqu'un a une piste à me donner, merci de me répondre. Débutant sur Fortran

Merci d'avance

Bonsoir,

Le principe est de créer un caractère (ou une chaine en fonction de la taille de la borne supérieure de la boucle) puis de concaténer avec le nom.
Du style :

Code:

---

1 2 3 4 5 6 7

character (len = 3) :: ext ! 3 ou plus selon la taille character (len = 36) :: nom_fichier   if (mod(boucle,1000) == 0) then write (ext,'(i1)') boucle / 1000 nom_fichier = "/tmp/mon_non/RESULTATS/contrainte" // ext

---

Ca te renvoie les noms :

Citation:

---

/tmp/mon_non/RESULTATS/contrainte1
/tmp/mon_non/RESULTATS/contrainte2
/tmp/mon_non/RESULTATS/contrainte3
/tmp/mon_non/RESULTATS/contrainte4
/tmp/mon_non/RESULTATS/contrainte5
/tmp/mon_non/RESULTATS/contrainte6
/tmp/mon_non/RESULTATS/contrainte7
/tmp/mon_non/RESULTATS/contrainte8
/tmp/mon_non/RESULTATS/contrainte9

---

Il faut remplacer le format '(i1)' par '(i2)' pour continuer de 10 à 99, ...

Ne pas oublier de fermer le fichier précédent avant d'en ouvrir un nouveau

Il faut que tu définisses une variable texte par exemple num et je vais supposer que tu auras au max 999 fichiers. En fait quand tu ouvres ton nouveau fichiers constante tu ouvre "constante"//num ce qui rajoute le numéro :

Code:

---

1 2	character(len=3)::num

---

Dans ta boucle tu fais ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

ifichier=0 Do i=1,total If( mod(i,1000) == 0 ) Then ! tous les 1000 pas ifichier = ifichier + 1 write(num,"(i3.3)")ifichier ! j'écris le numéro dans un string ! i3.3 permet d'écrire 002 au lieu de 2 close(br3) ! je ferme ton contrainte précédent open(br3,file="...../contrainte"//num) ! si ifichier =2 alors ton nouveau fichier ouvert est ! contrainte002 Endif   ..... suite de ton programme   Enddo

---

le coup de mettre 002 au lieu de 2 c'est vachement pratique pour éviter les blancs dans les noms de fichiers !

Grame et Ladgalen je vous remercie pour vos réponses.

Je vais essayer d'explorer les pistes que vous venez de me donner et je vous tiens au courant du résulat.

Encore merci à vous.

Bonjour,

J'ai testé votre proposition, voici une partie du programme:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

% déclaration INTEGER*4 br,br1,br2,br3,ipas,npas CHARACTER (len=3)::ext call pickname(scontac,1,'NPAS ',npas) call numcompo(scontac,'IPAS ',scontac_ipas)   % déclaration ifichier=1 % Corps du programme do i=1,npas call picknum(scontac,1,scontac_ipas,ipas) if(mod(ipas,10).EQ.0.d+0)then ifichier=ifichier+1 write(ext,"(i3.3)")ifichier close(br3) OPEN(br3,file="/tmp/moi/RESULTAT/COCO/essai"//ext, & form='formatted',access='APPEND') WRITE(br3,13000) temps,nc,rayon,sigtra endif enddo

---

Le nombre de pas est très élevé (npas=90M défois).

Quand je compile pas de problème, je lance le calcul, quand le nombre de pas ipas=10 (pour le test je sauvegarde tous les 10 pas), il me crée 999 fichiers du type essai***, essai002, essai003.... au lieu de un fichier (essai001) puisque je n'ai pas encore dépasser ipas=10. Parmi les 999 fichiers, le premier contient beaucoup de données (ensemble du calcul jusque ipas=10) et les autres contiennent une ligne de données, quand il arrive à ipas=20 il écrit à la deuxième ligne des fichiers essai002......

Avez-vous une explication à ce problème?

Merci d'avance.

Citation:

---

Avez-vous une explication à ce problème?

---

Ben, c'est normal, il fait ce que tu lui demandes.

Il faut mettre ton "end if" AVANT le WRITE

C'est normal que le

Code:

---

WRITE(br3,13000) temps,nc,rayon,sigtra

---

soit dans la boucle IF/ENDIF ? Comme je le vois là, tous les 10 pas il crée un nouveau fichier et il écrit temps,nc,rayon et sigtra dedans. Mais comme ton write est entre ton If et endif il n'écrit jamais plus dans ton fichier !

Je sais pas si c'est très clair ce que j'ai dis mais je pense que le problème vient du fait que le write est entre IF et Endif


Autre chose :

Mod (integer1, integer2) renvoie un entier qui est le reste de la division de integer1 par integer2. Tu as donc de la chance que

mod(ipas,10).EQ.0.d+0 soit vrai de tous les 10 pas. Dis merci à ton comilateur. De manière générale évite de faire un test en demandant si un réel est égal à un autre réel, à cause de la précision c'est en fait jamais vrai.

La bonne syntaxe est mod(ipas,10).EQ.0 !!! l'entier 0!

Bonsoir,

merci pour vos réponses, vos remarques et vos sugestions mais aussi merci à mon compilateur:lol:.

demain je vais essayer de mettre le "end if" avant le write.

Je n'ai toujours pas compris l'histoire de 999 fichiers.

Pour l'instant j'ai fait quelque chose du genre:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

% déclaration INTEGER*4 br,br1,br2,br3,ipas,npas   call numcompo(scontac,'IPAS ',scontac_ipas) call picknum(scontac,1,scontac_ipas,ipas)   if(ipas.le.1000)then OPEN(br3,file='tmp/mon_nom/RESULTAT/COCO/essai_01' & form='formatted',access='APPEND') WRITE(br3,13000) temps,nc,rayon,sigtra endif   if((ipas.gt.1000).and.(ipas.le.3000))then OPEN(br3,file='tmp/mon_nom/RESULTAT/COCO/essai_02' & form='formatted',access='APPEND') WRITE(br3,13000) temps,nc,rayon,sigtra endif   if((ipas.gt.3000).and.(ipas.le.8000))then OPEN(br3,file='tmp/mon_nom/RESULTAT/COCO/essai_03' & form='formatted',access='APPEND') WRITE(br3,13000) temps,nc,rayon,sigtra endif   if((ipas.gt.8000).and.(ipas.le.12000))then OPEN(br3,file='tmp/mon_nom/RESULTAT/COCO/essai_04' & form='formatted',access='APPEND') WRITE(br3,13000) temps,nc,rayon,sigtra endif   ....................   % Et le dernier fichier   if((ipas.gt.800000)then OPEN(br3,file='tmp/mon_nom/RESULTAT/COCO/essai_06' & form='formatted',access='APPEND') WRITE(br3,13000) temps,nc,rayon,sigtra endif

---

Pour l'instant je me suis limiter à 6 fichiers, mais ils sont toujours aussi volumineux....Ce n'est pas vraiment de la programmation ce que je fais en ce moment mais bon ça dépanne!!!

Vous avez compris mon problème,enfin je l'espère! Voilà c'est pas toujours évident de traduire ce qu'on veut en langage informatique (programmation) ni de faire passer le message...

Merci encore pour votre aide.

....

Heureusement que tu n'as pas 100 fichiers ... sinon tu devrais écrire 100 fois ta structure IF/Endif :)

Je pense que avec le programme que tu as donné plus haut avec la technique de grame et de moi ton problème vient du fait que si npas=900000 et que tu crée un fichier tous les 10 pas tu as beaucoup plus que 999 fichiers. Tu en as 90000 !!

Or comme tu as déclaré ext avec len=3 et que tu écris avec un format I3.3 tu ne peux pas avoir plus de 3 chiffres (d'où le max est 999). Dans ton cas tu as plus de 999 fichiers et comme le format i3.3 ne peut pas écrire 1000 il écrit *** . Donc tu as plein de fichiers avec *** ou un gros avec *** car il écrit toujours dans le même.

Tu devrais reprendre ton programme précédent, inverser le Endif et le write et changer la valeur dans le mod.

Par exemple avec 900000 pas en tout tu fais

mod(ipas,90000)

pour avoir 10 fichiers en tout

Citation:

---

Envoyé par Ladgalen

....

Heureusement que tu n'as pas 100 fichiers ... sinon tu devrais écrire 100 fois ta structure IF/Endif :)



Tu devrais reprendre ton programme précédent, inverser le Endif et le write et changer la valeur dans le mod.

Par exemple avec 900000 pas en tout tu fais

mod(ipas,90000)

pour avoir 10 fichiers en tout

---

Ok, je reprendrais le programme précédent et faire des modifications qui s'imposent.
Si je comprends bien, pour récapituler, je dois faire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

% déclaration INTEGER*4 br,br1,br2,br3,ipas,npas CHARACTER (len=3)::ext call pickname(scontac,1,'NPAS ',npas) call numcompo(scontac,'IPAS ',scontac_ipas)   % déclaration % EN SUPPOSANT QUE NPAS=1000 (nombre de pas maxi) ifichier=1 % Corps du programme do i=1,npas call picknum(scontac,1,scontac_ipas,ipas) if(mod(ipas,100)==0) then ifichier=ifichier+1 write(ext,"(i3.3)")ifichier close(br3) OPEN(br3,file="/tmp/moi/RESULTAT/COCO/essai"//ext, & form='formatted',access='APPEND') endif   WRITE(br3,13000) temps,nc,rayon,sigtra   enddo   10300 FORMAT(1(F20.6,2x),1(I20.2,2x),2(F20.6,2x))

---

ça veut dire que je vais avoir 10 fichiers du type essai001.....essai010.
Mais pensez-vous qu'il va faire la chose ci-dessous?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

<ul><li style="">pour ipas=1 à 100 écrire dans le fichier essai001</li></ul> <ul><li style="">pour ipas=100 à 200 écrire dans le fichier essai002</li></ul> <ul><li style="">pour ipas=200 à 300 écrire dans le fichier essai003</li></ul> <ul><li style="">pour ipas=300 à 400 écrire dans le fichier essai004</li></ul> <ul><li style="">pour ipas=400 à 500 écrire dans le fichier essai005</li></ul> <ul><li style="">pour ipas=500 à 600 écrire dans le fichier essai006</li></ul> <ul><li style="">pour ipas=600 à 700 écrire dans le fichier essai007</li></ul> <ul><li style="">pour ipas=700 à 800 écrire dans le fichier essai008</li></ul>   <ul><li style="">pour ipas=800 à 900 écrire dans le fichier essai009</li></ul>   <ul><li style="">pour ipas=900 à 1000 écrire dans le fichier essai010</li></ul>

---

Si c'est le cas, ça répond bien à mes attentes:mouarf:

Merci Ladgalen et Grame pour vos réponses.

Pour la première partie oui ça à l'air d'être bon. Par contre j'avais pas remarqué un truc, le commentaire ça marche avec % ??? normalement il faut mettre un !

Citation:

---

Mais pensez-vous qu'il va faire la chose ci-dessous?
Code :

* pour ipas=1 à 100 écrire dans le fichier essai001

* pour ipas=100 à 200 écrire dans le fichier essai002

* pour ipas=200 à 300 écrire dans le fichier essai003

* pour ipas=300 à 400 écrire dans le fichier essai004

* pour ipas=400 à 500 écrire dans le fichier essai005

* pour ipas=500 à 600 écrire dans le fichier essai006

* pour ipas=600 à 700 écrire dans le fichier essai007

* pour ipas=700 à 800 écrire dans le fichier essai008

* pour ipas=800 à 900 écrire dans le fichier essai009

* pour ipas=900 à 1000 écrire dans le fichier essai010

Si c'est le cas, ça répond bien à mes attentes

---

En fait je ne pense pas :
Tu fais une première boucle de i=1,npas qui appelle à chaque itération la subroutine picknum. Dans cette subroutine comment varie ipas ?
En fait si à chaque fois que tu appelles picknum, ipas augmente de 1 (en fait tu as i = ipas) alors oui tu feras ce qu'il y a écrit au dessus et pour chaque ipas tu auras une ligne dans supplémentaire dans ton fichier.

Si chaque fois que tu appelles picknum ipas varie par exemple de 10, comme tu écris sur essaiXXX en dehors de la subroutine tu n'écriras qu'un pas sur 10 sur le fichier.

Regarde si tu ne dois pas faire ta boucle de ipas=1,npas au lieu de i !

bonjour,

Pour les commentaires, dans mon programme je mets un "c" à la place de "%" donc pas de problème.
En revanche, en inversant "endif" et "write" et utilisant le programme suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

INTEGER*4 br,br1,br2,br3,ipas,npas CHARACTER (len=3)::ext ifichier=0 call pickname(scontac,1,'NPAS ',npas) call picknum(scontac,1,scontac_ipas,ipas) do i=1,npas if(mod(ipas,1)==0)then ifichier=ifichier+1 write(ext,"(i3.3)")ifichier close(br3) OPEN(br3,file="/tmp/adolphe/RESULT/CORCI/essai"//ext, & form='formatted',access='APPEND') endif WRITE(br3,13000) ipas,nc,rayon,sigtra enddo

---

voici ce que j'ai comme résulat:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

ipas nc rayon sigtra 1 0 0.00 0.00 2 0 0.00 0.00 3 0 0.00 0.00 4 0 0.00 0.00 5 0 0.00 0.00 6 0 0.00 0.00 7 0 0.00 0.00 8 0 0.00 0.00 9 0 0.00 0.00 10 0 0.00 0.00 11 0 0.00 0.00 12 0 0.00 0.00 13 0 0.00 0.00 14 0 0.00 0.00 15 0 0.00 0.00 16 0 0.00 0.00 17 0 0.00 0.00 18 0 0.00 0.00 19 0 0.00 0.00 20 2 0.00 0.00

---

Biensur les résulats présentés ne sont pas juste par rapport à mon calcul mais c'est pas le problème.

Ce fichier de données est le "essai001", j'ai donc au final 20 fichiers qui contiennent la même chose (c'est à dire que le contenu du fichier "essai001" est le même que "essai002, essai003,......essai020". Je remarque que si je prends par exemple (c'est le cas ici) npas=20, je me retrouve avec 20 fichiers contenant chacun 20 lignes (ipas=1,npas).

Citation:

---

Je veux par exemple 5 fichiers du type essai001....essai005 et dans le fichier essai001 je veux avoir:

---

Code:

---

1 2 3 4 5 6

ipas nc rayon sigtra 1 0 0.00 0.00 2 0 0.00 0.00 3 0 0.00 0.00 4 0 0.00 0.00

---

et dans le fichier essai002

Code:

---

1 2 3 4 5 6

ipas nc rayon sigtra 5 0 0.00 0.00 6 0 0.00 0.00 7 0 0.00 0.00 8 0 0.00 0.00

---

Et ainsi de suite, je veux donc que le fichier "suivant" soit la suite du fichier "précédent", vous me suivez j'esper!!!!

Pour répondre à ta question, le ipas varie de 1 en 1 à l'intérieur de ma bouche et dès qu'il atteint npas fixés au départ, il arrête le calcul.

Citation:

---

Si je modifie au niveau de: if(mod(ipas,1)==0)then
En conservant la boucle i=1,npas, je me retrouve avec:

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

ipas nc rayon sigtra 2 0 0.00 0.00 4 0 0.00 0.00 6 0 0.00 0.00 8 0 0.00 0.00 10 0 0.00 0.00 12 0 0.00 0.00 14 0 0.00 0.00 16 0 0.00 0.00 18 0 0.00 0.00 20 2 0.00 0.00

---

et j'ai toujours mes 20 fichiers, ce n'est pas ce que je veux biensur....
Si je fais une boucle avec ipas=1,npas c'est à dire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

INTEGER*4 br,br1,br2,br3,ipas,npas CHARACTER (len=3)::ext ifichier=0 call pickname(scontac,1,'NPAS ',npas) call picknum(scontac,1,scontac_ipas,ipas) do ipas=1,npas if(mod(ipas,1)==0)then ifichier=ifichier+1 write(ext,"(i3.3)")ifichier close(br3) OPEN(br3,file="/tmp/adolphe/RESULT/CORCI/essai"//ext, & form='formatted',access='APPEND') endif WRITE(br3,13000) ipas,nc,rayon,sigtra enddo

---

j'ai au final toujours 20 fichiers mais du type:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Pour le premier "essai001" ipas nc rayon sigtra 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 0 0.00 0.00 1 2 0.00 0.00

---

pour le deuxième:"essai002"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

ipas nc rayon sigtra 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 0 0.00 0.00 2 2 0.00 0.00

---

ect.....

En faisant le test sur le mod(npas,1) j'ai le même comportement.

ça fait trois jours que je galère à faire ce qui semble être facile.....alors au secours:cry:

Merci d'avance pour vos réponses

Je te donne un programme que j'ai écrit à partir du tient il me donne les résultats suivants :

6 fichiers de essai001 à essai006 sur lesquels on a ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

essai001 # ipas nc rayon sigtra 1 0 0.000000 0.000000 2 0 0.000000 0.000000   essai002 # ipas nc rayon sigtra 3 0 0.000000 0.000000 4 0 0.000000 0.000000   essai003 # ipas nc rayon sigtra 5 0 0.000000 0.000000 6 0 0.000000 0.000000   essai004 # ipas nc rayon sigtra 7 0 0.000000 0.000000 8 0 0.000000 0.000000   essai005 # ipas nc rayon sigtra 9 0 0.000000 0.000000 10 0 0.000000 0.000000   essai006 # ipas nc rayon sigtra

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

program mecanique implicit none INTEGER::br3,ipas,npas,nc,ifichier CHARACTER (len=3)::ext double precision::rayon,sigtra     ! initialisation de valeurs br3=10 npas=10 nc=0 rayon =0.d0 sigtra=0.d0   ! Initialisation pour le premier fichier ifichier=1 write(ext,"(i3.3)")ifichier close(br3) OPEN(br3,file="essai"//ext) write(br3,"(a)")"# ipas nc "// & " rayon sigtra" ! ta boucle do ipas=1,npas   ! call ton truc   if(mod(ipas,2)==0)then ! tu écrit la dernière ligne WRITE(br3,13000) ipas,nc,rayon,sigtra   ! tu ouvre le nouveau fichier ifichier=ifichier+1 write(ext,"(i3.3)")ifichier close(br3) OPEN(br3,file="essai"//ext) write(br3,"(a)")"# ipas nc "// & " rayon sigtra"   ! tu boucle pour pas reécrire la dernière ligne sur ! le nouveua fichier cycle endif   WRITE(br3,13000) ipas,nc,rayon,sigtra   enddo   13000 FORMAT(2I10,2F20.6)   end program mecanique

---

Tu peux reprendre la structure et rajouter tes trucs à l'intérieur ou alors modifier le tiens en conséquences.

Attention, moi je fais la boucle sur ipas, si toi tu modifie ipas dans ta subroutine c'est pas bon car tu peux pas modifier un compteur à l'intérieur de ta boucle.
Bon courage

Merci Ladgalen,

Je vais le tester, en principe il devrait marcher comme il marche chez toi.

Je te tiens au courant.

Citation:

---

Attention, moi je fais la boucle sur ipas, si toi tu modifie ipas dans ta subroutine c'est pas bon car tu peux pas modifier un compteur à l'intérieur de ta boucle.
Bon courage

---

Voilà j'ai fait adapter par rapport à mon programme, sauf que je n'ai pas pris ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

program mecanique implicit none INTEGER::br3,ipas,npas,nc,ifichier CHARACTER (len=3)::ext double precision::rayon,sigtra     ! initialisation de valeurs br3=10 npas=10 nc=0 rayon =0.d0 sigtra=0.d0

---

Vu que les déclarations sont déjà effectuées par contre rayon, sigtra sont déclarés comme REAL.

Problème de compilation dont voici la souce (les erreurs):

Citation:

---

f77 -O3 -o SOURCE/PROCESS/ftn/nom_programme.o -c SOURCE/PROCESS/ftn/nom_programme.f -I/home/utilisateursnis/mon_nom/LOGICIEL/SOURCE/INCL
SOURCE/PROCESS/ftn/nom_programme.f: In subroutine `nom_programme.f':
SOURCE/PROCESS/ftn/nom_programme.f:86: warning:
call pickname(mater,1,'MAVOL ',mavol)
1
SOURCE/PROCESS/ftn/nom_programme.f:102: (continued):
call pickname(scontac,1,'NPAS ',npas)
2
Argument #4 of `pickname' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
SOURCE/PROCESS/ftn/nom_programme.f:121:
write(br3,"(a)")"# ipas nc "// &
1 2
Missing operand for operator at (1) at end of expression at (2)
SOURCE/PROCESS/ftn/nom_programme.f:121:
write(br3,"(a)")"# ipas nc "// &
^
Invalid form for WRITE statement at (^)
SOURCE/PROCESS/ftn/nom_programme.f:122:
" rayon sigtra"
^
Statement at (^) begins with invalid token [info -f g77 M LEX]
SOURCE/PROCESS/ftn/nom_programme.f:136:
write(br3,"(a)")"# ipas nc "// &
1 2
Missing operand for operator at (1) at end of expression at (2)
SOURCE/PROCESS/ftn/nom_programme.f:136:
write(br3,"(a)")"# ipas nc "// &
^
Invalid form for WRITE statement at (^)
SOURCE/PROCESS/ftn/nom_programme.f:137:
" rayon sigtra"
^
Statement at (^) begins with invalid token [info -f g77 M LEX]
SOURCE/PROCESS/ftn/nom_programme.f:126: warning:
call picknum(scontac,1,scontac_ipas,ipas)
1
SOURCE/PROCESS/ftn/nom_programme.f:187: (continued):
call picknum(noeud,nonoe,noeud_coord,qc)
2
Argument #4 of `picknum' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
SOURCE/PROCESS/ftn/nom_programme.f:126: warning:
call picknum(scontac,1,scontac_ipas,ipas)
1
SOURCE/PROCESS/ftn/nom_programme.f:188: (continued):
call picknum(noeud,nonoe,noeud_vitesf,qv)
2
Argument #4 of `picknum' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
SOURCE/PROCESS/ftn/nom_programme.f:126: warning:
call picknum(scontac,1,scontac_ipas,ipas)
1
SOURCE/PROCESS/ftn/nom_programme.f:189: (continued):
call picknum(corci,i,corci_ray,ai)
2
Argument #4 of `picknum' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
SOURCE/PROCESS/ftn/nom_programme.f:126: warning:
call picknum(scontac,1,scontac_ipas,ipas)
1
SOURCE/PROCESS/ftn/nom_programme.f:190: (continued):
call picknum(corci,i,corci_masse,mi)
2
Argument #4 of `picknum' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
SOURCE/PROCESS/ftn/nom_programme.f:126: warning:
call picknum(scontac,1,scontac_ipas,ipas)
1
SOURCE/PROCESS/ftn/nom_programme.f:193: (continued):
call picknum(corci,i,corci_surf,surf)
2
Argument #4 of `picknum' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
SOURCE/PROCESS/ftn/nom_programme.f:126: warning:
call picknum(scontac,1,scontac_ipas,ipas)
1
SOURCE/PROCESS/ftn/nom_programme.f:278: (continued):
call picknum(contact,kk,contact_fcij,fcij)
2
Argument #4 of `picknum' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
SOURCE/PROCESS/ftn/nom_programme.f:126: warning:
call picknum(scontac,1,scontac_ipas,ipas)
1
SOURCE/PROCESS/ftn/nom_programme.f:279: (continued):
call picknum(contact,kk,contact_fcji,fcji)
2
Argument #4 of `picknum' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
SOURCE/PROCESS/ftn/nom_programme.f:126: warning:
call picknum(scontac,1,scontac_ipas,ipas)
1
SOURCE/PROCESS/ftn/nom_programme.f:292: (continued):
call picknum(contact,kk,contact_norcont,n)
2
Argument #4 of `picknum' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
SOURCE/PROCESS/ftn/nom_programme.f:639: warning:
call putname(corci,nc0,'RAY ',aj)
1
SOURCE/PROCESS/ftn/nom_programme.f:640: (continued):
call putname(corci,nc0,'NONOE ',nn0)
2
Argument #4 of `putname' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
make: *** [SOURCE/PROCESS/ftn/nom_programme.o] Erreur 1

---

Vrai semblablement le problème se situe au niveau des "write" des caractères je pense.

Merci jeter un coup d'oeil et merci pour ton aide.

Citation:

---

J'UTILISE FORTRAN77 , gcc, Unix/Lunix....

---

que ce soit real ou double precision n'a pas énormément d'importance. Tout dépend de la précision que tu attends de tes calculs.

Moi j'ai l'habitude de faire mes calculs en double précision donc j'ai pris l'habitude de mettre double precision au lieu de real.

En fait la différence c'est le nombre d'octets que tu utilises pour stocker tes nombres réel :
real = 4 octets
double precision = 8 octets en vieux fortran on écrivait real*8

A ton avis pourquoi il n'accepte pas l'écriture utilisée? pour les write je veux dire

Je n'avais pas vu ton post ... désolé

Je pense que si tu compiles en fortran 77 avec un fichier .f il ne comprend pas les signes & pour les fins de lignes.

La longueur de la ligne est fixée (vieux reste des cartes perforées) donc en f77 tu met un caractère (peut importe) en colonne 6 et en f90 tu met le signe & à la fin de la ligne qui continue !

Change ceux que j'ai mis car moi j'ai écrit en 90

Citation:

---

Argument #4 of `pickname' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS

---

Citation:

---

Vrai semblablement le problème se situe au niveau des "write" des caractères je pense.

---

Ce n'est pas mon impression. Apparament tu appelles des routines
externes (pickname, picknum) et le compilateur détecte une différence de types sur le 4ieme argument.

Citation:

---

J'UTILISE FORTRAN77

---

Curieux ! Ton code source est du Fortran90 pas du FORTRAN77.
Les noms de paramètres/variables/fonctions/routines de plus de 6 caractères,
les '::' dans les déclarations de variables, les 'do ... end do', les tests '==' ne font pas partie de la norme ANSI FORTRAN77.
De fait, chaque compilateur intègre ou pas, et comme il veut, ces extensions.
Il vaut mieux utiliser un compilateur Fortran90, typiquement gfortran
dans la plupart des distrib linux (RedHat, openSUSE , Debian/Ubuntu, Slackware/Zenwalk)

Bonsoir et merci à vous,

C'est g77 que j'utilise, oui ma subroutine fait appel à plusieurs programmes, je lance un script qui fait appel à ma subroutine, qui lui fait appel au code de calcul 2D, etc... c'est trop compliqué tout ça, je me concentre sur:
mon scrip pour lancer ma subroutine

• ma subroutine pour mon application (pour info: broyage des grains)

• un programme principal qui fait appel à d'autres routines que je ne regarde pas en détail

• un script pour la visualisation
  

• un script qui appel le programme principal

enfin je crois que ça fonctionne comme ça....

Citation:

---

Il vaut mieux utiliser un compilateur Fortran90, typiquement gfortran
dans la plupart des distrib linux (RedHat, openSUSE , Debian/Ubuntu, Slackware/Zenwalk)

---

Je ne sais pas trop ce que sait...Fortran90 oui, mais le reste ne me dit rien.

Citation:

---

C'est vrai que dans toutes les routines présentes dans le code de calcul que j'utilise, il n'y a aucune déclaration du type: INTEGER::(c'est plutot INTEGER npas, par exemple), mais il compile sans problème, et pour les &, il y a rien non plus donc il ne reconnaît pas.

---

Le programme donné par Ladgalen

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

program mecanique implicit none INTEGER::br3,ipas,npas,nc,ifichier CHARACTER (len=3)::ext double precision::rayon,sigtra     ! initialisation de valeurs br3=10 npas=10 nc=0 rayon =0.d0 sigtra=0.d0   ! Initialisation pour le premier fichier ifichier=1 write(ext,"(i3.3)")ifichier close(br3) OPEN(br3,file="essai"//ext) write(br3,"(a)")"# ipas nc "// & " rayon sigtra" ! ta boucle do ipas=1,npas   ! call ton truc   if(mod(ipas,2)==0)then ! tu écrit la dernière ligne WRITE(br3,13000) ipas,nc,rayon,sigtra   ! tu ouvre le nouveau fichier ifichier=ifichier+1 write(ext,"(i3.3)")ifichier close(br3) OPEN(br3,file="essai"//ext) write(br3,"(a)")"# ipas nc "// & " rayon sigtra"   ! tu boucle pour pas reécrire la dernière ligne sur ! le nouveua fichier cycle endif   WRITE(br3,13000) ipas,nc,rayon,sigtra   enddo   13000 FORMAT(2I10,2F20.6)   end program mecanique

---

Conviendrait mais ne tourne pas en fortran77, Pouvez-vous me proposer un truc qui marche avec le f77? Demain je commence mon 4ème jour de bidouille sans aucun résultat satisfaisant, quelle perte de temps! mais bon

Citation:

---

C'est en faisant des erreurs qu'on apprend, c'est juste une question de temps...

---