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

	SUBROUTINE base_rota

c routine subordonnée de evol
c Formation de la base continue non dérivable pour la rotation

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

c------------------------------------------------------------------
	
	INTEGER, ALLOCATABLE, DIMENSION(:) :: mult

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

2000	FORMAT(8es10.3)
		
c multiplicités
	ALLOCATE(mult(n_rot))

c continuité
	IF(tot_conv)THEN
	 mult=1
	 
c discontinuité de la dérivée 1-ière et discontinuités aux limites ZR/ZC	 
	ELSE	
	 mult=MAX(1,m_rot-1) ; mult(idis(1:ndis))=m_rot
	 
	ENDIF
	
c construction du vecteur nodal				
	mult(1)=m_rot ; mult(n_rot)=m_rot ; knotr=SUM(mult)
	DEALLOCATE(mrott) ; ALLOCATE(mrott(knotr))
	CALL noeud(mrot,mrott,mult,n_rot,knotr)
	DEALLOCATE(mult)
	
	RETURN
	
	END SUBROUTINE base_rota