resources_finalize Subroutine

private subroutine resources_finalize(this)

Clean up resources

Type Bound

resources_t

Arguments

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

Source Code

   subroutine resources_finalize(this)
      !! Clean up resources
      class(resources_t), intent(inout) :: this

      ! Currently nothing to clean up, but this provides
      ! a hook for future resource cleanup (GPU handles, memory pools, etc.)
      this%num_threads = 1
      this%num_gpus = 0
      this%use_gpu = .false.
   end subroutine resources_finalize