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

	MODULE mod_numerique

c module regroupant les outils numériques et utilitaires pour CESAM2k
c aucun d'eux ne ne faisant appel à une donnée physique (Ex. g, hpl, kbol...)

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., CESAM2k

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

	USE mod_kind

c interfaces
	INTERFACE csv_write
         MODULE PROCEDURE csv_write_integer, csv_write_integer_1d,
	1 csv_write_integer_2d, csv_write_char, csv_write_char_1d,
	2 csv_write_char_2d, csv_write_real, csv_write_real_1d,
	3 csv_write_real_2d, csv_write_dble, csv_write_dble_1d,
	4 csv_write_dble_2d
	END INTERFACE

c définitions pour les routines génériques entre, inside, shell
	INTERFACE entre
	 MODULE PROCEDURE entre_d, entre_i, entre_s
	END INTERFACE

	INTERFACE inside
	 MODULE PROCEDURE inside_d, inside_i, inside_s
	END INTERFACE

	INTERFACE shell
	 MODULE PROCEDURE shell_d, shell_i, shell_s
	END INTERFACE

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

	PRIVATE
	PUBLIC :: arb_rom, boite, box, bsp1ddn, bsp1dn,
	1 bsp2dn, bsp_dis, bsp_gal, bvald, bval1, cepheid_instb, coll,
	2 csv_write, delete_doubles, entre, fermi_dirac, fleche,
	3 f_logf, gauss_band, inside, intgauss, least_sq, linf,
	4 lisse_sum, lisse_sumd, maehly, matinv, min_max, max_local,
	5 neville, newton, noedif, noein, noeud, newspl, newspl_gal,
	6 pause, polyder, shell, simq, sum_n, svd_cmp, svd_cov, v_propres, zoning

	CONTAINS

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

	INCLUDE 'arb_rom.f'
	INCLUDE 'boite.f'
	INCLUDE 'box.f'
	INCLUDE 'bsp1ddn.f'
	INCLUDE 'bsp1dn.f'
	INCLUDE 'bsp2dn.f'
	INCLUDE 'bsp_dis.f'
	INCLUDE 'bsp_gal.f'
	INCLUDE 'bval0.f'
	INCLUDE 'bval1.f'
	INCLUDE 'bvald.f'
	INCLUDE 'cepheid_instb.f'
	INCLUDE 'coll.f'
	INCLUDE 'colpnt.f'
	INCLUDE 'delete_doubles.f'
	INCLUDE 'difdiv.f'
	INCLUDE 'entre_d.f'
	INCLUDE 'entre_i.f'
	INCLUDE 'entre_s.f'
	INCLUDE 'fermi_dirac.f'
	INCLUDE 'fleche.f'
	INCLUDE 'f_logf.f'
	INCLUDE 'gauss_band.f'
	INCLUDE 'horner.f'
	INCLUDE 'inside_d.f'
	INCLUDE 'inside_i.f'
	INCLUDE 'inside_s.f'
	INCLUDE 'intgauss.f'
	INCLUDE 'least_sq.f'
	INCLUDE 'linf.f'
	INCLUDE 'lisse_sum.f'
	INCLUDE 'lisse_sumd.f'
	INCLUDE 'maehly.f'
	INCLUDE 'matinv.f'
	INCLUDE 'max_local.f'
	INCLUDE 'min_max.f'
	INCLUDE 'neville.f'
	INCLUDE 'newspl.f'
	INCLUDE 'newspl_gal.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_d.f'
	INCLUDE 'shell_i.f'
	INCLUDE 'shell_s.f'
	INCLUDE 'simq.f'
	INCLUDE 'sum_n.f'
	INCLUDE 'svd_cmp.f'
	INCLUDE 'svd_cov.f'
	INCLUDE 'v_propres.f'
	INCLUDE 'zoning.f'

c csv
	INCLUDE 'csv_write_integer.f'
	INCLUDE 'csv_write_real.f'
	INCLUDE 'csv_write_dble.f'
	INCLUDE 'csv_write_char.f'
	INCLUDE 'csv_write_integer_1d.f'
	INCLUDE 'csv_write_real_1d.f'
	INCLUDE 'csv_write_dble_1d.f'
	INCLUDE 'csv_write_char_1d.f'
	INCLUDE 'csv_write_char_2d.f'
	INCLUDE 'csv_write_integer_2d.f'
	INCLUDE 'csv_write_real_2d.f'
	INCLUDE 'csv_write_dble_2d.f'

	END MODULE mod_numerique