subroutine tem_solite(a,itask)
   use typre
   use Mod_Temperature
   use def_parame
   implicit none
   class(TemperatureProblem) :: a
   integer(ip) :: itask
   
   !Nothing to do here
   
end subroutine