//========================================================================
//ISODAT NT SCRIPT LANGUAGE (ISL) : Dual Inlet Basic Script
//========================================================================
//
//  History list
//    
//  Author      				Date        			Reason      					changes
//  ---------------------------------------------------------------------------------------------------------------------
//  H. Jeglinski				23.02.2003				Created
//	Alexander Duhr			09.04.2004				Kochi					pressAdjust Results printed correctly
//	Bo He (UoC)					06.08.2011				MicroVol mode
//	Bo He (UoC)					06.25.2011				MicroVol baseline
//	Bo He (UoC)					04.27.2012				default PeakCenter() not passing value to gas configuration, fixed.
//-------------------------------------------------------------------------------------------------------------------------
const string PaPageName					="PressAdjust";
const number nMaxPumpCycles			=300;
const number nMaxExpansionTries	=10;
//-------------------------------------------------------------------------------------------------------------------------
external bool	g_bDoAutoFocus					=1;
//-------------------------------------------------------------------------------------------------------------------------
include "lib\math.isl"
include "lib\stdisl.isl"
include "lib\instrument.isl"
//include "lib\UF Multiport_lib.isl"
//include "lib\SingleInlet_lib.isl"
//-------------------------------------------------------------------------------------------------------------------------
//.........................................................................................................................
//Method Parameter MS
//.........................................................................................................................
external number		Ms_IntegrationTime							=8000;
external number		Ms_PeakCenterPostDelay					=0;
external number		Ms_PeakCenterPreDelay						=5000;
external number		Ms_PeakCenterChannel						=2;
//.........................................................................................................................
//Method Parameter Dual Inlet
//.........................................................................................................................
external number		Dual_Inlet_Standard       			=DI_RIGHT;
external number		Dual_Inlet_Sample         			=DI_LEFT;
external number		Dual_Inlet_Idle				       		=15000;
external number		Dual_Inlet_Cycles         	 		=8;
external number		Dual_Inlet_Slices								=1;
external number		Dual_Inlet_Fore_Vacuum_Threshold=0.05;
external number		Dual_Inlet_High_Vacuum_Pump_Time=2000;
external number		Dual_Inlet_Fore_Vacuum_Pump_Time=6000;
external channel	Dual_Inlet_g_nPaChannel      		=0;
external number		Dual_Inlet_g_nPaInty         		=5000;

//.........................................................................................................................
//Reference Refill
//.........................................................................................................................
external number		RR_Fore_Vacuum_Threshold				=0.05;
external number		RR_High_Vacuum_Pump_Time				=5000;
external number		RR_Refill_Time									=1000;
external number		RR_Overlay_Time									=1000;
//.........................................................................................................................
//Buffered Refill
//.........................................................................................................................
external number		BB_Refill_Time									=1000;
//-------------------------------------------------------------------------------------------------------------------------
external number	g_bMicroVolumeUsed								=FALSE;
external number g_nWaitBeforeMeasurement=0;
//-------------------------------------------------------------------------------------------------------------------------
external CActionPressAdjust	DualInlet_PressAdjust;
external CActionBackground 	DualInlet_Background;
//-------------------------------------------------------------------------------------------------------------------------


function Switch_Valve39 (number nNewState)
{
	number nSpectrometerType=_GetSpectrometerType();
	bool bExtraValve=(nSpectrometerType>=10);
	
	handle hScript=NULL;
	number nCurrentState=_Get("Dual Inlet System/Valve 39");
	
	if (bExtraValve)
	{
		if (nCurrentState!=nNewState)
		{
			hScript=_ExecuteScript("Dual Inlet/Valve39.isl");
		}
	}
	else
	{
		_Set("Dual Inlet System/Valve 39",nNewState);
	}
}
//-------------------------------------------------------------------------------------------------------------------------
function DiOpenHighVacPump()
{
//	_Set("Dual Inlet System/Valve 39",0);
	call Switch_Valve39(0);
	_Set("Dual Inlet System/Valve 40",1);
}
//-------------------------------------------------------------------------------------------------------------------------
function DiOpenForeVacPump()
{
	_Set("Dual Inlet System/Valve 40",0);
	call Switch_Valve39(1);
//	_Set("Dual Inlet System/Valve 39",1);
}
//-------------------------------------------------------------------------------------------------------------------------
function CloseVacPumps()
{
	_Set("Dual Inlet System/Valve 40",0);
	call Switch_Valve39(0);
//	_Set("Dual Inlet System/Valve 39",0);
}
//-------------------------------------------------------------------------------------------------------------------------
function DiPumpHigh()
{
	if (Dual_Inlet_High_Vacuum_Pump_Time>0)
	{
		call DiOpenHighVacPump();
		_Delay(Dual_Inlet_High_Vacuum_Pump_Time,1,"DI: Pump with Turbo Pump");
	}
	call CloseVacPumps();
}
//-------------------------------------------------------------------------------------------------------------------------
function DiReadVolumePressure(int nSide) : number
{
	number nResult;
	
	if (nSide	== DI_RIGHT)
	{
		nResult=_GetCalc("Dual Inlet System/Volume Pressure right");
	}
	else
	{
		nResult=_GetCalc("Dual Inlet System/Volume Pressure left");
	}
	
	return nResult;
}
//-------------------------------------------------------------------------------------------------------------------------
function DiSwitchX(int nSide,int nNo,bool bOpen,number nDelay)
{
	string csValve;
	
	if (nSide	== DI_RIGHT)
	{
		csValve=_strFormat("Dual Inlet System/Valve 2%0.0f",nNo);
	}
	else
	{
		csValve=_strFormat("Dual Inlet System/Valve 1%0.0f",nNo);
	}
	_Set(csValve,bOpen);
	
	if (nDelay){_Delay(nDelay);}
}
//-------------------------------------------------------------------------------------------------------------------------
function DiWaitForForeVacuum(number nThreshold)

//----------------------------Broedje------------------
//{	
//----------------	if (_IsFake()==0)
	{
		number nVacuum=1000;
		
		number nCycle=0;
		while (nVacuum>nThreshold)
		{
			nVacuum=_GetCalc("Dual Inlet System/Fore Vacuum");
			
			_Delay(500);
	
	  	_UserInfo("DI: Waiting to reach Threshold %0.4f mBar [ %0.0f sec ] : Pressure %0.4f mBar",19,3,nThreshold,nCycle,nVacuum);
			
			nCycle++;
			
			if (nCycle>nMaxPumpCycles)
			{
				string sInfo=_strFormat("DI: Pressure Threshold %0.4f mBar not reached : %0.4f mBar",nThreshold,nVacuum);
	
		  	_ScriptError(sInfo,ERROR_TYPE_SCR_SEQ);
			}
		}
	}
