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

        implicit none
        character name*(*)
        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.
  Output:
    status     Completion status.  Zero indicates success. Other values
               indicate some failure in attempted to connect to the
               server.
