KVINDRAUpDater.cpp

/*
$Id: KVINDRAUpDater.cpp,v 1.12 2008/01/10 14:17:34 franklan Exp $
$Revision: 1.12 $
$Date: 2008/01/10 14:17:34 $
$Author: franklan $
*/
 
#include "KVINDRAUpDater.h"
#include "KVINDRA.h"
#include "KVCalibrator.h"
#include "KVNucleus.h"
#include "KVDBParameterSet.h"
#include "KVINDRADBRun.h"
#include "KVIDGridManager.h"
#include "KVDBChIoPressures.h"
#include "KVChIo.h"
#include "KVBase.h"
#include "KVSilicon.h"
#include "KVCsI.h"
#include "KVINDRADB.h"
using namespace std;
 
 
 
 
ClassImp(KVINDRAUpDater)
KVINDRAUpDater::KVINDRAUpDater()
{
   //Default ctor for KVINDRAUpDater object.
}
 
 
 
 
 
void KVINDRAUpDater::SetParameters(UInt_t run, Bool_t physics_parameters_only)
{
   //Set the parameters of INDRA for this run
   //This will:
   //      set the multiplicity trigger of fArray using the database value for the run
   //      set the target corresponding to the run
   //      set the ChIo pressures for the run
   //If physics_parameters_only==kFALSE:
   //      set special detector gains for run (if any)
   //      set calibration parameters for the run
   //      set identification parameters for the run
   //
 
   cout << "Setting parameters of INDRA array for run " << run << ":" <<
        endl;
   KVDBRun* kvrun = gExpDB->GetDBRun(run);
   if (!kvrun) {
      Error("SetParameters(UInt_t)", "Run %u not found in database!", run);
      return;
   }
   SetTrigger(kvrun);
   SetTarget(kvrun);
 
   CheckStatusOfDetectors(kvrun);
   SetChIoPressures(kvrun);
 
   if (!physics_parameters_only) {
      SetGains(kvrun);
      SetCalibrationParameters(run);
      SetIdentificationParameters(run);
   }
}
 
 
 
//void KVINDRAUpDater::SetCalibrationParameters(UInt_t run)
//{
//   //Set calibration parameters for this run.
//   //This will:
//   //      reset all the calibrators of all the detectors ready to receive the calibrators for the run (handled by child classes),
//   //      set calibration parameters for the run
//   //      set pedestals for the run
//   //      set PHD parameters of silicon detectors for run
 
//   cout << "Setting calibration parameters of INDRA array for run " << run << ":" <<
//        endl;
//   KVDBRun* kvrun = gExpDB->GetDBRun(run);
//   if (!kvrun) {
//      Error("SetParameters(UInt_t)", "Run %u not found in database!", run);
//      return;
//   }
//   //Reset all calibrators of all detectors first
//   TIter next(fArray->GetDetectors());
//   KVDetector* kvd;
//   KVCalibrator* kvc;
//   while ((kvd = (KVDetector*) next())) {
//      if (kvd->GetListOfCalibrators()) {
//         TIter next_cal(kvd->GetListOfCalibrators());
//         while ((kvc = (KVCalibrator*) next_cal())) {
//            kvc->Reset();
//         }
//      }
//   }
//   SetCalibParameters(kvrun);
//   //SetPedestals(kvrun);
//   SetPHDs(kvrun);
//}
 
 
 