//}
//-------------------------------------------------------------------------------------------------------------------------
function DiExpand(int nSide,number nThreshold,number nMaxTries) : bool
{
	number 	nPressure;
	number 	nTries;
	bool		bOk=FALSE;
	
	for (nTries=0;nTries<nMaxTries;nTries++;)
	{
		nPressure=call DiReadVolumePressure(nSide);
		
		_UserInfo("DI: Sample Pressure %0.2f mBar",0,0,nPressure);
		if (nPressure<nThreshold){bOk=TRUE;break;}
		
		_UserInfo("DI: Expand Sample Cycle (%0.0f)",0,0,(nTries+1));
		call DiSwitchX(nSide,4,0,0);
		call DiSwitchX(nSide,3,1,0);
		call DiOpenForeVacPump();
		call DiWaitForForeVacuum(nThreshold);
		call CloseVacPumps();
		call DiPumpHigh();

		call DiSwitchX(nSide,3,0,0);
		call DiSwitchX(nSide,4,1,0);

		_Delay(30000,1,"Expand Sample - Equilibration");
	}		
	
	return bOk;
}
//-------------------------------------------------------------------------------------------------------------------------
function CloseLeftSide() 
{
	_Set("Dual Inlet System/Valve 13",0);
	//------------------------Broedje---------------
	_Delay(DI_DEFAULT_VALVE_DELAY);
	_Set("Dual Inlet System/Valve 14",0);
		//------------------------Broedje---------------
	_Delay(DI_DEFAULT_VALVE_DELAY);
	_Set("Dual Inlet System/Valve 16",0);
		//------------------------Broedje---------------
	_Delay(DI_DEFAULT_VALVE_DELAY);
	_Set("Dual Inlet System/Valve 15",0);
		//------------------------Broedje---------------
	_Delay(DI_DEFAULT_VALVE_DELAY);
}
//-------------------------------------------------------------------------------------------------------------------------
function CloseRightSide() 
{
	_Set("Dual Inlet System/Valve 23",0);
		//------------------------Broedje---------------
	_Delay(DI_DEFAULT_VALVE_DELAY);
	_Set("Dual Inlet System/Valve 24",0);
		//------------------------Broedje---------------
	_Delay(DI_DEFAULT_VALVE_DELAY);
	_Set("Dual Inlet System/Valve 26",0);
		//------------------------Broedje---------------
	_Delay(DI_DEFAULT_VALVE_DELAY);
	_Set("Dual Inlet System/Valve 25",0);
		//------------------------Broedje---------------
	_Delay(DI_DEFAULT_VALVE_DELAY);
}
//-------------------------------------------------------------------------------------------------------------------------
function PumpLeftSide(number nThreshold) 
{
	call DiOpenForeVacPump();
	_Delay(DI_DEFAULT_VALVE_DELAY);

	_Set("Dual Inlet System/Valve 16",1);
	_Delay(DI_DEFAULT_VALVE_DELAY);

	_Set("Dual Inlet System/Valve 15",1);
	_Delay(DI_DEFAULT_VALVE_DELAY);
	
	_Set("Dual Inlet System/Valve 13",1);
	_Delay(DI_DEFAULT_VALVE_DELAY);

	_Set("Dual Inlet System/Valve 14",1);
	_Delay(DI_DEFAULT_VALVE_DELAY);
	
	call DiWaitForForeVacuum(nThreshold);
}
//-------------------------------------------------------------------------------------------------------------------------
function PumpRightSide(number nThreshold) 
{
	call DiOpenForeVacPump();
	

	_Set("Dual Inlet System/Valve 26",1);
	_Delay(DI_DEFAULT_VALVE_DELAY);

	_Set("Dual Inlet System/Valve 25",1);
	_Delay(DI_DEFAULT_VALVE_DELAY);
	
	_Set("Dual Inlet System/Valve 23",1);
	_Delay(DI_DEFAULT_VALVE_DELAY);

	_Set("Dual Inlet System/Valve 24",1);
	_Delay(DI_DEFAULT_VALVE_DELAY);
	
	call DiWaitForForeVacuum(nThreshold);
}
//-------------------------------------------------------------------------------------------------------------------------
function DiCloseSide(int nSide) 
{
	if (nSide	== DI_RIGHT)
	{
		call CloseRightSide();
	}
	else
	{
		call CloseLeftSide();
	}
}
//-------------------------------------------------------------------------------------------------------------------------
function CloseSampleSide() 
{
	if (Dual_Inlet_Sample	== DI_LEFT)
	{
		call CloseLeftSide();
	}
	else
	{
		call CloseRightSide();
	}
}
//-------------------------------------------------------------------------------------------------------------------------
function DiPumpSide(int nSide,number nThreshold) 
{
	if (nSide==DI_LEFT)
	{
		call PumpLeftSide(nThreshold);
	}
	else
	{
		call PumpRightSide(nThreshold);
	}
}
//-------------------------------------------------------------------------------------------------------------------------
function DiSetVolume(int nSide,number nPos)
{
	string sVolumeName;
	
	if (nSide	== DI_LEFT)
	{
		sVolumeName=DI_VOLUME_LEFT;
	}
	else
	{
		sVolumeName=DI_VOLUME_RIGHT;
	}
	
	_SetCalc(sVolumeName,nPos);
}
//-------------------------------------------------------------------------------------------------------------------------
function ReferenceRefill() :bool

