Co-array Fortran

Coarray Fortran
Basisdaten
Paradigmen: prozedural, imperativ, strukturiert, objektorientiert, parallel
Erscheinungsjahr: 1990er
Entwickler: Robert Numrich and John Reid
Aktuelle Version: Fortran 2008 (ISO/IEC 1539-1:2010)  ()
Wichtige Implementierungen: Cray, g95, gfortran, ifort
Beeinflusst von: Fortran

Co-array Fortran (CAF), ehemals F--, ist eine Erweiterung der Programmiersprache Fortran 95/2003 zur parallelen Datenverarbeitung, die von Robert Numrich und John Reid in den 1990er Jahren entwickelt wurde. Der Fortran-Standard unterstützt Coarrays (jetzt ohne Bindestrich) seit Fortran 2008 (ISO/IEC 1539-1:2010), wie es auf dem May-2005-Treffen des ISO Fortran Komitees beschlossen wurde; die Syntax im Fortran 2008 Standard unterscheidet sich leicht vom ursprünglichen CAF-Vorschlag.

Ein Coarray-Fortran-Programm wird so interpretiert, als ob es n-mal repliziert würde und alle Kopien asynchron ausgeführt würden. Jede Kopie hat ihre eigenen Datenobjekte und wird Bild („image“) genannt. Die Feld-Syntax von Fortran wird erweitert um rechteckige Klammern, die den Bildindex enthalten, mit dem man so auf die Daten eines anderen Bildes (Prozesses) zugreifen kann.

Die Co-array-Fortran-Erweiterung gibt es schon seit den 1990ern und sie wird in einigen Fortrancompilern wie zum Beispiel dem von Cray (ab Version 3.1) unterstützt. Seitdem Coarrays Teil von Fortran 2008 sind, nimmt die Anzahl der Implementation zu; der erste Open-Source-Compiler, der Coarrays gemäß dem Fortran-2008-Standard unterstützt, ist G95.

Beispiel

program Hallo_Welt
  implicit none
  integer :: i ! Lokale Variable
  character(len=20) :: name[*] ! skalares Coarray
  ! Hinweis: "name" ist die lokale Variable wohingegen "name[<index>]"
  ! auf die Variable eines anderen Prozesses (Image) zugreift

  ! Kommuniziere mit dem Nutzer auf Image 1
  if (this_image() == 1) then
    write(*,'(a)',advance='no') 'Geben Sie Ihren Namen ein: '
    read(*,'(a)') name

    ! Verteile die Information an die anderen Prozesse
    do i = 2, num_images()
      name[i] = name
    end do
  end if

  sync all ! Barriere damit die Daten wirklich da sind

  ! Ein-/Ausgabe von allen Prozessen
  write(*,'(3a,i0)') 'Hallo ',trim(name),' von Image ', this_image()
end program Hallo_Welt

Siehe auch

Content Disclaimer

Informasi ini disarikan dari Wikipedia dan disajikan kembali untuk tujuan edukasi. Konten tersedia di bawah lisensi CC BY-SA 3.0. Kami tidak bertanggung jawab atas ketidakakuratan data yang bersumber dari kontribusi publik tersebut.

  1. The information displayed on this website is sourced in part or in whole from Wikipedia and has been adapted for the purpose of restating it. We strive to provide accurate and relevant information, however:
  2. There is no guarantee of absolute accuracy. Wikipedia is an open, collaborative project that can be edited by anyone, so information is subject to change.
  3. It is not intended to constitute professional advice. The content displayed is for informational and educational purposes only. For important decisions (e.g., medical, legal, or financial), please consult a professional.
  4. Content copyright. Wikipedia is licensed under the Creative Commons Attribution-ShareAlike License (CC BY-SA). This means that content may be reused with appropriate attribution and shared under a similar license.
  5. Responsible use. Any risk arising from the use of information from this website is entirely the responsibility of the user.