Identifier     make52

 Purpose        convert in2 into 52 element array if it is not a structure

 Synopsis       in2_array = make52(in2,stat=stat)

 Arguments      Name      I/O  Type      Description
                -----------------------------------------------------
                in2        I   scalar/   the second argument input of ARITHM
                               array     if it is not a structure
                stat      I/O  int       error status, 0 if ok, 1 if fatal
                
 Returns        A 52 elements array. 

 Description    If in2 is a number all elements are set to in2. If in2 is a 
                52 element array (SWS) the output is just
                a copy of in2. If in2 is a 10 element array (LWS) the first
                10 elements of the output array are set to in2. In any other
                case the ASAP error handler is invoked.

 Comment        ---

 Example        --- 

 Dependencies   CALLS: sap_error
                CALLED FROM: arithm

 Category       ISAP

 Filename       make52.pro

 Author         E. Sturm (--> ES)

 Version        1.1

 History        0.1   14-09-95  ES    
                1.0   30-11-95  ES V1 delivery
                1.1   09-07-96  ES stat added
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Copyright (C) 1995, Max-Planck-Institut fuer extraterrestrische Physik (MPE);
                    Garching, Germany                                       ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;