t_current (ul_tecar)


   Synopsis:

      This function is called to read the current from TECAR.


   Declarations (FORTRAN):

        CHARACTER TECAR_SERVER*8 /'tecar-a2'/
        INTEGER*2 ISTAT, T_CURRENT
        REAL*4    PROG, MAG, ERR


   Declarations (ANSI C):

      #include "tecar.h"
      unsigned char TECAR_server[]="tecar-a2";
      short istat;
      float *prog;
      float *mag;
      float *err;
      short t_current ( unsigned char *const TECAR_server,
                        float * const prog, float * const mag,
                        float * const err );


   Usage (FORTRAN):

 	ISTAT = T_CURRENT ( TECAR_SERVER, PROG, MAG, ERR )


   Usage (C):

      istat = t_current ( TECAR_server, prog, mag, err );


   Usage (VAX generic format):

      istat.w.w = t_current ( TECAR_server.ar.b, prog.aw.f,
                              mag.aw.f, err.aw.f )


   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).


      Current - writeonly:

         prog           the requested current, in Amperes
         mag            the magnet current, in Amperes
         err            the difference between the requested current
                        and the actual current, in Amperes


      Returns:

         istat          the status return in ACNET format