;+
;NOM : PARAM2OBJ
;
;SYNTAXE : param2obj,param,DIM=dim,POS=pos,NORM=norm
;
;DESCRIPTION :
;	passage du vecteur parametre fournit par decomyro a l'objet (image 2D)
;
;
;DIAGNOSTIC D'ERREUR :
;
;VOIR AUSSI : decomyro
;
;HISTORIQUE :
;             JM CONAN -Mars 1995
;
;-
function param2obj,param,DIM=dim,POS=pos, NORM = norm

on_error,2
syntax = 'USAGE: obj = param2obj(param,DIM,POS)'
IF (n_params() NE 1) THEN message,syntax
IF (not keyword_set(dim)) then message,syntax

obj = dblarr(dim , dim)
dim =  double(dim)
IF keyword_set(norm) THEN k = 1./norm ELSE k =  1.
IF keyword_set(pos) THEN  obj(*) = param(0:dim*dim-1)^2.*k $
ELSE obj(*) = param(0:dim*dim-1)*k
return, obj
end