void KVINDRAUpDater::SetTrigger(KVDBRun* kvrun)
{
   //Set trigger used during this run
 
   cout << "--> Setting Trigger:" << endl;
   GetINDRA()->SetTrigger(kvrun->GetTrigger());
   cout << "      M>=" << (Int_t)GetINDRA()->GetTrigger() << endl;
}
 
 
 
 
void KVINDRAUpDater::CheckStatusOfDetectors(KVDBRun* kvrun)
{
 
   KVRList* absdet = kvrun->GetLinks("Absent Detectors");
   KVRList* oooacq = kvrun->GetLinks("OoO ACQPars");
   KVRList* ooodet = kvrun->GetLinks("OoO Detectors");
 
   TIter next(fArray->GetDetectors());
   KVDetector* det;
   KVEBYEDAT_ACQParam* acq;
 
   Int_t ndet_absent = 0;
   Int_t ndet_ooo = 0;
   Int_t nacq_ooo = 0;
 
   while ((det = (KVDetector*)next())) {
      //Test de la presence ou non du detecteur
      if (!absdet) {
         det->SetPresent();
      }
      else {
         if (absdet->FindObject(det->GetName(), "Absent Detector")) {
            det->SetPresent(kFALSE);
            ndet_absent += 1;
         }
         else {
            det->SetPresent();
         }
      }
      if (det->IsPresent()) {
         //Test du bon fonctionnement ou non du detecteur
         if (!ooodet) {
            det->SetDetecting();
         }
         else {
            if (ooodet->FindObject(det->GetName(), "OoO Detector")) {
               det->SetDetecting(kFALSE);
               ndet_ooo += 1;
            }
            else {
               det->SetDetecting();
            }
         }
         //Test du bon fonctionnement ou non des parametres d acquisition
//         if (det->IsDetecting()) {
//            TIter next_acq(det->GetACQParamList());
//            if (!oooacq) {
//               while ((acq = (KVACQParam*)next_acq())) {
//                  acq->SetWorking();
//               }
//            }
//            else {
//               Int_t noff = 0;
//               while ((acq = (KVACQParam*)next_acq())) {
//                  if (oooacq->FindObject(acq->GetName(), "OoO ACQPar")) {
//                     acq->SetWorking(kFALSE);
//                     noff += 1;
//                     nacq_ooo += 1;
//                  }
//                  else {
//                     acq->SetWorking();
//                  }
//               }
//               if (noff == 3) {
//                  det->SetDetecting(kFALSE);
//                  ndet_ooo += 1;
//                  nacq_ooo -= 3;
//               }
//            }
//         }
      }
   }
   Info("KVINDRAUpDater", "%d detecteurs absents", ndet_absent);
   Info("KVINDRAUpDater", "%d detecteurs ne fonctionnent pas", ndet_ooo);
   Info("KVINDRAUpDater", "%d parametres d acquisition ne fonctionnent pas", nacq_ooo);
}
 
 
 
 
void KVINDRAUpDater::SetGains(KVDBRun* kvrun)
{
   //Set gains used during this run
   //First all detector gains are set to 1.
   //Then, any detectors for which a different gain has been defined
   //will have its gain set to the value for the run
   TIter next(fArray->GetDetectors());
   KVDetector* kvd;
   while ((kvd = (KVDetector*) next()))
      kvd->SetGain(1.00);
   KVRList* gain_list = kvrun->GetLinks("Gains");
   if (!gain_list) {
      return;
   }
   cout << "--> Setting Gains:" << endl;
   Int_t ndets = gain_list->GetSize();
   cout << "      Setting gains for " << ndets << " detectors : " << endl;
   for (int i = 0; i < ndets; i++) {
      KVDBParameterSet* dbps = (KVDBParameterSet*) gain_list->At(i);
      kvd = fArray->GetDetector(dbps->GetName());
      if (kvd) {
         kvd->SetGain(dbps->GetParameter(0));
         cout << "             " << kvd->GetName() << " : G=" << kvd->
              GetGain() << endl;
      }
      else {
         Error("SetGains", "le detecteur %s n ext pas present", dbps->GetName());
      }
   }
}
 
 
//
// void KVINDRAUpDater::SetIDGrids(UInt_t run)
// {
//     // Use global ID grid manager gIDGridManager to set identification grids for all
//     // ID telescopes for this run. First, any previously set grids are removed.
//     // Then all grids for current run are set in the associated ID telescopes.
//
//     cout << "--> Setting Identification Grids" << endl;
//     TIter next_idt(gMultiDetArray->GetListOfIDTelescopes());
//     KVIDTelescope *idt;
//     while ((idt = (KVIDTelescope *) next_idt()))
//     {
//         idt->RemoveGrids();
//     }
//     gIDGridManager->SetGridsInTelescopes(run);
// }
 
 
 
 
void KVINDRAUpDater::SetChIoPressures(KVDBRun* kvrun)
{
   //Update ChIo pressures for this run with values in database (if any)
   //
   //if pressure is equal to 0 (no gas)
   //mark the corresponding ChIo's as non detecting detector (see KVDetector::SetDetecting())
   //
 
   KVRList* param_list = kvrun->GetLinks("ChIo Pressures");
   if (!param_list) {
      return;
   }
   KVChIo* kvd;
   KVDBChIoPressures* kvps;
   TIter next_ps(param_list);
   KVSeqCollection* chios = GetINDRA()->GetListOfChIo();
   if (!chios) {
      Error("SetChIoPressures",
            "fArray->GetListOfChIo() returns null list pointer");
      return;
   }
   cout << "--> Setting ChIo pressures" << endl;
   TIter next_chio(chios);
   while ((kvps = (KVDBChIoPressures*) next_ps())) {
      cout << "       Ring 2/3: " << kvps->
           GetPressure(CHIO_2_3) << "mbar" << endl;
      cout << "       Ring 4/5: " << kvps->
           GetPressure(CHIO_4_5) << "mbar" << endl;
      cout << "       Ring 6/7: " << kvps->
           GetPressure(CHIO_6_7) << "mbar" << endl;
      cout << "      Ring 8/12: " << kvps->
           GetPressure(CHIO_8_12) << "mbar" << endl;
      cout << "     Ring 13/17: " << kvps->
           GetPressure(CHIO_13_17) << "mbar" << endl;
      while ((kvd = (KVChIo*) next_chio())) {
         if (!strcmp(kvd->GetType(), "CI")) {
            //check detector type: ="CI" for standard INDRA chio
            if (kvd->GetRingNumber() == 2)
               kvd->SetPressure(kvps->GetPressure(CHIO_2_3));
            if (kvd->GetRingNumber() == 4)
               kvd->SetPressure(kvps->GetPressure(CHIO_4_5));
            if (kvd->GetRingNumber() == 6)
               kvd->SetPressure(kvps->GetPressure(CHIO_6_7));
            if (kvd->GetRingNumber() >= 8 && kvd->GetRingNumber() <= 12)
               kvd->SetPressure(kvps->GetPressure(CHIO_8_12));
            if (kvd->GetRingNumber() >= 13 && kvd->GetRingNumber() <= 17)
               kvd->SetPressure(kvps->GetPressure(CHIO_13_17));
            if (kvd->GetPressure() == 0.0) {
               kvd->SetDetecting(kFALSE);
            }
            else {
               kvd->SetDetecting(kTRUE);
            }
         }
      }
      next_chio.Reset();
   }
}
 
 
 
 
 
