Discussion :

[Praetor.Fenix]

Salut tout le monde,

ce n'est pas une question que j'ai à vous soumettre mais plus un service à demander. Je bosse sur mon mémoire de fin d'étude et j'ai un petit souci que j'aimerai régler, celui m'empêche de progresser dans mon travail.

En fait, je dois intégrer le programme CEA http://www.grc.nasa.gov/WWW/CEAWeb/c...wnload-win.htm

dans un autre et ce que j'aimerai, c'est que l'executable FCEA2 fournit dans le package ne me demande pas le nom du fichier mais s'execute directement sur un fichier de nom CC.INP.

quelqu'un qui s'y connait pourrait-il me programmer ceci? le code source en FORTRAN est fournit dans le package. Je sais que c'est juste une ou deux ligne de code à changer mais quand on s'y connait pas, c'est long et j'ai pas le temps d'apprendre le FORTRAN. J'ai bien essayé de changer une ligne mais j'ai eu une erreur à la compilation.

En vous remerciant d'avance pour les 5 mn de votre temps que vous m'accorderez.

[genteur slayer]

alors... j'espère avoir bien compris ce que tu veut: que l'exec ne demande pas le nom du fichier mais s'exécute automatiquement avec fichier que tu veux...

alors j'ai deux solution:
- la première, la plus simple à programmer, mais nécessite de recompiler à chaque fois que tu veux changer de fichier d'entrée:
dans cea2.f, commente les deux lignes 118 et 119 à(met un C en début de ligne) et rajout:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
...
C      WRITE (*,99001)
C      READ (*,99002) prefix
      prefix = 'CC'
      ln = INDEX(prefix,' ') - 1
      infile = prefix(1:ln)//'.inp'
...

ceci aura pour effet de chercher le fichier CC.inp à chaque exécution du programme...

- la seconde ne nécessite pas la recompilation si par hasard tu veux changer de fichier inp, toujours au même endroit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
...
C      WRITE (*,99001)
C      READ (*,99002) prefix
      open(unit=14,file='case.dat',status='old')
      read(14,99002)prefix
      close(14)
      ln = INDEX(prefix,' ') - 1
      infile = prefix(1:ln)//'.inp'
...

dans ce cas, l'exécutable va chercher un fichier texte case.dat qui contient le nom du fichier inp sur sa première ligne (ne pas mettre l'extension .inp car elle rajoutée par la ligne : infile = prefix(1:ln)//'.inp')

voilà, j'espère que c'est bien ça que tu recherche!

[Praetor.Fenix]

magnifique, c'est exactement ça que je voulais. De toute façon, j'utilise tout le temps le même fichier de données donc la première solution ira. Un grand merci.

[Praetor.Fenix]

Salut,

j'ai fait la modification mais lorsque j'exécute le programme, la commande windows me dit qu'il est trop grand pour tenir en mémoire. Pourtant il est pas si gros que ça...

[genteur slayer]

alors... plusieurs précisions nécessaire:
-quel Windows?
-quel compilateur et éditeur de liens?
-quelles options de compilation?

et...
est-ce que cela compile et s'exécute correcteur si tu fais pas la modif?

[Praetor.Fenix]

je suis sous windows xp
avec un programme qui s'appelle force 2.0
editeur de lien, kesako?

euh, j'ai laissé les options telle quelle.

justement, ça me met le message d'erreur alors même que je n'ai fait aucune modif.