{
	number nVacuum=4; // 4 = no inlet selected
	bool bReferenceRefill=_GetSequenceFlag("Reference Refill",TRUE);

  if (bReferenceRefill==TRUE) 
  {
  	_UserInfo("DI: Start Reference Refill",0,1);
  	
		call DiSetVolume(Dual_Inlet_Standard,100);
	  call DiPumpSide(Dual_Inlet_Standard,RR_Fore_Vacuum_Threshold);
		call DiPumpHigh();
		
  	call DiCloseSide(Dual_Inlet_Standard);

		_ConnectDev("Reference Refill",1);
		call DiOpenForeVacPump();
		call DiSwitchX(Dual_Inlet_Standard,3,1,0);
		
		_Delay(RR_Overlay_Time,1,"Reference overlay pump time...");
		
		call DiSwitchX(Dual_Inlet_Standard,3,0,0);
		
		call CloseVacPumps();

		call DiSwitchX(Dual_Inlet_Standard,4,1,0);
		
		_Delay(RR_Refill_Time,1,"Reference refill time...");
		
		call DiSwitchX(Dual_Inlet_Standard,4,0,0);
		call DiSwitchX(Dual_Inlet_Standard,5,1,0);
		
		_ConnectDev("Reference Refill",0);
		
		if (Dual_Inlet_Standard==0) // 0 Standard is left
			{
				nVacuum=_GetCalc("Dual Inlet System/Volume Pressure left");
			}
			else
			{
				nVacuum=_GetCalc("Dual Inlet System/Volume Pressure right");
			}
		
  	_UserInfo("DI: Reference Refill finished with pressure %2.1f mbar",0,1,nVacuum);
  	_UserInfo("RR pressure %2.1f",0,2,nVacuum);
  }
  else
  {
  	_UserInfo("DI: Reference Refill skipped",1,1);
  }
	return TRUE;
}
//-------------------------------------------------------------------------------------------------------------------------
function BufferedRefill() :bool
{
	bool bReferenceRefill=_GetSequenceFlag("Buffered Refill",TRUE);
  if (bReferenceRefill==TRUE) 
  {
  	_UserInfo("Start Buffered Refill",0,1);
  	
  	call DiSwitchX(Dual_Inlet_Standard,5,0,0);
		call DiSetVolume(Dual_Inlet_Standard,100);
  	call DiSwitchX(Dual_Inlet_Standard,4,1,0);
  	
		_ConnectDev("Buffered Refill",1);
		_Delay(BB_Refill_Time);
		_ConnectDev("Buffered Refill",0);
		
  	call DiSwitchX(Dual_Inlet_Standard,4,0,0);
  	call DiSwitchX(Dual_Inlet_Standard,5,1,0);
  	
  	_UserInfo("Buffered Refill finished",0,1);
  }
  else
  {
  	_UserInfo("Buffered Refill skipped",1,1);
  }
	return TRUE;
}
//-------------------------------------------------------------------------------------------------------------------------
function Background() :bool
{
  string csResult="?";
	string csInfo="Background: ";  
  
	bool bBackground=_GetSequenceFlag("Background",FALSE);
  if (bBackground==TRUE) 
  {
  	_UserInfo("Start Background",0,1);
  	call ChangeOverClose();
  	
  	if (_ObjectBackground(DualInlet_Background,csResult))
  	{
			csInfo+=csResult;
	  	_UserInfo(csInfo,0,0);
  	}
  	else
  	{
	  	_UserInfo("Background failed",0,0);
	 	}

  	_UserInfo("Background finished",0,1);
  	call SwitchChangeOver(Dual_Inlet_Standard);
  }												
  else
  {
  	if (_ReportBackground(DualInlet_Background,csResult))
  	{
	  	csInfo+=csResult;
	  	_UserInfo(csInfo,0,0);
  	}
  	
  }
	return TRUE;

}
//-------------------------------------------------------------------------------------------------------------------------
function PeakCenter() : bool
{
	bool bPeakCenterOn=_GetSequenceFlag("Peak Center",FALSE);
	bool bDoAutoFocus = _GetSequenceFlag("AutoFocus",FALSE);
	if (g_bDoAutoFocus==FALSE)
	{
		bDoAutoFocus = FALSE;
	}
	bool bAutoFocusSuccess = TRUE;
  
  number nResult=0;
  
  if (bPeakCenterOn==TRUE) 
  {
  	_UserInfo("Start Peak Center",0,1);
		
 		call SwitchChangeOver(Dual_Inlet_Standard);
		call DiSwitchX(Dual_Inlet_Standard,5,1,0);

		_Delay(Ms_PeakCenterPreDelay);
  	
  	nResult=_PeakCenter(Ms_PeakCenterChannel);

		
		if (nResult<0)
		{
	  	_ScriptError("Peak Center failed <%0.0f>",ERROR_TYPE_SCR_SEQ, nResult);
		}
  	else
  	{
	  	_UserInfo("Peak Center found at [%0.0f]",0,0,nResult);
			if (bDoAutoFocus)
			{
			  	_UserInfo("Start Auto Focus",0,1);
				bAutoFocusSuccess = _RunAutoFocusExt (FALSE, TRUE, TRUE);
				if (bAutoFocusSuccess)
				{
				  	_UserInfo("Auto Focus successfull finished.",0,1);
					nResult=_PeakCenter(Ms_PeakCenterChannel);
				}
				else
				{
				  	_UserInfo("Auto Focus failed.",0,1);
				}
			}
	 	}
		
		_Delay(Ms_PeakCenterPostDelay);

 		call ChangeOverClose();
  }
  else
  {
  	_UserInfo("Peak Center skipped",1,1);
		if (bDoAutoFocus)
		{
			call OpenReference(TRUE);
			_Delay(Ms_PeakCenterPreDelay,1,"Auto Focus pre Delay");
	
			_UserInfo("Start Auto Focus",0,1);
			bAutoFocusSuccess = _RunAutoFocusExt (FALSE, TRUE, TRUE);
			if (bAutoFocusSuccess)
			{
				_UserInfo("Auto Focus successfull finished.",0,1);
			}
			else
			{
				_UserInfo("Auto Focus failed.",0,1);
			}
			call OpenReference(FALSE);
			_Delay(Ms_PeakCenterPostDelay,1,"Auto Focus post Delay");
		}
  }
  
  return (nResult>=0);
}
//-------------------------------------------------------------------------------------------------------------------------
//Modified by Bo He on 2012-04-27------------------------------------------------------------------------------------------
function doAPeakCenter()
{  
  	_UserInfo("Start Peak Center",0,1);
		
 		call SwitchChangeOver(Dual_Inlet_Standard);
		call DiSwitchX(Dual_Inlet_Standard,5,1,0);

		_Delay(Ms_PeakCenterPreDelay);
  	
  	_PeakCenter(Ms_PeakCenterChannel);

		_SetGasConfValues();
		
		_Delay(Ms_PeakCenterPostDelay);

 		call ChangeOverClose();
}
//-------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------
function Pressureadjust() :bool
{
	bool bPressAdjustOn=_GetSequenceFlag("Pressadjust",FALSE);
	
  if (bPressAdjustOn)
  {
  	 if (g_bMicroVolumeUsed){_ChangePaMode(3);}
  	
		call DiSwitchX(Dual_Inlet_Standard,5,1,0);
		
  	_UserInfo("Start Pressure Adjustment",0,1);
  	  
    string 	csResult="?";
		string csInfo="";  
  	
   	if (_ObjectPressAdjust(DualInlet_PressAdjust,csResult))
  	{
	  	csInfo="PressAdjust: ";
	  	csInfo+=csResult;
	  	_UserInfo(csInfo,0,0);
  	}
  	else
  	{
	  	_UserInfo("Pressure Adjustment failed",0,0);
	 	}

  	
  	_UserInfo("Pressure Adjustment finished",0,1);
  }
  else
  {
  	_UserInfo("Pressure Adjustment skipped",1,1);
  }

	if (g_bMicroVolumeUsed) {call DiSwitchX(Dual_Inlet_Standard,5,0,0);}
	
	return TRUE;
}
//-------------------------------------------------------------------------------------------------------------------------
function TransferSample()
{
}
//-------------------------------------------------------------------------------------------------------------------------
function TransferReference()
{
	if (_IsDeviceAvailable("Reference Refill")==TRUE)
	{
		call ReferenceRefill()
	}
	if (_IsDeviceAvailable("Buffered Refill")==TRUE)
	{
		call BufferedRefill()
	}
}
//-------------------------------------------------------------------------------------------------------------------------
function SampleFromMultiport()
{
		
}
//-------------------------------------------------------------------------------------------------------------------------
function ClickCklack()
{
	number nClickClackDlay=500;
	
 	_UserInfo("...Click Clack...",0,1);
  call SwitchChangeOver(Dual_Inlet_Sample);
 	_Delay(nClickClackDlay);	
  call SwitchChangeOver(Dual_Inlet_Standard);
 	_Delay(nClickClackDlay);	
  call SwitchChangeOver(Dual_Inlet_Sample);
 	_Delay(nClickClackDlay);	
  call SwitchChangeOver(Dual_Inlet_Standard);
 
}
//--------------------------------------------------------------------------------------------------------------------------
function DiMeasurementLoop(number nCycles, number nPreDelay, number nStandardSide, number nIntegrationTime)
{
 	_UserInfo("DiMeasurementLoop Cy:%0.0f Prdl:%0.0f IT:%0.0f",0,1,nCycles,nPreDelay,nIntegrationTime);
 	
 	nIntegrationTime/=Dual_Inlet_Slices;

  //........................................................................................................................
  //Close bellow valve on capilliry mode
  //........................................................................................................................
	if (g_bMicroVolumeUsed)
	{
		_Set("Dual Inlet System/Valve 15",0);
		_Set("Dual Inlet System/Valve 25",0);
	}
	else
	{
		if ((Dual_Inlet_Standard==DI_LEFT) || (Dual_Inlet_Sample==DI_LEFT))
		{
			_Set("Dual Inlet System/Valve 15",1);
		}
		if ((Dual_Inlet_Standard==DI_RIGHT) || (Dual_Inlet_Sample==DI_RIGHT)) 
		{
			_Set("Dual Inlet System/Valve 25",1);
		}
	}
	
/*
//-------------------J.Broedje-------------------------11-2004
  //High Vacuum readout Sample -----------	
  call SwitchChangeOver(Dual_Inlet_Sample);
  _Delay(5000);
  number nHighVac=_GetCalc("Isotope MS/High Vacuum");
  _UserInfo("HighVacuumSample=%2.10f",1,0,nHighVac);

  //High Vacuum readoutStandard -----------	
  call SwitchChangeOver(Dual_Inlet_Standard);
  _Delay(5000);
  nHighVac=_GetCalc("Isotope MS/High Vacuum");
  _UserInfo("HighVacuumStandard=%2.10f",1,0,nHighVac);		
*/

//-----Delay before measuring--------Broedje?????-------------------------------
_Delay(g_nWaitBeforeMeasurement);
//-----------------------------
	collector	colSmp;
	collector	colStd;
	
  number nSampleSide=Dual_Inlet_Sample;
  nStandardSide			=Dual_Inlet_Standard;
  
  //........................................................................................................................
  //One pre standard
  //........................................................................................................................
  call SwitchChangeOver(nStandardSide);
  _Delay(nPreDelay);
	_CollectorIntegrate(colStd,nIntegrationTime,Dual_Inlet_Slices,TRUE);
	_CollectorSend(colStd,1);
  
  //........................................................................................................................
  //Now measure g_nCycles
  //........................................................................................................................
  number nCount;
  
  for (nCount=0;nCount<nCycles;nCount++;)
  {
    call SwitchChangeOver(nSampleSide);
    _Delay(nPreDelay);
		_CollectorIntegrate(colSmp,nIntegrationTime,Dual_Inlet_Slices,TRUE);
		_CollectorSend(colSmp,0);
    
    call SwitchChangeOver(nStandardSide);
    _Delay(nPreDelay);
		_CollectorIntegrate(colStd,nIntegrationTime,Dual_Inlet_Slices,TRUE);
		_CollectorSend(colStd,1);
  }  
}
//--------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------

