Indentifier   sap_wfits

 Purpose       To write a fits file from an SAAR, LAAR, or YAAAR structure

 Synopsis      status = sap_wfits (fits_file, struc_out)


 Arguments     Name      I/O  Type     Description
               --------------------------------------------------------

               fits_file I    string   Name of fits file to write

               struc_in  I    struct   Input structure (YAAAR, SAAR, or LAAR)
                                       (AAR header must contain valid FITS)

 Returns       0 = file written
               1 = unable to write file

 Description   A FITS file is written from the header, history, and data
               tags of the input AAR structure.

 Comments      The FITS file will only be valid if the header in the
               AAR is valid.

 Example       --

 Dependencies   CALLS: kwd_notset, sap_error
                CALLED FROM: IA, GUI

 Category      ISAP

 Filename      sap_wfits.pro

 Author        R. Narron (IPAC)

 Version       1.0

 History       1.0  951101 --> R. Narron (IPAC)  Initial version

 Copyright (C) 1995, California Institute of Technology.
 U.S. Government Sponsorship under NASA Contract NAS7-918 is acknowledged.
******************************************************************************