OpenMP in FORTRAN läuft nicht die erwartete Anzahl von threads

Ich bin neu in der parallelen Programmierung, und habe Probleme damit, eine einfache parallele Fortran-Programm für die Verwendung von mehreren threads bei OpenMP. Das folgende Programm:

   Program Hello
   Use omp_lib
   Implicit None

   INTEGER        nthreads
   nthreads = 4

   CALL OMP_SET_NUM_THREADS(nthreads)

   write(*,*) omp_get_num_procs()
   write(*,*) omp_get_max_threads()
   write(*,*) omp_get_num_threads()

   !$OMP PARALLEL
     Write(*,*) 'Hello'
     Write(*,*) omp_get_num_threads()
   !%OMP END PARALLEL

   End Program Hello

Erzeugt das Ergebnis:

      32
       4
       1
   Hello
       1

Was ist der Grund dafür, dass die Anzahl der threads, die innerhalb der parallelen region ist nicht das gleiche wie nthreads, die ich oben gesetzt? Ich bin kompilieren Sie das Programm mit gfortran -f openmp Hallo.f auf einem Windows Rechner mit cygwin.

InformationsquelleAutor | 2013-04-30
  1. 1

    Ich versuche es zu kompilieren unter Linux mit gfortran. Und ich bekomme Fehler, da die OMP-Direktiven. Ich geändert es zu:

    !$OMP PARALLEL
Write(*,*) 'Hello'
Write(*,*) omp_get_num_threads()
!$OMP END PARALLEL

    (Hinweis !$OMP). Und jetzt funktioniert es. Die Ausgabe:

    $ ./a.out 
      16
       4
       1
Hello
       4
Hello
       4
Hello
       4
Hello
       4
    InformationsquelleAutor Zhen
  2. 0

    Den sentinel, d.h. !$omp oder *$omp oder c$omp muss erscheinen am Anfang der Zeile von selbst.
    Es startet einfach einen einzigen thread und sonst nicht beschweren.

    !$OMP PARALLEL
      Write(*,*) 'Hello'
      Write(*,*) omp_get_num_threads()
!$OMP END PARALLEL
    • Nicht wahr, für !$OMP, die nicht brauchen, um zu beginnen in der Spalte 1
    • Meinst du, dass die Großbuchstaben-Variante? Ich traf dieses Problem auf, wenn ich versucht habe, um es auszuführen. Es wirft keine Fehler, aber es läuft auch auf einem einzigen thread.
    • Nein : groß-und Kleinbuchstaben sind gleichwertig in Fortran. Ich sage nur, dass ! ist das symbol für den bang-Kommentar : es kann auf eine beliebige Spalte in ein Fortran-Anweisung : al der rest der Zeile wird als Kommentar. Im Rahmen der OpenMP, alle OMP Erklärungen sind standard-Fortran Kommentarzeilen, die Folgen daher den Regeln dieser Kommentare : in fester form, wie Kommentar-Zeile beginnt mit einem 'c' oder '*' in der ersten Spalte oder ein '!' in jeder Spalte... In freier form, wird nur die Letzte Möglichkeit besteht. Der Fehler von der OP war nur !%OMP statt !$OMP : nichts zu tun mit dem Ort !
    InformationsquelleAutor Anirudh Ramanathan
  3. 0

    Ich weiß nicht, ob es geht oder nicht, aber die Letzte Richtlinie in der OP-code hat ein % anstelle von $. Vielleicht nur ein Tippfehler, aber ich hatte vor kurzem gepostet code, der einen dummen Tippfehler mag, verursacht mir Probleme.

    • Oh! Francois Jacq, hieß es in einem Kommentar... er sollte den Kredit zu bekommen
    InformationsquelleAutor Mark Kavanagh
Schreibe einen Kommentar