//--------------------------------------------------Bo He modofication starts HERE:----------------------------

function StartMicroVol()
{
	call ChangeOverExtClose();
	
	_Set("Dual Inlet System/Valve 15",0);
	_Delay(DI_DEFAULT_COV_DELAY);

	_Set("Dual Inlet System/Valve 25",0);
  _Delay(DI_DEFAULT_COV_DELAY);
}
//-------------------------------------------------------------------------------------------------------------------------
function EndMicroVol()
{
	call ChangeOverExtClose();
	
	_Set("Dual Inlet System/Valve 15",1);
	_Delay(DI_DEFAULT_COV_DELAY);

	_Set("Dual Inlet System/Valve 25",1);
  _Delay(DI_DEFAULT_COV_DELAY);
}
//-------------------------------------------------------------------------------------------------------------------------
function clearMicroVolspace()
{
	call ChangeOverClose();
	
	_Set("Dual Inlet System/Valve 15",0);
  _Delay(DI_DEFAULT_COV_DELAY);

	_Set("Dual Inlet System/Valve 25",0);
	_Delay(DI_DEFAULT_COV_DELAY);

	_Set("Dual Inlet System/Valve 16",1);
  _Delay(DI_DEFAULT_COV_DELAY);

	_Set("Dual Inlet System/Valve 26",1);
	_Delay(DI_DEFAULT_COV_DELAY);

	call DiOpenForeVacPump();
	_Delay(15000);
	call CloseVacPumps();

	call DiOpenHighVacPump();
	_Delay(15000);
	call CloseVacPumps();

	_Set("Dual Inlet System/Valve 16",0);
  _Delay(DI_DEFAULT_COV_DELAY);

	_Set("Dual Inlet System/Valve 26",0);
	_Delay(DI_DEFAULT_COV_DELAY);
}

