Free FITSIO and system resources associated with the FITSfile object
supplied. It is assumed that all data has been written to the file
that will be required.
Arguments
FID = INTEGER (given)
ADI identifier of the FITSfile object
STATUS = INTEGER (given and returned)
The global status.