Discussion :

[gchazelle]

Bonjour tout le monde,

Désolé je débute en Fortran 90...

Je souhaiterai savoir comment récupérer un ensemble d'options passées en ligne de commande à mon exe développé en Fortran 90 lors de son lancement.

exe: totto.exe fichierEntree fichierSortie

Merci d'avance

Guy

[Giovanny Temgoua]

Bonjour et bienvenue,

Il y'a eu un problème similaire il y'a quelques temps et il semblerait qu'il ne soit pas possible de passer les paramètres au programme en ligne de commande (une astuce consiste alors à lire des données à partir de fichier spécifique)

[Dry]

oui, c'est ce que je voulais faire, mais ne trouvant pas de solution, j'ai opter pour la lecture d'un fichier qui contient dans ton cas :

Code :

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

1
2
fichierEntrer
fichierSortie

mon post :
http://www.developpez.net/forums/viewtopic.php?t=258575

[netPhilou31]

Si tu développes sur PC en Visual Fortran il existe une fonction permettant de récupérer le nombre d'argument dans la ligne de commande (en plus du nom de l'exécutable lui même). Par ailleurs il est possible d'appeler une autre fonction qui te renvera un argument particulier (cf. code ci-dessous puisé dans l'aide du Visual Fortran). Je pense que cela doit également exister dans d'autres compilateurs (Watcom,...)

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
 !  MYPROG.F90 responds to command switches -r, -c and/or -d
 use DFLIB
 integer(4) count, num
 integer(2) i, status
 character(80) buf
 real r1 / 0.0 /
 complex c1 / (0.0,0.0) /
 real(8) d1 / 0.0 /
 
 num = 5
 count = NARGS()
 do i = 1, count-1
    call GETARG(i, buf, status)
    if (buf(2:status) == 'r') then
        r1 = real(num)
        write(*,*) 'r1 = ',r1
    else if (buf(2:status) == 'c') then
        c1 = cmplx(num)
        write(*,*) 'c1 = ', c1
    else if (buf(2:status) == 'd') then
        d1 = dble(num)
        write(*,*) 'd1 = ', d1
    else
        write(*,*) 'Invalid command switch'
        exit
    end if
end do
end

Bon courage.