mod_cryo_scfe.cxx

Go to the documentation of this file.

/********************************************************************\

  Name:         mod_cryo_scfe.cxx
  Created by:   Andreas Suter

  Contents:     Midas frontend to handle the moderator cryo of the
                LEM experiment

\********************************************************************/

#include <cstdio>
#include <cstdlib>
#include <cstring>
#include <cmath>

#include "midas.h"
#include "mfe.h"

#include "class/multi.h"
#include "LakeShore336.h"
#include "west6100.h"
#include "eurotherm2416.h"
#include "xtc.h"
#include "twickenham.h"
#include "tcpip_rs232.h"

#define MOD_CF1_DEMAND         9
#define MOD_CF1_MEASURED       0
#define MOD_HE_SHIELD_DEMAND   17
#define MOD_HE_SHIELD_MEASURED 3

//-- Globals -------------------------------------------------------

const char *frontend_name = "ModCryo";
const char *frontend_file_name = __FILE__;

BOOL frontend_call_loop = FALSE;

INT display_period = 1000;

INT max_event_size = 10000;

INT max_event_size_frag = 5*1024*1024;

INT event_buffer_size = 10*10000;

float *input;

//-- Equipment list ------------------------------------------------

DEVICE_DRIVER mod_cryo_driver[] = {
  { "Lake336_Moderator",          ls336_in,  24, tcpip_rs232, DF_INPUT  },
  { "Lake336_Moderator",         ls336_out,  14, tcpip_rs232, DF_OUTPUT },
  { "Eurotherm2416_In",   eurotherm2416_in,   8, tcpip_rs232, DF_INPUT  },
  { "Eurotherm2416_Out", eurotherm2416_out,   7, tcpip_rs232, DF_OUTPUT },
  { "W6100_In",                   w6100_in,   6, tcpip_rs232, DF_INPUT  },
  { "W6100_Out",                 w6100_out,   8, tcpip_rs232, DF_OUTPUT },
  { "XTC",                             xtc,   2, tcpip_rs232, DF_INPUT  },
  { "LN2_Moddy",                twickenham,   1, tcpip_rs232, DF_INPUT  },
  { "" }
};

BOOL equipment_common_overwrite = FALSE;

EQUIPMENT equipment[] = {

  { "ModCryo",            // equipment name
   {71, 0,                // event ID, trigger mask
    "SYSTEM",             // event buffer
    EQ_SLOW,              // equipment type
    0,                    // event source
    "FIXED",              // format
    TRUE,                 // enabled
    RO_RUNNING |
    RO_TRANSITIONS,       // read when running and on transitions
    30000,                // read every 30 sec
    0,                    // stop run after this event limit
    0,                    // number of sub events
    1,                    // log history every event
    "", "", "",},
    cd_multi_read,        // readout routine
    cd_multi,             // class driver main routine
    mod_cryo_driver,      // device driver list
    NULL,                 // init string
  },

  { "" }
};



//-- Dummy routines ------------------------------------------------

INT  poll_event(INT source, INT count, BOOL test) {return 1;};
INT  interrupt_configure(INT cmd, INT source, POINTER_T adr) {return 1;};

