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