Discussion :

[latex_man]

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 :

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

main(int argc, char * argv)

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

Code :

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

program TOTO(arg1, arg2)

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

Code :

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

1
2
3
 
./TOTO arg1 arg2
./TOTO(arg1,arg2)

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

Code :

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

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

[DaZumba]

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.

[latex_man]

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 :

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

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

[TheOyoStyledMan]

+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 )

[Ehouarn]

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 :

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

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).

[latex_man]

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

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

Code :

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

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 !

[john stedd]

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 :

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

read (toto, '(i1)') mon_entier

[latex_man]

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

A bientôt pour de nouvelles aventures

[Grame]

Bonjour,

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

[genteur slayer]

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...