Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(array_i1d_obj), | intent(inout) | :: | array |
SUBROUTINE array_hold_i1d(array)
TYPE(array_i1d_obj), INTENT(INOUT) :: array
!$OMP ATOMIC
array%low%refcount = array%low%refcount + 1
END SUBROUTINE array_hold_i1d