void KVINDRAUpDater::SetChVoltParameters(KVDBRun* kvrun)
{
 
 
   KVRList* param_list = kvrun->GetLinks("Channel-Volt");
   if (!param_list)
      return;
   if (!param_list->GetSize())
      return;
 
   KVDetector* kvd;
   KVDBParameterSet* kvps;
   KVCalibrator* kvc;
   TIter next_ps(param_list);
 
 
   TString str;
 
   // Setting Channel-Volts calibration parameters
   while ((kvps = (KVDBParameterSet*) next_ps())) {     // boucle sur les parametres
      str = kvps->GetName();
      str.Remove(str.Sizeof() - 4, 3);  //Removing 3 last letters (ex : "_PG")
      kvd = fArray->GetDetector(str.Data());
      if (!kvd)
         Warning("SetChVoltParameters(UInt_t)", "Dectector %s not found !",
                 str.Data());
      else {                    // detector found
         kvc = kvd->GetCalibrator(kvps->GetName(), kvps->GetTitle());
         if (!kvc)
            Warning("SetChVoltParameters(UInt_t)",
                    "Calibrator %s %s not found !", kvps->GetName(),
                    kvps->GetTitle());
         else {                 //calibrator found
            for (Int_t i = 0; i < kvc->GetNumberParams(); i++) {
               kvc->SetParameter(i, kvps->GetParameter(i));
            }
            kvc->SetStatus(kTRUE);   // calibrator ready
         }                      //calibrator found
      }                         //detector found
   }                            //boucle sur les parameters
}
 
 
 
 
 