//------------------------------------------------------------------
void mod_cryo_checks(HNDLE hDB, HNDLE hKey, void *dummy)
{
  char str[256];
  static int cf1_fired = 0;
  static int he_shield_fired = 0;

  // check if CF1 Measured is within tolerance to CF1 Demand
  if (fabs(input[MOD_CF1_DEMAND]-input[MOD_CF1_MEASURED])>3.0) {
    if (!cf1_fired) {
      if (input[MOD_CF1_DEMAND]-input[MOD_CF1_MEASURED]>0.0)
        sprintf(str, "Moderator CF1 Demand = %0.1f, Measured = %0.1f: Heater off??",
                input[MOD_CF1_DEMAND], input[MOD_CF1_MEASURED]);
      else
        sprintf(str, "Moderator CF1 Demand = %0.1f, Measured = %0.1f: intentionally??",
                input[MOD_CF1_DEMAND], input[MOD_CF1_MEASURED]);
      al_trigger_alarm( "mod_cryo_checks", str, "Warning", str, AT_INTERNAL);
    }
    cf1_fired++;
  } else {
    cf1_fired = 0;
  }

  // check if He Shield Measured is within tolerance to He Shield Demand
  if (fabs(input[MOD_HE_SHIELD_DEMAND]-input[MOD_HE_SHIELD_MEASURED])>10.0) {
    if (!he_shield_fired) {
      if (input[MOD_HE_SHIELD_DEMAND]-input[MOD_HE_SHIELD_MEASURED]>0.0)
        sprintf(str, "Moderator He Shield Demand = %0.1f, Measured = %0.1f: Heater off??",
                input[MOD_HE_SHIELD_DEMAND], input[MOD_HE_SHIELD_MEASURED]);
      else
        sprintf(str, "Moderator He Shield Demand = %0.1f, Measured = %0.1f: intentionally??",
                input[MOD_HE_SHIELD_DEMAND], input[MOD_HE_SHIELD_MEASURED]);
      al_trigger_alarm( "mod_cryo_checks", str, "Warning", str, AT_INTERNAL);
    }
    he_shield_fired++;
  } else {
    he_shield_fired = 0;
  }
}

//-- Frontend Init -------------------------------------------------
INT frontend_init()
{
  HNDLE hDB, hKey;
  KEY   key;
  char  str[256];
  int   status;

  // de-register run-transition notifications
  cm_deregister_transition(TR_START);
  cm_deregister_transition(TR_STOP);
  cm_deregister_transition(TR_PAUSE);
  cm_deregister_transition(TR_RESUME);

  // get ODB main handle
  cm_get_experiment_database(&hDB, NULL);

  // hotlink lemvac mc status
  strcpy(str, "/Equipment/ModCryo/Variables/Input");
  status = db_find_key(hDB, 0, str, &hKey);
  if (status != DB_SUCCESS) {
    cm_msg(MERROR, "frontend_init", "mod_cryo_scfe: Couldn't find %s", str);
    return CM_SUCCESS;
  }

  // get key
  status = db_get_key(hDB, hKey, &key);
  if (status != DB_SUCCESS) {
    cm_msg(MERROR, "frontend_init", "mod_cryo_scfe: Couldn't get ODB key for %s", str);
    return CM_SUCCESS;
  }

  // allocate memory for the input variables
  input = (float *) malloc(key.total_size);

  // hotlink that stuff
  status = db_open_record(hDB, hKey, input, key.total_size, MODE_READ, &mod_cryo_checks, NULL);

  return CM_SUCCESS;
}

//-- Frontend Exit -------------------------------------------------
INT frontend_exit()
{
  HNDLE hDB, hKey;
  char  str[256];
  int   status;

  // get ODB main handle
  cm_get_experiment_database(&hDB, NULL);

  // unlink detector db50 mc status
  strcpy(str, "/Equipment/ModCryo/Variables/Input");
  status = db_find_key(hDB, 0, str, &hKey);
  if (status != DB_SUCCESS) {
    cm_msg(MERROR, "frontend_exit", "mod_cryo_scfe: Couldn't find %s, status=%d", str, status);
    return CM_SUCCESS;
  }
  db_close_record(hDB, hKey);

  // memory cleanup
  free(input);

  return CM_SUCCESS;
}

//-- Frontend Loop -------------------------------------------------
INT frontend_loop()
{
  return CM_SUCCESS;
}

//-- Begin of Run --------------------------------------------------
INT begin_of_run(INT run_number, char *error)
{
  return CM_SUCCESS;
}

//-- End of Run ----------------------------------------------------
INT end_of_run(INT run_number, char *error)
{
  return CM_SUCCESS;
}

//-- Pause Run -----------------------------------------------------
INT pause_run(INT run_number, char *error)
{
  return CM_SUCCESS;
}

//-- Resume Run ----------------------------------------------------
INT resume_run(INT run_number, char *error)
{
  return CM_SUCCESS;
}

//------------------------------------------------------------------