//-------------------------------------------------------------------------------------------------------------------------
function Acquisition_MicroVol() :bool
{

 	_UserInfo("Start Measurement Loop",0,1);

  call DiMeasurementLoop(Dual_Inlet_Cycles, Dual_Inlet_Idle,Dual_Inlet_Standard,Ms_IntegrationTime);
  

//-----------------------------Pump Ref. Capillary after run--------Broedje
 
//  if (g_bMicroVolumeUsed)
//  {
//	_Set("Dual Inlet System/Valve 25",0);
//	_Delay(DI_DEFAULT_VALVE_DELAY);
//	_Set("Dual Inlet System/Valve 26",1);
//	_Delay(DI_DEFAULT_VALVE_DELAY);
//	call DiOpenForeVacPump();
//	call DiWaitForForeVacuum(Dual_Inlet_Fore_Vacuum_Threshold);
//	call CloseVacPumps();
//	_Delay(DI_DEFAULT_VALVE_DELAY);
//	call DiOpenHighVacPump();
//	_Delay(Dual_Inlet_High_Vacuum_Pump_Time,TRUE);
//	_Set("Dual Inlet System/Valve 26",0);
//	_Delay(DI_DEFAULT_VALVE_DELAY);
//	call CloseVacPumps();
//	_Delay(DI_DEFAULT_VALVE_DELAY);
//	_Set("Dual Inlet System/Valve 25",1);
// }

 	_UserInfo("DI: Measurement Loop finished",0,1);
	return TRUE;
	
}
//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
function conserve_gases_BH()
{
	_Set("Dual Inlet System/Valve 15",0);
	_Delay(DI_DEFAULT_COV_DELAY);

	_Set("Dual Inlet System/Valve 25",0);
  _Delay(DI_DEFAULT_COV_DELAY);
}

//-------------------------------------------------------------------------------------------------
function closevalvethreeandfour()
{
	_Set("Dual Inlet System/Valve 13",0);
	_Delay(DI_DEFAULT_COV_DELAY);

	_Set("Dual Inlet System/Valve 14",0);
  _Delay(DI_DEFAULT_COV_DELAY);
  
	_Set("Dual Inlet System/Valve 23",0);
	_Delay(DI_DEFAULT_COV_DELAY);

	_Set("Dual Inlet System/Valve 24",0);
  _Delay(DI_DEFAULT_COV_DELAY);
}

//-------------------------------------------------------------------------------------------------
function openvalvefiveandsix()
{
	_Set("Dual Inlet System/Valve 15",1);
	_Delay(DI_DEFAULT_COV_DELAY);

	_Set("Dual Inlet System/Valve 16",1);
  _Delay(DI_DEFAULT_COV_DELAY);
  
	_Set("Dual Inlet System/Valve 25",1);
	_Delay(DI_DEFAULT_COV_DELAY);

	_Set("Dual Inlet System/Valve 26",1);
  _Delay(DI_DEFAULT_COV_DELAY);
}

//-------------------------------------------------------------------------------------------------
function closevalvesix()
{
	_Set("Dual Inlet System/Valve 16",0);
  _Delay(DI_DEFAULT_COV_DELAY);

	_Set("Dual Inlet System/Valve 26",0);
  _Delay(DI_DEFAULT_COV_DELAY);
}
//-------------------------------------------------------------------------------------------------
function closevalvefour()
{
	_Set("Dual Inlet System/Valve 14",0);
  _Delay(DI_DEFAULT_COV_DELAY);

	_Set("Dual Inlet System/Valve 24",0);
  _Delay(DI_DEFAULT_COV_DELAY);
}
//-------------------------------------------------------------------------------------------------
function letsevenuptwobellows()
{
	number tempVOLperctR = _GetCalc(DI_VOLUME_RIGHT);
	number tempVOLperctL = _GetCalc(DI_VOLUME_LEFT);
	number targetVOLperct = (tempVOLperctR + tempVOLperctL)/2;
	
	_UserInfo("DI: we start by expanding both bellows to at:%0.2f percent, left first...", 0,1,100);
	_SetCalc(DI_VOLUME_LEFT, 100);
	_Delay(5000);

	_UserInfo("DI: right bellow follows up...", 0,1,100);
	_SetCalc(DI_VOLUME_RIGHT, 100);
	_Delay(5000);

	_UserInfo("DI: NEXT, we even up both bellows at:%0.2f percent", 0,1,targetVOLperct);	
	_SetCalc(DI_VOLUME_LEFT, targetVOLperct);
	_Delay(5000);
	
	_SetCalc(DI_VOLUME_RIGHT, targetVOLperct);
	_Delay(5000);
}
//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
function CompressExpandTwoBellows()
{
	number VOLperctR = _GetCalc(DI_VOLUME_RIGHT);
	number VOLperctL = _GetCalc(DI_VOLUME_LEFT);

	_UserInfo("DI: Expand both bellows to :%0.2f percent, left first.", 0,1,100);
	_SetCalc(DI_VOLUME_LEFT, 100);
	_Delay(3000);

	_UserInfo("DI: right bellow.", 0,1,100);
	_SetCalc(DI_VOLUME_RIGHT, 100);
	_Delay(3000);
	
	_UserInfo("DI: NEXT, we bring both bellows to where they were", 0,1);
	_SetCalc(DI_VOLUME_LEFT, VOLperctL);
	_Delay(3000);
	
	_SetCalc(DI_VOLUME_RIGHT, VOLperctR);
	_Delay(3000);
}
//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
function waitFIVEtoequilibrate()
{
	_UserInfo("DI: NOW, we wait for FIVE minutes. hey, there, Gerry~~", 0,1);
	_Delay(300000);
}
//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
function MicrovolZeros(number nCycles, number nPreDelay, number nStandardSide, number nIntegrationTime)
{
 	_UserInfo("DiMeasurementLoop Cy:%0.0f Prdl:%0.0f IT:%0.0f",0,1,nCycles,nPreDelay,nIntegrationTime);
 	
 	nIntegrationTime/=Dual_Inlet_Slices;

  //........................................................................................................................
  //Close bellow valve on capilliry mode
  //........................................................................................................................
	if (g_bMicroVolumeUsed)
	{
		_Set("Dual Inlet System/Valve 15",0);
		_Set("Dual Inlet System/Valve 25",0);
	}
	else
	{
		if ((Dual_Inlet_Standard==DI_LEFT) || (Dual_Inlet_Sample==DI_LEFT))
		{
			_Set("Dual Inlet System/Valve 15",0);
		}
		if ((Dual_Inlet_Standard==DI_RIGHT) || (Dual_Inlet_Sample==DI_RIGHT)) 
		{
			_Set("Dual Inlet System/Valve 25",0);
		}
	}
	
/*
//-------------------J.Broedje-------------------------11-2004
  //High Vacuum readout Sample -----------	
  call SwitchChangeOver(Dual_Inlet_Sample);
  _Delay(5000);
  number nHighVac=_GetCalc("Isotope MS/High Vacuum");
  _UserInfo("HighVacuumSample=%2.10f",1,0,nHighVac);

  //High Vacuum readoutStandard -----------	
  call SwitchChangeOver(Dual_Inlet_Standard);
  _Delay(5000);
  nHighVac=_GetCalc("Isotope MS/High Vacuum");
  _UserInfo("HighVacuumStandard=%2.10f",1,0,nHighVac);		
*/

//-----Delay before measuring--------Broedje?????-------------------------------
_Delay(g_nWaitBeforeMeasurement);
//-----------------------------
	collector	colSmp;
	collector	colStd;
	
  number nSampleSide=Dual_Inlet_Sample;
  nStandardSide			=Dual_Inlet_Standard;
  
  //........................................................................................................................
  //One pre standard
  //........................................................................................................................
  call SwitchChangeOver(nStandardSide);
  _Delay(nPreDelay);
	_CollectorIntegrate(colStd,nIntegrationTime,Dual_Inlet_Slices,TRUE);
	_CollectorSend(colStd,1);
  
  //........................................................................................................................
  //Now measure g_nCycles
  //........................................................................................................................
  number nCount;
  
  for (nCount=0;nCount<nCycles;nCount++;)
  {
    call SwitchChangeOver(nSampleSide);
    _Delay(nPreDelay);
		_CollectorIntegrate(colSmp,nIntegrationTime,Dual_Inlet_Slices,TRUE);
		_CollectorSend(colSmp,0);
    
    call SwitchChangeOver(nStandardSide);
    _Delay(nPreDelay);
		_CollectorIntegrate(colStd,nIntegrationTime,Dual_Inlet_Slices,TRUE);
		_CollectorSend(colStd,1);
  }  
}

