NAME:extractstru
PURPOSE:extrait des elements d''une structure pour constituer une
nouvelle structure
CATEGORY: dibouille sur les structures
CALLING SEQUENCE: res = extractstru(stru, liste)
INPUTS:
stru: une structure
liste: un vecteur de string comportant les noms des elements de
stru a virer (par DEFAUT) ou a garder (si GARDE est active)
KEYWORD PARAMETERS:
/GARDE: specifie que la liste donnee concerne les elements de
stru a garder
/VIRE: specifie que la liste donnee concerne les elements de
stru a virer. Ce mot cle est active par defaut
OUTPUTS:une stucture ou -1 en cas de pb
COMMON BLOCKS:
SIDE EFFECTS:
RESTRICTIONS: none !!!
liste peut contenir des noms d''elements qui ne sont pas ds stru,
le programme se debrouille avec
EXAMPLE:
IDL> extra=get_extra(/ok, year=1999, age_capitaine=35 )
IDL> help, extra,/struct
** Structure <83e66bc>, 3 tags, length=6, refs=1:
AGE_CAPITAINE INT 35
OK INT 1
YEAR INT 1999
IDL> help, extractstru(extra,['ok','hhuihi','YEAR']),/stru
** Structure <831afac>, 1 tags, length=2, refs=1:
AGE_CAPITAINE INT 35
IDL> help, extractstru(extra,['ok','hhuihi','YEAR'],/garde),/stru
** Structure <834bbc4>, 2 tags, length=4, refs=1:
OK INT 1
YEAR INT 1999