Identifier     makeyaaarhead

 Purpose        Create a real FITS header for data stored in a YAAAR
                (Yet Another Auto Analysis Result) IDL structure

 Synopsis       status = makeyaaarhead( header, data )

 Arguments      Name    I/O    Type     Description
                -----------------------------------------------------
                header   O     String   header
                data     I     any      structure/array;
 Returns        Status giving header length or fail code (-1) as
                integer

 Description    - Create a header for YAAAR data, similar to
                  makeheader.pro for ERD, SPD, AAR, etc

 Comment        - Routine presently assumes that the YAAARs consist
                  of wave, flux, and standard deviation arrays only.
                  The tag "flag" is added for consistency with AAR
                  structures.  Flag values are set equal to 0.
                - Units are hard-wired to (um,Jy,Jy) for the input
                  data arrays.  In the future, this restriction should
                  be removed (perhaps in MAKEYAAAR.pro) to accomodate
                  YAAARs with other units.

 Example        STATUS = MAKEYAAARHEAD( HEAD, DATA )
                  Create a header for a YAAAR

 Dependencies   CALLS: get_date
                
                CALLED FROM: GUI, IA, ascii2yaaar

 Category       ISAP

 Filename       makeyaaarhead.pro

 Author         P. Morris ---> PM
                p.morris@sron.ruu.nl

 Version        1.02

 History        1.00  20-10-95  PM  
                      02-11-95  PM  Changed padding between primary and
                                    secondary headers for nearest multiple of
                                    2880
                1.01  25-11-95  HS  Added new mandatory keywords  
                1.02  03-12-95  PM  Add all SAAR/LAAR data keywords to 
                                    secondary header
                1.03  26-01-96  ES  avoid call to cp_fits_string