Page MenuHomec4science

o_set_map_mc.c
No OneTemporary

File Metadata

Created
Wed, Jan 1, 03:43

o_set_map_mc.c

#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);
}

Event Timeline