define character fits_image*60 gildas_image*60 fits_type*12 /global 
let fits_image &1 
let gildas_image &2 
if ("&3 ".ne." ") then 
  let fits_type &3 
else 
  let fits_type standard 
endif 
run fits_gildas pr:graphic/fits_gildas.init 
delete /var fits_image gildas_image fits_type