f_ut_seg_show.c

Go to the documentation of this file.

// $Id$
//-----------------------------------------------------------------------
//       The GSI Online Offline Object Oriented (Go4) Project
//         Experiment Data Processing at EE department, GSI
//-----------------------------------------------------------------------
// Copyright (C) 2000- GSI Helmholtzzentrum fuer Schwerionenforschung GmbH
//                     Planckstr. 1, 64291 Darmstadt, Germany
// Contact:            http://go4.gsi.de
//-----------------------------------------------------------------------
// This software can be used under the license agreements as stated
// in Go4License.txt file which is part of the distribution.
//-----------------------------------------------------------------------
 
// print of daq status, setup, and multi layer setup
 
#include "typedefs.h"
#include <stdio.h>
#include <string.h>
#include <stddef.h>
 
#include "sys_def.h"
#include "sbs_def.h"
#include "ml_def.h"
#include "err_mask_def.h"
#include "errnum_def.h"
#include "f_ut_time.h"
#include "f_ut_seg_show.h"
 
#ifdef Linux
#define LOUT printf("%s\n",c_line);
#endif
 
#ifdef Solaris
#define LOUT printf("%s\n",c_line);
#endif
 
#ifdef Darwin
#define LOUT printf("%s\n",c_line);
#endif
 
#ifdef _MSC_VER
#define LOUT printf("%s\n",c_line);
#endif
 
#ifdef Lynx
#include "f_ut_error.h"
#define LOUT f_ut_error("",ERR__MSG_INFO,0,c_line,MASK__PRTTERM);
#endif
 
