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

	MODULE mod_numerique

c	module regroupant les outils numériques et utilitaires pour CESAM2k

c La signification des variables est décrite au paragraphe F2 de la notice
c	 de CESAM2k

c	Auteurs: P.Morel, B.Pichon Département J.D. Cassini, O.C.A.
c	CESAM2k

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

	USE mod_kind
	
	LOGICAL, SAVE, PUBLIC :: no_croiss=.FALSE.

	PUBLIC :: arb_rom, boite, box, bsp1ddn, bsp1dn, bsp_dis, bvald,
	1 bval1, coll, delete_doubles, fermi_dirac, gauss_band,
	2 intgauss, linf, matinv, min_max, neville, newton, noedif, noein,
	3 noeud, newspl, pause, polyder, shell, sum_n, zoning

	CONTAINS

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

	INCLUDE 'arb_rom.f'
	INCLUDE 'boite.f'
	INCLUDE 'box.f'		
	INCLUDE 'bsp1dn.f'
	INCLUDE 'bsp1ddn.f'
	INCLUDE 'bsp_dis.f'
	INCLUDE 'bval0.f'
	INCLUDE 'bval1.f'
	INCLUDE 'bvald.f'
	INCLUDE 'coll.f'
	INCLUDE 'colpnt.f'
	INCLUDE 'delete_doubles.f'
	INCLUDE 'difdiv.f'    
	INCLUDE 'fermi_dirac.f'     
	INCLUDE 'gauss_band.f'
	INCLUDE 'horner.f'	
	INCLUDE 'intgauss.f'
	INCLUDE 'linf.f'
	INCLUDE 'matinv.f'
	INCLUDE 'min_max.f'
	INCLUDE 'neville.f'  
	INCLUDE 'newspl.f'	
	INCLUDE 'newton.f'
	INCLUDE 'noedif.f'
	INCLUDE 'noein.f'
	INCLUDE 'noeud.f'	
	INCLUDE 'noeu_dis.f'
	INCLUDE 'pause.f'       
	INCLUDE 'polyder.f'
	INCLUDE 'schu58_n.f' 
	INCLUDE 'shell.f'
	INCLUDE 'sum_n.f'
	INCLUDE 'zoning.f'

	END MODULE mod_numerique