//-------------------------------------------------------------------------------------------------------------------------
function KielZero() :bool
{
 	_UserInfo("Start Measurement Loop",0,1);

  _Set("Dual Inlet System/Valve 25",0);
	_Delay(DI_DEFAULT_VALVE_DELAY);
	
	_Set("Dual Inlet System/Valve 26",0);
	
	_Set("Dual Inlet System/Valve 15",0);
	_Delay(DI_DEFAULT_VALVE_DELAY);
	
	_Set("Dual Inlet System/Valve 16",0);
  
  call MicrovolZeros(Dual_Inlet_Cycles, Dual_Inlet_Idle,Dual_Inlet_Standard,Ms_IntegrationTime);
  

//-----------------------------Pump Ref. Capillary after run--------Broedje
 
  if (g_bMicroVolumeUsed)
  {
	_Set("Dual Inlet System/Valve 25",0);
	_Delay(DI_DEFAULT_VALVE_DELAY);
	_Set("Dual Inlet System/Valve 26",0);
	_Delay(DI_DEFAULT_VALVE_DELAY);
		call DiOpenForeVacPump();
	call DiWaitForForeVacuum(Dual_Inlet_Fore_Vacuum_Threshold);
		call CloseVacPumps();
	_Delay(DI_DEFAULT_VALVE_DELAY);
		call DiOpenHighVacPump();
		_Delay(Dual_Inlet_High_Vacuum_Pump_Time,TRUE);
	_Set("Dual Inlet System/Valve 26",0);
	_Delay(DI_DEFAULT_VALVE_DELAY);
		call CloseVacPumps();
	_Delay(DI_DEFAULT_VALVE_DELAY);
	_Set("Dual Inlet System/Valve 25",0);
  }

 	_UserInfo("Measurement Loop finished",0,1);
	return TRUE;
	
}
//----------------------------------------------------------------------------------------------------------------------------------
//----------------------------------------------------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------------------------------------------
function DiMeasurementLoop_postBaseline(number nCycles, number nPreDelay, number nStandardSide, number nIntegrationTime)
{
 	_UserInfo("DiMeasurementLoop Cy:%0.0f Prdl:%0.0f IT:%0.0f",0,1,nCycles,nPreDelay,nIntegrationTime);
 	
 	nIntegrationTime/=Dual_Inlet_Slices;

  //........................................................................................................................
  //Close bellow valve on capilliry mode
  //........................................................................................................................
	if (g_bMicroVolumeUsed)
	{
		_Set("Dual Inlet System/Valve 15",0);
		_Set("Dual Inlet System/Valve 25",0);
	}
	else
	{
		if ((Dual_Inlet_Standard==DI_LEFT) || (Dual_Inlet_Sample==DI_LEFT))
		{
			_Set("Dual Inlet System/Valve 15",1);
		}
		if ((Dual_Inlet_Standard==DI_RIGHT) || (Dual_Inlet_Sample==DI_RIGHT)) 
		{
			_Set("Dual Inlet System/Valve 25",1);
		}
	}
	
/*
//-------------------J.Broedje-------------------------11-2004
  //High Vacuum readout Sample -----------	
  call SwitchChangeOver(Dual_Inlet_Sample);
  _Delay(5000);
  number nHighVac=_GetCalc("Isotope MS/High Vacuum");
  _UserInfo("HighVacuumSample=%2.10f",1,0,nHighVac);

  //High Vacuum readoutStandard -----------	
  call SwitchChangeOver(Dual_Inlet_Standard);
  _Delay(5000);
  nHighVac=_GetCalc("Isotope MS/High Vacuum");
  _UserInfo("HighVacuumStandard=%2.10f",1,0,nHighVac);		
*/

//-----Delay before measuring--------Broedje?????-------------------------------
_Delay(g_nWaitBeforeMeasurement);
//-----------------------------
	collector	colSmp;
	collector	colStd;
	
  number nSampleSide=Dual_Inlet_Sample;
  nStandardSide			=Dual_Inlet_Standard;
  
  //........................................................................................................................
  //One pre standard, for baseline mode, this pre standard has been CANCELED!!!!
  //........................................................................................................................
//  call SwitchChangeOver(nStandardSide);
//  _Delay(nPreDelay);
//	_CollectorIntegrate(colStd,nIntegrationTime,Dual_Inlet_Slices,TRUE);
//	_CollectorSend(colStd,1);
  
  //........................................................................................................................
  //Now measure g_nCycles
  //........................................................................................................................
  number nCount;
  
  for (nCount=0;nCount<nCycles;nCount++;)
  {
    call SwitchChangeOver(nSampleSide);
    _Delay(nPreDelay);
		_CollectorIntegrate(colSmp,nIntegrationTime,Dual_Inlet_Slices,TRUE);
		_CollectorSend(colSmp,0);
    
    call SwitchChangeOver(nStandardSide);
    _Delay(nPreDelay);
		_CollectorIntegrate(colStd,nIntegrationTime,Dual_Inlet_Slices,TRUE);
		_CollectorSend(colStd,1);
  }  
}
//--------------------------------------------------------------------------------------------------------------------------


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

