c******************************************************************

	SUBROUTINE resout_rota(dt,ok)

c routine générique PRIVATE du module mod_evol

c Résolution du système des équations de la diffusion du moment cinétique
c oriente vers resout_rota1 pour le formalisme de Talon & Zahn 1997
c oriente vers resout_rota2 pour le formalisme de Matis & Zahn 2004

c Auteur: P.Morel, Département Cassiopée, O.C.A.

c----------------------------------------------------------------

	USE mod_donnees, ONLY : Krot
	USE mod_kind
	
	REAL (kind=dp), INTENT(in) :: dt
	LOGICAL, INTENT(out) :: ok
	
c----------------------------------------------------------------

	SELECT CASE(Krot)
	CASE(3)
	 CALL resout_rota3(dt,ok)
	CASE(4)
	 CALL resout_rota4(dt,ok)
	END SELECT	

	RETURN	

	END SUBROUTINE resout_rota