Coarray Fortran

Coarray Fortran CAF, formerly known as F--, started as an extension of Fortran 95/2003 for parallel processing created by Robert Numrich and John Reid in the 1990s The Fortran 2008 standard ISO/IEC 1539-1:2010 now includes coarrays spelled without hyphen, as decided at the May 2005 meeting of the ISO Fortran Committee; the syntax in the Fortran 2008 standard is slightly different from the original CAF proposal

A CAF program is interpreted as if it were replicated a number of times and all copies were executed asynchronously Each copy has its own set of data objects and is termed an image The array syntax of Fortran is extended with additional trailing subscripts in square brackets to provide a concise representation of references to data that is spread across images

The CAF extension has been available for a long timeclarification needed and was implemented in some Fortran compilers such as those from Cray since release 31 Since the inclusion of coarrays in the Fortran 2008 standard, the number of implementations is growing The first open-source compiler which implemented coarrays as specified in the Fortran 2008 standard for Linux architectures is G95 Currently, GNU Fortran provides wide coverage of Fortran's coarray features in single- and multi-image configuration the latter based on the OpenCoarrays library Another implementation of coarrays and related parallel extensions from Fortran 2008 is available in the OpenUH compiler a branch of Open64 developed at the University of Houston


  • 1 Implementation in compilers
  • 2 Examples
  • 3 An alternate perspective
  • 4 See also
  • 5 References

Implementation in compilersedit

CAF is often implemented on top of a Message Passing Interface MPI library for portability Some implementations, such as the ones available in the GNU Fortran and OpenUH compilers, may run on top of other low-level layers for example, GASNet designed for supporting partitioned global address space languages


A simple example is given below CAF is used in CGPACK, an open source package for simulating polycrystalline materials developed at the University of Bristol 123

program Hello_World implicit none integer :: i ! Local variable characterlen=20 :: name ! scalar coarray, one "name" for each image ! Note: "name" is the local variable while "name<index>" accesses the ! variable in a specific image; "namethis_image" is the same as "name" ! Interact with the user on Image 1; execution for all others pass by if this_image == 1 then write,'a',advance='no' 'Enter your name: ' read,'a' name ! Distribute information to other images do i = 2, num_images namei = name end do end if sync all ! Barrier to make sure the data have arrived ! I/O from all images, executing in any order, but each record written is intact write,'3a,i0' 'Hello ',trimname,' from image ', this_image end program Hello_world

The program above scales poorly because the loop that distributes information executes sequentially Writing scalable programs often requires a sophisticated understanding of parallel algorithms, a detailed knowledge of the underlying network characteristics, and special tuning for application characteristics such as the size of data transfers For most application developers, letting the compiler or runtime library decide the best algorithm proves more robust and high-performing Fortran 2015 will offer collective communication subroutines that empower compiler and runtime library teams to encapsulate efficient parallel algorithms for collective communication and distributed computation in a set of collective subroutines These subroutines and other new parallel programming features are summarized in a technical specification 4 that the Fortran standards committee has voted to incorporate into Fortran 2015 These enable the user to write a more efficient version of the above algorithm

program Hello_World implicit none characterlen=20 :: name ! scalar coarray, one "name" for each image ! Note: "name" is the local variable while "name<index>" accesses the ! variable in a specific image; "namethis_image" is the same as "name" ! Interact with the user on Image 1; execution for all others pass by if this_image == 1 then write,'a',advance='no' 'Enter your name: ' read,'a' name end if ! Distribute information to all images call co_broadcastname,source_image=1 ! I/O from all images, executing in any order, but each record written is intact write,'3a,i0' 'Hello ',trimname,' from image ', this_image end program Hello_world

where the lack of explicit synchronization offers the potential for higher performance due to less coordination between the images Furthermore, TS 18508 guarantees that "A transfer from an image cannot occur before the collective subroutine has been invoked on that image" This implies some partial synchronization inside co_broadcast, but could be higher performing than the "sync all" in the prior example TS 18508 also incorporates several other new features that address issues targeted by the CAF 20 effort described below Examples include teams of images and events

An alternate perspectiveedit