void KVINDRAUpDater::SetVoltEnergyChIoSiParameters(KVDBRun* kvrun)
{
 
   KVRList* param_list = kvrun->GetLinks("Volt-Energy ChIo-Si");
   if (!param_list)
      return;
   if (!param_list->GetSize()) {
      return;
   }
 
   KVDetector* kvd;
   KVDBParameterSet* kvps;
   KVCalibrator* kvc;
   TIter next_ps(param_list);
 
   // Setting Channel-Volts calibration parameters
   while ((kvps = (KVDBParameterSet*) next_ps())) {     // boucle sur les parametres
      kvd = fArray->GetDetector(kvps->GetName());
      if (!kvd) {
         /*
         Warning("SetVoltEnergyParameters(UInt_t)",
                 "Dectector %s not found !", kvps->GetName());
         */
      }
      else {                    // detector found
         kvc = kvd->GetCalibrator(kvps->GetName(), kvps->GetTitle());
         if (!kvc)
            Warning("SetVoltEnergyParameters(UInt_t)",
                    "Calibrator %s %s not found !", kvps->GetName(),
                    kvps->GetTitle());
         else {                 //calibrator found
            for (Int_t i = 0; i < kvc->GetNumberParams(); i++) {
               kvc->SetParameter(i, kvps->GetParameter(i));
            }
            kvc->SetStatus(kTRUE);      // calibrator ready
         }                      //calibrator found
      }                         //detector found
   }                            //boucle sur les parameters
}
 
 
 
//void KVINDRAUpDater::SetCalibParameters(KVDBRun* run)
//{
//   SetChVoltParameters(run);
//   SetVoltEnergyChIoSiParameters(run);
//   SetLitEnergyCsIParameters(run);
//   SetCsIGainCorrectionParameters(run);
//}
 
 
//void KVINDRAUpDater::SetPedestals(KVDBRun* kvrun)
//{
//   //Set pedestals for this run
 
//   SetChIoSiPedestals(kvrun);
//   SetCsIPedestals(kvrun);
 
//}
 
 
 
 
void KVINDRAUpDater::SetCsIGainCorrectionParameters(KVDBRun* kvrun)
{
   // Sets KVCsI::fGainCorrection data member, used by KVCsI::GetCorrectedLumiereTotale
   // to return the total light output corrected by a run-dependent factor.
   // We set all detectors' correction to 1, then set the corrections defined for this
   // run, if any.
 
   AbstractMethod("SetCsIGainCorrectionParameters");
 
   TIter next_csi(GetINDRA()->GetListOfCsI());
   KVCsI* csi;
//   while ((csi = (KVCsI*)next_csi())) {
//      csi->SetTotalLightGainCorrection(1.0);
//   }
 
   KVRList* param_list = kvrun->GetLinks("CsIGainCorr");
   if (!param_list) {
      return;
   }
   if (!param_list->GetSize()) {
      return;
   }
 
   TIter next_ps(param_list);
   KVDBParameterSet* dbps;
   while ((dbps = (KVDBParameterSet*)next_ps())) {
 
      csi = (KVCsI*)fArray->GetDetector(dbps->GetName());
      if (!csi) {
         // the name of the parameter set should be the name of the detector;
         // however, it may be the name of an acquisition parameter associated with
         // the detector!
//         KVACQParam* a = fArray->GetACQParam(dbps->GetName());
//         if (a) csi = (KVCsI*)a->GetDetector();
         // still no good ?
         if (!csi) {
            Warning("SetCsIGainCorrectionParameters",
                    "Cannot find detector associated with %s", dbps->GetName());
            continue;
         }
      }
//      csi->SetTotalLightGainCorrection(dbps->GetParameter());
//      Info("SetCsIGainCorrectionParameters", "%s gain correction = %f", csi->GetName(), csi->GetTotalLightGainCorrection());
   }
}
 
 
 
 
 
