[daip] CVEL in AIPS

[Eric Greisen]

Ross Burns wrote:

Comments will appear intersersed with your proc

> *******
> *TABED
> *******
> tget tabed
> default
> indisk 2; getn 1; keyword 'arrnam'; keystrng 'vlba'; optype 'key'; 
> aparm (4)=3; inext 'AN';inver 1; outver 1; bcount 1; ecount 0; clro; 
> go; wait 
> *Change array name to VLBA

This will not be needed in 31DEC13 where VERA will mean the same to CVEL.

Comment on proc:

TGET is not needed - say DEFAULT <taskname>

GO; WAIT  will mean that if the task fails your script will go right on 
anyway (which you probably do not want).  Set DOWAIT=true - then the 
task resumes aips when it finishes and can return an error code.  The 
wait is then not needed.

> 
> *******
> *SETJY
> *******
> tget setjy
> default
> indisk 2; getn 1;source 'X_Hya 
> restfreq 2.223e10, 5080000; 
> veltyp 'lsr'; veldef 'radio';
> bif 0; eif 0; 
> aparm (1)=187; 
> sysvel 23.66; 
> go; wait

This is the task with the critical error from Sept 2102 to September 
2013.  The 23.66 was not added into the computed velocity.  A MNJ will fix.

> *******
> *CVEL 
> ******
> tget cvel
> default
> indisk 2; getn 1; outdisk 2;outclass 'CVEL''
> doband -1; gainuse 1; source 'X_Hya
> aparm 187 0; 
> go; wait; pcat
> * Creating a CVEL file. 

The aparm values are not used for a multi-source file and are wrong for 
a single-source file where additional aparm values would have to be set.

Cheers

Eric Greisen