Fortran: `READ(*,*)` != Command-line Argumente. Wie verwenden von Befehlszeile-Argumente?

GCC version 4.6

Das Problem: einen Weg Zu finden, um die feed-in-Parametern und der ausführbaren Datei, sagen a.out von der Befehlszeile aus - genauer gesagt-feed in ein array von double-precision-zahlen.

Versuch: Mit der READ(*,*) Befehl, die älteren in der standard:
Programm test.f - 

PROGRAM MAIN  
     REAL(8)    :: A,B  
     READ(*,*) A,B
     PRINT*, A+B, COMMAND_ARGUMENT_COUNT()
END PROGRAM MAIN

Ausführung - 

$ gfortran test.f
$ ./a.out 3.D0 1.D0

Funktionierte dies nicht. Auf ein bisschen soul-searching, festgestellt, dass 

$./a.out
3.d0,1.d0
   4.0000000000000000                0

funktioniert, aber die zweite Zeile ist ein Eingabe-prompt, und das Ziel, dies in eine Zeile ist nicht erreicht. Auch die COMMAND_ARGUMENT_COUNT() zeigt, dass die zahlen fließen in die Eingabe-Aufforderung nicht wirklich zählen "command line arguments', im Gegensatz zu PERL.

  • Sie konnte tun 'echo "3 1" | ein.out " mit Ihrem code. Nicht, dass ich würde empfehlen, aber vielleicht hilft Sie verstehen, was read(*,*) ist.
  • Es funktioniert!! danke @george . Ich habe versucht ./a.out | echo '3.1d0 1.d0'früher .. und es hat nicht funktioniert. Und es ist besser für meine Zwecke, weil auf diese Weise ein format muss nicht angegeben werden, erscheint natürlicher .. und allgemein zu mir!
InformationsquelleAutor Debanjan Basu | 2012-12-12
  1. 21

    Wenn Sie wollen, um die Argumente gefüttert, um Ihr Programm auf der Befehlszeile, verwenden Sie die (seit Fortran 2003) standard intrinsische Unterprogramm GET_COMMAND_ARGUMENT. So etwas wie dies funktionieren könnte

    PROGRAM MAIN  
     REAL(8)    :: A,B
     integer :: num_args, ix
     character(len=12), dimension(:), allocatable :: args

     num_args = command_argument_count()
     allocate(args(num_args))  ! I've omitted checking the return status of the allocation 

     do ix = 1, num_args
         call get_command_argument(ix,args(ix))
         ! now parse the argument as you wish
     end do

     PRINT*, A+B, COMMAND_ARGUMENT_COUNT()
END PROGRAM MAIN

    Hinweis:

    • Das zweite argument an das Unterprogramm get_command_argument ist eine Charakter-variable, die Sie haben, zu analysieren, um sich in einen echten (oder was auch immer). Beachten Sie auch, dass ich darf nur 12 Zeichen in jedem element der args array, möchten Sie vielleicht zu hantieren herum.
    • Wie Sie bereits herausgefunden read ist nicht zum Lesen der Kommandozeilen-Argumente in Fortran-Programme.

    Seit Sie Lesen möchten, ein array von real-zahlen, könnten Sie besser dran, mit dem Ansatz hast du bereits herausgefunden, dass das Lesen Ihnen aus der Klemme, nachdem das Programm gestartet wurde, es ist bis zu Ihnen.

    • Eine andere Möglichkeit ist natürlich, die Nummer zu Lesen-array aus einer ASCII-oder namelist input-Datei aus, deren name als Kommandozeilen-argument.
    • vielen Dank für Ihre tolle Antwort @High-Performance-Mark ... könnten Sie bitte fügen Sie einen Abschnitt, oder einen link zu einer Seite mit Informationen zum festlegen der lese-Formate? Können nicht unterscheiden, welche sind alt und welche neu sind! Ist READ(*,*) wie die Analyse gemacht werden soll in Fortran 2003?
    • Während Sie warten, für meine Antwort auf Ihren Kommentar, versuchen Sie, Google.
    • habe dieser ... aber nicht kompilieren auf meine version von gfortran! EDIT: es geht. offenbar ändern die Dateinamen betrifft den Inhalt des Programms. Nochmals vielen Dank! Bögen
    • read (*,*) ist in standard-Fortran für eine Liste-gerichtet Lesen von der Standardeingabe. Die meisten Betriebssysteme schließen die standard-Eingabe an das terminal. Es ist nichts falsch mit es, obwohl es in der Sprache eine lange Zeit. Eine gute Webseite für Fortran-95-Funktionen: en.wikipedia.org/wiki/Fortran_95_language_features
    InformationsquelleAutor High Performance Mark
Schreibe einen Kommentar