C		Routine de definition des equations differentielles du
C		pendule simple
C		Par habitude et pour faciliter la reutilisation, j'appelle
C		cette fonction Derivee. On l'appelle aussi souvent dans la
C		litterature Deriv
C		Dominique Lefebvre mars 2006
	  SUBROUTINE Derivee(x,y,dy, NbEquation)
	  
	  IMPLICIT None
		
	  REAL l, g
	  
	  COMMON /Pendule/ l
	  DATA g/9.81/
		
	  INTEGER nbEquation
	  REAL x, y(NbEquation), dy(NbEquation)

C		Description du systeme differentiel de l'oscillateur
		  dy(1) = y(2)
		  dy(2) = -(g/l)*SIN(y(1)) 

	  RETURN
	  END