Changeset 1315 for trunk/source/processes/hadronic/models/radioactive_decay/src/G4RadioactiveDecaymessenger.cc

Timestamp:

Jun 18, 2010, 11:42:07 AM (14 years ago)

Author:

garnier

Message:

update geant4-09-04-beta-cand-01 interfaces-V09-03-09 vis-V09-03-08

File:

• trunk/source/processes/hadronic/models/radioactive_decay/src/G4RadioactiveDecaymessenger.cc (modified) (3 diffs)

trunk/source/processes/hadronic/models/radioactive_decay/src/G4RadioactiveDecaymessenger.cc

@@ -116 +116 @@
   brbiasCmd->SetParameterName("BRBias",true);
   brbiasCmd->SetDefaultValue(true);
-
+  //
+  // Command contols whether ICM will be applied or not
+  //
+  icmCmd = new G4UIcmdWithABool ("/grdm/applyICM",this);
+  icmCmd->SetGuidance("True: ICM is applied; false: no");
+  icmCmd->SetParameterName("applyICM",true);
+  icmCmd->SetDefaultValue(true);
+  //
+  // Command contols whether ARM will be applied or not
+  //
+  armCmd = new G4UIcmdWithABool ("/grdm/applyARM",this);
+  armCmd->SetGuidance("True: ARM is applied; false: no");
+  armCmd->SetParameterName("applyARM",true);
+  armCmd->SetDefaultValue(true);
+  //
+  // Command to set the h-l thresold for isomer production
+  //
+  hlthCmd = new G4UIcmdWithADoubleAndUnit("/grdm/hlThreshold",this);
+  hlthCmd->SetGuidance("Set the h-l threshold for isomer production");
+  hlthCmd->SetParameterName("hlThreshold",false);
+  hlthCmd->SetRange("hlThreshold>0.");
+  hlthCmd->SetUnitCategory("Time");
+  hlthCmd->AvailableForStates(G4State_PreInit,G4State_Idle);
   //
   // Command to define the incident particle source time profile.
@@ -174 +196 @@
   delete allvolumesCmd;
   delete deallvolumesCmd;
+  delete icmCmd;
+  delete armCmd;
+  delete hlthCmd;
 }
 ////////////////////////////////////////////////////////////////////////////////
@@ -215 +240 @@
   else if (command==verboseCmd) {theRadioactiveDecayContainer->
                                        SetVerboseLevel(verboseCmd->GetNewIntValue(newValues));}
+  else if (command==icmCmd ) {theRadioactiveDecayContainer->
+      SetICM(icmCmd->GetNewBoolValue(newValues));}
+  else if (command==armCmd ) {theRadioactiveDecayContainer->
+      SetARM(armCmd->GetNewBoolValue(newValues));}
+  else if (command==hlthCmd ) {theRadioactiveDecayContainer->
+      SetHLThreshold(hlthCmd->GetNewDoubleValue(newValues));}
 }