C
C      \ | /
C       \|/ QUASAR    __________________
C    ----*----       /                 | ++++++++++++++++++++++++
C       /|\        -< STAR File access | ++++++++++++++++++++++++
C      / | \         \_________________| ++++++++++++++++++++++++
C                                                                
C                                        Version: Mar 01 1993  
C                                                                
C                                 
C QUASAR is a fortran program for extracting data from a STAR formatted file. 
C It is intended to demonstrate a general approach to processing a STAR file. 
C
C Program source and further information is available from the authors:
C
C     Syd Hall      Crystallography Centre, University of Western Australia, 
C                   Nedlands, Perth 6009, Australia. (syd@crystal.uwa.oz.au)
C      
C     Rolf Sievers  Institut fuer Anorganische-Chemisches der Universitaet,
C                   Gerhard-Domagk-Str., Bonn, Germany (unc411@dbnrhrz1.bitnet)
C
C QUASAR reads a list of data names (from the standard input device 5) to    
C be to extracted from the STAR archive file. This is referred to as the
C 'request' list or file. This file also contains the names of the data
C blocks to be searched, and the names of the archive and output file (these
C are specified as extensions to 'star_arc_' and 'star_out_' respectively).
C If the archive and output files are not specified they are assumed to have
C the filenames 'STARIN' and 'STAROT'. Requested data items are output in the 
C order requested. The same data item may be requested up to five times.
C The archive file can checked for logical integrity by entering the string
C 'star_log' into the request list. No data items will be output in this case.
C
C QUASAR allows for "wild card" requests for data names. A data name request 
C containing a trailing underline is a request for all data names matching the 
C string preceding the underline. The request for '_' will return all data 
C items in the specified data block. Data names are case insensitive.
C Wild card data blocks may be requested as 'data_'.
C
C QUASAR cannot process the full STAR File data structure but it attempts
C to be relatively "passive" when checking nested loop or save frame data.
C It will not successfully extract data stored in these data structures.
C
C .............................Installation notes.............................
C
C The data COMMON definitions for QUASAR are supplied as a separate sequence
C of lines at the rear of this file. These must be removed with an editor
C and named as 'quasar.cmn' for insertion by the compiler via the 'include' 
C command (or your local equivalent). If your compiler does not support this
C facility, use the editor to insert the COMMON lines in each subroutine 
C (and remove the 'include' line!).
C
C  archived data  <STARIN> input   on device 2 (opened in routine REQIN)
C  scratch file            scratch on device 3 (opened in routine REQIN)
C  extracted data <STAROT> output  on device 4 (opened in routine REQIN)
C  requested data [STAREQ] input   on device 5 ('stdin') [*opened REQIN]
C  Message device          output  on device 6 ('stdout')               
C
C  <...> signals default file names (see above)
C  * 'stdin' may need to opened for non-Unix machines (e.g. Vax/VMS)
C
C***************************************************************************