t_qbsr (ul_tecar)


   Synopsis:

      This function is called to tell the RPC TECAR server to return
      the most-recently tested QBS (Quench Bypass Switch) sector and
      QBS controller.


   Declarations (FORTRAN):

       CHARACTER TECAR_SERVER*8 /'tecar-a2'/
       LOGICAL*1 OUTPUT(2)
       INTEGER*2 ISTAT, T_QBSR


   Declarations (ANSI C):

       unsigned char TECAR_server[]="tecar-a2";
       unsigned char output[2];
       short         istat;
       short t_qbsr ( unsigned char *const TECAR_server,
                      unsigned char *const output );


   Usage (FORTRAN):

       ISTAT = T_QBSR ( TECAR_SERVER, OUTPUT )


   Usage (C):

      istat = t_qbsr ( TECAR_server, output );


   Usage (VAX generic format):

      istat.w.w = t_qbsr ( TECAR_server.ar.b, output.aw.w )


   Arguments:

      Input - readonly:

         TECAR_server	a character string which contains the Internet
                        name of the TECAR server. This name must be
                        resolvable via the Domain Name Service.
			This may be passed either as a pointer to a
		        null-terminated string, or by descriptor
			(under VMS only).

      Output:

         output		the location of the switch, where the first
	                character is the accelerator sector ( 'A', 'B',
			'C', 'D', 'E', or 'F' -  [A-F] as a regular
			expression), and the second character is the
			controller for switches in that sector (either
			'A' or 'B' - [AB] as a regular expression)

      Returns:

         istat          the status return in ACNET format