Fortran Wiki
atomic_ref (changes)

Showing changes from revision #1 to #2: (追記) Added (追記ここまで) | ~~(削除) Removed (削除ここまで)~~ | ~~(削除) Chan (削除ここまで)~~(追記) ged (追記ここまで)

Description

atomic_ref(atom, value) atomically assigns the value of the variable atom to value. When stat is present and the~~(削除) invokation (削除ここまで)~~(追記) invocation (追記ここまで) was successful, it is assigned the value 0. If it is present and the~~(削除) invokation (削除ここまで)~~(追記) invocation (追記ここまで) has failed, it is assigned a positive value; in particular, for a coindexedatom, if the remote image has stopped, it is assigned the value of iso_fortran_env‘s stat_stopped_image and if the remote image has failed, the value stat_failed_image.

Standard

Fortran 2008 and later; with stat, TS 18508 or later

Class

Atomic subroutine

Syntax

call atomic_ref(value, atom [, stat])

Arguments

value - Scalar of the same type as atom. If the kind is different, the value is converted to the kind of atom.
atom - Scalar coarray or coindexed variable of either integer type with atomic_int_kind kind or logical type with atomic_logical_kind kind.
stat - (optional) Scalar default-kind integer variable.

Example

program atomic
 use iso_fortran_env
 logical(atomic_logical_kind) :: atom[*]
 logical :: val
 call atomic_ref(atom, .false.)
 ! ...
 call atomic_ref(atom, val)
 if (val) then
 print *, "Obtained"
 end if
end program atomic

Fortran Wiki atomic_ref (changes)