resources_init Subroutine

private subroutine resources_init(this)

Initialize resources with default values

Type Bound

Arguments

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

Source Code

   subroutine resources_init(this)
      !! Initialize resources with default values
      class(resources_t), intent(inout) :: this

      this%num_threads = 1
      this%num_gpus = 0
      this%use_gpu = .false.
   end subroutine resources_init