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

      implicit none
      character name*(*)
      logical ctrl

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

  Input:
    name       Name of the server device used in TVOPEN.  This
               contains the name of the host running the panel server.
               This can have any of the following forms:
                 type@name1
                 type@name1/name2
                 type@name1/name2:port
               where name1 and name2 represent physical device names
               or the name of the server (for network display servers).
               Type is the device or server type (ignored by this
               routine) and is described in detail in the User's manual.
               If name2 exists, this is used as the panel device name;
               otherwise, name1 is used.  If the optional port argument
               is provided, it overrides the default value.
  Output:
    ctrl       A logical flag that is true if the input device can
               drive a ctrl panel; otherwise, ctrl is false.
