FUNCTION param2psf_mistral ,param,jj   ;passage du vecteur parametre a la psf numero jj
COMMON JMCDEC, images_ou_tf, wi, status

    dim = status.dim
	dim2 = dim*dim

		deb = dim2 + jj*dim2
		psf = dblarr(dim , dim)

		IF keyword_set(status.pos) 	THEN psf(*) = param(deb:deb + dim2-1)^2. $   ;cas positivite stricte
												ELSE psf(*) = param(deb:deb + dim2-1)

                                ;normalisation tq tf_psf(0,0) = sqrt(fluxtot)/dim/status.norm
    IF (status.normpsf EQ 1B) THEN BEGIN 
        cste = sqrt(status.flux)/float(dim)/status.norm*float(dim2)
        psf = psf/total(psf) * cste
	END  
	return , psf
END