rewrite of fits_write_pha_file

The function now gets better default values for the FITS
keywords if one writes a spectrum defined by its internal
index (e.g., correct pointers to ARF and RMF files and so on).