atomic_define in Fortran Wiki

## Description
`atomic_define(atom, value)` defines the variable `atom` with the
value `value` atomically. When `stat` is present and the invocation
was successful, it is assigned the value 0. If it is present and the
invocation has failed, it is assigned a positive value; in particular,
for a coindexed `atom`, 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
~~~~~~~~~~~~~~~~~~~~~~~ {: lang=fortran }
call atomic_define (atom, value [, stat])
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
## Arguments
- `atom` - Scalar coarray or coindexed variable of either integer type
 with `atomic_int_kind` kind or logical type with
 `atomic_logical_kind` kind.
- `value` - Scalar of the same type as `atom`. If the kind is
 different, the value is converted to the kind of `atom`.
- `stat` - (optional) Scalar default-kind integer variable.
## Example
~~~~~~~~~~~~~~~~~~~~~~~~~ {: lang=fortran }
program atomic
 use iso_fortran_env
 integer(atomic_int_kind) :: atom[*]
 call atomic_define(atom[1], this_image())
end program atomic
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
## See also
[[atomic_ref]], [[atomic_cas]], [[iso_fortran_env]],
[[atomic_add]], [[atomic_and]], [[atomic_or]], [[atomic_xor]]
category: intrinsics