%N ctrlport %F $MIR/src/subs/ctrl.for
%D Initialise the panel panel.
%P jm
%: control-panel, user-interaction
%B
        subroutine CtrlPort(name,port,status)

        implicit none
        character name*(*)
        integer port
        integer status

  This opens up a connection to the "control panel".  Currently this is
  a TCP/IP socket to a "panel" server accessed through the routines
  called `panel' and `xpanel' in MIRIAD.

  NOTE:  This is really internal code and should NOT be called.
         Use ctrlopen() instead.
         This documentation is kept for backwards compatibility.

  Input:
    name       Name of the host running the panel server.
    port       Port number to connect to.  If this is negative or 0,
               the default value of DefPort is used (see ctrl.h).
  Output:
    status     Completion status.  Zero indicates success. Other values
               indicate some failure in attempted to connect to the
               server.
