[Débutant] Passage d'arguments à l'exécutable comme pour le C ?

Bonjour !
Je viens de parcourir le manuel de débutant du fortran et je ne trouve nulle part la réponse pour ma question.
J'essaye de passer des arguments à mon exécutable comme en C.

Code:

---

main(int argc, char * argv)

---

Donc, j'ai déclaré mon programme principal ainsi :

Code:

---

program TOTO(arg1, arg2)

---

Le compilo me dit rien mais quand j'exécute mon programme, aucune de ces syntaxes n'est bonne.

Code:

---

1 2 3

./TOTO arg1 arg2 ./TOTO(arg1,arg2)

---

Et quand j'essaye de déclarer mes arguments avec intent in :

Code:

---

character(LEN=*) , intent(in) :: arg1

---

Il me dit -je cite- "the intent attribute ... is not allowed in a PROGRAM unit[/code]

Merci pour votre aide :mouarf:

Le point d'entree du programme n'est pas une fonction en Fortran, au contraire du C. On ne peut donc pas recevoir d'arguments ainsi. Il faut appeler iargc() pour obtenir le nombre d'arguments, et getarg() pour obtenir la valeur de chacun des arguments. Certains compilateurs ne disposent pas de ces fonctions, cependant.

Merci !
Je suis vraiment débutant et grâce à ta réponse j'ai pu googliser getarg et trouver mon bonheur.
Si y en a que ça intéresse, voici la solution :

Code:

---

1 2 3 4 5 6 7 8 9 10

PROGRAM test_getarg INTEGER :: i CHARACTER(len=32) :: arg   DO i = 1, iargc() CALL getarg(i, arg) WRITE (*,*) arg END DO END PROGRAM

---

+1 Dazumba

Ces subroutines ne sont pas portables...J'avais mis du temps à comprendre ca à une époque (et traiter des compilateurs de tous les noms d'oiseaux possibles :evilred: )

Bonjour,

En fait (si j'ai bien compris ce que j'ai lu de-ci de-là), ce n'est qu'avec la norme 2003 qu'ont été définies les fonctions et routines intrinsèques pour gérer les arguments de l'exécutable: la fonction command_argument_count() renvoie le nombre d'arguments (nom de l'exécutable exclu), la routine get_command(command,length,status) permet de récupérer tous les arguments d'un coup et la routine get_command_argument(i,argument,length,status) de récupérer le ième argument.

Ce qui donnerait quelque chose comme

Code:

---

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

program test_get_command   implicit none integer :: i character(len=200) :: argument integer :: length ! nb de caracteres de 'argument' (optionnel) integer :: status ! =0 si l'operation s'est bien deroulee (optionnel)   do i=0,command_argument_count() call get_command_argument(i,argument,length,status) write(*,*) trim(argument) enddo   end program test_get_command

---

Mais il faut ensuite disposer d'un compilateur qui a intégré ces ajouts de la norme 2003 ...
(je peux seulement affirmer qu'avec g95 ça passe).

Pendant qu'on y est, j'espère ne pas abuser de votre gentilesse :yaisse2:

Les arguments sont récupérés en chaine de caractère.
J'ai essayé de convertir un de ces arguments en integer :

Code:

---

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

character (LEN=150) :: arg character (LEN=150) :: toto integer :: a ... call getarg(1,toto) write(*,*) toto call getarg(2,arg) write(*,*) arg ! ça me donne le bon chiffre   write (a,'(I1)') arg ! Quand je fais trim(arg), segmentation fault write(*,*) arg ! Me donne 0 comme résultat quelque soit le vrai chiffre

---

Qu'est ce qui cloche ?
Pourquoi quand j'affiche a, il n'a pas reçu la valeur de l'argument ?
Merci !

Bonjour,

on en parlait justement ce matin avec les collègues de boulot. si ton argument est stocké dans la chaine de caractères toto (donc toto vaut par exemple '6'), pour le récupérer en tant qu'integer, il suffit d'utiliser un READ :

Code:

---

read (toto, '(i1)') mon_entier

---

Bien joué : c'est ça !
Pourtant, dans ma tête, j'étais sûr du write ...

A bientôt pour de nouvelles aventures :aie:

Bonjour,

Citation:

---

Mais il faut ensuite disposer d'un compilateur qui a intégré ces ajouts de la norme 2003 ...
(je peux seulement affirmer qu'avec g95 ça passe).

---

C'est aussi inclus dans gfortran sous linux

en gros, "write" ne sort que des chaines de caractère, tandis que read traduit une chaine de caractère en variable entière/reel/complexe/character....

de plus gfortran et g95 sont basés sur gcc... donc les fonction de récupérations des argument sont inclue car traduites en c...