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

	REAL(kind=dp) FUNCTION espmt(x)

c fonction PUBLIC du module mod_static
c valeur de la fonction d'espacement en x

c Auteur: P.Morel, Laboratoire Lagrange, O.C.A.

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

	USE mod_donnees, ONLY : ne, ord_qs
	USE mod_kind
	USE mod_numerique, ONLY : bsp1dn, no_croiss
	USE mod_variables, ONLY : bp, ctem, ctep, cter, ctet, knot, n_qs, q, qt

	IMPLICIT NONE

	REAL(kind=dp), INTENT(in) :: x

	REAL(kind=dp), DIMENSION(ne) :: dfdq, f

	INTEGER, SAVE :: lq=1

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

2000	FORMAT(8es10.3)

c la fonction d'espacement en q (=x)
	CALL bsp1dn(ne,bp,q,qt,n_qs,ord_qs,knot,.TRUE.,x,lq,f,dfdq)
	IF(no_croiss)PRINT*,'Problème dans espmt'
	espmt=ctep*f(1)+ctet*f(2)+cter*f(3)+ctem*f(5)
c	PRINT*,'ne,n_qs,ord_qs,knot,lq',ne,n_qs,ord_qs,knot,lq
c	WRITE(*,2000)f,espmt ; PAUSE'espmt'

	RETURN

	END FUNCTION espmt