FUNCTION rh_maille_2d,h,frequence,xc,yc

heure=long(h(0))
minute=long(h(1))

ma=fltarr(4)
ew=0.
ns=0.
xc=0.
yc=0.

ret=2
;
;	il faut entrer un champ de 64 a malax pour avoir la
;	periode de l'image
;help

champ=64.
;print,icorion,icorpoi,jour,mois,an,frequence,heure,minute,champ,ew,ns

;stop
;nom_libso = convstring(rhenv('SOURCE_RH')+'/film1d2d/idl2d.so')
;nom_libso = '/usr/home/kerdraon/rond/malax/modu/modu.so'

;ret=call_external(nom_libso,'pos2d_calc_',$
;frequence,heure,minute,champ,0.,ew,ns)

calcpos,frequence,heure,minute,champ,0.,ew,ns

a=0.
n=2
m=3

;cas 2 periodes
ma(0)=ew*2.
ma(1)=ns*2.

; cas une periode dans kalc_im
;ma(0)=ew
;ma(1)=ns
;ret=call_external(nom_libso,'pos2d_calc_',$
;frequence,heure,minute,0.,champ,ew,ns)

calcpos,frequence,heure,minute,0.,champ,ew,ns

ma(2)=ew
ma(3)=ns
;ret=call_external(nom_libso,'pos2d_calc_',$
;frequence,heure,minute,0.,0.,ew,ns)

calcpos,frequence,heure,minute,0.,0.,ew,ns

xc=ew
yc=ns

;print,'heure,ma',h,ma

;omega=omeg_brut(frequence,heure,minute)

;omega=omega*2. ; champ double en ew
return, ma
end

; en projet: le pgm d'anne est trop lie a helio