Next: BESSEL_J0, Previous: ATOMIC_DEFINE, Up: Intrinsic Procedures
ATOMIC_REF
— Obtaining the value of a variable atomicallyATOMIC_DEFINE(ATOM, VALUE)
atomically assigns the value of the
variable ATOM to VALUE.
CALL ATOMIC_REF(VALUE, ATOM)
VALURE | Scalar and 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.
|
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