array_hold_i1d Subroutine

private subroutine array_hold_i1d(array)

Arguments

Type IntentOptional Attributes Name
type(array_i1d_obj), intent(inout) :: array

Contents

Source Code


Source Code

   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