[u/mrichter/AliRoot.git] / ZDC / ZDCEMDda.cxx

/*

DAcase2.c

This program connects to the DAQ data source passed as argument
and populates local "./result.txt" file with the ids of events received
during the run.

The program exits when being asked to shut down (daqDA_checkshutdown)
or End of Run event.

Messages on stdout are exported to DAQ log system.

Contact: Chiara.Oppedisano@to.infn.it
Link: /afs/cern.ch/user/c/chiarao/public/RawEMD.date
Run Type: STANDALONE_EMD_RUN
DA Type: MON
Number of events needed: at least ~10^3
Input Files: ZDCPedestal.dat
Output Files: ZDCEMDCalib.dat
Trigger Types Used: Standalone Trigger

*/

#include <stdio.h>
#include <Riostream.h>

// DATE
#include <daqDA.h>
#include <event.h>
#include <monitor.h>

//ROOT
#include <TRandom.h>
#include <TH1F.h>
#include <TH2F.h>
#include <TProfile.h>
#include <TF1.h>
#include <TFile.h>

//AliRoot
#include <AliRawReaderDate.h>
#include <AliZDCRawStream.h>


/* Main routine
      Arguments: 
      1- monitoring data source
*/
int main(int argc, char **argv) {
  
  //
  // --- Preparing histos for EM dissociation spectra
  //
  TH1F* histoEMDRaw[4];
  TH1F* histoEMDCorr[4];

  char namhistr[50], namhistc[50];
  for(Int_t i=0; i<4; i++) {
     if(i==0){
       sprintf(namhistr,"ZN%d-EMDRaw",i+1);
       sprintf(namhistc,"ZN%d-EMDCorr",i+1);
     }
     else if(i==1){
       sprintf(namhistr,"ZP%d-EMDRaw",i);
       sprintf(namhistc,"ZP%d-EMDCorr",i);
     }
     else if(i==2){
       sprintf(namhistr,"ZN%d-EMDRaw",i);
       sprintf(namhistc,"ZN%d-EMDCorr",i);
     }
     else if(i==3){
       sprintf(namhistr,"ZP%d-EMDRaw",i-1);
       sprintf(namhistc,"ZP%d-EMDCorr",i-1);
     }
     histoEMDRaw[i] = new TH1F(namhistr,namhistr,100,0.,4000.);
     histoEMDCorr[i] = new TH1F(namhistc,namhistc,100,0.,4000.);
  }

  int status;
  
  if (argc!=2) {
    printf("Wrong number of arguments\n");
    return -1;
  }


  /* open result file */
  FILE *fp=NULL;
  fp=fopen("./result.txt","a");
  if (fp==NULL) {
    printf("Failed to open file\n");
    return -1;
  }
  

  /* define data source : this is argument 1 */  
  status = monitorSetDataSource( argv[1] );
  if(status!=0) {
    printf("monitorSetDataSource() failed : %s\n",monitorDecodeError(status));
    return -1;
  }


  /* declare monitoring program */
  status = monitorDeclareMp( __FILE__ );
  if (status!=0) {
    printf("monitorDeclareMp() failed : %s\n",monitorDecodeError(status));
    return -1;
  }


  /* define wait event timeout - 1s max */
  monitorSetNowait();
  monitorSetNoWaitNetworkTimeout(1000);
  

  /* log start of process */
  printf("ZDC PEDESTAL monitoring program started\n");  
  
  /* init some counters */
  int nevents_physics=0;
  int nevents_total=0;

  struct equipmentStruct *equipment;
  int *eventEnd;
  int *eventData;
  int *equipmentEnd;
  int *equipmentData;
  int *equipmentID;
  struct eventHeaderStruct *event;
  eventTypeType eventT;
  Int_t iev=0;
  
  /* main loop (infinite) */
  for(;;) {
  
    /* check shutdown condition */
    if (daqDA_checkShutdown()) {break;}
    
    /* get next event (blocking call until timeout) */
    status=monitorGetEventDynamic((void **)&event);
    if (status==MON_ERR_EOF) {
      printf ("End of File detected\n");
      break; /* end of monitoring file has been reached */
    }
    
    if (status!=0) {
      printf("monitorGetEventDynamic() failed : %s\n",monitorDecodeError(status));
      break;
    }

    /* retry if got no event */
    if (event==NULL) {
      continue;
    }

    iev++; 

    /* use event - here, just write event id to result file */
    eventT=event->eventType;
    
    if(eventT==PHYSICS_EVENT){
      //
      // *** To analyze EMD events you MUST have a pedestal data file!!!
      // *** -> check if a pedestal run has been analyzied
      FILE *filePed=NULL;
      filePed=fopen("./ZDCPedestal.dat","r");
      if (filePed==NULL) {
        printf("\t ERROR!!! You MUST have a ZDCPedestal.dat file!!!\n");
        return -1;
      }
      // 144 = 48 in-time + 48 out-of-time + 48 correlations
      Float_t readValues[2][144], MeanPed[44], MeanPedWidth[44], 
   	      MeanPedOOT[44], MeanPedWidthOOT[44],
   	      CorrCoeff0[44], CorrCoeff1[44];
      //
      for(int jj=0; jj<144; jj++){
        for(int ii=0; ii<2; ii++){
           fscanf(filePed,"%f",&readValues[ii][jj]);
        }
	if(jj<48){
	  MeanPed[jj] = readValues[0][jj];
	  MeanPedWidth[jj] = readValues[1][jj];
	}
	else if(jj>48 && jj<96){
	  MeanPedOOT[jj-48] = readValues[0][jj];
	  MeanPedWidthOOT[jj-48] = readValues[1][jj];
	}
	else if(jj>144){
	  CorrCoeff0[jj-96] = readValues[0][jj]; 
	  CorrCoeff1[jj-96] = readValues[1][jj];;
	}
      }
      //
      //
      // Initalize raw-data reading and decoding
      AliRawReader *reader = new AliRawReaderDate((void*)event);
      const AliRawDataHeader* header = reader->GetDataHeader();
      if(header){
         UChar_t message = header->GetAttributes();
	 if(message & 0x70){ // DEDICATED EMD RUN
	    printf("\t STANDALONE_EMD_RUN raw data found\n");
	    continue;
	 }
	 else{
	    printf("\t NO STANDALONE_EMD_RUN raw data found\n");
	    return -1;
	 }
      }
      //Commented until we won't have true Raw Data Header...
      //else{
      //   printf("\t ATTENTION! No Raw Data Header found!!!\n");
      //   return -1;
      //}
      //
      AliZDCRawStream *rawStreamZDC = new AliZDCRawStream(reader);
      //
      if (!rawStreamZDC->Next()) printf(" \t No raw data found!! ");
      //
      Float_t ZDCRawADC[4], ZDCCorrADC[4], ZDCCorrADCSum[4];
      for(Int_t g=0; g<4; g++){
           ZDCCorrADCSum[g] = 0.;
	   ZDCRawADC[g] = 0.;
      }
      //
      while(rawStreamZDC->Next()){
        if(rawStreamZDC->IsADCDataWord()){
	  Int_t DetIndex=999, PedIndex=999;
	  if(rawStreamZDC->GetSector(0) == 1 || rawStreamZDC->GetSector(0) == 2){
	    DetIndex = rawStreamZDC->GetSector(0)-1;
	    PedIndex = (rawStreamZDC->GetSector(0)+1)+4*rawStreamZDC->GetSector(1);
	  }
	  else if(rawStreamZDC->GetSector(0) == 4 || rawStreamZDC->GetSector(0) == 5){
	    DetIndex = rawStreamZDC->GetSector(0)-2;
	    PedIndex = (rawStreamZDC->GetSector(0)-2)+4*rawStreamZDC->GetSector(1)+24;
	  }
          //
	  if(rawStreamZDC->GetADCGain() == 1){ //EMD -> LR ADC
	    //
	    ZDCRawADC[DetIndex] += (Float_t) rawStreamZDC->GetADCValue();
	    // Mean pedestal subtraction 
	    Float_t Pedestal = MeanPed[PedIndex];
	    // Pedestal subtraction from correlation with out-of-time signals
	    //Float_t Pedestal = CorrCoeff0[PedIndex]+CorrCoeff1[PedIndex]*MeanPedOOT[PedIndex];
	    //
	    ZDCCorrADC[DetIndex] = (rawStreamZDC->GetADCValue()) - Pedestal;
	    ZDCCorrADCSum[DetIndex] += ZDCCorrADC[DetIndex];
	    //
	    /*printf("\t det %d quad %d res %d pedInd %d ADCCorr %d ZDCCorrADCSum[%d] = %d\n", 
	       rawStreamZDC->GetSector(0),rawStreamZDC->GetSector(1),
	       rawStreamZDC->GetADCGain(),PedIndex,  
	       (Int_t) (rawStreamZDC->GetADCValue() - Pedestal), DetIndex, 
	       (Int_t) ZDCCorrADCSum[DetIndex]);
	    */
	  }   
	}//IsADCDataWord()
	 //
       }
       //
       nevents_physics++;
       //
       for(Int_t j=0; j<4; j++){
          histoEMDRaw[j]->Fill(ZDCRawADC[j]);
          histoEMDCorr[j]->Fill(ZDCCorrADCSum[j]);
       }
    }
    
    nevents_total++;


    /* free resources */
    free(event);
    
    /* exit when last event received, no need to wait for TERM signal */
    if (eventT==END_OF_RUN) {
      printf("EOR event detected\n");
      break;
    }
  }
  
  /* Analysis of the histograms */
  //
  FILE *fileShuttle;
  fileShuttle = fopen("ZDCEMDCalib.dat","w");
  //
  Int_t BinMax[4];
  Float_t YMax[4];
  Int_t NBinsx[4];
  Float_t MeanFitVal[4];
  TF1 *fitfun[4];
  for(Int_t k=0; k<4; k++){
     BinMax[k] = histoEMDCorr[k]->GetMaximumBin();
     YMax[k] = (histoEMDCorr[k]->GetXaxis())->GetXmax();
     NBinsx[k] = (histoEMDCorr[k]->GetXaxis())->GetNbins();
//     printf("\n\t Det%d -> BinMax = %d, ChXMax = %f\n", k+1, BinMax[k], BinMax[k]*YMax[k]/NBinsx[k]);
     histoEMDCorr[k]->Fit("gaus","Q","",BinMax[k]*YMax[k]/NBinsx[k]*0.7,BinMax[k]*YMax[k]/NBinsx[k]*1.25);
     fitfun[k] = histoEMDCorr[k]->GetFunction("gaus");
     MeanFitVal[k] = (Float_t) (fitfun[k]->GetParameter(1));
     //printf("\n\t Mean Value from gaussian fit = %f\n", MeanFitVal[k]);
  }
  //
   Float_t CalibCoeff[6];
  /*for(Int_t j=0; j<6; j++){
     if(j<4) CalibCoeff[j] = MeanFitVal[j];
     else  CalibCoeff[j] = 1.;
     fprintf(fileShuttle,"\t%f\n",CalibCoeff[j]);
  }
  */
  // --- For the moment we have sim data only for ZN1!!!
  for(Int_t j=0; j<6; j++){
     if(j==0) CalibCoeff[j] = MeanFitVal[j];
     else if(j>0 && j<4) CalibCoeff[j] = CalibCoeff[0];
     else  CalibCoeff[j] = 1.;
     fprintf(fileShuttle,"\t%f\n",CalibCoeff[j]);
  }
  //						       
  fclose(fileShuttle);
  

  /* write report */
  fprintf(fp,"Run #%s, received %d physics events out of %d\n",getenv("DATE_RUN_NUMBER"),nevents_physics,nevents_total);

  /* close result file */
  fclose(fp);


  return status;
}
Commit	Line	Data
f16f149b	1	/*
	2
	3	DAcase2.c
	4
	5	This program connects to the DAQ data source passed as argument
	6	and populates local "./result.txt" file with the ids of events received
	7	during the run.
	8
	9	The program exits when being asked to shut down (daqDA_checkshutdown)
	10	or End of Run event.
	11
	12	Messages on stdout are exported to DAQ log system.
	13
ea628de7	14	Contact: Chiara.Oppedisano@to.infn.it
	15	Link: /afs/cern.ch/user/c/chiarao/public/RawEMD.date
	16	Run Type: STANDALONE_EMD_RUN
	17	DA Type: MON
	18	Number of events needed: at least ~10^3
	19	Input Files: ZDCPedestal.dat
	20	Output Files: ZDCEMDCalib.dat
	21	Trigger Types Used: Standalone Trigger
f16f149b	22
	23	*/
	24
	25	#include <stdio.h>
	26	#include <Riostream.h>
	27
	28	// DATE
	29	#include <daqDA.h>
	30	#include <event.h>
	31	#include <monitor.h>
	32
	33	//ROOT
	34	#include <TRandom.h>
	35	#include <TH1F.h>
	36	#include <TH2F.h>
	37	#include <TProfile.h>
	38	#include <TF1.h>
	39	#include <TFile.h>
	40
	41	//AliRoot
	42	#include <AliRawReaderDate.h>
	43	#include <AliZDCRawStream.h>
	44
	45
	46	/* Main routine
	47	Arguments:
	48	1- monitoring data source
	49	*/
	50	int main(int argc, char **argv) {
	51
	52	//
	53	// --- Preparing histos for EM dissociation spectra
	54	//
	55	TH1F* histoEMDRaw[4];
	56	TH1F* histoEMDCorr[4];
	57
	58	char namhistr[50], namhistc[50];
	59	for(Int_t i=0; i<4; i++) {
	60	if(i==0){
	61	sprintf(namhistr,"ZN%d-EMDRaw",i+1);
	62	sprintf(namhistc,"ZN%d-EMDCorr",i+1);
	63	}
	64	else if(i==1){
	65	sprintf(namhistr,"ZP%d-EMDRaw",i);
	66	sprintf(namhistc,"ZP%d-EMDCorr",i);
	67	}
	68	else if(i==2){
	69	sprintf(namhistr,"ZN%d-EMDRaw",i);
	70	sprintf(namhistc,"ZN%d-EMDCorr",i);
	71	}
	72	else if(i==3){
	73	sprintf(namhistr,"ZP%d-EMDRaw",i-1);
	74	sprintf(namhistc,"ZP%d-EMDCorr",i-1);
	75	}
	76	histoEMDRaw[i] = new TH1F(namhistr,namhistr,100,0.,4000.);
	77	histoEMDCorr[i] = new TH1F(namhistc,namhistc,100,0.,4000.);
	78	}
	79
	80	int status;
	81
	82	if (argc!=2) {
	83	printf("Wrong number of arguments\n");
	84	return -1;
	85	}
86
87
88	/* open result file */
89	FILE *fp=NULL;
90	fp=fopen("./result.txt","a");
91	if (fp==NULL) {
92	printf("Failed to open file\n");
93	return -1;
94	}
95
96
97	/* define data source : this is argument 1 */
98	status = monitorSetDataSource( argv[1] );
99	if(status!=0) {
100	printf("monitorSetDataSource() failed : %s\n",monitorDecodeError(status));
101	return -1;
102	}
103
104
105	/* declare monitoring program */
106	status = monitorDeclareMp( __FILE__ );
107	if (status!=0) {
108	printf("monitorDeclareMp() failed : %s\n",monitorDecodeError(status));
109	return -1;
110	}
111
112
113	/* define wait event timeout - 1s max */
114	monitorSetNowait();
115	monitorSetNoWaitNetworkTimeout(1000);
116
117
118	/* log start of process */
119	printf("ZDC PEDESTAL monitoring program started\n");
120
121	/* init some counters */
122	int nevents_physics=0;
123	int nevents_total=0;
124
125	struct equipmentStruct *equipment;
126	int *eventEnd;
127	int *eventData;
128	int *equipmentEnd;
129	int *equipmentData;
130	int *equipmentID;
131	struct eventHeaderStruct *event;
132	eventTypeType eventT;
133	Int_t iev=0;
134
135	/* main loop (infinite) */
136	for(;;) {
137
138	/* check shutdown condition */
139	if (daqDA_checkShutdown()) {break;}
140
141	/* get next event (blocking call until timeout) */
142	status=monitorGetEventDynamic((void **)&event);
143	if (status==MON_ERR_EOF) {
144	printf ("End of File detected\n");
145	break; /* end of monitoring file has been reached */
146	}
147
148	if (status!=0) {
149	printf("monitorGetEventDynamic() failed : %s\n",monitorDecodeError(status));
150	break;
151	}
152
153	/* retry if got no event */
154	if (event==NULL) {
155	continue;
156	}
157
158	iev++;
159
160	/* use event - here, just write event id to result file */
161	eventT=event->eventType;
162
163	if(eventT==PHYSICS_EVENT){
164	//
165	// *** To analyze EMD events you MUST have a pedestal data file!!!
166	// *** -> check if a pedestal run has been analyzied
167	FILE *filePed=NULL;
168	filePed=fopen("./ZDCPedestal.dat","r");
169	if (filePed==NULL) {
170	printf("\t ERROR!!! You MUST have a ZDCPedestal.dat file!!!\n");
171	return -1;
172	}
ea628de7	173	// 144 = 48 in-time + 48 out-of-time + 48 correlations
ea628de7	174	Float_t readValues[2][144], MeanPed[44], MeanPedWidth[44],
f16f149b	175	MeanPedOOT[44], MeanPedWidthOOT[44],
	176	CorrCoeff0[44], CorrCoeff1[44];
	177	//
ea628de7	178	for(int jj=0; jj<144; jj++){
f16f149b	179	for(int ii=0; ii<2; ii++){
	180	fscanf(filePed,"%f",&readValues[ii][jj]);
	181	}
ea628de7	182	if(jj<48){
f16f149b	183	MeanPed[jj] = readValues[0][jj];
	184	MeanPedWidth[jj] = readValues[1][jj];
	185	}
ea628de7	186	else if(jj>48 && jj<96){
	187	MeanPedOOT[jj-48] = readValues[0][jj];
	188	MeanPedWidthOOT[jj-48] = readValues[1][jj];
f16f149b	189	}
ea628de7	190	else if(jj>144){
	191	CorrCoeff0[jj-96] = readValues[0][jj];
	192	CorrCoeff1[jj-96] = readValues[1][jj];;
f16f149b	193	}
	194	}
	195	//
	196	//
	197	// Initalize raw-data reading and decoding
	198	AliRawReader reader = new AliRawReaderDate((void)event);
	199	const AliRawDataHeader* header = reader->GetDataHeader();
	200	if(header){
ea628de7	201	UChar_t message = header->GetAttributes();
	202	if(message & 0x70){ // DEDICATED EMD RUN
	203	printf("\t STANDALONE_EMD_RUN raw data found\n");
	204	continue;
	205	}
	206	else{
	207	printf("\t NO STANDALONE_EMD_RUN raw data found\n");
	208	return -1;
	209	}
f16f149b	210	}
ea628de7	211	//Commented until we won't have true Raw Data Header...
	212	//else{
	213	// printf("\t ATTENTION! No Raw Data Header found!!!\n");
	214	// return -1;
	215	//}
f16f149b	216	//
	217	AliZDCRawStream *rawStreamZDC = new AliZDCRawStream(reader);
	218	//
	219	if (!rawStreamZDC->Next()) printf(" \t No raw data found!! ");
	220	//
	221	Float_t ZDCRawADC[4], ZDCCorrADC[4], ZDCCorrADCSum[4];
	222	for(Int_t g=0; g<4; g++){
	223	ZDCCorrADCSum[g] = 0.;
	224	ZDCRawADC[g] = 0.;
	225	}
	226	//
	227	while(rawStreamZDC->Next()){
	228	if(rawStreamZDC->IsADCDataWord()){
ea628de7	229	Int_t DetIndex=999, PedIndex=999;
ea628de7	230	if(rawStreamZDC->GetSector(0) == 1 \|\| rawStreamZDC->GetSector(0) == 2){
f16f149b	231	DetIndex = rawStreamZDC->GetSector(0)-1;
ea628de7	232	PedIndex = (rawStreamZDC->GetSector(0)+1)+4*rawStreamZDC->GetSector(1);
	233	}
	234	else if(rawStreamZDC->GetSector(0) == 4 \|\| rawStreamZDC->GetSector(0) == 5){
f16f149b	235	DetIndex = rawStreamZDC->GetSector(0)-2;
ea628de7	236	PedIndex = (rawStreamZDC->GetSector(0)-2)+4*rawStreamZDC->GetSector(1)+24;
	237	}
	238	//
f16f149b	239	if(rawStreamZDC->GetADCGain() == 1){ //EMD -> LR ADC
	240	//
	241	ZDCRawADC[DetIndex] += (Float_t) rawStreamZDC->GetADCValue();
f16f149b	242	// Mean pedestal subtraction
	243	Float_t Pedestal = MeanPed[PedIndex];
	244	// Pedestal subtraction from correlation with out-of-time signals
ea628de7	245	//Float_t Pedestal = CorrCoeff0[PedIndex]+CorrCoeff1[PedIndex]*MeanPedOOT[PedIndex];
f16f149b	246	//
	247	ZDCCorrADC[DetIndex] = (rawStreamZDC->GetADCValue()) - Pedestal;
	248	ZDCCorrADCSum[DetIndex] += ZDCCorrADC[DetIndex];
ea628de7	249	//
	250	/*printf("\t det %d quad %d res %d pedInd %d ADCCorr %d ZDCCorrADCSum[%d] = %d\n",
	251	rawStreamZDC->GetSector(0),rawStreamZDC->GetSector(1),
	252	rawStreamZDC->GetADCGain(),PedIndex,
	253	(Int_t) (rawStreamZDC->GetADCValue() - Pedestal), DetIndex,
	254	(Int_t) ZDCCorrADCSum[DetIndex]);
	255	*/
	256	}
f16f149b	257	}//IsADCDataWord()
	258	//
	259	}
	260	//
	261	nevents_physics++;
	262	//
	263	for(Int_t j=0; j<4; j++){
	264	histoEMDRaw[j]->Fill(ZDCRawADC[j]);
	265	histoEMDCorr[j]->Fill(ZDCCorrADCSum[j]);
	266	}
	267	}
	268
	269	nevents_total++;
	270
	271
	272	/* free resources */
	273	free(event);
	274
	275	/* exit when last event received, no need to wait for TERM signal */
	276	if (eventT==END_OF_RUN) {
	277	printf("EOR event detected\n");
	278	break;
	279	}
	280	}
	281
	282	/* Analysis of the histograms */
	283	//
	284	FILE *fileShuttle;
ea628de7	285	fileShuttle = fopen("ZDCEMDCalib.dat","w");
f16f149b	286	//
	287	Int_t BinMax[4];
	288	Float_t YMax[4];
	289	Int_t NBinsx[4];
	290	Float_t MeanFitVal[4];
	291	TF1 *fitfun[4];
	292	for(Int_t k=0; k<4; k++){
	293	BinMax[k] = histoEMDCorr[k]->GetMaximumBin();
	294	YMax[k] = (histoEMDCorr[k]->GetXaxis())->GetXmax();
	295	NBinsx[k] = (histoEMDCorr[k]->GetXaxis())->GetNbins();
ea628de7	296	// printf("\n\t Det%d -> BinMax = %d, ChXMax = %f\n", k+1, BinMax[k], BinMax[k]*YMax[k]/NBinsx[k]);
f16f149b	297	histoEMDCorr[k]->Fit("gaus","Q","",BinMax[k]YMax[k]/NBinsx[k]0.7,BinMax[k]YMax[k]/NBinsx[k]1.25);
	298	fitfun[k] = histoEMDCorr[k]->GetFunction("gaus");
	299	MeanFitVal[k] = (Float_t) (fitfun[k]->GetParameter(1));
c38bc7ef	300	//printf("\n\t Mean Value from gaussian fit = %f\n", MeanFitVal[k]);
f16f149b	301	}
	302	//
	303	Float_t CalibCoeff[6];
	304	/*for(Int_t j=0; j<6; j++){
4ef37af5	305	if(j<4) CalibCoeff[j] = MeanFitVal[j];
f16f149b	306	else CalibCoeff[j] = 1.;
	307	fprintf(fileShuttle,"\t%f\n",CalibCoeff[j]);
	308	}
	309	*/
	310	// --- For the moment we have sim data only for ZN1!!!
	311	for(Int_t j=0; j<6; j++){
4ef37af5	312	if(j==0) CalibCoeff[j] = MeanFitVal[j];
f16f149b	313	else if(j>0 && j<4) CalibCoeff[j] = CalibCoeff[0];
	314	else CalibCoeff[j] = 1.;
	315	fprintf(fileShuttle,"\t%f\n",CalibCoeff[j]);
	316	}
	317	//
	318	fclose(fileShuttle);
	319
	320
	321	/* write report */
	322	fprintf(fp,"Run #%s, received %d physics events out of %d\n",getenv("DATE_RUN_NUMBER"),nevents_physics,nevents_total);
	323
	324	/* close result file */
	325	fclose(fp);
	326
	327
	328	return status;
	329	}