scratch_3d_buffer_enter_data Subroutine

private subroutine scratch_3d_buffer_enter_data(this)

Type-bound wrapper — keeps buf%enter_data() call sites working. Delegates to the non-polymorphic impl so the OpenMP map base is the heap object (see the impl + the public-decl comment above).

Type Bound

scratch_3d_buffer_t

Arguments

Type IntentOptional Attributes Name
class(scratch_3d_buffer_t), intent(inout) :: this

Calls

proc~~scratch_3d_buffer_enter_data~~CallsGraph proc~scratch_3d_buffer_enter_data scratch_3d_buffer_t%scratch_3d_buffer_enter_data proc~scratch_3d_buffer_enter_data_impl scratch_3d_buffer_enter_data_impl proc~scratch_3d_buffer_enter_data->proc~scratch_3d_buffer_enter_data_impl

Source Code

   subroutine scratch_3d_buffer_enter_data(this)
      !! Type-bound wrapper — keeps `buf%enter_data()` call sites working.
      !! Delegates to the non-polymorphic impl so the OpenMP map base is
      !! the heap object (see the impl + the public-decl comment above).
      class(scratch_3d_buffer_t), intent(inout) :: this
      select type (this)
      type is (scratch_3d_buffer_t)
         call scratch_3d_buffer_enter_data_impl(this)
      end select
   end subroutine scratch_3d_buffer_enter_data