o_set_map_mc.c
No OneTemporary
Actions

Subscribers

None

File Metadata

	#include<stdio.h>
	#include<math.h>
	#include<fonction.h>
	#include<constant.h>
	#include<dimension.h>
	#include<structure.h>


	/****************************************************************/
	/* nom: o_set_map_mc */
	/* auteur: Ghislain Golse */
	/* date: 10/00 */
	/* place: Toulouse */
	/* determination des parametres qui vont varier par o_run_mc */
	/* pour obtenir une carte de chi2 dans le cas de */
	/* l'optimisation des parametres par MC */
	/****************************************************************/

	void o_set_map_mc()
	{
	extern struct g_mode M;
	extern struct g_grille G;
	// extern struct g_image I;
	extern struct pot lens[]; //,lmin[],lmax[],prec[];
	// extern struct z_lim zlim[];
	extern struct ipot ip;
	extern int block[NLMAX][NPAMAX];
	register int ils, ipx;//i,

	ip.map = 0;

	if (lens[0].type != 10)
	{
	for (ils = 0; ils < G.no_lens; ils++)
	for (ipx = 0; ipx < ip.pmax; ipx++)
	{
	if (block[ils][ipx] == 1)
	{
	NPRINTF(stderr, "map %d %d\n", ils, ipx);
	ip.lens[ip.map] = ils;
	ip.para[ip.map] = ipx;
	ip.map++;
	}
	};
	}
	else /* spline map */
	{
	}

	NPRINTF(stderr, "grid for %d parameter(s)\n", ip.map);

	}