void KVINDRAUpDater::SetLitEnergyCsIParameters(KVDBRun* kvrun)
{
 
   // Setting Light- Energy CsI calibration parameters for Z=1
   KVRList* param_list = kvrun->GetLinks("Light-Energy CsI Z=1");
 
   if (param_list && param_list->GetSize()) {
 
      KVDetector* kvd;
      KVDBParameterSet* kvps;
      KVCalibrator* kvc;
      TIter next_ps(param_list);
      TString str;
 
      while ((kvps = (KVDBParameterSet*) next_ps())) {     // boucle sur les parametres
         str = kvps->GetName();
         kvd = fArray->GetDetector(str.Data());
         if (!kvd)
            Warning("SetLitEnergyCsIParameters(UInt_t)",
                    "Dectector %s not found !", str.Data());
         else {                    // detector found
            kvc = kvd->GetCalibrator(kvps->GetTitle());
            if (!kvc) {
               Warning("SetLitEnergyCsIParameters(UInt_t)",
                       "Calibrator %s %s not found ! - it will be created",
                       kvps->GetName(), kvps->GetTitle());
               //kvd->SetCalibrators();
               kvc = kvd->GetCalibrator(kvps->GetTitle());
            }
            for (Int_t i = 0; i < kvc->GetNumberParams(); i++) {
               kvc->SetParameter(i, kvps->GetParameter(i));
               kvc->SetStatus(kTRUE);      // calibrator ready
            }
         }                         //detector found
      }                            //boucle sur les parameters
   }
   // Setting Light- Energy CsI calibration parameters for Z>1
   param_list = kvrun->GetLinks("Light-Energy CsI Z>1");
 
   if (!param_list || !param_list->GetSize()) {
      return;
   }
 
   KVDetector* kvd;
   KVDBParameterSet* kvps;
   KVCalibrator* kvc;
   TString str;
 
   TIter next_ps2(param_list);
   while ((kvps = (KVDBParameterSet*) next_ps2())) {     // boucle sur les parametres
      str = kvps->GetName();
      kvd = fArray->GetDetector(str.Data());
      if (!kvd)
         Warning("SetLitEnergyCsIParameters(UInt_t)",
                 "Dectector %s not found !", str.Data());
      else {                    // detector found
         kvc = kvd->GetCalibrator(kvps->GetTitle());
         if (!kvc) {
            Warning("SetLitEnergyCsIParameters(UInt_t)",
                    "Calibrator %s %s not found ! - it will be created",
                    kvps->GetName(), kvps->GetTitle());
            //kvd->SetCalibrators();
            kvc = kvd->GetCalibrator(kvps->GetTitle());
         }
         for (Int_t i = 0; i < kvc->GetNumberParams(); i++) {
            kvc->SetParameter(i, kvps->GetParameter(i));
            kvc->SetStatus(kTRUE);      // calibrator ready
         }
      }                         //detector found
   }                            //boucle sur les parameters
}
 
 
 
//void KVINDRAUpDater::SetChIoSiPedestals(KVDBRun* kvrun)
//{
//   //read Chio-Si-Etalons pedestals
 
//   if (!kvrun->GetKey("Pedestals"))
//      return;
//   if (!kvrun->GetKey("Pedestals")->GetLinks())
//      return;
//   if (!kvrun->GetKey("Pedestals")->GetLinks()->At(0))
//      return;
 
//   ifstream file_pied_chiosi;
//   if (!KVBase::
//         SearchAndOpenKVFile(kvrun->GetKey("Pedestals")->GetLinks()->At(0)->
//                             GetName(), file_pied_chiosi, fDataSet.Data())) {
//      Error("SetPedestals", "Problem opening file %s",
//            kvrun->GetKey("Pedestals")->GetLinks()->At(0)->GetName());
//      return;
//   }
//   cout << "--> Setting Pedestals" << endl;
//   cout << "    ChIo/Si/Etalons: " << kvrun->GetKey("Pedestals")->
//        GetLinks()->At(0)->GetName() << endl;
 
//   //skip first 5 lines - header
//   TString line;
//   for (int i = 5; i; i--) {
//      line.ReadLine(file_pied_chiosi);
//   }
 
//   int cou, mod, type, n_phys, n_gene;
//   float ave_phys, sig_phys, ave_gene, sig_gene;
 
//   while (file_pied_chiosi.good()) {
 
//      file_pied_chiosi >> cou >> mod >> type >> n_phys >> ave_phys >>
//                       sig_phys >> n_gene >> ave_gene >> sig_gene;
 
//      KVDetector* det = GetINDRA()->GetDetectorByType(cou, mod, type);
//      if (det) {
//         switch (type) {
 
//            case ChIo_GG:
 
//               det->SetPedestal("GG", ave_gene);
//               break;
 
//            case ChIo_PG:
 
//               det->SetPedestal("PG", ave_gene);
//               break;
 
//            case Si_GG:
 
//               det->SetPedestal("GG", ave_gene);
//               break;
 
//            case Si_PG:
 
//               det->SetPedestal("PG", ave_gene);
//               break;
 
//            case SiLi_GG:
 
//               det->SetPedestal("GG", ave_gene);
//               break;
 
//            case SiLi_PG:
 
//               det->SetPedestal("PG", ave_gene);
//               break;
 
//            case Si75_GG:
 