//Define constant strings for two gas condifurations, these will be used in the following script.
const string GC_baseline = "baseline";
const string GC_CO2_49 = "CO2 49";


function Acquisition_MicroVol_Baseline() :bool
{
 	
 	_UserInfo("DI: MicroVol Acquisitions and Baseline",0,1);

	call PeakCenter();	
	call Pressureadjust();

// expand and compress bellows to ensure compositional homogenity.
//	call CompressExpandTwoBellows();
//	_Delay(10000);
//	_UserInfo("DI: lets wait for 10 seconds",0,1);

	number nPres = call DiReadVolumePressure(0);
	_UserInfo("DI: Sample Pressure %0.2f mBar",0,0,nPres);
	nPres=call DiReadVolumePressure(1);
	_UserInfo("DI: Reference Pressure %0.2f mBar",0,0,nPres);
	number Posbellow = _GetCalc(DI_VOLUME_LEFT);
	_UserInfo("DI: Sample Volume %0.1f percent",0,0,Posbellow);
	Posbellow = _GetCalc(DI_VOLUME_RIGHT);
	_UserInfo("DI: Reference Volume %0.1f percent",0,0,Posbellow);

	call StartMicroVol();
	
 	_UserInfo("DI: Start Measurement Loop, first, baseline rading.",0,1);

	_SetGasConfiguration(GC_baseline, GC_CO2_49);
	g_bMicroVolumeUsed	= TRUE;
  call DiMeasurementLoop(4, Dual_Inlet_Idle, Dual_Inlet_Standard, Ms_IntegrationTime);

	_SetGasConfiguration(GC_CO2_49, GC_baseline);

// shift to MicroVol mode.

	number Dual_Inlet_Cycles_plusOne = Dual_Inlet_Cycles + 1;
	g_bMicroVolumeUsed	= TRUE;
 	_UserInfo("DI: Start Measurement Loop, usr defined setting",0,1);
  call DiMeasurementLoop_postBaseline(Dual_Inlet_Cycles_plusOne, Dual_Inlet_Idle,Dual_Inlet_Standard,Ms_IntegrationTime);

	_SetGasConfiguration(GC_baseline, GC_CO2_49);

 	_UserInfo("DI: Post Measurement-Loop baseline rading.",0,1);
  call DiMeasurementLoop_postBaseline(4, Dual_Inlet_Idle, Dual_Inlet_Standard, Ms_IntegrationTime);

//	call EndMicroVol();

 	_UserInfo("DI: Measurement Loop finished",0,1);
	return TRUE;
}

//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
function Acquisition_MicroVol_Baseline_2BL8SEC() :bool
{
 	
 	_UserInfo("DI: MicroVol Acquisitions and Baseline",0,1);
	
	call Pressureadjust();

// expand and compress bellows to ensure compositional homogenity.
//	call CompressExpandTwoBellows();
//	_Delay(10000);
//	_UserInfo("DI: lets wait for 10 seconds",0,1);

	number nPres = call DiReadVolumePressure(0);
	_UserInfo("DI: Sample Pressure %0.2f mBar",0,0,nPres);
	nPres=call DiReadVolumePressure(1);
	_UserInfo("DI: Reference Pressure %0.2f mBar",0,0,nPres);
	number Posbellow = _GetCalc(DI_VOLUME_LEFT);
	_UserInfo("DI: Sample Volume %0.1f percent",0,0,Posbellow);
	Posbellow = _GetCalc(DI_VOLUME_RIGHT);
	_UserInfo("DI: Reference Volume %0.1f percent",0,0,Posbellow);


 	_UserInfo("DI: Start Measurement Loop, first, baseline rading.",0,1);

	_SetGasConfiguration(GC_baseline, GC_CO2_49);

  call DiMeasurementLoop(2, 8000, Dual_Inlet_Standard, 8000);

	_SetGasConfiguration(GC_CO2_49, GC_baseline);

	call PeakCenter();
// shift to MicroVol mode.
	call StartMicroVol();

	number Dual_Inlet_Cycles_plusOne = Dual_Inlet_Cycles + 1;
	g_bMicroVolumeUsed	= TRUE;
 	_UserInfo("DI: Start Measurement Loop, usr defined setting",0,1);
  call DiMeasurementLoop_postBaseline(Dual_Inlet_Cycles_plusOne, Dual_Inlet_Idle,Dual_Inlet_Standard,Ms_IntegrationTime);

	_SetGasConfiguration(GC_baseline, GC_CO2_49);


 	_UserInfo("DI: Post Measurement-Loop baseline rading.",0,1);
  call DiMeasurementLoop_postBaseline(2, 8000, Dual_Inlet_Standard, 8000);

//	call EndMicroVol();

 	_UserInfo("DI: Measurement Loop finished",0,1);
	return TRUE;
}

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