INTS4 f_ut_seg_show (s_daqst *ps_daqst, s_setup *ps_setup, s_set_ml *ps_set_ml, s_set_mo *ps_set_mo)
{
  INTS4 i, j;
  CHARX c_time[32];
  CHARX c_line[512];
  CHARX *ps_master[20] = { "CVC"    , "E6"  , "E7"   , "AEB", "CBV", "CVI", "CAV", "RIO2", "PC", "RIO3",
                             "V32C32", "RIO4", "PCx86",  "IPV", "IFC" ,  "nn",  "nn",   "nn", "MVLC", "nn"};
  sprintf (c_line, "%s", f_ut_time (c_time));
  LOUT
  ;
  if (ps_daqst != NULL )
  {
    sprintf (c_line, "S_daqst *********************************************************************");
    LOUT
    ;
    sprintf (c_line, " l_version   __________%5d l_endian   ___________%5d", ps_daqst->l_version, ps_daqst->l_endian);
    LOUT
    ;
    sprintf (c_line, " l_daqst_lw   _________%5d l_fix_lw   ___________%5d", ps_daqst->l_daqst_lw, ps_daqst->l_fix_lw);
    LOUT
    ;
    sprintf (c_line, " l_sys__n_max_procs   _%5d l_sbs__str_len_64   __%5d", ps_daqst->l_sys__n_max_procs,
        ps_daqst->l_sbs__str_len_64);
    LOUT
    ;
    sprintf (c_line, " l_sbs__n_trg_typ   ___%5d bh_verbose_flg   _____%5d", ps_daqst->l_sbs__n_trg_typ,
        ps_daqst->bh_verbose_flg);
    LOUT
    ;
    sprintf (c_line, " bl_n_events   ___%10d bl_r_events   ________%5d", ps_daqst->bl_n_events, ps_daqst->bl_r_events);
    LOUT
    ;
    sprintf (c_line, " bl_n_buffers   ___%9d bl_r_buffers   _______%5d", ps_daqst->bl_n_buffers,
        ps_daqst->bl_r_buffers);
    LOUT
    ;
    sprintf (c_line, " bl_n_bufstream   _%9d bl_r_bufstream   _____%5d", ps_daqst->bl_n_bufstream,
        ps_daqst->bl_r_bufstream);
    LOUT
    ;
    sprintf (c_line, " bl_n_kbyte   ____%10d bl_r_kbyte   _________%5d", ps_daqst->bl_n_kbyte, ps_daqst->bl_r_kbyte);
    LOUT
    ;
    sprintf (c_line, " bl_n_evserv_events %8d bl_r_evserv_events    %5d", ps_daqst->bl_n_evserv_events,
        ps_daqst->bl_r_evserv_events);
    LOUT
    ;
    sprintf (c_line, " bl_n_evserv_kbytes %8d bl_r_evserv_kbytes   _%5d", ps_daqst->bl_n_evserv_kbytes,
        ps_daqst->bl_r_evserv_kbytes);
    LOUT
    ;
    sprintf (c_line, " bl_n_strserv_bufs %9d bl_r_strserv_bufs   __%5d", ps_daqst->bl_n_strserv_bufs,
        ps_daqst->bl_r_strserv_bufs);
    LOUT
    ;
    sprintf (c_line, " bl_n_strserv_kbytes %7d bl_r_strserv_kbytes   %5d", ps_daqst->bl_n_strserv_kbytes,
        ps_daqst->bl_r_strserv_kbytes);
    LOUT
    ;
    sprintf (c_line, " bl_n_kbyte_tape  %10d bl_r_kbyte_tape   ____%5d", ps_daqst->bl_n_kbyte_tape,
        ps_daqst->bl_r_kbyte_tape);
    LOUT
    ;
    sprintf (c_line, " bl_n_kbyte_file   %9d l_free_streams________%5d", ps_daqst->bl_n_kbyte_file,
        ps_daqst->l_free_streams);
    LOUT
    ;
    sprintf (c_line, " bl_no_streams   ______%5d bl_no_stream_buf   ___%5d", ps_daqst->bl_no_streams,
        ps_daqst->bl_no_stream_buf);
    LOUT
    ;
    sprintf (c_line, " l_block_length   _____%5d l_record_size   ______%5d", ps_daqst->l_block_length,
        ps_daqst->l_record_size);
    LOUT
    ;
    sprintf (c_line, " l_block_size   _______%5d bl_flush_time   ______%5d", ps_daqst->l_block_size,
        ps_daqst->bl_flush_time);
    LOUT
    ;
    sprintf (c_line, " l_open_vol   _________%5d l_open_file   ________%5d", ps_daqst->l_open_vol,
        ps_daqst->l_open_file);
    LOUT
    ;
    sprintf (c_line, " l_max_tape_size   __%7d l_pos_on_tape   ____%7d", ps_daqst->l_max_tape_size,
        ps_daqst->l_pos_on_tape);
    LOUT
    ;
    sprintf (c_line, " l_file_auto   ________%5d l_file_cur   _________%5d", ps_daqst->l_file_auto - 1,
        ps_daqst->l_file_cur - 1);
    LOUT
    ;
    sprintf (c_line, " l_file_count   _______%5d l_pathnum   __________%5d", ps_daqst->l_file_count,
        ps_daqst->l_pathnum);
    LOUT
    ;
    sprintf (c_line, " l_file_size   ________%5d l_block_count   ______%5d", ps_daqst->l_file_size,
        ps_daqst->l_block_count);
    LOUT
    ;
    sprintf (c_line, " l_rate_on   __________%5d l_rate_sec   _________%5d", ps_daqst->l_rate_on, ps_daqst->l_rate_sec);
    LOUT
    ;
    sprintf (c_line, " bl_histo_port  _______%5d bl_run_time   ________%5d", ps_daqst->bl_histo_port,
        ps_daqst->bl_run_time);
    LOUT
    ;
    sprintf (c_line, " l_irq_driv_id   ______%5d l_irq_maj_dev_id   ___%5d", ps_daqst->l_irq_driv_id,
        ps_daqst->l_irq_maj_dev_id);
    LOUT
    ;
    for (i = 0; i < 16; i += 4)
    {
      sprintf (c_line, " user [%02d] %9d [%02d] %9d [%02d] %9d [%02d] %9d", i, ps_daqst->bl_user[i], i + 1,
          ps_daqst->bl_user[i + 1], i + 2, ps_daqst->bl_user[i + 2], i + 3, ps_daqst->bl_user[i + 3]);
      LOUT
      ;
    }
    for (i = 0; i < SBS__N_TRG_TYP; i++)
      if (ps_daqst->bl_n_trig[i] != 0)
      {
        sprintf (c_line, " %2d bl_n_trig %9d bl_n_si   _____%9d bl_n_evt   _%9d", i, ps_daqst->bl_n_trig[i],
            ps_daqst->bl_n_si[i], ps_daqst->bl_n_evt[i]);
        LOUT
        ;
      }
    sprintf (c_line, " bl_spill_on   _______%d bl_delayed_eb_ena   ___%d bl_event_build_on   %d", ps_daqst->bl_spill_on,
        ps_daqst->bl_delayed_eb_ena, ps_daqst->bl_event_build_on);
    LOUT
    ;
 
    sprintf (c_line, " bl_trans_ready   ___%2d bl_trans_connected   _%2d bl_dabc_enabled  _%3d",
        ps_daqst->bl_trans_ready, ps_daqst->bl_trans_connected, ps_daqst->bl_dabc_enabled);
    LOUT
    ;
 
    sprintf (c_line, " bl_strsrv_scale   __%2d bl_strsrv_sync   ______%d bl_strsrv_keep   ___%d",
        ps_daqst->bl_strsrv_scale, ps_daqst->bl_strsrv_sync, ps_daqst->bl_strsrv_keep);
    LOUT
    ;
    sprintf (c_line, " bl_strsrv_scaled   __%d bl_strsrv_nosync   ____%d bl_strsrv_nokeep   _%d",
        ps_daqst->bl_strsrv_scaled, ps_daqst->bl_strsrv_nosync, ps_daqst->bl_strsrv_nokeep);
    LOUT
    ;
    sprintf (c_line, " bl_evtsrv_maxcli   _%2d bl_evtsrv_scale   ____%2d bl_evtsrv_events  %3d",
        ps_daqst->bl_evtsrv_maxcli, ps_daqst->bl_evtsrv_scale, ps_daqst->bl_evtsrv_events);
    LOUT
    ;
    sprintf (c_line, " bl_evtsrv_all   _____%d bl_esosrv_maxcli   ___%2d bl_rfio_connected %3d",
        ps_daqst->bl_evtsrv_all, ps_daqst->bl_esosrv_maxcli, ps_daqst->bl_rfio_connected);
    LOUT
    ;
//sprintf(c_line," bl_pipe_slots   ___%3d bl_pipe_slots_filled %3d",
//ps_daqst->bl_pipe_slots,           ps_daqst->bl_pipe_slots_filled);LOUT;
//sprintf(c_line," bl_pipe_size_KB %6d bl_pipe_filled_KB %6d",
//ps_daqst->bl_pipe_size_KB,           ps_daqst->bl_pipe_filled_KB);LOUT;
 
    sprintf (c_line, " c_user  ______________%s", ps_daqst->c_user);
    LOUT
    ;
    sprintf (c_line, " c_date  ______________%s", ps_daqst->c_date);
    LOUT
    ;
    sprintf (c_line, " c_exprun  ____________%s", ps_daqst->c_exprun);
    LOUT
    ;
    sprintf (c_line, " c_exper  _____________%s", ps_daqst->c_exper);
    LOUT
    ;
    sprintf (c_line, " c_host  ______________%s", ps_daqst->c_host);
    LOUT
    ;
    sprintf (c_line, " c_remote______________%s", ps_daqst->c_remote);
    LOUT
    ;
    sprintf (c_line, " c_display_____________%s", ps_daqst->c_display);
    LOUT
    ;
    sprintf (c_line, " c_anal_segm_name  ____%s", ps_daqst->c_anal_segm_name);
    LOUT
    ;
    sprintf (c_line, " c_setup_name  ________%s", ps_daqst->c_setup_name);
    LOUT
    ;
    sprintf (c_line, " c_ml/o_setup_name  ___%s", ps_daqst->c_ml_setup_name);
    LOUT
    ;
    sprintf (c_line, " c_readout_name  ______%s", ps_daqst->c_readout_name);
    LOUT
    ;
    sprintf (c_line, " c_pathstr  ___________%s", ps_daqst->c_pathstr);
    LOUT
    ;
    sprintf (c_line, " c_devname  ___________%s", ps_daqst->c_devname);
    LOUT
    ;
    sprintf (c_line, " c_tape_label  ________%s", ps_daqst->c_tape_label);
    LOUT
    ;
    sprintf (c_line, " c_file_name  _________%s", ps_daqst->c_file_name);
    LOUT
    ;
    sprintf (c_line, " c_out_chan  __________%s", ps_daqst->c_out_chan);
    LOUT
    ;
 
    sprintf (c_line, " bh_daqst_initalized %d bh_acqui_started   __%d bh_acqui_running   _%d",
        ps_daqst->bh_daqst_initalized, ps_daqst->bh_acqui_started, ps_daqst->bh_acqui_running);
    LOUT
    ;
    sprintf (c_line, " bh_setup_loaded   __%d bh_set_ml/o_loaded %d %d bh_cam_tab_loaded   %d",
        ps_daqst->bh_setup_loaded, ps_daqst->bh_set_ml_loaded, ps_daqst->bh_set_mo_loaded, ps_daqst->bh_cam_tab_loaded);
    LOUT
    ;
    sprintf (c_line, " bh_trig_master   ___%d bh_histo_enable   ___%d bh_histo_ready   ___%d", ps_daqst->bh_trig_master,
        ps_daqst->bh_histo_enable, ps_daqst->bh_histo_ready);
    LOUT
    ;
    sprintf (c_line, " bh_event_serv_ready %d bh_ena_evt_copy   ___%d l_procs_run _______%2d",
        ps_daqst->bh_event_serv_ready, ps_daqst->bh_ena_evt_copy, ps_daqst->l_procs_run);
    LOUT
    ;
    sprintf (c_line, " m_dispatch   _______%d m_msg_log   _________%d m_util   ___________%d",
        ps_daqst->bh_running[SYS__dispatch], ps_daqst->bh_running[SYS__msg_log], ps_daqst->bh_running[SYS__util]);
    LOUT
    ;
    sprintf (c_line, " m_collector   ______%d m_transport   _______%d m_read_cam_slav ____%d",
        ps_daqst->bh_running[SYS__collector], ps_daqst->bh_running[SYS__transport],
        ps_daqst->bh_running[SYS__read_cam_slav]);
    LOUT
    ;
    sprintf (c_line, " m_read_meb   _______%d m_event_serv   ______%d m_esone_serv   _____%d",
        ps_daqst->bh_running[SYS__read_meb], ps_daqst->bh_running[SYS__event_serv],
        ps_daqst->bh_running[SYS__esone_serv]);
    LOUT
    ;
    sprintf (c_line, " m_stream_serv   ____%d m_histogram   _______%d m_sbs_mon   ________%d",
        ps_daqst->bh_running[SYS__stream_serv], ps_daqst->bh_running[SYS__histogram],
        ps_daqst->bh_running[SYS__sbs_mon]);
    LOUT
    ;
    sprintf (c_line, " m_prompt   _________%d m_daq_rate  _________%d m_smi  _____________%d",
        ps_daqst->bh_running[SYS__prompt], ps_daqst->bh_running[SYS__daq_rate], ps_daqst->bh_running[SYS__smi]);
    LOUT
    ;
    sprintf (c_line, " m_ar   _____________%d m_rirec  ____________%d m_to  ______________%d",
        ps_daqst->bh_running[SYS__ar], ps_daqst->bh_running[SYS__rirec], ps_daqst->bh_running[SYS__to]);
    LOUT
    ;
    sprintf (c_line, " m_ds  ______________%d m_dr  _______________%d m_vme_serv  ________%d",
        ps_daqst->bh_running[SYS__ds], ps_daqst->bh_running[SYS__dr], ps_daqst->bh_running[SYS__vme_serv]);
    LOUT
    ;
 
    sprintf (c_line, " Tasks  ---------------------------------------------------------------------");
    LOUT
    ;
    for (i = 0; i < ps_daqst->l_procs_run; i++)
    {
      sprintf (c_line, " %2d pid %5d pprio%3d pact %1d type %2d pname %s", i, ps_daqst->l_pid[i], ps_daqst->l_pprio[i],
          ps_daqst->bh_pact[i], ps_daqst->l_type[i], ps_daqst->c_pname[i]);
      LOUT
      ;
    }
  }
 
  if (ps_setup != NULL )
  {
    sprintf (c_line, "S_setup *********************************************************************");
    LOUT
    ;
 
    sprintf (c_line, " l_version ___________________________________%5d l_endian ___________________________________%5d", ps_setup->l_version,
        ps_setup->l_endian);
    LOUT
    ;
    sprintf (c_line, " bl_struc_len ________________________________%5d l_fix_lw ___________________________________%5d", ps_setup->bl_struc_len,
        ps_setup->l_fix_lw);
    LOUT
    ;
    sprintf (c_line, " bl_sbs__n_cr ________________________________%5d bl_sbs__n_trg_typ __________________________%5d", ps_setup->bl_sbs__n_cr,
        ps_setup->bl_sbs__n_trg_typ);
    LOUT
    ;
    sprintf (c_line, " bl_no_crates ________________________________%5d bh_crate_nr ________________________________%5d", ps_setup->bl_no_crates,
        ps_setup->bh_crate_nr);
    LOUT
    ;
    sprintf (c_line, " bl_se_meb_asy_len ___________________________%5d bh_rd_typ __________________________________%5d", ps_setup->bl_se_meb_asy_len,
        ps_setup->bh_rd_typ);
    LOUT
    ;
    sprintf (c_line, " bh_meb_asy_flg ______________________________%5d bh_col_mode ________________________________%5d", ps_setup->bh_meb_asy_flg,
        ps_setup->bh_col_mode);
    LOUT
    ;
    sprintf (c_line, " bh_meb_trig_mode ____________________________%5d bh_special_meb_trig_type ___________________%5d", ps_setup->bh_meb_trig_mode,
        ps_setup->bh_special_meb_trig_type);
    LOUT
    ;
    sprintf (c_line, " bl_loc_esone_base _______________x%016lx bl_rem_esone_base ______________x%016lx", (unsigned long) ps_setup->bl_loc_esone_base,
          (unsigned long) ps_setup->bl_rem_esone_base);
    LOUT
    ;
    sprintf (c_line, " bl_esone_off ____________________________x%08lx bl_cvc_crr_off _________________________x%08lx", (unsigned long) ps_setup->bl_esone_off,
          (unsigned long) ps_setup->bl_cvc_crr_off);
    LOUT
    ;
    sprintf (c_line, " bl_cvc_csr_off __________________________x%08lx bl_cvc_clb_off _________________________x%08lx", (unsigned long) ps_setup->bl_cvc_csr_off,
          (unsigned long) ps_setup->bl_cvc_clb_off);
    LOUT
    ;
    sprintf (c_line, " bl_ml_pipe_base_addr ____________x%016lx bl_ml_pipe_seg_len _____________x%016lx", (unsigned long) ps_setup->bl_ml_pipe_base_addr,
          (unsigned long) ps_setup->bl_ml_pipe_seg_len);
    LOUT
    ;
    sprintf (c_line, " bl_special_meb_trig_base ________x%016lx bl_ml_pipe_len _________________________x%08lx",
          (unsigned long) ps_setup->bl_special_meb_trig_base, (unsigned long) ps_setup->bl_ml_pipe_len);
    LOUT
    ;
    sprintf (c_line, " lp_cvc_irq ______________________________x%08lx bl_cvc_irq_len _________________________x%08lx", (unsigned long) ps_setup->lp_cvc_irq,
          (unsigned long) ps_setup->bl_cvc_irq_len);
    LOUT
    ;
    sprintf (c_line, " bl_cvc_irq_source_off ___________________x%08lx bl_cvc_irq_mask_off ____________________x%08lx", (unsigned long) ps_setup->bl_cvc_irq_source_off,
          (unsigned long) ps_setup->bl_cvc_irq_mask_off);
    LOUT
    ;
    sprintf (c_line, " bl_ev_buf_len ________________%5d bl_n_ev_buf _______________%5d bl_n_stream ______________%5d",
        ps_setup->bl_ev_buf_len, ps_setup->bl_n_ev_buf, ps_setup->bl_n_stream);
    LOUT
    ;
    sprintf (c_line, " bi_evt_typ_sy ________________%5d bi_evt_typ_asy ____________%5d bi_evt_subtyp_sy _________%5d",
        ps_setup->bi_evt_typ_sy, ps_setup->bi_evt_typ_asy, ps_setup->bi_evt_subtyp_sy);
    LOUT
    ;
    sprintf (c_line, " bi_evt_subtyp_asy ____________%5d h_se_control ______________%5d h_rd_tab_flg _____________%5d",
        ps_setup->bi_evt_subtyp_asy, ps_setup->h_se_control, ps_setup->h_rd_tab_flg);
    LOUT
    ;
    sprintf (c_line, " bl_init_read_len _____________%5d bl_n_col_retry ____________%5d bi_master ___%4s_________%5d",
        ps_setup->bl_init_read_len, ps_setup->bl_n_col_retry, ps_master[ps_setup->bi_master - 1], ps_setup->bi_master);
    LOUT
    ;
    sprintf (c_line, " Crates ---------------------------------------------------------------------------------------------");
    LOUT
    ;
    for (i = 0; i < SBS__N_CR; i++)
    {
      if ((ps_setup->lp_rem_mem_base[i] != 0) | (ps_setup->lp_rem_cam_base[i] != 0)
          | (ps_setup->lp_loc_mem_base[i] != 0) | (ps_setup->lp_loc_pipe_base[i] != 0))
      {
        sprintf (c_line, " %2d rem_mem_base __x%016lx rem_mem_off ___x%016lx rem_mem_len __x%016lx", i,
              (unsigned long) ps_setup->lp_rem_mem_base[i], (unsigned long) ps_setup->bl_rem_mem_off[i], (unsigned long) ps_setup->bl_rem_mem_len[i]);
        LOUT
        ;
        sprintf (c_line, " %2d rem_cam_base __x%016lx rem_cam_off ___x%016lx rem_cam_len __________x%08lx", i,
              (unsigned long) ps_setup->lp_rem_cam_base[i], (unsigned long) ps_setup->bl_rem_cam_off[i], (unsigned long) ps_setup->bl_rem_cam_len[i]);
        LOUT
        ;
        sprintf (c_line, " %2d loc_mem_base __x%016lx loc_mem_len ___x%016lx loc_pipe_base x%016lx", i,
              (unsigned long) ps_setup->lp_loc_mem_base[i], (unsigned long) ps_setup->bl_loc_mem_len[i], (unsigned long) ps_setup->lp_loc_pipe_base[i]);
        LOUT
        ;
        sprintf (c_line, " %2d pipe_off ______x%016lx pipe_seg_len __x%016lx pipe_len _______________%5d", i,
              (unsigned long) ps_setup->bl_pipe_off[i], (unsigned long) ps_setup->bl_pipe_seg_len[i], ps_setup->bl_pipe_len[i]);
        LOUT
        ;
        sprintf (c_line, " %2d init_tab_off __________x%08lx init_tab_len __________x%08lx", i,
              (unsigned long) ps_setup->bl_init_tab_off[i], (unsigned long) ps_setup->bi_init_tab_len[i]);
        LOUT
        ;
        sprintf (c_line, " %2d controller_id _____________%5d sy_asy_flg ________________%5d trig_stat_nr _____________%5d", i,
            ps_setup->bh_controller_id[i], ps_setup->bh_sy_asy_flg[i], ps_setup->bh_trig_stat_nr[i]);
        LOUT
        ;
        sprintf (c_line, " %2d trig_cvt __________________%5d trig_fct __________________%5d rd_flg ___________________%5d", i,
            ps_setup->bl_trig_cvt[i], ps_setup->bl_trig_fct[i], ps_setup->bh_rd_flg[i]);
        LOUT
        ;
        sprintf (c_line, " %2d i_se_typ __________________%5d i_se_subtyp _______________%5d i_se_procid ______________%5d", i,
            ps_setup->i_se_typ[i], ps_setup->i_se_subtyp[i], ps_setup->i_se_procid[i]);
        LOUT
        ;
        for (j = 0; j < SBS__N_TRG_TYP; j++)
        {
          if (ps_setup->bi_rd_tab_len[i][j] != 0)
          {
            sprintf (c_line, "  %2d %2d bl_max_se_len x%08lx   bl_rd_tab_off x%08lx   bi_rd_tab_len x%08lx", i, j,
                  (unsigned long) ps_setup->bl_max_se_len[i][j], (unsigned long) ps_setup->bl_rd_tab_off[i][j], (unsigned long) ps_setup->bi_rd_tab_len[i][j]);
            LOUT
            ;
          }
        }
      }
    }
  }
 
  if (ps_set_ml != NULL )
  {
    sprintf (c_line, "S_set_ml ********************************************************************");
    LOUT
    ;
    sprintf (c_line, " l_version ______________%5d l_endian _______________%5d", ps_set_ml->l_version,
        ps_set_ml->l_endian);
    LOUT
    ;
    sprintf (c_line, " l_set_ml_lw ____________%5d l_fix_lw _______________%5d", ps_set_ml->l_set_ml_lw,
        ps_set_ml->l_fix_lw);
    LOUT
    ;
    sprintf (c_line, " l_ml__n_rd_pipe ________%5d l_short_len ____________%5d", ps_set_ml->l_ml__n_rd_pipe,
        ps_set_ml->l_short_len);
    LOUT
    ;
    sprintf (c_line, " l_long_len _____________%5d l_n_rd_pipe ____________%5d", ps_set_ml->l_long_len,
        ps_set_ml->l_n_rd_pipe);
    LOUT
    ;
    sprintf (c_line, " l_out_mode _____________%5d l_wr_pipe_base_addr x%16lx", ps_set_ml->l_out_mode,
        (long unsigned) ps_set_ml->l_wr_pipe_base_addr);
    LOUT
    ;
    sprintf (c_line, " l_wr_pipe_len ______x%016lx l_wr_pipe_n_frag _______%5d", (long unsigned) ps_set_ml->l_wr_pipe_len,
        ps_set_ml->l_wr_pipe_n_frag);
    LOUT
    ;
    sprintf (c_line, " l_ev_buf_len ___________%5d l_n_ev_buf _____________%5d", ps_set_ml->l_ev_buf_len,
        ps_set_ml->l_n_ev_buf);
    LOUT
    ;
    sprintf (c_line, " l_n_stream _____________%5d", ps_set_ml->l_n_stream);
    LOUT
    ;
    sprintf (c_line, " c_hostname _____________%s", ps_set_ml->c_hostname);
    LOUT
    ;
    sprintf (c_line, " Pipes ----------------------------------------------------------------------");
    LOUT
    ;
    for (i = 0; i < ps_set_ml->l_n_rd_pipe; i++)
    {
      sprintf (c_line, "  %2d c_rd_hostname     %s", i, ps_set_ml->c_rd_hostname[i]);
      LOUT
      ;
      sprintf (c_line, "  %2d c_sbs_setup_path  %s", i, ps_set_ml->c_sbs_setup_path[i]);
      LOUT
      ;
      sprintf (c_line, "  %2d l_rd_pipe_base_addr x%16lx   l_rd_pipe_len _____x%016lx", i,
          (long unsigned) ps_set_ml->l_rd_pipe_base_addr[i], (long unsigned) ps_set_ml->l_rd_pipe_len[i]);
      LOUT
      ;
      sprintf (c_line, "  %2d l_rd_pipe_n_frag _______%5d   l_rd_host_flg _________%5d", i,
          ps_set_ml->l_rd_pipe_n_frag[i], ps_set_ml->l_rd_host_flg[i]);
      LOUT
      ;
    }
  }
 
  if (ps_set_mo != NULL )
  {
    sprintf (c_line, "S_set_mo ********************************************************************");
    LOUT
    ;
    sprintf (c_line, "ds_hostname       dr_hostname      active");
    LOUT
    ;
    if (ps_set_mo->l_no_senders > ps_set_mo->l_no_receivers)
      j = ps_set_mo->l_no_senders;
    else
      j = ps_set_mo->l_no_receivers;
    for (i = 0; i < j; i++)
    {
      sprintf (c_line, "%2d %-16s  %-16s %d", i + 1, &ps_set_mo->c_ds_hostname[i][0], &ps_set_mo->c_dr_hostname[i][0],
          ps_set_mo->bl_dr_active[i]);
      LOUT
      ;
    }
    for (i = 0; i < ps_set_mo->l_no_receivers; i++)
    {
      sprintf (c_line, "%2d l_ev_buf_len ___%5d l_n_ev_buf __%5d l_n_stream __%5d", i + 1, ps_set_mo->l_ev_buf_len[i],
          ps_set_mo->l_n_ev_buf[i], ps_set_mo->l_n_stream[i]);
      LOUT
      ;
    }
    sprintf (c_line, "l_max_evt_size ___%8d l_n_frag ____%5d", ps_set_mo->l_max_evt_size, ps_set_mo->l_n_frag);
    LOUT
    ;
 
  }
  return (0);
}