A group at Rice University 5 is pursuing an alternate vision of coarray extensions for the Fortran language Their perspective is that the Fortran 2008 standard committee's design choices were shaped more by the desire to introduce as few modifications to the language as possible than to assemble the best set of extensions to support parallel programming They don't believe that the set of extensions agreed upon by the committee are the right ones In their view, both Numrich and Reid's original design and the coarray extensions proposed for Fortran 2008, suffer from the following shortcomings:

  • There is no support for processor subsets; for instance, coarrays must be allocated over all images
  • The coarray extensions lack any notion of global pointers, which are essential for creating and manipulating any kind of linked data structure
  • Reliance on named critical sections for mutual exclusion hinders scalable parallelism by associating mutual exclusion with code regions rather than data objects
  • Fortran 2008's sync images statement doesn't provide a safe synchronization space As a result, synchronization operations in user's code that are pending when a library call is made can interfere with synchronization in the library call
  • There are no mechanisms to avoid or tolerate latency when manipulating data on remote images
  • There is no support for collective communication

To address these shortcomings, the Rice University group is developing a clean-slate redesign of the Coarray Fortran programming model Rice's new design for Coarray Fortran, which they call Coarray Fortran 20, is an expressive set of coarray-based extensions to Fortran designed to provide a productive parallel programming model Compared to Fortran 2008, Rice's new coarray-based language extensions include some additional features:

  • process subsets known as teams, which support coarrays, collective communication, and relative indexing of process images for pair-wise operations,
  • topologies, which augment teams with a logical communication structure,
  • dynamic allocation/deallocation of coarrays and other shared data,
  • team-based coarray allocation and deallocation,
  • global pointers in support of dynamic data structures,
  • support for latency hiding and avoidance, and
    • asynchronous copies,
    • asynchronous collective operations, and
    • function shipping
  • enhanced support for synchronization for fine-grain control over program execution
    • safe and scalable support for mutual exclusion, including locks and lock sets,
    • events, which provide a safe space for point-to-point synchronization,
    • cofence, which forces local completion of asynchronous operations,
    • finish, a barrier-like SPMD construct that forces completion of asynchronous operations across a team,

See alsoedit

  • Array programming
  • Chapel
  • Fortress
  • Parallel computing
  • Partitioned global address space
  • Unified Parallel C
  • X10


  1. ^ A Shterenlikht, Fortran coarray library for 3D cellular automata microstructure simulation, 2013 In Proc 7th PGAS conf, Eds M Weiland, A Jackson, N Johnson, Published by The University of Edinburgh, ISBN 978-0-9926615-0-2
  2. ^ Shterenlikht, Anton; Margetts, Lee; Cebamanos, Luis; Henty, David 2015-04-01 "Fortran 2008 Coarrays" ACM SIGPLAN Fortran Forum 34 1: 10–30 doi:101145/27549422754944 ISSN 1061-7264 
  3. ^ Shterenlikht, A; Margetts, L 2015-05-08 "Three-dimensional cellular automata modelling of cleavage propagation across crystal boundaries in polycrystalline microstructures" Proc R Soc A 471 2177: 20150039 doi:101098/rspa20150039 ISSN 1364-5021 
  4. ^ TS 18508 Additional Parallel Features in Fortran
  5. ^ "CoArray Fortran 20" 
  • Co-Array Fortran homepage
  • ISO Fortran Committee
  • ANSI/INCITS Fortran Committee
  • Instructional videos on CAF in the Fortran Standard by John Reid see Appendix B
  • Coarrays in the next Fortran Standard
  • Rationale for Co-Arrays in Fortran 2008
  • Final Draft International Standard FDIS of the ISO Fortran 2008 standardpermanent dead link
  • OpenUH: Open-source Compiler from University of Houston
  • Coarray in GNU Fortran
  • CoarrayLib in GNU Fortran
  • OpenCoarrays library

Coarray Fortran Information about

Coarray Fortran

Coarray Fortran
Coarray Fortran

Coarray Fortran Information Video

Coarray Fortran viewing the topic.
Coarray Fortran what, Coarray Fortran who, Coarray Fortran explanation

There are excerpts from wikipedia on this article and video

Random Posts

Social Accounts

Facebook Twitter VK
Copyright © 2014. Search Engine