function Acquisition_Bellow_mode_Baseline() :bool
{
 	
 	_UserInfo("DI: Bellow mode Acquisitions and Baseline",0,1);
	call PeakCenter();	
	call Pressureadjust();

	number nPres = call DiReadVolumePressure(0);
	_UserInfo("DI: Sample Pressure %0.2f mBar",0,0,nPres);
	nPres=call DiReadVolumePressure(1);
	_UserInfo("DI: Reference Pressure %0.2f mBar",0,0,nPres);
	number Posbellow = _GetCalc(DI_VOLUME_LEFT);
	_UserInfo("DI: Sample Volume %0.1f percent",0,0,Posbellow);
	Posbellow = _GetCalc(DI_VOLUME_RIGHT);
	_UserInfo("DI: Reference Volume %0.1f percent",0,0,Posbellow);


 	_UserInfo("DI: Start Measurement Loop, first, baseline rading.",0,1);

	_SetGasConfiguration(GC_baseline, GC_CO2_49);

  call DiMeasurementLoop(4, Dual_Inlet_Idle, Dual_Inlet_Standard, Ms_IntegrationTime);

	_SetGasConfiguration(GC_CO2_49, GC_baseline);

 	_UserInfo("DI: Start Measurement Loop, usr defined setting",0,1);

	number Dual_Inlet_Cycles_plusOne = Dual_Inlet_Cycles + 1;

  call DiMeasurementLoop_postBaseline(Dual_Inlet_Cycles_plusOne, Dual_Inlet_Idle, Dual_Inlet_Standard, Ms_IntegrationTime);

	_SetGasConfiguration(GC_baseline, GC_CO2_49);

 	_UserInfo("DI: Post Measurement-Loop baseline rading.",0,1);
  call DiMeasurementLoop_postBaseline(5, Dual_Inlet_Idle, Dual_Inlet_Standard, Ms_IntegrationTime);

 	_UserInfo("DI: Measurement Loop finished",0,1);
	return TRUE;
}

//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
function Acquisition_NO_PreStd() :bool
{

 	_UserInfo("Start Measurement Loop",0,1);

  call DiMeasurementLoop_postBaseline(Dual_Inlet_Cycles, Dual_Inlet_Idle,Dual_Inlet_Standard,Ms_IntegrationTime);
  

//-----------------------------Pump Ref. Capillary after run--------Broedje
 
//  if (g_bMicroVolumeUsed)
//  {
//	_Set("Dual Inlet System/Valve 25",0);
//	_Delay(DI_DEFAULT_VALVE_DELAY);
//	_Set("Dual Inlet System/Valve 26",1);
//	_Delay(DI_DEFAULT_VALVE_DELAY);
//	call DiOpenForeVacPump();
//	call DiWaitForForeVacuum(Dual_Inlet_Fore_Vacuum_Threshold);
//	call CloseVacPumps();
//	_Delay(DI_DEFAULT_VALVE_DELAY);
//	call DiOpenHighVacPump();
//	_Delay(Dual_Inlet_High_Vacuum_Pump_Time,TRUE);
//	_Set("Dual Inlet System/Valve 26",0);
//	_Delay(DI_DEFAULT_VALVE_DELAY);
//	call CloseVacPumps();
//	_Delay(DI_DEFAULT_VALVE_DELAY);
//	_Set("Dual Inlet System/Valve 25",1);
// }

 	_UserInfo("DI: Measurement Loop finished",0,1);
	return TRUE;
	
}
//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------------------------------------------
function Acquisition() :bool
{
 	_UserInfo("Start Measurement Loop",0,1);

  call DiMeasurementLoop(Dual_Inlet_Cycles, Dual_Inlet_Idle,Dual_Inlet_Standard,Ms_IntegrationTime);
  

//-----------------------------Pump Ref. Capillary after run--------Broedje
 
  if (g_bMicroVolumeUsed)
  {
	_Set("Dual Inlet System/Valve 25",0);
	_Delay(DI_DEFAULT_VALVE_DELAY);
	_Set("Dual Inlet System/Valve 26",1);
	_Delay(DI_DEFAULT_VALVE_DELAY);
	call DiOpenForeVacPump();
	call DiWaitForForeVacuum(Dual_Inlet_Fore_Vacuum_Threshold);
	call CloseVacPumps();
	_Delay(DI_DEFAULT_VALVE_DELAY);
	call DiOpenHighVacPump();
	_Delay(Dual_Inlet_High_Vacuum_Pump_Time,TRUE);
	_Set("Dual Inlet System/Valve 26",0);
	_Delay(DI_DEFAULT_VALVE_DELAY);
	call CloseVacPumps();
	_Delay(DI_DEFAULT_VALVE_DELAY);
	_Set("Dual Inlet System/Valve 25",1);
  }

 	_UserInfo("DI: Measurement Loop finished",0,1);
	return TRUE;
	
}
//-------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------
function MicroVol_Baseline_calibration() :bool
{
 	
 	_UserInfo("DI: MicroVol Acquisitions and Baseline",0,1);
	
	call Pressureadjust();

// expand and compress bellows to ensure compositional homogenity.
//	call CompressExpandTwoBellows();
//	_Delay(10000);
//	_UserInfo("DI: lets wait for 10 seconds",0,1);

	number nPres = call DiReadVolumePressure(0);
	_UserInfo("DI: Sample Pressure %0.2f mBar",0,0,nPres);
	nPres=call DiReadVolumePressure(1);
	_UserInfo("DI: Reference Pressure %0.2f mBar",0,0,nPres);
	number Posbellow = _GetCalc(DI_VOLUME_LEFT);
	_UserInfo("DI: Sample Volume %0.1f percent",0,0,Posbellow);
	Posbellow = _GetCalc(DI_VOLUME_RIGHT);
	_UserInfo("DI: Reference Volume %0.1f percent",0,0,Posbellow);

 	_UserInfo("DI: Start Measurement Loop...",0,1);

	call PeakCenter();
// shift to MicroVol mode.
	call StartMicroVol();
	g_bMicroVolumeUsed	= TRUE;
  call DiMeasurementLoop(2, 12000, Dual_Inlet_Standard, 20000);

	_SetGasConfiguration(GC_baseline, GC_CO2_49);
	g_bMicroVolumeUsed	= TRUE;
  call DiMeasurementLoop_postBaseline(16, 12000, Dual_Inlet_Standard, 20000);

	_SetGasConfiguration(GC_CO2_49, GC_baseline);
	g_bMicroVolumeUsed	= TRUE;
	call DiMeasurementLoop_postBaseline(2, 12000, Dual_Inlet_Standard, 20000);

 	_UserInfo("DI: Measurement Loop finished",0,1);
	return TRUE;
}

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