//               det->SetPedestal("GG", ave_gene);
//               break;
 
//            case Si75_PG:
 
//               det->SetPedestal("PG", ave_gene);
//               break;
 
//            default:
 
//               break;
//         }
//      }
//   }
//   file_pied_chiosi.close();
//}
 
 
//void KVINDRAUpDater::SetCsIPedestals(KVDBRun* kvrun)
//{
//   if (!kvrun->GetKey("Pedestals"))
//      return;
//   if (!kvrun->GetKey("Pedestals")->GetLinks())
//      return;
//   if (!kvrun->GetKey("Pedestals")->GetLinks()->At(1))
//      return;
 
//   //read CsI pedestals
//   ifstream file_pied_csi;
//   if (!KVBase::
//         SearchAndOpenKVFile(kvrun->GetKey("Pedestals")->GetLinks()->At(1)->
//                             GetName(), file_pied_csi, fDataSet.Data())) {
//      Error("SetPedestals", "Problem opening file %s",
//            kvrun->GetKey("Pedestals")->GetLinks()->At(1)->GetName());
//      return;
//   }
//   cout << "--> Setting Pedestals" << endl;
//   cout << "    CsI            : " << kvrun->GetKey("Pedestals")->
//        GetLinks()->At(1)->GetName() << endl;
 
//   int cou, mod, type, n_phys, n_gene;
//   float ave_phys, sig_phys, ave_gene, sig_gene;
//   TString line;
 
//   //skip first 5 lines - header
//   for (int i = 5; i; i--) {
//      line.ReadLine(file_pied_csi);
//   }
 
//   while (file_pied_csi.good()) {
 
//      file_pied_csi >> cou >> mod >> type >> n_phys >> ave_phys >> sig_phys
//                    >> n_gene >> ave_gene >> sig_gene;
 
//      KVDetector* det = GetINDRA()->GetDetectorByType(cou, mod, type);
//      if (det) {
//         switch (type) {
 
//            case CsI_R:
 
//               det->SetPedestal("R", ave_gene);
//               break;
 
//            case CsI_L:
 
//               det->SetPedestal("L", ave_gene);
//               break;
 
//            default:
 
//               break;
//         }
//      }
//   }
//   file_pied_csi.close();
//}
 
 
 
KVINDRA* KVINDRAUpDater::GetINDRA()
{
   return (KVINDRA*)fArray;
}
 
 
 
 
 
void KVINDRAUpDater::SetPHDs(KVDBRun*)
{
   //If the environment variable
   //   name_of_dataset.INDRADB.PHD:      name_of_file
   //is set, then the corresponding file (which must be in $KVROOT/KVFiles/name_of_dataset)
   //is read and used to set the (Moulton) pulse-height defect parameters of all silicon
   //detectors.
 
   TString phdfile = gExpDB->GetDBEnv("PHD");
 
   if (phdfile != "") {
      cout << "--> Setting Si pulse height defect parameters (Moulton)" << endl;
 
      //get full path to file
      TString path;
      if (KVBase::SearchKVFile(phdfile.Data(), path, gDataSet->GetName())) {
         //read file with a TEnv
         TEnv phds;
         if (phds.ReadFile(path.Data(), kEnvLocal) != 0) {
            Error("SetPHDs", "TEnv::ReadFile != 0, cannot read PHD file");
         }
         //loop over all silicons
         TIter next_si(GetINDRA()->GetListOfSi());
         KVSilicon* si;
         while ((si = (KVSilicon*)next_si())) {
            Int_t group = phds.GetValue(si->GetName(), 0);
            if (group) {
               Double_t p1 = phds.GetValue(Form("Group%d.p1", group), 0.0);
               Double_t p2 = phds.GetValue(Form("Group%d.p2", group), 0.0);
               //set parameters for this detector
               //using si->SetMoultonPHDParameters(Double_t a_1, Double_t a_2, Double_t b_1, Double_t b_2)
               //in our case,
               //   a_1 = 0.0223     a_2 = 0.5682   b_1 = p2  b_2 = p1
               si->SetMoultonPHDParameters(0.0223, 0.5682, p2, p1);
            }
         }
         //set flag in INDRA to say this has been done
         GetINDRA()->PHDSet();
      }
      else {
         Error("SetPHDs", "File %s not found", phdfile.Data());
      }
   }
}