| 611 |
code = parerror; |
code = parerror; |
| 612 |
goto closeandexit; |
goto closeandexit; |
| 613 |
}; |
}; |
| 614 |
ltp2 = (Int_t)(glparam2->PATH+glparam->NAME).Length(); |
ltp2 = (Int_t)(glparam2->PATH+glparam2->NAME).Length(); |
| 615 |
if ( verbose ) printf(" Reading Earth's Magnetic Field parameter file: %s \n",(glparam2->PATH+glparam2->NAME).Data()); |
if ( verbose ) printf(" Reading Earth's Magnetic Field parameter file: %s \n",(glparam2->PATH+glparam2->NAME).Data()); |
| 616 |
// |
// |
| 617 |
parerror=glparam3->Query_GL_PARAM(atime,302,dbc); // parameters stored in DB in GL_PRAM table |
parerror=glparam3->Query_GL_PARAM(atime,302,dbc); // parameters stored in DB in GL_PRAM table |
| 619 |
code = parerror; |
code = parerror; |
| 620 |
goto closeandexit; |
goto closeandexit; |
| 621 |
}; |
}; |
| 622 |
ltp3 = (Int_t)(glparam3->PATH+glparam2->NAME).Length(); |
ltp3 = (Int_t)(glparam3->PATH+glparam3->NAME).Length(); |
| 623 |
if ( verbose ) printf(" Reading Earth's Magnetic Field parameter file: %s \n",(glparam3->PATH+glparam3->NAME).Data()); |
if ( verbose ) printf(" Reading Earth's Magnetic Field parameter file: %s \n",(glparam3->PATH+glparam3->NAME).Data()); |
| 624 |
// |
// |
| 625 |
initize_((char *)(glparam->PATH+glparam->NAME).Data(),<p1,(char *)(glparam2->PATH+glparam2->NAME).Data(),<p2,(char *)(glparam3->PATH+glparam3->NAME).Data(),<p3); |
initize_((char *)(glparam->PATH+glparam->NAME).Data(),<p1,(char *)(glparam2->PATH+glparam2->NAME).Data(),<p2,(char *)(glparam3->PATH+glparam3->NAME).Data(),<p3); |
| 1370 |
if ( verbose ) printf(" Clear before new run \n"); |
if ( verbose ) printf(" Clear before new run \n"); |
| 1371 |
delete dbtime; |
delete dbtime; |
| 1372 |
|
|
| 1373 |
mcmdrc->Clear(); |
if ( mcmdrc ) mcmdrc->Clear(); |
| 1374 |
mcmdrc = 0; |
mcmdrc = 0; |
| 1375 |
|
|
| 1376 |
if ( verbose ) printf(" Clear before new run1 \n"); |
if ( verbose ) printf(" Clear before new run1 \n"); |
| 1432 |
// |
// |
| 1433 |
if ( file ){ |
if ( file ){ |
| 1434 |
file->cd(); |
file->cd(); |
| 1435 |
OrbitalInfotr->Write("OrbitalInfo", TObject::kOverwrite); |
if ( OrbitalInfotr ) OrbitalInfotr->Write("OrbitalInfo", TObject::kOverwrite); // 10 RED bug fixed |
| 1436 |
}; |
}; |
| 1437 |
// |
// |
| 1438 |
if (verbose) printf("\n Exiting...\n"); |
if (verbose) printf("\n Exiting...\n"); |