Quelltext der Seite Co-array Fortran

{{Infobox Programmiersprache
| Name = Coarray Fortran
| Logo = 
| Beschreibung =
| Paradigma = [[Prozedurale Programmierung|prozedural]], [[Imperative Programmierung|imperativ]], [[Strukturierte Programmierung|strukturiert]], [[Objektorientierte Programmierung|objektorientiert]], [[Parallele Programmierung|parallel]]
| Erscheinungsjahr =
| Entwickler = [[Robert Numrich]] and [[John Reid (computer programmer)|John Reid]]
| AktuelleVersion = [[Fortran]] 2008 (ISO/IEC 1539-1:2010)
| AktuelleVersionFreigabeDatum =
| Typisierung =
| Implementierung = Cray, [[g95]], [[gfortran]], [[Intel Fortran Compiler|ifort]]
| Dialekte =
| Beeinflusst_von = [[Fortran]]
| Beeinflusste = 
| Betriebssystem =
| Lizenz =
| Website =
}}
'''Co-array Fortran''' (CAF), ehemals '''F--''', ist eine Erweiterung der [[Programmiersprache]] [[Fortran]] 95/2003 zur [[Parallele Programmierung|parallelen Datenverarbeitung]], die von [[Robert Numrich]] und [[John Reid (computer programmer)|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 [[Replikation (Datenverarbeitung)|repliziert]] würde und alle Kopien asynchron ausgeführt würden. Jede Kopie hat ihre eigenen Datenobjekte und wird Bild („image“) genannt. Die [[Feld (Datentyp)|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|Open-Source]]-[[Compiler]], der Coarrays gemäß dem Fortran-2008-Standard unterstützt, ist [[G95]].

== Beispiel ==
<syntaxhighlight lang="fortran">
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
</syntaxhighlight>

== Siehe auch ==
* [[Unified Parallel C]]
* [[Parallele Programmierung]]
* [[Partitioned Global Address Space]]

== Weblinks ==
* [http://www.nag.co.uk/sc22wg5/ ISO Fortran Committee]
* [ftp://ftp.nag.co.uk/sc22wg5/N1751-N1800/N1787.pdf Coarrays in the next Fortran Standard] (PDF)
* [ftp://ftp.nag.co.uk/sc22wg5/N1801-N1850/N1824.pdf Rationale for Co-Arrays in Fortran 2008] (PDF)

[[Kategorie:Programmiersprache]]