Co-array Fortran

Co-array Fortranは、Fortran 95/2003を並列化を目的として拡張した言語である。以前はF--としても知られ、Robert NumrichとJohn Reidによって開発された。

Coarray Fortran

パラダイム	並列・メッセージパッシング・手続き型・構造化・命令型・オブジェクト指向
設計者	Robert Numrich and John Reid
開発者	PL22.3 Fortran Committee
最新リリース	Fortran 2008 (ISO/IEC 1539-1:2010)
型付け	強い静的型付け
主な処理系	Cray, GFortran, G95
影響を受けた言語	Fortran
プラットフォーム	クロスプラットフォーム
ウェブサイト	Co-array Fortran web site

Co-array Fortranで記述されたプログラムではすべてのスレッドが非同期的に実行されるように扱われる。それぞれのスレッドはイメージと呼ばれる自身のデータオブジェクトを持つ。また、Fortran 95での配列の構文が角括弧と添字を用いてイメージを指定できるように拡張されている。

ISOは2005年5月に次のFortranの標準規格(Fortran 2008)に対してCo-array Fortranを採用することを決定した。

LinuxアーキテクチャにおいてオープンソースのコンパイラでFortran 2008のCo-array Fortranに対応したのはG95が最初である。その他にもCrayなどいくつかの商用コンパイラは以前からCo-array Fortranをサポートしている。

例

program Hello_World
  implicit none
  integer :: i  ! Local variable
  character(len=20) :: name[*] ! scalar coarray
  ! 注意: "name[<index>]" はリモートのイメージ上の変数への
  ! アクセスであるのに対し "name" はローカル変数である

  ! イメージ1上のユーザーから名前の入力を受ける
  if (this_image() == 1) then
    write(*,'(a)',advance='no') 'Enter your name: '
    read(*,'(a)') name

    ! 他のイメージに名前の内容を分配する。
    do i = 2, num_images()
      name[i] = name
    end do
  end if

  sync all ! 確実に同期をとるために[[バリア]]を設ける

  ! すべてノードで名前を表示する
  write(*,'(3a,i0)') 'Hello ',trim(name),' from image ', this_image()
end program Hello_world

関連項目

• Unified Parallel C — C言語を拡張した並列プログラミング言語
• 並列コンピューティング
• 区分化大域アドレス空間

外部リンク

• Co-Array Fortran homepage
• ISO Fortran Committee
• Coarrays in the next Fortran Standard
• Rationale for Co-Arrays in Fortran 2008
• Final Draft International Standard (FDIS) of the ISO Fortran 2008 standard
• 林康晴（NEC):「F2008の並列処理関連機能」、2012年4月。
• 林康晴（NEC)：「Fortran 2008のcoarray機能」、2013年11月。