imported form CVS release_01 and ported to gitlab/INAU standard