Changeset 3106 for trunk/external-alma/oldasdm2ASAP/OldASDMFiller.cc
- Timestamp:
- 10/04/16 18:20:50 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/external-alma/oldasdm2ASAP/OldASDMFiller.cc
r2407 r3106 74 74 //logsink_->postLocally( LogMessage("sFreqFrame = "+sFreqFrame,LogOrigin(className_,funcName,WHERE)) ) ; 75 75 76 Vector<casa ::Double> antpos = table_->getHeader().antennaposition ;76 Vector<casacore::Double> antpos = table_->getHeader().antennaposition ; 77 77 78 78 // data selection … … 172 172 173 173 // fill MOLECULE_ID and add MOLECULES row if necessary 174 Vector<casa ::Double> restFreqs( rf.size() ) ;174 Vector<casacore::Double> restFreqs( rf.size() ) ; 175 175 for ( uInt i = 0 ; i < rf.size() ; i++ ) 176 restFreqs[i] = (casa ::Double)(rf[i]) ;176 restFreqs[i] = (casacore::Double)(rf[i]) ; 177 177 setMolecule( restFreqs ) ; 178 178 179 179 // time and interval 180 casa ::Double mjd = (casa::Double)(reader_->getTime()) ;181 casa ::Double interval = (casa::Double)(reader_->getInterval()) ;180 casacore::Double mjd = (casacore::Double)(reader_->getTime()) ; 181 casacore::Double interval = (casacore::Double)(reader_->getInterval()) ; 182 182 183 183 // fill TIME and INTERVAL … … 185 185 186 186 // fill SRCNAME, SRCTYPE, FIELDNAME, SRCDIRECTION, SRCPROPERMOTION, and SRCVELOCITY 187 Vector<casa ::Double> srcDir( 2 ) ;188 srcDir[0] = (casa ::Double)(srcDirection[0]) ;189 srcDir[1] = (casa ::Double)(srcDirection[1]) ;190 Vector<casa ::Double> srcPM( 2 ) ;191 srcPM[0] = (casa ::Double)(srcProperMotion[0]) ;192 srcPM[1] = (casa ::Double)(srcProperMotion[1]) ;193 setSource( srcname, srctype, fieldname, srcDir, srcPM, (casa ::Double)sysVel ) ;187 Vector<casacore::Double> srcDir( 2 ) ; 188 srcDir[0] = (casacore::Double)(srcDirection[0]) ; 189 srcDir[1] = (casacore::Double)(srcDirection[1]) ; 190 Vector<casacore::Double> srcPM( 2 ) ; 191 srcPM[0] = (casacore::Double)(srcProperMotion[0]) ; 192 srcPM[1] = (casacore::Double)(srcProperMotion[1]) ; 193 setSource( srcname, srctype, fieldname, srcDir, srcPM, (casacore::Double)sysVel ) ; 194 194 195 195 // fill FLAGROW … … 208 208 windspeed, 209 209 windaz ) ; 210 setWeather2( (casa ::Float)temperature,211 (casa ::Float)pressure,212 (casa ::Float)humidity,213 (casa ::Float)windspeed,214 (casa ::Float)windaz ) ;210 setWeather2( (casacore::Float)temperature, 211 (casacore::Float)pressure, 212 (casacore::Float)humidity, 213 (casacore::Float)windspeed, 214 (casacore::Float)windaz ) ; 215 215 216 216 // fill AZIMUTH, ELEVATION, DIRECTION and SCANRATE … … 223 223 el, 224 224 srate ) ; 225 Vector<casa ::Double> scanRate( 2, 0.0 ) ;226 Vector<casa ::Double> direction( 2, 0.0 ) ;225 Vector<casacore::Double> scanRate( 2, 0.0 ) ; 226 Vector<casacore::Double> direction( 2, 0.0 ) ; 227 227 if ( srate.size() > 0 ) { 228 scanRate[0] = (casa ::Double)(srate[0]) ;229 scanRate[1] = (casa ::Double)(srate[1]) ;228 scanRate[0] = (casacore::Double)(srate[0]) ; 229 scanRate[1] = (casacore::Double)(srate[1]) ; 230 230 } 231 231 setScanRate( scanRate ) ; 232 232 if ( dir.size() > 0 ) { 233 direction[0] = (casa ::Double)(dir[0]) ;234 direction[1] = (casa ::Double)(dir[1]) ;233 direction[0] = (casacore::Double)(dir[0]) ; 234 direction[1] = (casacore::Double)(dir[1]) ; 235 235 } 236 236 else { … … 238 238 } 239 239 //logsink_->postLocally( LogMessage("direction = "+String::toString(direction),LogOrigin(className_,funcName,WHERE)) ) ; 240 setDirection( direction, (casa ::Float)az, (casa::Float)el ) ;240 setDirection( direction, (casacore::Float)az, (casacore::Float)el ) ; 241 241 242 242 // REFPIX, REFVAL, INCREMENT … … 247 247 else { 248 248 reader_->getFrequency( refpix, refval, incr, freqref ) ; 249 refval = (double)toLSRK( casa ::Double(refval),249 refval = (double)toLSRK( casacore::Double(refval), 250 250 String(freqref), 251 251 mjd, … … 258 258 259 259 // fill FREQ_ID and add FREQUENCIES row if necessary 260 setFrequency( (casa ::Double)refpix, (casa::Double)refval, (casa::Double)incr ) ;260 setFrequency( (casacore::Double)refpix, (casacore::Double)refval, (casacore::Double)incr ) ; 261 261 262 262 // loop on polarization … … 280 280 // OPACITY 281 281 vector<float> tau = reader_->getOpacity() ; 282 Vector<casa ::Float> opacity = toVector( tau, numPol ) ;282 Vector<casacore::Float> opacity = toVector( tau, numPol ) ; 283 283 284 284 // SPECTRA, FLAGTRA, TSYS, TCAL … … 287 287 vector< vector<float> > tc ; 288 288 reader_->getTcalAndTsys( tc, ts ) ; 289 Matrix<casa ::Float> spectra = toMatrix( sp, numPol, numChan ) ;289 Matrix<casacore::Float> spectra = toMatrix( sp, numPol, numChan ) ; 290 290 Vector<uChar> flagtra( numChan, 0 ) ; 291 Matrix<casa ::Float> tsys = toMatrix( ts, numPol, numChan ) ;292 Matrix<casa ::Float> tcal = toMatrix( tc, numPol, numChan ) ;291 Matrix<casacore::Float> tsys = toMatrix( ts, numPol, numChan ) ; 292 Matrix<casacore::Float> tcal = toMatrix( tc, numPol, numChan ) ; 293 293 // String caltime = "" ; 294 // if ( anyNE( tcal, (casa ::Float)1.0 ) )294 // if ( anyNE( tcal, (casacore::Float)1.0 ) ) 295 295 // caltime = toTcalTime( mjd ) ; 296 296 String caltime = toTcalTime( mjd ) ; … … 374 374 string ref ; 375 375 reader_->getSourceDirection( sdir, ref ) ; 376 Vector<casa ::Double> sourceDir( sdir ) ;376 Vector<casacore::Double> sourceDir( sdir ) ; 377 377 hdr.reffreq = toLSRK( hdr.reffreq, hdr.freqref, hdr.utc, hdr.antennaposition, sdir, String(ref) ) ; 378 378 hdr.freqref = "LSRK" ; … … 410 410 } 411 411 412 Matrix<casa ::Float> OldASDMFiller::toMatrix( float *sp,412 Matrix<casacore::Float> OldASDMFiller::toMatrix( float *sp, 413 413 unsigned int npol, 414 414 unsigned int nchan ) 415 415 { 416 Matrix<casa ::Float> mSp( npol, nchan ) ;416 Matrix<casacore::Float> mSp( npol, nchan ) ; 417 417 if ( npol <= 2 ) { 418 418 // 1 or 2 polarization case 419 419 for ( unsigned int ich = 0 ; ich < nchan ; ich++ ) { 420 420 for ( unsigned int ipol = 0 ; ipol < npol ; ipol++ ) { 421 mSp(ipol,ich) = (casa ::Float)(sp[npol*ich+ipol]) ;421 mSp(ipol,ich) = (casacore::Float)(sp[npol*ich+ipol]) ; 422 422 } 423 423 } … … 426 426 // 4 polarization case 427 427 for ( unsigned int ich = 0 ; ich < nchan ; ich++ ) { 428 mSp(0,ich) = (casa ::Float)(sp[4*ich]) ; // Re(XX)429 mSp(1,ich) = (casa ::Float)(sp[4*ich+4]) ; // Re(YY)430 mSp(2,ich) = (casa ::Float)(sp[4*ich+2]) ; // Re(XY)431 mSp(3,ich) = (casa ::Float)(sp[4*ich+3]) ; // Im(XY)428 mSp(0,ich) = (casacore::Float)(sp[4*ich]) ; // Re(XX) 429 mSp(1,ich) = (casacore::Float)(sp[4*ich+4]) ; // Re(YY) 430 mSp(2,ich) = (casacore::Float)(sp[4*ich+2]) ; // Re(XY) 431 mSp(3,ich) = (casacore::Float)(sp[4*ich+3]) ; // Im(XY) 432 432 } 433 433 } … … 435 435 } 436 436 437 Matrix<casa ::Float> OldASDMFiller::toMatrix( vector< vector<float> > &tsys,437 Matrix<casacore::Float> OldASDMFiller::toMatrix( vector< vector<float> > &tsys, 438 438 unsigned int npol, 439 439 unsigned int nchan ) … … 441 441 unsigned int numRec = tsys.size() ; 442 442 unsigned int numChan = tsys[0].size() ; 443 Matrix<casa ::Float> ret ;443 Matrix<casacore::Float> ret ; 444 444 if ( npol == numRec && nchan == numChan ) { 445 445 ret.resize( npol, nchan ) ; 446 446 for ( unsigned int ip = 0 ; ip < npol ; ip++ ) 447 447 for ( unsigned int ic = 0 ; ic < nchan ; ic++ ) 448 ret( ip, ic ) = (casa ::Float)(tsys[ip][ic]) ;448 ret( ip, ic ) = (casacore::Float)(tsys[ip][ic]) ; 449 449 } 450 450 else if ( npol == numRec && numChan == 1 ) { 451 451 ret.resize( npol, 1 ) ; 452 452 for ( unsigned int ip = 0 ; ip < npol ; ip++ ) 453 ret( ip, 0 ) = (casa ::Float)(tsys[0][0]) ;453 ret( ip, 0 ) = (casacore::Float)(tsys[0][0]) ; 454 454 } 455 455 else if ( numRec == 1 && nchan == numChan ) { … … 457 457 for ( unsigned int ip = 0 ; ip < npol ; ip++ ) 458 458 for ( unsigned int ic = 0 ; ic < nchan ; ic++ ) 459 ret( ip, ic ) = (casa ::Float)(tsys[0][ic]) ;459 ret( ip, ic ) = (casacore::Float)(tsys[0][ic]) ; 460 460 } 461 461 else if ( numRec == 1 && numChan == 1 ) { 462 462 ret.resize( npol, 1 ) ; 463 463 for ( unsigned int ip = 0 ; ip < npol ; ip++ ) 464 ret( ip, 0 ) = (casa ::Float)(tsys[0][0]) ;464 ret( ip, 0 ) = (casacore::Float)(tsys[0][0]) ; 465 465 } 466 466 else if ( numRec == 2 && npol == 4 && numChan == nchan ) { … … 469 469 ret.resize( npol, nchan ) ; 470 470 for ( unsigned int ic = 0 ; ic < nchan ; ic++ ) { 471 casa ::Float tsysxy = (casa::Float)(0.5*(tsys[0][ic]+tsys[1][ic])) ;472 ret( 0, ic ) = (casa ::Float)(tsys[0][ic]) ;473 ret( 1, ic ) = (casa ::Float)(tsys[1][ic]) ;471 casacore::Float tsysxy = (casacore::Float)(0.5*(tsys[0][ic]+tsys[1][ic])) ; 472 ret( 0, ic ) = (casacore::Float)(tsys[0][ic]) ; 473 ret( 1, ic ) = (casacore::Float)(tsys[1][ic]) ; 474 474 ret( 2, ic ) = tsysxy ; 475 475 ret( 3, ic ) = tsysxy ; … … 480 480 // at the moment Tsys[XY] = 0.5*(Tsys[X]+Tsys[Y]) 481 481 ret.resize( npol, 1 ) ; 482 casa ::Float tsysxy = (casa::Float)(0.5*(tsys[0][0]+tsys[1][0])) ;483 ret( 0, 0 ) = (casa ::Float)(tsys[0][0]) ;484 ret( 1, 0 ) = (casa ::Float)(tsys[1][0]) ;482 casacore::Float tsysxy = (casacore::Float)(0.5*(tsys[0][0]+tsys[1][0])) ; 483 ret( 0, 0 ) = (casacore::Float)(tsys[0][0]) ; 484 ret( 1, 0 ) = (casacore::Float)(tsys[1][0]) ; 485 485 ret( 2, 0 ) = tsysxy ; 486 486 ret( 3, 0 ) = tsysxy ; … … 490 490 for ( unsigned int ip = 0 ; ip < npol ; ip++ ) 491 491 for ( unsigned int ic = 0 ; ic < nchan ; ic++ ) 492 ret( ip, ic ) = (casa ::Float)(tsys[0][ic]) ;492 ret( ip, ic ) = (casacore::Float)(tsys[0][ic]) ; 493 493 } 494 494 return ret ; 495 495 } 496 496 497 Vector<casa ::Float> OldASDMFiller::toVector( vector<float> &tau,497 Vector<casacore::Float> OldASDMFiller::toVector( vector<float> &tau, 498 498 unsigned int npol ) 499 499 { 500 500 String funcName = "toVector" ; 501 501 502 Vector<casa ::Float> ret( npol ) ;502 Vector<casacore::Float> ret( npol ) ; 503 503 //logsink_->postLocally( LogMessage("tau0="+String::toString(tau[0]),LogOrigin(className_,funcName,WHERE)) ) ; 504 504 if ( npol == 4 ) { 505 ret[0] = (casa ::Float)tau[0] ;506 ret[1] = (casa ::Float)tau[1] ;505 ret[0] = (casacore::Float)tau[0] ; 506 ret[1] = (casacore::Float)tau[1] ; 507 507 ret[2] = 0.5 * ( ret[0] + ret[1] ) ; 508 508 ret[3] = ret[2] ; … … 510 510 else if ( npol == tau.size() ) { 511 511 for ( unsigned int ipol = 0 ; ipol < npol ; ipol++ ) 512 ret[ipol] = (casa ::Float)tau[ipol] ;512 ret[ipol] = (casacore::Float)tau[ipol] ; 513 513 } 514 514 else { 515 515 // I don't know how to handle... 516 516 for ( unsigned int ipol = 0 ; ipol < npol ; ipol++ ) 517 ret[ipol] = (casa ::Float)tau[0] ;517 ret[ipol] = (casacore::Float)tau[0] ; 518 518 } 519 519 //logsink_->postLocally( LogMessage("tau="+String::toString(ret),LogOrigin(className_,funcName,WHERE)) ) ; … … 521 521 } 522 522 523 String OldASDMFiller::toTcalTime( casa ::Double mjd )523 String OldASDMFiller::toTcalTime( casacore::Double mjd ) 524 524 { 525 525 return MVTime( mjd ).string( MVTime::YMD ) ; 526 526 } 527 527 528 void OldASDMFiller::toJ2000( Vector<casa ::Double> &dir,528 void OldASDMFiller::toJ2000( Vector<casacore::Double> &dir, 529 529 double az, 530 530 double el, 531 casa ::Double mjd,532 Vector<casa ::Double> antpos )531 casacore::Double mjd, 532 Vector<casacore::Double> antpos ) 533 533 { 534 534 String funcName = "toJ2000" ; 535 535 536 Vector<casa ::Double> azel( 2 ) ;536 Vector<casacore::Double> azel( 2 ) ; 537 537 azel[0] = az ; 538 538 azel[1] = el ; … … 553 553 } 554 554 555 Vector<casa ::Double> OldASDMFiller::toJ2000( Vector<casa::Double> dir,555 Vector<casacore::Double> OldASDMFiller::toJ2000( Vector<casacore::Double> dir, 556 556 String dirref, 557 casa ::Double mjd,558 Vector<casa ::Double> antpos )559 { 560 Vector<casa ::Double> newd( dir ) ;557 casacore::Double mjd, 558 Vector<casacore::Double> antpos ) 559 { 560 Vector<casacore::Double> newd( dir ) ; 561 561 if ( dirref != "J2000" ) { 562 562 MEpoch me( Quantity( mjd, "d" ), MEpoch::UTC ) ; … … 593 593 } 594 594 595 casa ::Double OldASDMFiller::toLSRK( casa::Double freq,595 casacore::Double OldASDMFiller::toLSRK( casacore::Double freq, 596 596 String freqref, 597 casa ::Double utc,598 Vector<casa ::Double> antpos,599 Vector<casa ::Double> dir,597 casacore::Double utc, 598 Vector<casacore::Double> antpos, 599 Vector<casacore::Double> dir, 600 600 String dirref ) 601 601 { … … 603 603 604 604 //logsink_->postLocally( LogMessage("freqref = "+freqref,LogOrigin(className_,funcName,WHERE)) ) ; 605 casa ::Double newf = freq ;605 casacore::Double newf = freq ; 606 606 if ( freqref != "LSRK" ) { 607 MEpoch me( Quantum<casa ::Double>( utc, Unit("d") ), MEpoch::UTC ) ;608 Vector< Quantum<casa ::Double> > antposQ( 3 ) ;607 MEpoch me( Quantum<casacore::Double>( utc, Unit("d") ), MEpoch::UTC ) ; 608 Vector< Quantum<casacore::Double> > antposQ( 3 ) ; 609 609 for ( int i = 0 ; i < 3 ; i++ ) 610 antposQ[i] = Quantum<casa ::Double>( antpos[i], Unit("m") ) ;610 antposQ[i] = Quantum<casacore::Double>( antpos[i], Unit("m") ) ; 611 611 MPosition mp( antposQ, MPosition::ITRF ) ; 612 612 MDirection::Types dirtype ; … … 614 614 if ( !b ) 615 615 dirtype = MDirection::J2000 ; 616 MDirection md( Quantum<casa ::Double>( dir[0], Unit("rad") ),617 Quantum<casa ::Double>( dir[1], Unit("rad") ),616 MDirection md( Quantum<casacore::Double>( dir[0], Unit("rad") ), 617 Quantum<casacore::Double>( dir[1], Unit("rad") ), 618 618 dirtype ) ; 619 619 MeasFrame mf( me, mp, md ) ; … … 624 624 MFrequency::Convert tolsr( freqtype, 625 625 MFrequency::Ref( MFrequency::LSRK, mf ) ) ; 626 newf = tolsr( Quantum<casa ::Double>( freq, Unit("Hz") ) ).get( "Hz" ).getValue() ;626 newf = tolsr( Quantum<casacore::Double>( freq, Unit("Hz") ) ).get( "Hz" ).getValue() ; 627 627 //logsink_->postLocally( LogMessage("freq = "+String::toString(freq)+", newf = "+String::toString(newf),LogOrigin(className_,funcName,WHERE)) ) ; 628 628 }
Note: See TracChangeset
for help on using the changeset viewer.