Tecnicamente's Weblog

Just another WordPress.com weblog

Fortran parte 2: Passare i parametri dalla riga di comando

Mi è sempre piacuta la possibiltà di passare dei parametri ad un programma nel momento in cui lo si lancia dalla riga di comando.

Ciò è estremamente semplice in C/C++, basta infatti:

#include<stdio.h>
int main(int argc, char* argv[])
{
    int i;
    printf("Passati %d parametri\n",argc);
    printf("I parametri sono:\n");
    for(i=1;i<argc;i++) { printf("%s\t",argv[i]);}
    printf("\n");  
    return 0;
}

Sono rimasto sorpreso e stupito che lo si possa fare con il fortran9x, occore richiamare due funzioni native ed ecco:

program parametri
 implicit none
 integer :: argc, i
 character(len=256) :: argv

 argc = command_argument_count()
 argnum = command_argument_count()
 write(*,*)  "Numero argomenti: ",argc 
 do i = 1, argc
  call get_command_argument(i,argv)
  write(*,*) argv
 end do
end program parametri


Un modo diverso per ottenere lo stesso risultato  è il seguente:

program parametri
    implicit none
    
    integer :: i, n_of_arg
    character(10) :: argv
    
    
    write(*,*) "Numero argomenti: ", iargc()

    do i=1,iargc()
        call getarg(i,argv)
        write(*,*) argv
    enddo
end program parametri

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...

%d blogger cliccano Mi Piace per questo: