t_read_active (ul_tecar)


   Synopsis:

      This function is called to tell the TECAR server which power
      supplies should be active.


   Declarations (FORTRAN):

        CHARACTER TECAR_SERVER*8 /'tecar-a2'/
        INTEGER*2 ISTAT, T_READ_ACTIVE
        INTEGER*4 OUTPUT


   Declarations (ANSI C):

      #include "tecar.h"
      unsigned char TECAR_server[]="tecar-a2";
      short istat;
      unsigned int *output;
      short t_read_active ( unsigned char *const TECAR_server,
                            unsigned int * const output );


   Usage (FORTRAN):

 	ISTAT = T_READ_ACTIVE ( TECAR_SERVER, OUTPUT )


   Usage (C):

      istat = t_read_active ( TECAR_server, output );


   Usage (VAX generic format):

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


   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 - writeonly:

         output         an unsigned longword whose bits reflect the
                        power supplies that are currently active:
                        Bit(s)  Power Supply
                        -----   ------------
                        31:12   undefined
                        11      F3
                        10      F2
                        9       E3
                        8       E2
                        7       D3
                        6       D2
                        5       C3
                        4       C2
                        3       B3
                        2       B2
                        1       A3
                        0       A2


      Returns:

         istat          the status return in ACNET format