1 0 21-MAY-2014 14:25:56 AIPS default 'FILLM' 1 0 21-MAY-2014 14:26:13 AIPS vlaobs 'AG230' 1 0 21-MAY-2014 14:26:21 AIPS doweight 1 1 0 21-MAY-2014 14:26:30 AIPS nfiles 0; ncount 3 1 0 21-MAY-2014 14:26:41 AIPS datain 'N660:VLA_CCONFIG/AG230_' 1 0 21-MAY-2014 14:26:44 AIPS go fillm 1 5 21-MAY-2014 14:26:44 FILLM Task FILLM (release of 31DEC13) begins 1 4 21-MAY-2014 14:26:44 FILLM ****************************************************** 1 4 21-MAY-2014 14:26:44 FILLM ** Times written by FILLM are now centered in ** 1 4 21-MAY-2014 14:26:44 FILLM ** the integration, before they were at the end ** 1 4 21-MAY-2014 14:26:44 FILLM ****************************************************** 1 4 21-MAY-2014 14:26:44 FILLM Shadow flag limit = 2.500E+01 meters. 1 3 21-MAY-2014 14:26:44 FILLM Opacity correction in CL table weighted average of weather and 1 3 21-MAY-2014 14:26:44 FILLM season. Weight for weather = 0.50 1 3 21-MAY-2014 14:26:44 FILLM **** New opacity model is being used *** 1 3 21-MAY-2014 14:26:44 FILLM Gain curve correction in CL table read from file, 1 3 21-MAY-2014 14:26:44 FILLM with variation as function of antenna and band. 1 3 21-MAY-2014 14:26:44 FILLM Opening N660:VLA_CCONFIG/AG230_1 1 2 21-MAY-2014 14:26:44 FILLM 1 2 21-MAY-2014 14:26:44 FILLM *** ATTENTION - default: loading subarray 1 *** 1 2 21-MAY-2014 14:26:44 FILLM 1 5 21-MAY-2014 14:26:44 FILLM tape file # 1, start date/time = 19861211/23:27:30 1 5 21-MAY-2014 14:26:44 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:26:44 FILLM MCINI - Mode 1A 1 3 21-MAY-2014 14:26:44 FILLM Program = AG230 ; Tape revision number = 12. 1 2 21-MAY-2014 14:26:44 FILLM Create 19861211 .CH 0 . 1 (UV) on disk 1 cno 1 1 4 21-MAY-2014 14:26:44 FILLM Ref. date = 19861211 A-C = 1.420394 B-D = 1.420394 GHz 1 2 21-MAY-2014 14:26:44 FILLM Create 19861211 .LINE . 1 (UV) on disk 1 cno 2 1 4 21-MAY-2014 14:26:44 FILLM Ref. date = 19861211 A-C = 1.420394 B-D = 1.420394 GHz 1 6 21-MAY-2014 14:26:44 FILLM FLMFQ: FQ entry tolerance = 1.611D+02 1 4 21-MAY-2014 14:26:44 FILLM Found 3C10 : 0 3.125 MHz at IAT 0/ 23:27:15.0 1 5 21-MAY-2014 14:26:44 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:26:44 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:26:44 FILLM Ref. date = 19861211 A-C = 1.420394 B-D = 1.420394 GHz 1 4 21-MAY-2014 14:26:44 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:26:44 FILLM Ref. date = 19861211 A-C = 1.420394 B-D = 1.420394 GHz 1 4 21-MAY-2014 14:26:44 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:26:44 FILLM Found 3C10 : 0 3.125 MHz at IAT 0/ 23:27:45.0 1 3 21-MAY-2014 14:26:44 FILLM Zenith opacity of IF 1 set to 0.006 (0.049 at K-band) 1 3 21-MAY-2014 14:26:44 FILLM Trying to access VLA antenna gains file... 1 2 21-MAY-2014 14:26:44 FILLM ZTXOP2: using translated file name = 1 2 21-MAY-2014 14:26:44 FILLM ZTXOP2: /Users/bemmel/Software/AIPS/TEXT/IONS/VLA.GAINS 1 3 21-MAY-2014 14:26:54 FILLM Zenith opacity of IF 1 set to 0.006 (0.052 at K-band) 1 5 21-MAY-2014 14:26:54 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:26:54 FILLM MCINI - Mode 1A localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 9 Pops Prior Date Time Task Messages for user 130 1 4 21-MAY-2014 14:26:54 FILLM Ref. date = 19861211 A-C = 1.416273 B-D = 1.416273 GHz 1 4 21-MAY-2014 14:26:54 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:26:54 FILLM Ref. date = 19861211 A-C = 1.416273 B-D = 1.416273 GHz 1 4 21-MAY-2014 14:26:54 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:26:54 FILLM Found 3C48 : 0 3.125 MHz at IAT 0/ 23:32:15.0 1 3 21-MAY-2014 14:26:54 FILLM Zenith opacity of IF 1 set to 0.006 (0.050 at K-band) 1 5 21-MAY-2014 14:26:54 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:26:54 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:26:54 FILLM Ref. date = 19861211 A-C = 1.420394 B-D = 1.420394 GHz 1 4 21-MAY-2014 14:26:54 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:26:54 FILLM Ref. date = 19861211 A-C = 1.420394 B-D = 1.420394 GHz 1 4 21-MAY-2014 14:26:54 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:26:54 FILLM Found 3C10 : 0 3.125 MHz at IAT 0/ 23:37:45.0 1 5 21-MAY-2014 14:26:54 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:26:54 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:26:54 FILLM Ref. date = 19861211 A-C = 1.416256 B-D = 1.416256 GHz 1 4 21-MAY-2014 14:26:54 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:26:54 FILLM Ref. date = 19861211 A-C = 1.416256 B-D = 1.416256 GHz 1 4 21-MAY-2014 14:26:54 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:26:54 FILLM Found NGC660 : 0 3.125 MHz at IAT 0/ 23:41:45.0 1 3 21-MAY-2014 14:26:54 FILLM Zenith opacity of IF 1 set to 0.006 (0.056 at K-band) 1 4 21-MAY-2014 14:26:54 FILLM Found NGC660 : 0 3.125 MHz at IAT 1/ 00:01:15.0 1 3 21-MAY-2014 14:26:54 FILLM Zenith opacity of IF 1 set to 0.006 (0.049 at K-band) 1 3 21-MAY-2014 14:26:55 FILLM Zenith opacity of IF 1 set to 0.006 (0.051 at K-band) 1 3 21-MAY-2014 14:26:55 FILLM Zenith opacity of IF 1 set to 0.006 (0.048 at K-band) 1 3 21-MAY-2014 14:26:55 FILLM Zenith opacity of IF 1 set to 0.006 (0.051 at K-band) 1 5 21-MAY-2014 14:26:55 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:26:55 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:26:56 FILLM Ref. date = 19861211 A-C = 1.416273 B-D = 1.416273 GHz 1 4 21-MAY-2014 14:26:56 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:26:56 FILLM Ref. date = 19861211 A-C = 1.416273 B-D = 1.416273 GHz 1 4 21-MAY-2014 14:26:56 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:26:56 FILLM Found 3C48 : 0 3.125 MHz at IAT 1/ 00:31:45.0 1 3 21-MAY-2014 14:26:56 FILLM Zenith opacity of IF 1 set to 0.006 (0.048 at K-band) 1 5 21-MAY-2014 14:26:56 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:26:56 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:26:56 FILLM Ref. date = 19861211 A-C = 1.416256 B-D = 1.416256 GHz 1 4 21-MAY-2014 14:26:56 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:26:56 FILLM Ref. date = 19861211 A-C = 1.416256 B-D = 1.416256 GHz 1 4 21-MAY-2014 14:26:56 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:26:56 FILLM Found NGC660 : 0 3.125 MHz at IAT 1/ 00:37:15.0 1 3 21-MAY-2014 14:26:57 FILLM Zenith opacity of IF 1 set to 0.006 (0.046 at K-band) 1 3 21-MAY-2014 14:26:57 FILLM Zenith opacity of IF 1 set to 0.006 (0.058 at K-band) 1 3 21-MAY-2014 14:26:58 FILLM Zenith opacity of IF 1 set to 0.006 (0.046 at K-band) 1 5 21-MAY-2014 14:26:58 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:26:58 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:26:58 FILLM Ref. date = 19861211 A-C = 1.416273 B-D = 1.416273 GHz 1 4 21-MAY-2014 14:26:58 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:26:58 FILLM Ref. date = 19861211 A-C = 1.416273 B-D = 1.416273 GHz 1 4 21-MAY-2014 14:26:58 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:26:58 FILLM Found 3C48 : 0 3.125 MHz at IAT 1/ 01:33:45.0 1 3 21-MAY-2014 14:26:58 FILLM Zenith opacity of IF 1 set to 0.006 (0.062 at K-band) 1 5 21-MAY-2014 14:26:58 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:26:58 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:26:58 FILLM Ref. date = 19861211 A-C = 1.416255 B-D = 1.416255 GHz 1 4 21-MAY-2014 14:26:58 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 10 Pops Prior Date Time Task Messages for user 130 1 4 21-MAY-2014 14:26:58 FILLM Ref. date = 19861211 A-C = 1.416255 B-D = 1.416255 GHz 1 4 21-MAY-2014 14:26:58 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:26:58 FILLM Found NGC660 : 0 3.125 MHz at IAT 1/ 01:39:15.0 1 3 21-MAY-2014 14:26:58 FILLM Zenith opacity of IF 1 set to 0.006 (0.047 at K-band) 1 3 21-MAY-2014 14:26:59 FILLM Opening N660:VLA_CCONFIG/AG230_2 1 3 21-MAY-2014 14:26:59 FILLM Zenith opacity of IF 1 set to 0.006 (0.048 at K-band) 1 5 21-MAY-2014 14:27:00 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:27:00 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:27:00 FILLM Ref. date = 19861211 A-C = 1.416272 B-D = 1.416272 GHz 1 4 21-MAY-2014 14:27:00 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:27:00 FILLM Ref. date = 19861211 A-C = 1.416272 B-D = 1.416272 GHz 1 4 21-MAY-2014 14:27:00 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:27:00 FILLM Found 3C48 : 0 3.125 MHz at IAT 1/ 02:35:15.0 1 5 21-MAY-2014 14:27:00 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:27:00 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:27:00 FILLM Ref. date = 19861211 A-C = 1.416255 B-D = 1.416255 GHz 1 4 21-MAY-2014 14:27:00 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:27:00 FILLM Ref. date = 19861211 A-C = 1.416255 B-D = 1.416255 GHz 1 4 21-MAY-2014 14:27:00 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:27:00 FILLM Found NGC660 : 0 3.125 MHz at IAT 1/ 02:44:15.0 1 3 21-MAY-2014 14:27:01 FILLM Zenith opacity of IF 1 set to 0.006 (0.047 at K-band) 1 3 21-MAY-2014 14:27:02 FILLM Zenith opacity of IF 1 set to 0.006 (0.050 at K-band) 1 3 21-MAY-2014 14:27:02 FILLM Zenith opacity of IF 1 set to 0.006 (0.046 at K-band) 1 5 21-MAY-2014 14:27:02 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:27:02 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:27:02 FILLM Ref. date = 19861211 A-C = 1.416272 B-D = 1.416272 GHz 1 4 21-MAY-2014 14:27:02 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:27:02 FILLM Ref. date = 19861211 A-C = 1.416272 B-D = 1.416272 GHz 1 4 21-MAY-2014 14:27:02 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:27:02 FILLM Found 3C48 : 0 3.125 MHz at IAT 1/ 03:36:45.0 1 5 21-MAY-2014 14:27:02 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:27:02 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:27:02 FILLM Ref. date = 19861211 A-C = 1.416254 B-D = 1.416254 GHz 1 4 21-MAY-2014 14:27:02 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:27:02 FILLM Ref. date = 19861211 A-C = 1.416254 B-D = 1.416254 GHz 1 4 21-MAY-2014 14:27:02 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:27:02 FILLM Found NGC660 : 0 3.125 MHz at IAT 1/ 03:43:45.0 1 3 21-MAY-2014 14:27:03 FILLM Zenith opacity of IF 1 set to 0.006 (0.060 at K-band) 1 3 21-MAY-2014 14:27:03 FILLM Zenith opacity of IF 1 set to 0.006 (0.046 at K-band) 1 3 21-MAY-2014 14:27:03 FILLM Zenith opacity of IF 1 set to 0.006 (0.049 at K-band) 1 3 21-MAY-2014 14:27:03 FILLM Zenith opacity of IF 1 set to 0.006 (0.045 at K-band) 1 3 21-MAY-2014 14:27:04 FILLM Zenith opacity of IF 1 set to 0.006 (0.057 at K-band) 1 5 21-MAY-2014 14:27:04 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:27:04 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:27:04 FILLM Ref. date = 19861211 A-C = 1.416271 B-D = 1.416271 GHz 1 4 21-MAY-2014 14:27:04 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:27:04 FILLM Ref. date = 19861211 A-C = 1.416271 B-D = 1.416271 GHz 1 4 21-MAY-2014 14:27:04 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:27:04 FILLM Found 3C48 : 0 3.125 MHz at IAT 1/ 04:39:15.0 1 3 21-MAY-2014 14:27:04 FILLM Zenith opacity of IF 1 set to 0.006 (0.050 at K-band) 1 3 21-MAY-2014 14:27:04 FILLM Zenith opacity of IF 1 set to 0.006 (0.045 at K-band) 1 5 21-MAY-2014 14:27:04 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:27:04 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:27:04 FILLM Ref. date = 19861211 A-C = 1.416254 B-D = 1.416254 GHz 1 4 21-MAY-2014 14:27:04 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:27:04 FILLM Ref. date = 19861211 A-C = 1.416254 B-D = 1.416254 GHz localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 11 Pops Prior Date Time Task Messages for user 130 1 4 21-MAY-2014 14:27:04 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:27:04 FILLM Found NGC660 : 0 3.125 MHz at IAT 1/ 04:44:45.0 1 3 21-MAY-2014 14:27:04 FILLM Zenith opacity of IF 1 set to 0.006 (0.059 at K-band) 1 3 21-MAY-2014 14:27:04 FILLM Zenith opacity of IF 1 set to 0.006 (0.045 at K-band) 1 5 21-MAY-2014 14:27:06 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:27:06 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:27:06 FILLM Ref. date = 19861211 A-C = 1.416271 B-D = 1.416271 GHz 1 4 21-MAY-2014 14:27:06 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:27:06 FILLM Ref. date = 19861211 A-C = 1.416271 B-D = 1.416271 GHz 1 4 21-MAY-2014 14:27:06 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:27:06 FILLM Found 3C48 : 0 3.125 MHz at IAT 1/ 05:40:15.0 1 5 21-MAY-2014 14:27:06 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:27:06 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:27:06 FILLM Ref. date = 19861211 A-C = 1.416253 B-D = 1.416253 GHz 1 4 21-MAY-2014 14:27:06 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:27:06 FILLM Ref. date = 19861211 A-C = 1.416253 B-D = 1.416253 GHz 1 4 21-MAY-2014 14:27:06 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:27:06 FILLM Found NGC660 : 0 3.125 MHz at IAT 1/ 05:45:45.0 1 3 21-MAY-2014 14:27:08 FILLM Zenith opacity of IF 1 set to 0.006 (0.049 at K-band) 1 5 21-MAY-2014 14:27:08 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:27:08 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:27:08 FILLM Ref. date = 19861211 A-C = 1.416270 B-D = 1.416270 GHz 1 4 21-MAY-2014 14:27:08 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:27:08 FILLM Ref. date = 19861211 A-C = 1.416270 B-D = 1.416270 GHz 1 4 21-MAY-2014 14:27:08 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:27:08 FILLM Found 3C48 : 0 3.125 MHz at IAT 1/ 06:41:45.0 1 3 21-MAY-2014 14:27:08 FILLM Zenith opacity of IF 1 set to 0.006 (0.046 at K-band) 1 5 21-MAY-2014 14:27:08 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:27:08 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:27:08 FILLM Ref. date = 19861211 A-C = 1.416253 B-D = 1.416253 GHz 1 4 21-MAY-2014 14:27:08 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:27:08 FILLM Ref. date = 19861211 A-C = 1.416253 B-D = 1.416253 GHz 1 4 21-MAY-2014 14:27:08 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:27:08 FILLM Found NGC660 : 0 3.125 MHz at IAT 1/ 06:47:15.0 1 3 21-MAY-2014 14:27:10 FILLM Zenith opacity of IF 1 set to 0.006 (0.051 at K-band) 1 3 21-MAY-2014 14:27:10 FILLM Zenith opacity of IF 1 set to 0.006 (0.046 at K-band) 1 3 21-MAY-2014 14:27:10 FILLM Opening N660:VLA_CCONFIG/AG230_3 1 3 21-MAY-2014 14:27:10 FILLM Zenith opacity of IF 1 set to 0.006 (0.053 at K-band) 1 3 21-MAY-2014 14:27:10 FILLM Zenith opacity of IF 1 set to 0.006 (0.048 at K-band) 1 3 21-MAY-2014 14:27:10 FILLM Zenith opacity of IF 1 set to 0.006 (0.045 at K-band) 1 5 21-MAY-2014 14:27:11 FILLM MCINI: Processing Correlator Code '4A ' with 25 antennas. 1 3 21-MAY-2014 14:27:11 FILLM MCINI - Mode 1A 1 4 21-MAY-2014 14:27:11 FILLM Ref. date = 19861211 A-C = 1.416270 B-D = 1.416270 GHz 1 4 21-MAY-2014 14:27:11 FILLM Appending new data to: 19861211 .CH 0 . 1 disk 1 1 4 21-MAY-2014 14:27:11 FILLM Ref. date = 19861211 A-C = 1.416270 B-D = 1.416270 GHz 1 4 21-MAY-2014 14:27:11 FILLM Appending new data to: 19861211 .LINE . 1 disk 1 1 4 21-MAY-2014 14:27:11 FILLM Found 3C48 : 0 3.125 MHz at IAT 1/ 07:43:15.0 1 5 21-MAY-2014 14:27:11 FILLM Read 269903 visibilities from 3 files 1 3 21-MAY-2014 14:27:11 FILLM Appears to have ended successfully 1 5 21-MAY-2014 14:27:11 FILLM localhos 31DEC13 TST: Cpu= 4.8 Real= 27 IO= 210 1 2 21-MAY-2014 14:27:11 AIPS Resumes 1 0 21-MAY-2014 14:27:15 AIPS pcat 1 0 21-MAY-2014 14:27:31 AIPS task 'LISTR' 1 0 21-MAY-2014 14:27:34 AIPS optyp 'SCAN' 1 0 21-MAY-2014 14:27:37 AIPS docrt 1 1 0 21-MAY-2014 14:27:41 AIPS go localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 12 Pops Prior Date Time Task Messages for user 130 1 5 21-MAY-2014 14:27:41 LISTR Task LISTR (release of 31DEC13) begins 1 8 21-MAY-2014 14:27:41 LISTR ERROR 5 FINDING N660_CONT .LINE . 1 DISK= 1 USID= 130 1 3 21-MAY-2014 14:27:41 LISTR Purports to die of UNNATURAL causes 1 5 21-MAY-2014 14:27:41 LISTR localhost 31DEC13 TST: Cpu= 0.0 Real= 0 1 2 21-MAY-2014 14:27:41 AIPS Resumes 1 9 21-MAY-2014 14:27:41 AIPS RETURN CODE 5 RECEIVED: STOPPING 1 0 21-MAY-2014 14:27:47 AIPS getn 1 1 2 21-MAY-2014 14:27:47 AIPS Got(1) disk= 1 user= 130 type=UV 19861211.CH 0.1 1 0 21-MAY-2014 14:27:49 AIPS go listr 1 5 21-MAY-2014 14:27:49 LISTR Task LISTR (release of 31DEC13) begins 1 3 21-MAY-2014 14:27:49 LISTR Appears to have ended successfully 1 5 21-MAY-2014 14:27:49 LISTR localhost 31DEC13 TST: Cpu= 0.0 Real= 0 1 2 21-MAY-2014 14:27:49 AIPS Resumes 1 0 21-MAY-2014 14:28:18 AIPS getn 1 1 2 21-MAY-2014 14:28:18 AIPS Got(1) disk= 1 user= 130 type=UV 19861211.CH 0.1 1 0 21-MAY-2014 14:28:22 AIPS task 'SETJY' 1 0 21-MAY-2014 14:28:23 AIPS inp 1 0 21-MAY-2014 14:28:30 AIPS OPTYp 'CALC' 1 0 21-MAY-2014 14:28:33 AIPS default 'SETJY' 1 0 21-MAY-2014 14:28:35 AIPS getn 1 1 2 21-MAY-2014 14:28:35 AIPS Got(1) disk= 1 user= 130 type=UV 19861211.CH 0.1 1 0 21-MAY-2014 14:28:37 AIPS optyp 'CALC' 1 0 21-MAY-2014 14:28:47 AIPS source '3C48','' 1 0 21-MAY-2014 14:28:53 AIPS inp setjy 1 0 21-MAY-2014 14:28:56 AIPS 1 0 21-MAY-2014 14:28:58 AIPS go setjy 1 5 21-MAY-2014 14:28:58 SETJY Task SETJY (release of 31DEC13) begins 1 6 21-MAY-2014 14:28:58 SETJY **WARNING: OPCODE=CALC AND FREQID = -1 1 6 21-MAY-2014 14:28:58 SETJY FREQID WILL BE RESET TO 1, CHECK YOUR RESULTS CAREFULLY 1 6 21-MAY-2014 14:28:58 SETJY FQMATC: Setting FQ id number = 1 1 5 21-MAY-2014 14:28:58 SETJY A source model for this calibrator is available 1 5 21-MAY-2014 14:28:58 SETJY Consult the help file for CALRD for assistance 1 2 21-MAY-2014 14:28:58 SETJY / Flux calculated using known spectrum 1 2 21-MAY-2014 14:28:58 SETJY BIF = 1 EIF = 1 / Range of IFs 1 2 21-MAY-2014 14:28:58 SETJY Using Perley-Butler time dep coefficients 1 2 21-MAY-2014 14:28:58 SETJY FREQ( 1) = 1.420394 GHz 1 2 21-MAY-2014 14:28:58 SETJY '3C48 ' IF = 1 flux =16.4450 (Jy calcd) 1 2 21-MAY-2014 14:28:58 SETJY SPECINDX= -0.7582 / spectral index 1 2 21-MAY-2014 14:28:58 SETJY SPECURVE= -0.1896 0.0503 0.0000 / spectral curvature 1 2 21-MAY-2014 14:28:58 SETJY Previous coefficients Perley-Butler (2010) 1 2 21-MAY-2014 14:28:58 SETJY FLUXES HAVE CHANGED since last version by <= 2.6 percent 1 3 21-MAY-2014 14:28:58 SETJY Appears to have ended successfully 1 5 21-MAY-2014 14:28:58 SETJY localhost 31DEC13 TST: Cpu= 0.0 Real= 0 1 2 21-MAY-2014 14:28:58 AIPS Resumes 1 0 21-MAY-2014 14:29:04 AIPS restore 0 1 0 21-MAY-2014 14:29:08 AIPS run vlaprocs 1 2 21-MAY-2014 14:29:08 AIPS $--------------------------------------------------------------- 1 2 21-MAY-2014 14:29:08 AIPS $! RUN file to prepare to test performance of AIPS tasks on data 1 2 21-MAY-2014 14:29:08 AIPS $# Run POPS 1 2 21-MAY-2014 14:29:08 AIPS $----------------------------------------------------------------------- 1 2 21-MAY-2014 14:29:08 AIPS $; Copyright (C) 1995-1997; 2001-2002; 2006-2008; 2011 1 2 21-MAY-2014 14:29:08 AIPS $; Associated Universities, Inc. Washington DC, USA. 1 2 21-MAY-2014 14:29:08 AIPS $; 1 2 21-MAY-2014 14:29:08 AIPS $; This program is free software; you can redistribute it and/or 1 2 21-MAY-2014 14:29:08 AIPS $; modify it under the terms of the GNU General Public License as 1 2 21-MAY-2014 14:29:08 AIPS $; published by the Free Software Foundation; either version 2 of localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 13 Pops Prior Date Time Task Messages for user 130 1 2 21-MAY-2014 14:29:08 AIPS $; the License, or (at your option) any later version. 1 2 21-MAY-2014 14:29:08 AIPS $; 1 2 21-MAY-2014 14:29:08 AIPS $; This program is distributed in the hope that it will be useful, 1 2 21-MAY-2014 14:29:08 AIPS $; but WITHOUT ANY WARRANTY; without even the implied warranty of 1 2 21-MAY-2014 14:29:08 AIPS $; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 1 2 21-MAY-2014 14:29:08 AIPS $; GNU General Public License for more details. 1 2 21-MAY-2014 14:29:08 AIPS $; 1 2 21-MAY-2014 14:29:08 AIPS $; You should have received a copy of the GNU General Public 1 2 21-MAY-2014 14:29:08 AIPS $; License along with this program; if not, write to the Free 1 2 21-MAY-2014 14:29:08 AIPS $; Software Foundation, Inc., 675 Massachusetts Ave, Cambridge, 1 2 21-MAY-2014 14:29:08 AIPS $; MA 02139, USA. 1 2 21-MAY-2014 14:29:08 AIPS $; 1 2 21-MAY-2014 14:29:08 AIPS $; Correspondence concerning AIPS should be addressed as follows: 1 2 21-MAY-2014 14:29:08 AIPS $; Internet email: aipsmail@nrao.edu. 1 2 21-MAY-2014 14:29:08 AIPS $; Postal address: AIPS Project Office 1 2 21-MAY-2014 14:29:08 AIPS $; National Radio Astronomy Observatory 1 2 21-MAY-2014 14:29:08 AIPS $; 520 Edgemont Road 1 2 21-MAY-2014 14:29:08 AIPS $; Charlottesville, VA 22903-2475 USA 1 2 21-MAY-2014 14:29:08 AIPS $----------------------------------------------------------------------- 1 2 21-MAY-2014 14:29:08 AIPS * VLA Calibration procedures 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS * Dummy procedure to define adverbs 1 2 21-MAY-2014 14:29:08 AIPS PROC VLADUMMY 1 2 21-MAY-2014 14:29:08 AIPS SCALAR DOLISTR, DOPRINT, SNVER, VBA_WAIT, VLAERR 1 2 21-MAY-2014 14:29:08 AIPS STRING*16 VBA_KEYS, VBA_DATE, VLA_OBJ 1 2 21-MAY-2014 14:29:08 AIPS ARRAY VBA_KEYV(2) 1 2 21-MAY-2014 14:29:08 AIPS STRING*8 VBA_TASK, VBA_TTSK, VBA_KEYW 1 2 21-MAY-2014 14:29:08 AIPS STRING*2 VBA_TYPE 1 2 21-MAY-2014 14:29:08 AIPS RETURN 1 2 21-MAY-2014 14:29:08 AIPS FINISH 1 2 21-MAY-2014 14:29:08 AIPS * Initilalize 1 2 21-MAY-2014 14:29:08 AIPS minamper 10; minphser 10 1 2 21-MAY-2014 14:29:08 AIPS dolistr 1; doprint 1 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS PROCEDURE RUNWAIT (VBA_TASK) 1 2 21-MAY-2014 14:29:08 AIPS *--------------------------------------------------------------- 1 2 21-MAY-2014 14:29:08 AIPS * Runs VBA_TASK and waits for it to complete regardless of the 1 2 21-MAY-2014 14:29:08 AIPS * value of DOWAIT. 1 2 21-MAY-2014 14:29:08 AIPS * Inputs: 1 2 21-MAY-2014 14:29:08 AIPS * VBA_TASK name of task 1 2 21-MAY-2014 14:29:08 AIPS *--------------------------------------------------------------- 1 2 21-MAY-2014 14:29:08 AIPS VBA_WAIT = DOWAIT 1 2 21-MAY-2014 14:29:08 AIPS DOWAIT = TRUE 1 2 21-MAY-2014 14:29:08 AIPS VBA_TTSK = TASK 1 2 21-MAY-2014 14:29:08 AIPS TASK = VBA_TASK 1 2 21-MAY-2014 14:29:08 AIPS GO 1 2 21-MAY-2014 14:29:08 AIPS DOWAIT = VBA_WAIT 1 2 21-MAY-2014 14:29:08 AIPS TASK = VBA_TTSK 1 2 21-MAY-2014 14:29:08 AIPS RETURN 1 2 21-MAY-2014 14:29:08 AIPS FINISH 1 2 21-MAY-2014 14:29:08 AIPS PROCEDURE MAXTAB (VBA_TYPE) 1 2 21-MAY-2014 14:29:08 AIPS *--------------------------------------------------------------- 1 2 21-MAY-2014 14:29:08 AIPS * Return the highest version number of a table of type 1 2 21-MAY-2014 14:29:08 AIPS * VBA_TYPE attached to the specified file. 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS * Inputs: localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 14 Pops Prior Date Time Task Messages for user 130 1 2 21-MAY-2014 14:29:08 AIPS * VBA_TYPE Table type 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS * Adverbs: 1 2 21-MAY-2014 14:29:08 AIPS * USERID User ID 1 2 21-MAY-2014 14:29:08 AIPS * INNAME File name 1 2 21-MAY-2014 14:29:08 AIPS * INCLASS File class 1 2 21-MAY-2014 14:29:08 AIPS * INSEQ File sequence number 1 2 21-MAY-2014 14:29:08 AIPS * INDISK File disk number 1 2 21-MAY-2014 14:29:08 AIPS *--------------------------------------------------------------- 1 2 21-MAY-2014 14:29:08 AIPS SCALAR VBA_SLOT 1 2 21-MAY-2014 14:29:08 AIPS SCALAR VBA_VERS 1 2 21-MAY-2014 14:29:08 AIPS *--------------------------------------------------------------- 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS * Save adverb values 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS VBA_KEYW = KEYWORD 1 2 21-MAY-2014 14:29:08 AIPS VBA_KEYV = KEYVALUE 1 2 21-MAY-2014 14:29:08 AIPS VBA_KEYS = KEYSTRNG 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS VBA_SLOT = 0 1 2 21-MAY-2014 14:29:08 AIPS KEYSTRNG = ' ' 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS * Invariant: KEYSTRNG <> VBA_TYPE implies that no of the first 1 2 21-MAY-2014 14:29:08 AIPS * VBA_SLOT tables has type VBA_TYPE 1 2 21-MAY-2014 14:29:08 AIPS * Bound: 50 - VBA_SLOT 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS WHILE VBA_SLOT <> 50 & KEYSTRNG <> VBA_TYPE 1 2 21-MAY-2014 14:29:08 AIPS VBA_SLOT = VBA_SLOT + 1 1 2 21-MAY-2014 14:29:08 AIPS KEYWORD = 'EXTYPE' !! CHAR(VBA_SLOT) 1 2 21-MAY-2014 14:29:08 AIPS GETHEAD 1 2 21-MAY-2014 14:29:08 AIPS END 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS * If KEYSTRNG = VBA_TYPE then VBA_SLOT is the index for table 1 2 21-MAY-2014 14:29:08 AIPS * type VBA_TYPE in the file header otherwise there are no 1 2 21-MAY-2014 14:29:08 AIPS * tables of type VBA_TYPE. 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS IF KEYSTRNG = VBA_TYPE THEN 1 2 21-MAY-2014 14:29:08 AIPS KEYWORD = 'EXTVER' !! CHAR(VBA_SLOT) 1 2 21-MAY-2014 14:29:08 AIPS GETHEAD 1 2 21-MAY-2014 14:29:08 AIPS ELSE 1 2 21-MAY-2014 14:29:08 AIPS KEYVALUE(1) = 0 1 2 21-MAY-2014 14:29:08 AIPS END 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS VBA_VER = KEYVALUE(1) 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS * Restore saved adverbs 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS KEYWORD = VBA_KEYW 1 2 21-MAY-2014 14:29:08 AIPS KEYVALUE = VBA_KEYV 1 2 21-MAY-2014 14:29:08 AIPS KEYSTRNG = VBA_KEYS 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS RETURN VBA_VER 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS FINISH 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS PROCEDURE VLACKMOD localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 15 Pops Prior Date Time Task Messages for user 130 1 2 21-MAY-2014 14:29:08 AIPS * used in VLALDMOD 1 2 21-MAY-2014 14:29:08 AIPS error=0;sysout='';sys2com'' 1 2 21-MAY-2014 14:29:08 AIPS syscom'ls -1 $AIPSTARS/ 1 2 21-MAY-2014 14:29:08 AIPS sys2com(1) inname!!'.MODEL' 1 2 21-MAY-2014 14:29:08 AIPS sys2com(2) ' >& /dev/null 1 2 21-MAY-2014 14:29:08 AIPS system 1 2 21-MAY-2014 14:29:08 AIPS return 1 2 21-MAY-2014 14:29:08 AIPS finish 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS PROCEDURE VLACKOBJ 1 2 21-MAY-2014 14:29:08 AIPS * used in VLALDMOD 1 2 21-MAY-2014 14:29:08 AIPS if (((vla_obj='1331+305') ! (vla_obj='1328+307')) ! (vla_obj='J1331+3030')) 1 2 21-MAY-2014 14:29:08 AIPS then; vla_obj='3C286';end 1 2 21-MAY-2014 14:29:08 AIPS if (((vla_obj='0137+331') ! (vla_obj='0134+329')) ! (vla_obj='J0137+3309')) 1 2 21-MAY-2014 14:29:08 AIPS then; vla_obj='3C48';end 1 2 21-MAY-2014 14:29:08 AIPS if (((vla_obj='0521+166') ! (vla_obj='0518+165')) ! (vla_obj='J0521+1638')) 1 2 21-MAY-2014 14:29:08 AIPS then; vla_obj='3C138';end 1 2 21-MAY-2014 14:29:08 AIPS if (((vla_obj='0542+498') ! (vla_obj='0538+498')) ! (vla_obj='J0542+4951')) 1 2 21-MAY-2014 14:29:08 AIPS then; vla_obj='3C147';end 1 2 21-MAY-2014 14:29:08 AIPS if (((vla_obj='1411+522') ! (vla_obj='1409+524')) ! (vla_obj='J1411+5212')) 1 2 21-MAY-2014 14:29:08 AIPS then; vla_obj='3C295';end;clrtemp;return 1 2 21-MAY-2014 14:29:08 AIPS finish 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS PROCEDURE VLABAND 1 2 21-MAY-2014 14:29:08 AIPS * used in VLALDMOD 1 2 21-MAY-2014 14:29:08 AIPS band='';j=1 1 2 21-MAY-2014 14:29:08 AIPS while (j<9) 1 2 21-MAY-2014 14:29:08 AIPS keyword='CTYPE'!!char(j);gethead;keyword='CRVAL'!!char(j);clrtemp 1 2 21-MAY-2014 14:29:08 AIPS if (keystrng='FREQ') then;gethead;j=9;else;j=j+1;end;end 1 2 21-MAY-2014 14:29:08 AIPS keyvalue(1)=keyvalue(1)/1e9; 1 2 21-MAY-2014 14:29:08 AIPS if ( (keyvalue(1)>38) & (keyvalue(1)<51) ) then; band='Q';end 1 2 21-MAY-2014 14:29:08 AIPS if ( (keyvalue(1)>20.4) & (keyvalue(1)<25.5) ) then; band='K';end 1 2 21-MAY-2014 14:29:08 AIPS if ( (keyvalue(1)>13.5) & (keyvalue(1)<16.3) ) then; band='U';end 1 2 21-MAY-2014 14:29:08 AIPS if ( (keyvalue(1)> 6.8) & (keyvalue(1)< 9.6) ) then; band='X';end 1 2 21-MAY-2014 14:29:08 AIPS if ( (keyvalue(1)> 4.2) & (keyvalue(1)< 5.1) ) then; band='C';end 1 2 21-MAY-2014 14:29:08 AIPS if ( (keyvalue(1)> 1.15) & (keyvalue(1)< 1.75) ) then; band='L';end 1 2 21-MAY-2014 14:29:08 AIPS if ( (keyvalue(1)>0.298) & (keyvalue(1)<0.345) ) then; band='P';end 1 2 21-MAY-2014 14:29:08 AIPS if ( (keyvalue(1)>0.072) & (keyvalue(1)<0.076) ) then; band='4';end;clrtemp 1 2 21-MAY-2014 14:29:08 AIPS return 1 2 21-MAY-2014 14:29:08 AIPS finish 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS PROCEDURE VLALDMOD 1 2 21-MAY-2014 14:29:08 AIPS * Procedure to load a flux calibrator model if one exists 1 2 21-MAY-2014 14:29:08 AIPS * similar but not identical to loadmodl in VLARUN 1 2 21-MAY-2014 14:29:08 AIPS * used in VLACALIB 1 2 21-MAY-2014 14:29:08 AIPS scalar vla1950 1 2 21-MAY-2014 14:29:08 AIPS vla1950=-1 1 2 21-MAY-2014 14:29:08 AIPS keyword'EPOCH';keyvalue=0;keystrng='';gethead 1 2 21-MAY-2014 14:29:08 AIPS if (keyvalue(1)<1999) then;vla1950=1;end 1 2 21-MAY-2014 14:29:08 AIPS vlaband; vlackobj;clrtemp; 1 2 21-MAY-2014 14:29:08 AIPS if(substr(vla_obj,1,2)='3C')then 1 2 21-MAY-2014 14:29:08 AIPS inname=vla_obj!!'_'!!band;inclass'MODEL';intype'MA'; inseq 0; vlackmod 1 2 21-MAY-2014 14:29:08 AIPS if(error<1) then 1 2 21-MAY-2014 14:29:08 AIPS outdisk=indisk; object=vla_obj; go calrd; 1 2 21-MAY-2014 14:29:08 AIPS if (vla1950) then;eposwtch;end 1 2 21-MAY-2014 14:29:08 AIPS end localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 16 Pops Prior Date Time Task Messages for user 130 1 2 21-MAY-2014 14:29:08 AIPS else 1 2 21-MAY-2014 14:29:08 AIPS error=1 1 2 21-MAY-2014 14:29:08 AIPS end 1 2 21-MAY-2014 14:29:08 AIPS return 1 2 21-MAY-2014 14:29:08 AIPS finish 1 2 21-MAY-2014 14:29:08 AIPS * 1 2 21-MAY-2014 14:29:08 AIPS PROC VLACALIB 1 2 21-MAY-2014 14:29:08 AIPS * Procedure to run CALIB listing closure errors and solutions 1 2 21-MAY-2014 14:29:08 AIPS * rewritten by Amy Mioduszewski 1 2 21-MAY-2014 14:29:08 AIPS * Save inputs 1 2 21-MAY-2014 14:29:08 AIPS scalar olddowait, vlamod 1 2 21-MAY-2014 14:29:08 AIPS olddowait=dowait 1 2 21-MAY-2014 14:29:08 AIPS dowait=1 1 2 21-MAY-2014 14:29:08 AIPS vlamod=-1 1 2 21-MAY-2014 14:29:08 AIPS tput vlacalib 1 2 21-MAY-2014 14:29:08 AIPS * If there is one CALSOUR and it is a standard flux calibrator 1 2 21-MAY-2014 14:29:08 AIPS * then use model if available 1 2 21-MAY-2014 14:29:08 AIPS if((calsour(2)='')&(uvra(1)=0)&(uvra(2)=0)&(ante(1)=0))then 1 2 21-MAY-2014 14:29:08 AIPS vla_obj=calsour(1); vlaldmod 1 2 21-MAY-2014 14:29:08 AIPS if(error<1) then; vlamod=1;end 1 2 21-MAY-2014 14:29:08 AIPS end 1 2 21-MAY-2014 14:29:08 AIPS * Defaults for most CALIB adverbs. 1 2 21-MAY-2014 14:29:08 AIPS default calib;tget vlacalib;task 'CALIB' 1 2 21-MAY-2014 14:29:08 AIPS bchan 1;echan 0; aparm 4,0;solmode 'A&P' 1 2 21-MAY-2014 14:29:08 AIPS aparm(6)=2; cparm 0, 0, minamper/10, minphser/10, 1, 0 1 2 21-MAY-2014 14:29:08 AIPS if(vlamod=1)then 1 2 21-MAY-2014 14:29:08 AIPS in2na=vla_obj!!'_'!!band;in2class'MODEL';in2seq=0;in2di=indi 1 2 21-MAY-2014 14:29:08 AIPS end 1 2 21-MAY-2014 14:29:08 AIPS * Run CALIB and print messages 1 2 21-MAY-2014 14:29:08 AIPS if (DOPRINT<=0) then; go;end 1 2 21-MAY-2014 14:29:08 AIPS if (DOPRINT>0)then 1 2 21-MAY-2014 14:29:08 AIPS docrt -1; prnum 0; prta 'AIPS';clrm;inputs vlacalib 1 2 21-MAY-2014 14:29:08 AIPS prta task; clrm; go; prta 'AIPS'; prtm; prta task; prtm 1 2 21-MAY-2014 14:29:08 AIPS prta '' 1 2 21-MAY-2014 14:29:08 AIPS end 1 2 21-MAY-2014 14:29:08 AIPS * Run LISTR to print SN table 1 2 21-MAY-2014 14:29:08 AIPS if (DOPRINT>0) THEN 1 2 21-MAY-2014 14:29:08 AIPS task 'LISTR';default;tget vlacalib;task 'LISTR' 1 2 21-MAY-2014 14:29:08 AIPS docrt=-1 1 2 21-MAY-2014 14:29:08 AIPS opty 'GAIN'; inext 'SN'; bif 1;eif 2; stokes 'HALF' 1 2 21-MAY-2014 14:29:08 AIPS dparm 5 1 0;go 1 2 21-MAY-2014 14:29:08 AIPS end 1 2 21-MAY-2014 14:29:08 AIPS tget vlacalib 1 2 21-MAY-2014 14:29:08 AIPS if (SNVER=0) then 1 2 21-MAY-2014 14:29:09 AIPS print '!! SNVER=0 => GENERATED A NEW SN TABLE' 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS dowait=olddowait 1 2 21-MAY-2014 14:29:09 AIPS return;finish 1 2 21-MAY-2014 14:29:09 AIPS * 1 2 21-MAY-2014 14:29:09 AIPS PROC VLARESET 1 2 21-MAY-2014 14:29:09 AIPS * Procedure to reset calibration; delete all SN and CL tables 1 2 21-MAY-2014 14:29:09 AIPS * higher than ver 1. 1 2 21-MAY-2014 14:29:09 AIPS i 0; j 0; tput vlareset 1 2 21-MAY-2014 14:29:09 AIPS for x=1:10; keyw 'EXTYPE'!!char(x); geth 1 2 21-MAY-2014 14:29:09 AIPS if 'CL'=keystr then keyw 'EXTVER'!!char(x);geth; 1 2 21-MAY-2014 14:29:09 AIPS j = keyval(1); end localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 17 Pops Prior Date Time Task Messages for user 130 1 2 21-MAY-2014 14:29:09 AIPS if 'SN'=keystr then keyw 'EXTVER'!!char(x);geth; 1 2 21-MAY-2014 14:29:09 AIPS i = keyval(1); end; end 1 2 21-MAY-2014 14:29:09 AIPS if i>0 then inex 'SN'; inver -1; extd; end 1 2 21-MAY-2014 14:29:09 AIPS inext 'CL' 1 2 21-MAY-2014 14:29:09 AIPS if j>1 then for inver=2:J; extd; end; inver 0; end 1 2 21-MAY-2014 14:29:09 AIPS return;finish 1 2 21-MAY-2014 14:29:09 AIPS * 1 2 21-MAY-2014 14:29:09 AIPS PROC VLACLCAL 1 2 21-MAY-2014 14:29:09 AIPS * Procedure to run CLCAL followed by LISTR to list CL table. 1 2 21-MAY-2014 14:29:09 AIPS * rewritten by Amy Mioduszewski 1 2 21-MAY-2014 14:29:09 AIPS * Save inputs 1 2 21-MAY-2014 14:29:09 AIPS scalar olddowait 1 2 21-MAY-2014 14:29:09 AIPS olddowait=dowait 1 2 21-MAY-2014 14:29:09 AIPS dowait=1 1 2 21-MAY-2014 14:29:09 AIPS tput vlaclcal 1 2 21-MAY-2014 14:29:09 AIPS * Set CLCAL adverbs 1 2 21-MAY-2014 14:29:09 AIPS task 'CLCAL';default;tget VLACLCAL;task 'CLCAL' 1 2 21-MAY-2014 14:29:09 AIPS opcode 'CALI'; cutoff=0;go 1 2 21-MAY-2014 14:29:09 AIPS * Run CLCAL and print messages 1 2 21-MAY-2014 14:29:09 AIPS * if (DOPRINT<=0) then; go;end 1 2 21-MAY-2014 14:29:09 AIPS * if (DOPRINT>0)then 1 2 21-MAY-2014 14:29:09 AIPS * docrt -1; prnum 0; prta task; clrm; go; prtm; prta '' 1 2 21-MAY-2014 14:29:09 AIPS * end 1 2 21-MAY-2014 14:29:09 AIPS * Run LISTR to print CL table 1 2 21-MAY-2014 14:29:09 AIPS if (DOPRINT>0) THEN 1 2 21-MAY-2014 14:29:09 AIPS task 'LISTR';default;tget vlaclcal;task 'LISTR' 1 2 21-MAY-2014 14:29:09 AIPS opty 'GAIN'; inext 'CL'; inver gainuse; sources '' 1 2 21-MAY-2014 14:29:09 AIPS docrt -1;bif 1;eif 2; stokes 'HALF'; dparm 5 1 0;go 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS tget vlaclcal 1 2 21-MAY-2014 14:29:09 AIPS dowait=olddowait 1 2 21-MAY-2014 14:29:09 AIPS return;finish 1 2 21-MAY-2014 14:29:09 AIPS PROC VLASUMM 1 2 21-MAY-2014 14:29:09 AIPS *--------------------------------------------------------------- 1 2 21-MAY-2014 14:29:09 AIPS * Plots an AN or CL table versus time 1 2 21-MAY-2014 14:29:09 AIPS * 1 2 21-MAY-2014 14:29:09 AIPS * Inputs: 1 2 21-MAY-2014 14:29:09 AIPS * INNAME input file name 1 2 21-MAY-2014 14:29:09 AIPS * INCLASS input file class 1 2 21-MAY-2014 14:29:09 AIPS * INSEQ input file sequence number 1 2 21-MAY-2014 14:29:09 AIPS * INDISK input file disk number 1 2 21-MAY-2014 14:29:09 AIPS * INEXT table to be plotted 1 2 21-MAY-2014 14:29:09 AIPS * INVERS table number to be plotted 1 2 21-MAY-2014 14:29:09 AIPS * STOKES stokes to plot 1 2 21-MAY-2014 14:29:09 AIPS * SUBARRAY subarray number 1 2 21-MAY-2014 14:29:09 AIPS * DOCRT print to screen? 1 2 21-MAY-2014 14:29:09 AIPS * OUTPRINT print to file 1 2 21-MAY-2014 14:29:09 AIPS * 1 2 21-MAY-2014 14:29:09 AIPS * This is identical to VLBASUMM which is part of VLBAUTIL 1 2 21-MAY-2014 14:29:09 AIPS *--------------------------------------------------------------- 1 2 21-MAY-2014 14:29:09 AIPS tput vlasumm 1 2 21-MAY-2014 14:29:09 AIPS scalar vba_ant 1 2 21-MAY-2014 14:29:09 AIPS vba_ant=maxtab('AN') 1 2 21-MAY-2014 14:29:09 AIPS task 'PRTAN'; default; tget vlasumm; task 'PRTAN' 1 2 21-MAY-2014 14:29:09 AIPS for i=1 to vba_ant 1 2 21-MAY-2014 14:29:09 AIPS invers i; runwait('PRTAN') localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 18 Pops Prior Date Time Task Messages for user 130 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS task 'LISTR'; default; tget vlasumm; task 'LISTR';optype 'SCAN' 1 2 21-MAY-2014 14:29:09 AIPS runwait('LISTR') 1 2 21-MAY-2014 14:29:09 AIPS tget vlasumm 1 2 21-MAY-2014 14:29:09 AIPS return; finish 1 2 21-MAY-2014 14:29:09 AIPS PROCEDURE MAXTAB (VBA_TYPE) 1 2 21-MAY-2014 14:29:09 AIPS *----------------------------------------------------------------------- 1 2 21-MAY-2014 14:29:09 AIPS * Return the highest version number of a table of type VBA_TYPE 1 2 21-MAY-2014 14:29:09 AIPS * attached to the specified file. 1 2 21-MAY-2014 14:29:09 AIPS * 1 2 21-MAY-2014 14:29:09 AIPS * Inputs: 1 2 21-MAY-2014 14:29:09 AIPS * VBA_TYPE Table type 1 2 21-MAY-2014 14:29:09 AIPS * 1 2 21-MAY-2014 14:29:09 AIPS * Adverbs: 1 2 21-MAY-2014 14:29:09 AIPS * USERID User ID 1 2 21-MAY-2014 14:29:09 AIPS * INNAME File name 1 2 21-MAY-2014 14:29:09 AIPS * INCLASS File class 1 2 21-MAY-2014 14:29:09 AIPS * INSEQ File sequence number 1 2 21-MAY-2014 14:29:09 AIPS * INDISK File disk number 1 2 21-MAY-2014 14:29:09 AIPS *----------------------------------------------------------------------- 1 2 21-MAY-2014 14:29:09 AIPS ARRAY VBA_KEYV(2) 1 2 21-MAY-2014 14:29:09 AIPS SCALAR VBA_SLOT, VBA_VERS 1 2 21-MAY-2014 14:29:09 AIPS STRING*8 VBA_KEYW 1 2 21-MAY-2014 14:29:09 AIPS STRING*16 VBA_KEYS 1 2 21-MAY-2014 14:29:09 AIPS *Save adverb values 1 2 21-MAY-2014 14:29:09 AIPS VBA_KEYW = KEYWORD 1 2 21-MAY-2014 14:29:09 AIPS VBA_KEYV = KEYVALUE 1 2 21-MAY-2014 14:29:09 AIPS VBA_KEYS = KEYSTRNG 1 2 21-MAY-2014 14:29:09 AIPS VBA_SLOT = 0 1 2 21-MAY-2014 14:29:09 AIPS KEYSTRNG = ' ' 1 2 21-MAY-2014 14:29:09 AIPS * Invariant: KEYSTRNG <> VBA_TYPE implies that no of the first 1 2 21-MAY-2014 14:29:09 AIPS * VBA_SLOT tables has type VBA_TYPE 1 2 21-MAY-2014 14:29:09 AIPS * Bound: 50 - VBA_SLOT 1 2 21-MAY-2014 14:29:09 AIPS WHILE VBA_SLOT <> 50 & KEYSTRNG <> VBA_TYPE 1 2 21-MAY-2014 14:29:09 AIPS VBA_SLOT = VBA_SLOT + 1; KEYWORD = 'EXTYPE' !! CHAR(VBA_SLOT) 1 2 21-MAY-2014 14:29:09 AIPS GETHEAD 1 2 21-MAY-2014 14:29:09 AIPS END 1 2 21-MAY-2014 14:29:09 AIPS * If KEYSTRNG = VBA_TYPE then VBA_SLOT is the index for table type 1 2 21-MAY-2014 14:29:09 AIPS * VBA_TYPE in the file header otherwise there are no tables of type 1 2 21-MAY-2014 14:29:09 AIPS * VBA_TYPE. 1 2 21-MAY-2014 14:29:09 AIPS IF KEYSTRNG = VBA_TYPE THEN 1 2 21-MAY-2014 14:29:09 AIPS KEYWORD = 'EXTVER' !! CHAR(VBA_SLOT); GETHEAD 1 2 21-MAY-2014 14:29:09 AIPS ELSE 1 2 21-MAY-2014 14:29:09 AIPS KEYVALUE(1) = 0 1 2 21-MAY-2014 14:29:09 AIPS END 1 2 21-MAY-2014 14:29:09 AIPS VBA_VER = KEYVALUE(1) 1 2 21-MAY-2014 14:29:09 AIPS * Restore saved adverbs 1 2 21-MAY-2014 14:29:09 AIPS KEYWORD = VBA_KEYW; KEYVALUE = VBA_KEYV; KEYSTRNG = VBA_KEYS 1 2 21-MAY-2014 14:29:09 AIPS RETURN VBA_VER 1 2 21-MAY-2014 14:29:09 AIPS FINISH 1 2 21-MAY-2014 14:29:09 AIPS PROCEDURE VLALIST 1 2 21-MAY-2014 14:29:09 AIPS *procedure to run LISTR in a standard manner 1 2 21-MAY-2014 14:29:09 AIPS default 'LISTR';tget vlalist;task 'LISTR' 1 2 21-MAY-2014 14:29:09 AIPS docrt=-1; opty 'GAIN'; inext 'SN'; bif 1;eif 2 1 2 21-MAY-2014 14:29:09 AIPS stokes 'HALF'; dparm 5 1 0 1 2 21-MAY-2014 14:29:09 AIPS runwait('LISTR') localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 19 Pops Prior Date Time Task Messages for user 130 1 2 21-MAY-2014 14:29:09 AIPS FINISH 1 2 21-MAY-2014 14:29:09 AIPS PROCEDURE DAYNUM(VBA_DATE) 1 2 21-MAY-2014 14:29:09 AIPS *----------------------------------------------------------------------- 1 2 21-MAY-2014 14:29:09 AIPS * Returns the day number when given a date as a character string in 1 2 21-MAY-2014 14:29:09 AIPS * yyyymmdd format. The leap year calculation is good from 1901-2099. 1 2 21-MAY-2014 14:29:09 AIPS * VBA_DATE is a 16 character string so the user can send KEYWORD. 1 2 21-MAY-2014 14:29:09 AIPS *----------------------------------------------------------------------- 1 2 21-MAY-2014 14:29:09 AIPS array vba_mnum(12) 1 2 21-MAY-2014 14:29:09 AIPS scalar vba_yr, vba_mo, vba_day, vba_dnum, vba_leap, vba_ok 1 2 21-MAY-2014 14:29:09 AIPS *----------------------------------------------------------------------- 1 2 21-MAY-2014 14:29:09 AIPS vba_leap = 0; vba_yr=value(substr(vba_date,1,4)) 1 2 21-MAY-2014 14:29:09 AIPS vba_mnum(1)=0;vba_mnum(2)=31;vba_mnum(3)=59;vba_mnum(4)=90 1 2 21-MAY-2014 14:29:09 AIPS vba_mnum(5)=120;vba_mnum(6)=151;vba_mnum(7)=181;vba_mnum(8)=212 1 2 21-MAY-2014 14:29:09 AIPS vba_mnum(9)=243;vba_mnum(10)=273;vba_mnum(11)=304;vba_mnum(12)=334 1 2 21-MAY-2014 14:29:09 AIPS vba_mo=value(substr(vba_date,5,6)); vba_day=value(substr(vba_date,7,8)) 1 2 21-MAY-2014 14:29:09 AIPS if(mod(vba_yr,4)=0&vba_mo>2) then; vba_leap=1;end 1 2 21-MAY-2014 14:29:09 AIPS vba_dnum=vba_mnum(vba_mo)+vba_day+vba_leap 1 2 21-MAY-2014 14:29:09 AIPS if(vba_mo<1)!(vba_mo>12)!(vba_day<1)!(vba_day>31)then; vba_dnum=-1;end 1 2 21-MAY-2014 14:29:09 AIPS return vba_dnum 1 2 21-MAY-2014 14:29:09 AIPS finish 1 2 21-MAY-2014 14:29:09 AIPS PROCEDURE VLATECR 1 2 21-MAY-2014 14:29:09 AIPS *----------------------------------------------------------------------- 1 2 21-MAY-2014 14:29:09 AIPS * Input adverbs: 1 2 21-MAY-2014 14:29:09 AIPS * INNAME file name 1 2 21-MAY-2014 14:29:09 AIPS * INCLASS file class 1 2 21-MAY-2014 14:29:09 AIPS * INSEQ file sequence number 1 2 21-MAY-2014 14:29:09 AIPS * INDISK disk number 1 2 21-MAY-2014 14:29:09 AIPS *----------------------------------------------------------------------- 1 2 21-MAY-2014 14:29:09 AIPS scalar vba_ok, vba_yr, vba_cr, vba_dnum, vba_i, vba_get, vba_days, vba_nfil 1 2 21-MAY-2014 14:29:09 AIPS scalar vba_rund 1 2 21-MAY-2014 14:29:09 AIPS string*3 vba_chdn 1 2 21-MAY-2014 14:29:09 AIPS string*48 vba_inf 1 2 21-MAY-2014 14:29:09 AIPS *----------------------------------------------------------------------- 1 2 21-MAY-2014 14:29:09 AIPS tput vlatecr; vnum 35; vput vlatecr; sysout='' 1 2 21-MAY-2014 14:29:09 AIPS vba_ok=1;vba_get=1; sys2com=''; 1 2 21-MAY-2014 14:29:09 AIPS if(maxtab('NX')=0)then 1 2 21-MAY-2014 14:29:09 AIPS vba_ok=-6 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS if(vba_ok>0)then 1 2 21-MAY-2014 14:29:09 AIPS default gethead; vget vlatecr; 1 2 21-MAY-2014 14:29:09 AIPS keyword = 'DATE-MAP'; gethead; vba_cr=value(substr(keystrng,1,4)) 1 2 21-MAY-2014 14:29:09 AIPS vba_rund=daynum(keystrng) 1 2 21-MAY-2014 14:29:09 AIPS keyword = 'DATE-OBS'; gethead; vba_yr=value(substr(keystrng,1,4)) 1 2 21-MAY-2014 14:29:09 AIPS if(vba_yr>1997)&(vba_yr<=vba_cr) then; 1 2 21-MAY-2014 14:29:09 AIPS vba_dnum=daynum(keystrng); 1 2 21-MAY-2014 14:29:09 AIPS if(vba_dnum<1)!(vba_dnum>366) then; vba_ok=-4;end 1 2 21-MAY-2014 14:29:09 AIPS if(vba_yr=1998)&(vba_dnum<151)then; vba_ok=-5;end 1 2 21-MAY-2014 14:29:09 AIPS else 1 2 21-MAY-2014 14:29:09 AIPS vba_ok=-4; if(vba_yr<=1997) then; vba_ok=-5; end 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS default getthead; vget vlatecr; 1 2 21-MAY-2014 14:29:09 AIPS inext 'NX';keywo 'NUM ROW'; getthead; pixxy keyval(1), 1; tabget 1 2 21-MAY-2014 14:29:09 AIPS vba_days=keyval(1)+keyval(2); pixxy(2)=2; tabget 1 2 21-MAY-2014 14:29:09 AIPS vba_nfil=ceil(vba_days+0.5*(keyval(1)+keyval(2))) 1 2 21-MAY-2014 14:29:09 AIPS if(vba_ok>0)&((vba_yr<2002)!((vba_yr=2002)&(vba_dnum<305))) then 1 2 21-MAY-2014 14:29:09 AIPS if(((vba_days+0.5*(keyval(1)+keyval(2)))-vba_nfil+1.0)*24.0>23.0) then localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 20 Pops Prior Date Time Task Messages for user 130 1 2 21-MAY-2014 14:29:09 AIPS vba_nfil=vba_nfil+1 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS pixxy 1, 1; tabget; vba_days=keyval(1)+keyval(2); pixxy(2)=2; tabget 1 2 21-MAY-2014 14:29:09 AIPS if((vba_days-0.5*(keyval(1)+keyval(2)))*24.0<1.0) then 1 2 21-MAY-2014 14:29:09 AIPS vba_nfil=vba_nfil+1; vba_dnum=vba_dnum-1 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS if(vba_yr=1998)&(vba_dnum<151)then; vba_ok=-5;end 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS if(vba_ok>0) then 1 2 21-MAY-2014 14:29:09 AIPS syscom 'which wget 1 2 21-MAY-2014 14:29:09 AIPS system 1 2 21-MAY-2014 14:29:09 AIPS if(error>0) then 1 2 21-MAY-2014 14:29:09 AIPS syscom 'which curl 1 2 21-MAY-2014 14:29:09 AIPS system 1 2 21-MAY-2014 14:29:09 AIPS if(error>0) then 1 2 21-MAY-2014 14:29:09 AIPS syscom 'which ncftpget 1 2 21-MAY-2014 14:29:09 AIPS system 1 2 21-MAY-2014 14:29:09 AIPS if(error>0) then; vba_ok=-1;else; vba_get=-2;end 1 2 21-MAY-2014 14:29:09 AIPS else 1 2 21-MAY-2014 14:29:09 AIPS vba_get=-1 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS if(vba_ok>0) then 1 2 21-MAY-2014 14:29:09 AIPS type 'DOWNLOAD FILE(S):' 1 2 21-MAY-2014 14:29:09 AIPS for vba_i=vba_dnum to vba_dnum+vba_nfil-1 1 2 21-MAY-2014 14:29:09 AIPS substr(vba_chdn,1,2)='00'; 1 2 21-MAY-2014 14:29:09 AIPS if(vba_i>99) then; 1 2 21-MAY-2014 14:29:09 AIPS vba_chdn=char(vba_i) 1 2 21-MAY-2014 14:29:09 AIPS else 1 2 21-MAY-2014 14:29:09 AIPS if(vba_i>9) then 1 2 21-MAY-2014 14:29:09 AIPS substr(vba_chdn,2,3)=char(vba_i) 1 2 21-MAY-2014 14:29:09 AIPS else 1 2 21-MAY-2014 14:29:09 AIPS substr(vba_chdn,3,3)=char(vba_i) 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS sys2com(1)=' ftp://cddis.gsfc.nasa.gov/gps/products/ionex/ 1 2 21-MAY-2014 14:29:09 AIPS sys2com(2)=char(vba_yr)!!'/'!!vba_chdn!!'/' 1 2 21-MAY-2014 14:29:09 AIPS sys2com(3)='jplg 1 2 21-MAY-2014 14:29:09 AIPS sys2com(4)=vba_chdn!!'0.'!!substr(char(vba_yr),3,4)!!'i 1 2 21-MAY-2014 14:29:09 AIPS sys2com(5)='.Z' 1 2 21-MAY-2014 14:29:09 AIPS if(vba_get>0) then 1 2 21-MAY-2014 14:29:09 AIPS syscom 'wget -t 10 -P /tmp 1 2 21-MAY-2014 14:29:09 AIPS system 1 2 21-MAY-2014 14:29:09 AIPS if(error>0) then 1 2 21-MAY-2014 14:29:09 AIPS sys2com(3)='codg 1 2 21-MAY-2014 14:29:09 AIPS system 1 2 21-MAY-2014 14:29:09 AIPS if(error<=0)then 1 2 21-MAY-2014 14:29:09 AIPS syscom 'mv /tmp/ 1 2 21-MAY-2014 14:29:09 AIPS sys2com(1)=sys2com(3) 1 2 21-MAY-2014 14:29:09 AIPS sys2com(2)=sys2com(4) 1 2 21-MAY-2014 14:29:09 AIPS sys2com(3)='.Z /tmp/jplg 1 2 21-MAY-2014 14:29:09 AIPS system 1 2 21-MAY-2014 14:29:09 AIPS sys2com(1)=' ftp://cddis.gsfc.nasa.gov/gps/products/ionex/ 1 2 21-MAY-2014 14:29:09 AIPS sys2com(2)=char(vba_yr)!!'/'!!vba_chdn!!'/' 1 2 21-MAY-2014 14:29:09 AIPS sys2com(3)='jplg localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 21 Pops Prior Date Time Task Messages for user 130 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS else 1 2 21-MAY-2014 14:29:09 AIPS if(vba_get=-1) then 1 2 21-MAY-2014 14:29:09 AIPS syscom 'curl 1 2 21-MAY-2014 14:29:09 AIPS sys2com(6)=' > /tmp/jplg 1 2 21-MAY-2014 14:29:09 AIPS sys2com(6)=sys2com(6)!!sys2com(4)!!sys2com(5) 1 2 21-MAY-2014 14:29:09 AIPS system 1 2 21-MAY-2014 14:29:09 AIPS if(error>0) then 1 2 21-MAY-2014 14:29:09 AIPS sys2com(3)='codg 1 2 21-MAY-2014 14:29:09 AIPS sys2com(6)=' > /tmp/codg 1 2 21-MAY-2014 14:29:09 AIPS sys2com(6)=sys2com(6)!!sys2com(4)!!sys2com(5) 1 2 21-MAY-2014 14:29:09 AIPS system 1 2 21-MAY-2014 14:29:09 AIPS if(error<=0)then 1 2 21-MAY-2014 14:29:09 AIPS syscom 'mv /tmp/ 1 2 21-MAY-2014 14:29:09 AIPS sys2com(1)=sys2com(3) 1 2 21-MAY-2014 14:29:09 AIPS sys2com(2)=sys2com(4) 1 2 21-MAY-2014 14:29:09 AIPS sys2com(3)='.Z /tmp/jplg 1 2 21-MAY-2014 14:29:09 AIPS sys2com(6)='' 1 2 21-MAY-2014 14:29:09 AIPS system 1 2 21-MAY-2014 14:29:09 AIPS sys2com(1)=' ftp://cddis.gsfc.nasa.gov/gps/products/ionex/ 1 2 21-MAY-2014 14:29:09 AIPS sys2com(2)=char(vba_yr)!!'/'!!vba_chdn!!'/' 1 2 21-MAY-2014 14:29:09 AIPS sys2com(3)='jplg 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS else 1 2 21-MAY-2014 14:29:09 AIPS syscom='cd /tmp ; ncftpget -t 120 1 2 21-MAY-2014 14:29:09 AIPS system 1 2 21-MAY-2014 14:29:09 AIPS if(error>0) then 1 2 21-MAY-2014 14:29:09 AIPS sys2com(3)='codg 1 2 21-MAY-2014 14:29:09 AIPS system 1 2 21-MAY-2014 14:29:09 AIPS if(error<=0)then 1 2 21-MAY-2014 14:29:09 AIPS syscom 'mv /tmp/ 1 2 21-MAY-2014 14:29:09 AIPS sys2com(1)=sys2com(3) 1 2 21-MAY-2014 14:29:09 AIPS sys2com(2)=sys2com(4) 1 2 21-MAY-2014 14:29:09 AIPS sys2com(3)='.Z /tmp/jplg 1 2 21-MAY-2014 14:29:09 AIPS system 1 2 21-MAY-2014 14:29:09 AIPS sys2com(1)=' ftp://cddis.gsfc.nasa.gov/gps/products/ionex/ 1 2 21-MAY-2014 14:29:09 AIPS sys2com(2)=char(vba_yr)!!'/'!!vba_chdn!!'/' 1 2 21-MAY-2014 14:29:09 AIPS sys2com(3)='jplg 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS if(error>0) then; vba_ok=-2; end 1 2 21-MAY-2014 14:29:09 AIPS if(error<=0)then 1 2 21-MAY-2014 14:29:09 AIPS syscom = 'uncompress /tmp/ 1 2 21-MAY-2014 14:29:09 AIPS sys2com(1) = sys2com(3)!!sys2com(4)!!sys2com(5) 1 2 21-MAY-2014 14:29:09 AIPS if(error>0) then; vba_ok=-3;end 1 2 21-MAY-2014 14:29:09 AIPS if(vba_i=vba_dnum)then 1 2 21-MAY-2014 14:29:09 AIPS vba_inf = '/tmp/ 1 2 21-MAY-2014 14:29:09 AIPS vba_inf = vba_inf!!sys2com(3)!!sys2com(4) 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS sys2com(2)~'','','','',''; system 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS end localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 22 Pops Prior Date Time Task Messages for user 130 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS if(vba_ok<0)then 1 2 21-MAY-2014 14:29:09 AIPS type 'THE DOWNLOAD FAILED.' 1 2 21-MAY-2014 14:29:09 AIPS if(vba_ok=-1)then 1 2 21-MAY-2014 14:29:09 AIPS type 'Your system does not have any of the three possible commands, 1 2 21-MAY-2014 14:29:09 AIPS type 'wget, curl or ncftpget, that this script attempts to use to 1 2 21-MAY-2014 14:29:09 AIPS type 'automatically download the IONEX file(s). 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS if(vba_ok=-2) then 1 2 21-MAY-2014 14:29:09 AIPS type 'IT TAKES UP TO A WEEK FOR THE IONEX FILES TO APPEAR,' 1 2 21-MAY-2014 14:29:09 AIPS type 'IF YOUR EXPERIMENT IS RECENT, TRY AGAIN IN A FEW DAYS.' 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS if(vba_ok=-4) then 1 2 21-MAY-2014 14:29:09 AIPS type 'ATTEMPT TO CONVERT OBSERVATION DATE TO DAY NUMBER FAILED.' 1 2 21-MAY-2014 14:29:09 AIPS type 'CHECK THE OBSERVATION DATE IN THE HEADER OF THIS FILE.' 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS if(vba_ok=-5) then 1 2 21-MAY-2014 14:29:09 AIPS type 'IONEX FILES DO NOT EXIST FOR DATES EARLIER THAN JUNE 1, 1998.' 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS if(vba_ok<>-5) then 1 2 21-MAY-2014 14:29:09 AIPS type 'DOWNLOAD THE FILE(S) MANUALLY (SEE TECOR EXPLAIN FILE),' 1 2 21-MAY-2014 14:29:09 AIPS type 'AND RUN TECOR.' 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS if(vba_ok>0) then 1 2 21-MAY-2014 14:29:09 AIPS default tecor; vget vlatecr; task 'TECOR' 1 2 21-MAY-2014 14:29:09 AIPS * nfiles=vba_nfil; infi=vba_inf; runwait('TECOR') 1 2 21-MAY-2014 14:29:09 AIPS nfiles=vba_nfil; infi=vba_inf; go tecor 1 2 21-MAY-2014 14:29:09 AIPS type 'NUMBER OF FILES DOWNLOADED = '!!char(nfiles) 1 2 21-MAY-2014 14:29:09 AIPS type 'There are jplg* (IONEX) files in your /tmp directory. 1 2 21-MAY-2014 14:29:09 AIPS type 'CL #'!!char(maxtab('CL'))!!' CONTAINS IONOSPHERIC CORRECTIONS' 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS if(vba_ok=-6) then 1 2 21-MAY-2014 14:29:09 AIPS type 'You must have a NX table to use this procedure. 1 2 21-MAY-2014 14:29:09 AIPS type 'Run INDXR and try again. 1 2 21-MAY-2014 14:29:09 AIPS end 1 2 21-MAY-2014 14:29:09 AIPS tget vlatecr 1 2 21-MAY-2014 14:29:09 AIPS return;finish 1 0 21-MAY-2014 14:29:12 AIPS default vlacalib 1 0 21-MAY-2014 14:29:34 AIPS docal 1; uvran 0; anten 0; calsour '3C48','' 1 0 21-MAY-2014 14:29:36 AIPS refant 7 1 0 21-MAY-2014 14:29:40 AIPS go vlacalib 1 3 21-MAY-2014 14:29:40 AIPS SYSTEM command to be executed is: 1 3 21-MAY-2014 14:29:40 AIPS ls -1 $AIPSTARS/3C48_L.MODEL >& /dev/null 1 5 21-MAY-2014 14:29:40 CALRD Task CALRD (release of 31DEC13) begins 1 2 21-MAY-2014 14:29:40 CALRD Reading disk file AIPSTARS:3C48_L.MODEL 1 2 21-MAY-2014 14:29:40 CALRD Create 3C48_L .MODEL . 1 (MA) on disk 1 cno 3 1 3 21-MAY-2014 14:29:40 CALRD Appears to have ended successfully 1 5 21-MAY-2014 14:29:40 CALRD localhost 31DEC13 TST: Cpu= 0.0 Real= 0 1 2 21-MAY-2014 14:29:40 AIPS Resumes 1 5 21-MAY-2014 14:29:40 CALIB Task CALIB (release of 31DEC13) begins 1 3 21-MAY-2014 14:29:40 CALIB Using 19861211 . CH 0 . 1 Disk= 1 Usid= 130 1 6 21-MAY-2014 14:29:40 CALIB FQMATC: Setting FQ id number = 1 1 3 21-MAY-2014 14:29:40 CALIB UVGET: doing no flagging this time 1 3 21-MAY-2014 14:29:40 CALIB Purports to die of UNNATURAL causes localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 23 Pops Prior Date Time Task Messages for user 130 1 5 21-MAY-2014 14:29:40 CALIB localhos 31DEC13 TST: Cpu= 0.0 Real= 0 IO= 2 1 2 21-MAY-2014 14:29:40 AIPS Resumes 1 9 21-MAY-2014 14:29:40 AIPS RETURN CODE -1 RECEIVED: STOPPING 1 0 21-MAY-2014 14:30:27 AIPS inp prtmsg 1 0 21-MAY-2014 14:30:35 AIPS go prtmsg 1 5 21-MAY-2014 14:30:55 AIPS User 130: 1238 messages, oldest written 21-MAY-2014 10:04:22 1 0 21-MAY-2014 14:34:25 AIPS inp calib 1 0 21-MAY-2014 14:34:29 AIPS GETN 1 1 2 21-MAY-2014 14:34:29 AIPS Got(1) disk= 1 user= 130 type=UV 19861211.CH 0.1 1 0 21-MAY-2014 14:34:38 AIPS inp 1 0 21-MAY-2014 14:35:04 AIPS go calib 1 5 21-MAY-2014 14:35:04 CALIB Task CALIB (release of 31DEC13) begins 1 3 21-MAY-2014 14:35:04 CALIB Using 19861211 . CH 0 . 1 Disk= 1 Usid= 130 1 6 21-MAY-2014 14:35:04 CALIB FQMATC: Setting FQ id number = 1 1 3 21-MAY-2014 14:35:04 CALIB UVGET: doing no flagging this time 1 3 21-MAY-2014 14:35:04 CALIB Purports to die of UNNATURAL causes 1 5 21-MAY-2014 14:35:04 CALIB localhost 31DEC13 TST: Cpu= 0.0 Real= 0 1 2 21-MAY-2014 14:35:04 AIPS Resumes 1 9 21-MAY-2014 14:35:04 AIPS RETURN CODE -1 RECEIVED: STOPPING 1 0 21-MAY-2014 14:41:15 AIPS pcat 1 0 21-MAY-2014 14:41:21 AIPS inp calib 1 0 21-MAY-2014 14:49:16 AIPS task 'UVPLT' 1 0 21-MAY-2014 14:49:19 AIPS getn 2 1 2 21-MAY-2014 14:49:19 AIPS Got(1) disk= 1 user= 130 type=UV 19861211.LINE.1 1 0 21-MAY-2014 14:49:22 AIPS inp 1 0 21-MAY-2014 14:49:28 AIPS DEFAult 'UVPLT' 1 0 21-MAY-2014 14:49:29 AIPS getn 2 1 2 21-MAY-2014 14:49:29 AIPS Got(1) disk= 1 user= 130 type=UV 19861211.LINE.1 1 0 21-MAY-2014 14:49:34 AIPS source '3C48','' 1 0 21-MAY-2014 14:49:36 AIPS xinc 100 1 0 21-MAY-2014 14:49:37 AIPS inp 1 0 21-MAY-2014 14:49:40 AIPS dotv 1 1 0 21-MAY-2014 14:49:42 AIPS go 1 5 21-MAY-2014 14:49:42 UVPLT Task UVPLT (release of 31DEC13) begins 1 3 21-MAY-2014 14:49:42 UVPLT Plotting 2 frequency IDs. 1 5 21-MAY-2014 14:49:42 UVPLT Processing FREQID = 1 1 3 21-MAY-2014 14:49:42 UVPLT UVGET: doing no flagging this time 1 5 21-MAY-2014 14:49:42 UVPLT Processing FREQID = 2 1 2 21-MAY-2014 14:49:42 UVPLT PLTUV: 5952 Points plotted 1 3 21-MAY-2014 14:49:42 UVPLT Appears to have ended successfully 1 5 21-MAY-2014 14:49:42 UVPLT localhos 31DEC13 TST: Cpu= 0.1 Real= 0 IO= 15 1 2 21-MAY-2014 14:49:42 AIPS Resumes 1 0 21-MAY-2014 14:50:10 AIPS inp 1 0 21-MAY-2014 14:50:13 AIPS BCHAn 2 1 0 21-MAY-2014 14:50:16 AIPS echan 38 1 0 21-MAY-2014 14:50:18 AIPS echan 28 1 0 21-MAY-2014 14:50:21 AIPS go uvplt 1 5 21-MAY-2014 14:50:21 UVPLT Task UVPLT (release of 31DEC13) begins 1 3 21-MAY-2014 14:50:21 UVPLT Plotting 2 frequency IDs. 1 5 21-MAY-2014 14:50:21 UVPLT Processing FREQID = 1 1 3 21-MAY-2014 14:50:21 UVPLT UVGET: doing no flagging this time 1 5 21-MAY-2014 14:50:21 UVPLT Processing FREQID = 2 1 2 21-MAY-2014 14:50:21 UVPLT PLTUV: 5184 Points plotted 1 3 21-MAY-2014 14:50:21 UVPLT Appears to have ended successfully 1 5 21-MAY-2014 14:50:21 UVPLT localhos 31DEC13 TST: Cpu= 0.1 Real= 0 IO= 15 1 2 21-MAY-2014 14:50:21 AIPS Resumes localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 24 Pops Prior Date Time Task Messages for user 130 1 0 21-MAY-2014 14:50:34 AIPS tget calib 1 0 21-MAY-2014 14:50:35 AIPS inp 1 0 21-MAY-2014 14:50:45 AIPS CLR2nam 1 0 21-MAY-2014 14:50:45 AIPS inp 1 0 21-MAY-2014 14:50:53 AIPS go calib 1 5 21-MAY-2014 14:50:53 CALIB Task CALIB (release of 31DEC13) begins 1 3 21-MAY-2014 14:50:53 CALIB Using 19861211 . CH 0 . 1 Disk= 1 Usid= 130 1 6 21-MAY-2014 14:50:53 CALIB FQMATC: Setting FQ id number = 1 1 3 21-MAY-2014 14:50:53 CALIB UVGET: doing no flagging this time 1 3 21-MAY-2014 14:50:53 CALIB Purports to die of UNNATURAL causes 1 5 21-MAY-2014 14:50:53 CALIB localhost 31DEC13 TST: Cpu= 0.0 Real= 0 1 2 21-MAY-2014 14:50:53 AIPS Resumes 1 9 21-MAY-2014 14:50:53 AIPS RETURN CODE -1 RECEIVED: STOPPING 1 0 21-MAY-2014 14:51:13 AIPS inp 1 0 21-MAY-2014 14:51:47 AIPS inp uvflg 1 0 21-MAY-2014 14:51:52 AIPS default 'UVFLG' 1 0 21-MAY-2014 14:51:56 AIPS getn 1 1 2 21-MAY-2014 14:51:56 AIPS Got(1) disk= 1 user= 130 type=UV 19861211.CH 0.1 1 0 21-MAY-2014 14:51:58 AIPS inp 1 0 21-MAY-2014 14:52:04 AIPS stokes 'RR' 1 0 21-MAY-2014 14:52:07 AIPS opcod 'FLAG' 1 0 21-MAY-2014 14:52:28 AIPS timeran 1 07 43 15 1 07 43 20 1 0 21-MAY-2014 14:52:31 AIPS bchan 1 1 0 21-MAY-2014 14:52:33 AIPS echan 2 1 0 21-MAY-2014 14:52:41 AIPS outfgver 1 1 0 21-MAY-2014 14:52:42 AIPS inp 1 0 21-MAY-2014 14:52:47 AIPS go uvflg 1 5 21-MAY-2014 14:52:47 UVFLG Task UVFLG (release of 31DEC13) begins 1 4 21-MAY-2014 14:52:47 UVFLG Wrote 1 flags to flag table version 1 1 3 21-MAY-2014 14:52:47 UVFLG Appears to have ended successfully 1 5 21-MAY-2014 14:52:47 UVFLG localhost 31DEC13 TST: Cpu= 0.0 Real= 0 1 2 21-MAY-2014 14:52:47 AIPS Resumes 1 0 21-MAY-2014 14:53:05 AIPS tget calib 1 0 21-MAY-2014 14:53:06 AIPS inp 1 0 21-MAY-2014 14:53:10 AIPS FLAGver 1 1 0 21-MAY-2014 14:53:12 AIPS go calib 1 5 21-MAY-2014 14:53:12 CALIB Task CALIB (release of 31DEC13) begins 1 3 21-MAY-2014 14:53:12 CALIB Using 19861211 . CH 0 . 1 Disk= 1 Usid= 130 1 6 21-MAY-2014 14:53:12 CALIB FQMATC: Setting FQ id number = 1 1 3 21-MAY-2014 14:53:12 CALIB UVGET: Using flag table version 1 to edit data 1 3 21-MAY-2014 14:53:12 CALIB Purports to die of UNNATURAL causes 1 5 21-MAY-2014 14:53:12 CALIB localhos 31DEC13 TST: Cpu= 0.0 Real= 0 IO= 1 1 2 21-MAY-2014 14:53:12 AIPS Resumes 1 9 21-MAY-2014 14:53:12 AIPS RETURN CODE -1 RECEIVED: STOPPING 1 0 21-MAY-2014 14:53:44 AIPS get2nam 3 1 2 21-MAY-2014 14:53:44 AIPS Got(2) disk= 1 user= 130 type=MA 3C48_L.MODEL.1 1 0 21-MAY-2014 14:53:47 AIPS go calib 1 5 21-MAY-2014 14:53:47 CALIB Task CALIB (release of 31DEC13) begins 1 3 21-MAY-2014 14:53:47 CALIB Using 19861211 . CH 0 . 1 Disk= 1 Usid= 130 1 6 21-MAY-2014 14:53:47 CALIB FQMATC: Setting FQ id number = 1 1 3 21-MAY-2014 14:53:47 CALIB UVGET: Using flag table version 1 to edit data 1 3 21-MAY-2014 14:53:47 CALIB Purports to die of UNNATURAL causes 1 5 21-MAY-2014 14:53:47 CALIB localhost 31DEC13 TST: Cpu= 0.0 Real= 0 1 2 21-MAY-2014 14:53:47 AIPS Resumes 1 9 21-MAY-2014 14:53:47 AIPS RETURN CODE -1 RECEIVED: STOPPING 1 0 21-MAY-2014 14:55:25 AIPS which aips localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 25 Pops Prior Date Time Task Messages for user 130 1 7 21-MAY-2014 14:55:25 AIPS SYMBOL? WHICH 1 0 21-MAY-2014 14:55:43 AIPS 1 0 21-MAY-2014 14:57:21 AIPS kleenex 1 2 21-MAY-2014 14:57:21 AIPS Begin check for any 'standard' scratch files 1 2 21-MAY-2014 14:57:21 AIPS Scratch files -- destroyed: 0 still active: 0 1 5 21-MAY-2014 14:57:21 AIPS User 130: 1350 messages, oldest written 21-MAY-2014 10:04:22 1 3 21-MAY-2014 14:57:21 AIPS Saved POPS environment in area named 'LASTEXIT' 1 2 21-MAY-2014 14:57:21 AIPS Session command-line history saved. 1 5 21-MAY-2014 14:57:21 AIPS localhos 31DEC13 TST: Cpu= 0.9 Real= 2962 IO= 15 1 2 26-MAY-2014 10:05:37 AIPS 31DEC13 AIPS: 1 2 26-MAY-2014 10:05:37 AIPS Copyright (C) 1995-2014 Associated Universities, Inc. 1 2 26-MAY-2014 10:05:37 AIPS AIPS comes with ABSOLUTELY NO WARRANTY; 1 2 26-MAY-2014 10:05:37 AIPS for details, type HELP GNUGPL 1 2 26-MAY-2014 10:05:38 AIPS This is free software, and you are welcome to redistribute it 1 2 26-MAY-2014 10:05:38 AIPS under certain conditions; type EXPLAIN GNUGPL for details. 1 2 26-MAY-2014 10:05:38 AIPS Previous session command-line history recovered. 1 2 26-MAY-2014 10:05:39 AIPS TAB-key completions enabled, type HELP READLINE for details. 1 3 26-MAY-2014 10:05:40 AIPS Recovered POPS environment from last exit 1 0 26-MAY-2014 10:05:41 AIPS pcat 1 0 26-MAY-2014 10:06:02 AIPS 1 0 26-MAY-2014 10:06:06 AIPS run vlaprocs 1 2 26-MAY-2014 10:06:06 AIPS $--------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS $! RUN file to prepare to test performance of AIPS tasks on data 1 2 26-MAY-2014 10:06:06 AIPS $# Run POPS 1 2 26-MAY-2014 10:06:06 AIPS $----------------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS $; Copyright (C) 1995-1997; 2001-2002; 2006-2008; 2011 1 2 26-MAY-2014 10:06:06 AIPS $; Associated Universities, Inc. Washington DC, USA. 1 2 26-MAY-2014 10:06:06 AIPS $; 1 2 26-MAY-2014 10:06:06 AIPS $; This program is free software; you can redistribute it and/or 1 2 26-MAY-2014 10:06:06 AIPS $; modify it under the terms of the GNU General Public License as 1 2 26-MAY-2014 10:06:06 AIPS $; published by the Free Software Foundation; either version 2 of 1 2 26-MAY-2014 10:06:06 AIPS $; the License, or (at your option) any later version. 1 2 26-MAY-2014 10:06:06 AIPS $; 1 2 26-MAY-2014 10:06:06 AIPS $; This program is distributed in the hope that it will be useful, 1 2 26-MAY-2014 10:06:06 AIPS $; but WITHOUT ANY WARRANTY; without even the implied warranty of 1 2 26-MAY-2014 10:06:06 AIPS $; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 1 2 26-MAY-2014 10:06:06 AIPS $; GNU General Public License for more details. 1 2 26-MAY-2014 10:06:06 AIPS $; 1 2 26-MAY-2014 10:06:06 AIPS $; You should have received a copy of the GNU General Public 1 2 26-MAY-2014 10:06:06 AIPS $; License along with this program; if not, write to the Free 1 2 26-MAY-2014 10:06:06 AIPS $; Software Foundation, Inc., 675 Massachusetts Ave, Cambridge, 1 2 26-MAY-2014 10:06:06 AIPS $; MA 02139, USA. 1 2 26-MAY-2014 10:06:06 AIPS $; 1 2 26-MAY-2014 10:06:06 AIPS $; Correspondence concerning AIPS should be addressed as follows: 1 2 26-MAY-2014 10:06:06 AIPS $; Internet email: aipsmail@nrao.edu. 1 2 26-MAY-2014 10:06:06 AIPS $; Postal address: AIPS Project Office 1 2 26-MAY-2014 10:06:06 AIPS $; National Radio Astronomy Observatory 1 2 26-MAY-2014 10:06:06 AIPS $; 520 Edgemont Road 1 2 26-MAY-2014 10:06:06 AIPS $; Charlottesville, VA 22903-2475 USA 1 2 26-MAY-2014 10:06:06 AIPS $----------------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS * VLA Calibration procedures 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS * Dummy procedure to define adverbs 1 2 26-MAY-2014 10:06:06 AIPS PROC VLADUMMY 1 2 26-MAY-2014 10:06:06 AIPS SCALAR DOLISTR, DOPRINT, SNVER, VBA_WAIT, VLAERR 1 2 26-MAY-2014 10:06:06 AIPS STRING*16 VBA_KEYS, VBA_DATE, VLA_OBJ localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 26 Pops Prior Date Time Task Messages for user 130 1 2 26-MAY-2014 10:06:06 AIPS ARRAY VBA_KEYV(2) 1 2 26-MAY-2014 10:06:06 AIPS STRING*8 VBA_TASK, VBA_TTSK, VBA_KEYW 1 2 26-MAY-2014 10:06:06 AIPS STRING*2 VBA_TYPE 1 2 26-MAY-2014 10:06:06 AIPS RETURN 1 2 26-MAY-2014 10:06:06 AIPS FINISH 1 2 26-MAY-2014 10:06:06 AIPS * Initilalize 1 2 26-MAY-2014 10:06:06 AIPS minamper 10; minphser 10 1 2 26-MAY-2014 10:06:06 AIPS dolistr 1; doprint 1 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS PROCEDURE RUNWAIT (VBA_TASK) 1 2 26-MAY-2014 10:06:06 AIPS *--------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS * Runs VBA_TASK and waits for it to complete regardless of the 1 2 26-MAY-2014 10:06:06 AIPS * value of DOWAIT. 1 2 26-MAY-2014 10:06:06 AIPS * Inputs: 1 2 26-MAY-2014 10:06:06 AIPS * VBA_TASK name of task 1 2 26-MAY-2014 10:06:06 AIPS *--------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS VBA_WAIT = DOWAIT 1 2 26-MAY-2014 10:06:06 AIPS DOWAIT = TRUE 1 2 26-MAY-2014 10:06:06 AIPS VBA_TTSK = TASK 1 2 26-MAY-2014 10:06:06 AIPS TASK = VBA_TASK 1 2 26-MAY-2014 10:06:06 AIPS GO 1 2 26-MAY-2014 10:06:06 AIPS DOWAIT = VBA_WAIT 1 2 26-MAY-2014 10:06:06 AIPS TASK = VBA_TTSK 1 2 26-MAY-2014 10:06:06 AIPS RETURN 1 2 26-MAY-2014 10:06:06 AIPS FINISH 1 2 26-MAY-2014 10:06:06 AIPS PROCEDURE MAXTAB (VBA_TYPE) 1 2 26-MAY-2014 10:06:06 AIPS *--------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS * Return the highest version number of a table of type 1 2 26-MAY-2014 10:06:06 AIPS * VBA_TYPE attached to the specified file. 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS * Inputs: 1 2 26-MAY-2014 10:06:06 AIPS * VBA_TYPE Table type 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS * Adverbs: 1 2 26-MAY-2014 10:06:06 AIPS * USERID User ID 1 2 26-MAY-2014 10:06:06 AIPS * INNAME File name 1 2 26-MAY-2014 10:06:06 AIPS * INCLASS File class 1 2 26-MAY-2014 10:06:06 AIPS * INSEQ File sequence number 1 2 26-MAY-2014 10:06:06 AIPS * INDISK File disk number 1 2 26-MAY-2014 10:06:06 AIPS *--------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS SCALAR VBA_SLOT 1 2 26-MAY-2014 10:06:06 AIPS SCALAR VBA_VERS 1 2 26-MAY-2014 10:06:06 AIPS *--------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS * Save adverb values 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS VBA_KEYW = KEYWORD 1 2 26-MAY-2014 10:06:06 AIPS VBA_KEYV = KEYVALUE 1 2 26-MAY-2014 10:06:06 AIPS VBA_KEYS = KEYSTRNG 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS VBA_SLOT = 0 1 2 26-MAY-2014 10:06:06 AIPS KEYSTRNG = ' ' 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS * Invariant: KEYSTRNG <> VBA_TYPE implies that no of the first 1 2 26-MAY-2014 10:06:06 AIPS * VBA_SLOT tables has type VBA_TYPE 1 2 26-MAY-2014 10:06:06 AIPS * Bound: 50 - VBA_SLOT localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 27 Pops Prior Date Time Task Messages for user 130 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS WHILE VBA_SLOT <> 50 & KEYSTRNG <> VBA_TYPE 1 2 26-MAY-2014 10:06:06 AIPS VBA_SLOT = VBA_SLOT + 1 1 2 26-MAY-2014 10:06:06 AIPS KEYWORD = 'EXTYPE' !! CHAR(VBA_SLOT) 1 2 26-MAY-2014 10:06:06 AIPS GETHEAD 1 2 26-MAY-2014 10:06:06 AIPS END 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS * If KEYSTRNG = VBA_TYPE then VBA_SLOT is the index for table 1 2 26-MAY-2014 10:06:06 AIPS * type VBA_TYPE in the file header otherwise there are no 1 2 26-MAY-2014 10:06:06 AIPS * tables of type VBA_TYPE. 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS IF KEYSTRNG = VBA_TYPE THEN 1 2 26-MAY-2014 10:06:06 AIPS KEYWORD = 'EXTVER' !! CHAR(VBA_SLOT) 1 2 26-MAY-2014 10:06:06 AIPS GETHEAD 1 2 26-MAY-2014 10:06:06 AIPS ELSE 1 2 26-MAY-2014 10:06:06 AIPS KEYVALUE(1) = 0 1 2 26-MAY-2014 10:06:06 AIPS END 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS VBA_VER = KEYVALUE(1) 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS * Restore saved adverbs 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS KEYWORD = VBA_KEYW 1 2 26-MAY-2014 10:06:06 AIPS KEYVALUE = VBA_KEYV 1 2 26-MAY-2014 10:06:06 AIPS KEYSTRNG = VBA_KEYS 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS RETURN VBA_VER 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS FINISH 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS PROCEDURE VLACKMOD 1 2 26-MAY-2014 10:06:06 AIPS * used in VLALDMOD 1 2 26-MAY-2014 10:06:06 AIPS error=0;sysout='';sys2com'' 1 2 26-MAY-2014 10:06:06 AIPS syscom'ls -1 $AIPSTARS/ 1 2 26-MAY-2014 10:06:06 AIPS sys2com(1) inname!!'.MODEL' 1 2 26-MAY-2014 10:06:06 AIPS sys2com(2) ' >& /dev/null 1 2 26-MAY-2014 10:06:06 AIPS system 1 2 26-MAY-2014 10:06:06 AIPS return 1 2 26-MAY-2014 10:06:06 AIPS finish 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS PROCEDURE VLACKOBJ 1 2 26-MAY-2014 10:06:06 AIPS * used in VLALDMOD 1 2 26-MAY-2014 10:06:06 AIPS if (((vla_obj='1331+305') ! (vla_obj='1328+307')) ! (vla_obj='J1331+3030')) 1 2 26-MAY-2014 10:06:06 AIPS then; vla_obj='3C286';end 1 2 26-MAY-2014 10:06:06 AIPS if (((vla_obj='0137+331') ! (vla_obj='0134+329')) ! (vla_obj='J0137+3309')) 1 2 26-MAY-2014 10:06:06 AIPS then; vla_obj='3C48';end 1 2 26-MAY-2014 10:06:06 AIPS if (((vla_obj='0521+166') ! (vla_obj='0518+165')) ! (vla_obj='J0521+1638')) 1 2 26-MAY-2014 10:06:06 AIPS then; vla_obj='3C138';end 1 2 26-MAY-2014 10:06:06 AIPS if (((vla_obj='0542+498') ! (vla_obj='0538+498')) ! (vla_obj='J0542+4951')) 1 2 26-MAY-2014 10:06:06 AIPS then; vla_obj='3C147';end 1 2 26-MAY-2014 10:06:06 AIPS if (((vla_obj='1411+522') ! (vla_obj='1409+524')) ! (vla_obj='J1411+5212')) 1 2 26-MAY-2014 10:06:06 AIPS then; vla_obj='3C295';end;clrtemp;return 1 2 26-MAY-2014 10:06:06 AIPS finish 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS PROCEDURE VLABAND 1 2 26-MAY-2014 10:06:06 AIPS * used in VLALDMOD localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 28 Pops Prior Date Time Task Messages for user 130 1 2 26-MAY-2014 10:06:06 AIPS band='';j=1 1 2 26-MAY-2014 10:06:06 AIPS while (j<9) 1 2 26-MAY-2014 10:06:06 AIPS keyword='CTYPE'!!char(j);gethead;keyword='CRVAL'!!char(j);clrtemp 1 2 26-MAY-2014 10:06:06 AIPS if (keystrng='FREQ') then;gethead;j=9;else;j=j+1;end;end 1 2 26-MAY-2014 10:06:06 AIPS keyvalue(1)=keyvalue(1)/1e9; 1 2 26-MAY-2014 10:06:06 AIPS if ( (keyvalue(1)>38) & (keyvalue(1)<51) ) then; band='Q';end 1 2 26-MAY-2014 10:06:06 AIPS if ( (keyvalue(1)>20.4) & (keyvalue(1)<25.5) ) then; band='K';end 1 2 26-MAY-2014 10:06:06 AIPS if ( (keyvalue(1)>13.5) & (keyvalue(1)<16.3) ) then; band='U';end 1 2 26-MAY-2014 10:06:06 AIPS if ( (keyvalue(1)> 6.8) & (keyvalue(1)< 9.6) ) then; band='X';end 1 2 26-MAY-2014 10:06:06 AIPS if ( (keyvalue(1)> 4.2) & (keyvalue(1)< 5.1) ) then; band='C';end 1 2 26-MAY-2014 10:06:06 AIPS if ( (keyvalue(1)> 1.15) & (keyvalue(1)< 1.75) ) then; band='L';end 1 2 26-MAY-2014 10:06:06 AIPS if ( (keyvalue(1)>0.298) & (keyvalue(1)<0.345) ) then; band='P';end 1 2 26-MAY-2014 10:06:06 AIPS if ( (keyvalue(1)>0.072) & (keyvalue(1)<0.076) ) then; band='4';end;clrtemp 1 2 26-MAY-2014 10:06:06 AIPS return 1 2 26-MAY-2014 10:06:06 AIPS finish 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS PROCEDURE VLALDMOD 1 2 26-MAY-2014 10:06:06 AIPS * Procedure to load a flux calibrator model if one exists 1 2 26-MAY-2014 10:06:06 AIPS * similar but not identical to loadmodl in VLARUN 1 2 26-MAY-2014 10:06:06 AIPS * used in VLACALIB 1 2 26-MAY-2014 10:06:06 AIPS scalar vla1950 1 2 26-MAY-2014 10:06:06 AIPS vla1950=-1 1 2 26-MAY-2014 10:06:06 AIPS keyword'EPOCH';keyvalue=0;keystrng='';gethead 1 2 26-MAY-2014 10:06:06 AIPS if (keyvalue(1)<1999) then;vla1950=1;end 1 2 26-MAY-2014 10:06:06 AIPS vlaband; vlackobj;clrtemp; 1 2 26-MAY-2014 10:06:06 AIPS if(substr(vla_obj,1,2)='3C')then 1 2 26-MAY-2014 10:06:06 AIPS inname=vla_obj!!'_'!!band;inclass'MODEL';intype'MA'; inseq 0; vlackmod 1 2 26-MAY-2014 10:06:06 AIPS if(error<1) then 1 2 26-MAY-2014 10:06:06 AIPS outdisk=indisk; object=vla_obj; go calrd; 1 2 26-MAY-2014 10:06:06 AIPS if (vla1950) then;eposwtch;end 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS else 1 2 26-MAY-2014 10:06:06 AIPS error=1 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS return 1 2 26-MAY-2014 10:06:06 AIPS finish 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS PROC VLACALIB 1 2 26-MAY-2014 10:06:06 AIPS * Procedure to run CALIB listing closure errors and solutions 1 2 26-MAY-2014 10:06:06 AIPS * rewritten by Amy Mioduszewski 1 2 26-MAY-2014 10:06:06 AIPS * Save inputs 1 2 26-MAY-2014 10:06:06 AIPS scalar olddowait, vlamod 1 2 26-MAY-2014 10:06:06 AIPS olddowait=dowait 1 2 26-MAY-2014 10:06:06 AIPS dowait=1 1 2 26-MAY-2014 10:06:06 AIPS vlamod=-1 1 2 26-MAY-2014 10:06:06 AIPS tput vlacalib 1 2 26-MAY-2014 10:06:06 AIPS * If there is one CALSOUR and it is a standard flux calibrator 1 2 26-MAY-2014 10:06:06 AIPS * then use model if available 1 2 26-MAY-2014 10:06:06 AIPS if((calsour(2)='')&(uvra(1)=0)&(uvra(2)=0)&(ante(1)=0))then 1 2 26-MAY-2014 10:06:06 AIPS vla_obj=calsour(1); vlaldmod 1 2 26-MAY-2014 10:06:06 AIPS if(error<1) then; vlamod=1;end 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS * Defaults for most CALIB adverbs. 1 2 26-MAY-2014 10:06:06 AIPS default calib;tget vlacalib;task 'CALIB' 1 2 26-MAY-2014 10:06:06 AIPS bchan 1;echan 0; aparm 4,0;solmode 'A&P' 1 2 26-MAY-2014 10:06:06 AIPS aparm(6)=2; cparm 0, 0, minamper/10, minphser/10, 1, 0 localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 29 Pops Prior Date Time Task Messages for user 130 1 2 26-MAY-2014 10:06:06 AIPS if(vlamod=1)then 1 2 26-MAY-2014 10:06:06 AIPS in2na=vla_obj!!'_'!!band;in2class'MODEL';in2seq=0;in2di=indi 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS * Run CALIB and print messages 1 2 26-MAY-2014 10:06:06 AIPS if (DOPRINT<=0) then; go;end 1 2 26-MAY-2014 10:06:06 AIPS if (DOPRINT>0)then 1 2 26-MAY-2014 10:06:06 AIPS docrt -1; prnum 0; prta 'AIPS';clrm;inputs vlacalib 1 2 26-MAY-2014 10:06:06 AIPS prta task; clrm; go; prta 'AIPS'; prtm; prta task; prtm 1 2 26-MAY-2014 10:06:06 AIPS prta '' 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS * Run LISTR to print SN table 1 2 26-MAY-2014 10:06:06 AIPS if (DOPRINT>0) THEN 1 2 26-MAY-2014 10:06:06 AIPS task 'LISTR';default;tget vlacalib;task 'LISTR' 1 2 26-MAY-2014 10:06:06 AIPS docrt=-1 1 2 26-MAY-2014 10:06:06 AIPS opty 'GAIN'; inext 'SN'; bif 1;eif 2; stokes 'HALF' 1 2 26-MAY-2014 10:06:06 AIPS dparm 5 1 0;go 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS tget vlacalib 1 2 26-MAY-2014 10:06:06 AIPS if (SNVER=0) then 1 2 26-MAY-2014 10:06:06 AIPS print '!! SNVER=0 => GENERATED A NEW SN TABLE' 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS dowait=olddowait 1 2 26-MAY-2014 10:06:06 AIPS return;finish 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS PROC VLARESET 1 2 26-MAY-2014 10:06:06 AIPS * Procedure to reset calibration; delete all SN and CL tables 1 2 26-MAY-2014 10:06:06 AIPS * higher than ver 1. 1 2 26-MAY-2014 10:06:06 AIPS i 0; j 0; tput vlareset 1 2 26-MAY-2014 10:06:06 AIPS for x=1:10; keyw 'EXTYPE'!!char(x); geth 1 2 26-MAY-2014 10:06:06 AIPS if 'CL'=keystr then keyw 'EXTVER'!!char(x);geth; 1 2 26-MAY-2014 10:06:06 AIPS j = keyval(1); end 1 2 26-MAY-2014 10:06:06 AIPS if 'SN'=keystr then keyw 'EXTVER'!!char(x);geth; 1 2 26-MAY-2014 10:06:06 AIPS i = keyval(1); end; end 1 2 26-MAY-2014 10:06:06 AIPS if i>0 then inex 'SN'; inver -1; extd; end 1 2 26-MAY-2014 10:06:06 AIPS inext 'CL' 1 2 26-MAY-2014 10:06:06 AIPS if j>1 then for inver=2:J; extd; end; inver 0; end 1 2 26-MAY-2014 10:06:06 AIPS return;finish 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS PROC VLACLCAL 1 2 26-MAY-2014 10:06:06 AIPS * Procedure to run CLCAL followed by LISTR to list CL table. 1 2 26-MAY-2014 10:06:06 AIPS * rewritten by Amy Mioduszewski 1 2 26-MAY-2014 10:06:06 AIPS * Save inputs 1 2 26-MAY-2014 10:06:06 AIPS scalar olddowait 1 2 26-MAY-2014 10:06:06 AIPS olddowait=dowait 1 2 26-MAY-2014 10:06:06 AIPS dowait=1 1 2 26-MAY-2014 10:06:06 AIPS tput vlaclcal 1 2 26-MAY-2014 10:06:06 AIPS * Set CLCAL adverbs 1 2 26-MAY-2014 10:06:06 AIPS task 'CLCAL';default;tget VLACLCAL;task 'CLCAL' 1 2 26-MAY-2014 10:06:06 AIPS opcode 'CALI'; cutoff=0;go 1 2 26-MAY-2014 10:06:06 AIPS * Run CLCAL and print messages 1 2 26-MAY-2014 10:06:06 AIPS * if (DOPRINT<=0) then; go;end 1 2 26-MAY-2014 10:06:06 AIPS * if (DOPRINT>0)then 1 2 26-MAY-2014 10:06:06 AIPS * docrt -1; prnum 0; prta task; clrm; go; prtm; prta '' 1 2 26-MAY-2014 10:06:06 AIPS * end 1 2 26-MAY-2014 10:06:06 AIPS * Run LISTR to print CL table 1 2 26-MAY-2014 10:06:06 AIPS if (DOPRINT>0) THEN localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 30 Pops Prior Date Time Task Messages for user 130 1 2 26-MAY-2014 10:06:06 AIPS task 'LISTR';default;tget vlaclcal;task 'LISTR' 1 2 26-MAY-2014 10:06:06 AIPS opty 'GAIN'; inext 'CL'; inver gainuse; sources '' 1 2 26-MAY-2014 10:06:06 AIPS docrt -1;bif 1;eif 2; stokes 'HALF'; dparm 5 1 0;go 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS tget vlaclcal 1 2 26-MAY-2014 10:06:06 AIPS dowait=olddowait 1 2 26-MAY-2014 10:06:06 AIPS return;finish 1 2 26-MAY-2014 10:06:06 AIPS PROC VLASUMM 1 2 26-MAY-2014 10:06:06 AIPS *--------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS * Plots an AN or CL table versus time 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS * Inputs: 1 2 26-MAY-2014 10:06:06 AIPS * INNAME input file name 1 2 26-MAY-2014 10:06:06 AIPS * INCLASS input file class 1 2 26-MAY-2014 10:06:06 AIPS * INSEQ input file sequence number 1 2 26-MAY-2014 10:06:06 AIPS * INDISK input file disk number 1 2 26-MAY-2014 10:06:06 AIPS * INEXT table to be plotted 1 2 26-MAY-2014 10:06:06 AIPS * INVERS table number to be plotted 1 2 26-MAY-2014 10:06:06 AIPS * STOKES stokes to plot 1 2 26-MAY-2014 10:06:06 AIPS * SUBARRAY subarray number 1 2 26-MAY-2014 10:06:06 AIPS * DOCRT print to screen? 1 2 26-MAY-2014 10:06:06 AIPS * OUTPRINT print to file 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS * This is identical to VLBASUMM which is part of VLBAUTIL 1 2 26-MAY-2014 10:06:06 AIPS *--------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS tput vlasumm 1 2 26-MAY-2014 10:06:06 AIPS scalar vba_ant 1 2 26-MAY-2014 10:06:06 AIPS vba_ant=maxtab('AN') 1 2 26-MAY-2014 10:06:06 AIPS task 'PRTAN'; default; tget vlasumm; task 'PRTAN' 1 2 26-MAY-2014 10:06:06 AIPS for i=1 to vba_ant 1 2 26-MAY-2014 10:06:06 AIPS invers i; runwait('PRTAN') 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS task 'LISTR'; default; tget vlasumm; task 'LISTR';optype 'SCAN' 1 2 26-MAY-2014 10:06:06 AIPS runwait('LISTR') 1 2 26-MAY-2014 10:06:06 AIPS tget vlasumm 1 2 26-MAY-2014 10:06:06 AIPS return; finish 1 2 26-MAY-2014 10:06:06 AIPS PROCEDURE MAXTAB (VBA_TYPE) 1 2 26-MAY-2014 10:06:06 AIPS *----------------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS * Return the highest version number of a table of type VBA_TYPE 1 2 26-MAY-2014 10:06:06 AIPS * attached to the specified file. 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS * Inputs: 1 2 26-MAY-2014 10:06:06 AIPS * VBA_TYPE Table type 1 2 26-MAY-2014 10:06:06 AIPS * 1 2 26-MAY-2014 10:06:06 AIPS * Adverbs: 1 2 26-MAY-2014 10:06:06 AIPS * USERID User ID 1 2 26-MAY-2014 10:06:06 AIPS * INNAME File name 1 2 26-MAY-2014 10:06:06 AIPS * INCLASS File class 1 2 26-MAY-2014 10:06:06 AIPS * INSEQ File sequence number 1 2 26-MAY-2014 10:06:06 AIPS * INDISK File disk number 1 2 26-MAY-2014 10:06:06 AIPS *----------------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS ARRAY VBA_KEYV(2) 1 2 26-MAY-2014 10:06:06 AIPS SCALAR VBA_SLOT, VBA_VERS 1 2 26-MAY-2014 10:06:06 AIPS STRING*8 VBA_KEYW 1 2 26-MAY-2014 10:06:06 AIPS STRING*16 VBA_KEYS 1 2 26-MAY-2014 10:06:06 AIPS *Save adverb values localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 31 Pops Prior Date Time Task Messages for user 130 1 2 26-MAY-2014 10:06:06 AIPS VBA_KEYW = KEYWORD 1 2 26-MAY-2014 10:06:06 AIPS VBA_KEYV = KEYVALUE 1 2 26-MAY-2014 10:06:06 AIPS VBA_KEYS = KEYSTRNG 1 2 26-MAY-2014 10:06:06 AIPS VBA_SLOT = 0 1 2 26-MAY-2014 10:06:06 AIPS KEYSTRNG = ' ' 1 2 26-MAY-2014 10:06:06 AIPS * Invariant: KEYSTRNG <> VBA_TYPE implies that no of the first 1 2 26-MAY-2014 10:06:06 AIPS * VBA_SLOT tables has type VBA_TYPE 1 2 26-MAY-2014 10:06:06 AIPS * Bound: 50 - VBA_SLOT 1 2 26-MAY-2014 10:06:06 AIPS WHILE VBA_SLOT <> 50 & KEYSTRNG <> VBA_TYPE 1 2 26-MAY-2014 10:06:06 AIPS VBA_SLOT = VBA_SLOT + 1; KEYWORD = 'EXTYPE' !! CHAR(VBA_SLOT) 1 2 26-MAY-2014 10:06:06 AIPS GETHEAD 1 2 26-MAY-2014 10:06:06 AIPS END 1 2 26-MAY-2014 10:06:06 AIPS * If KEYSTRNG = VBA_TYPE then VBA_SLOT is the index for table type 1 2 26-MAY-2014 10:06:06 AIPS * VBA_TYPE in the file header otherwise there are no tables of type 1 2 26-MAY-2014 10:06:06 AIPS * VBA_TYPE. 1 2 26-MAY-2014 10:06:06 AIPS IF KEYSTRNG = VBA_TYPE THEN 1 2 26-MAY-2014 10:06:06 AIPS KEYWORD = 'EXTVER' !! CHAR(VBA_SLOT); GETHEAD 1 2 26-MAY-2014 10:06:06 AIPS ELSE 1 2 26-MAY-2014 10:06:06 AIPS KEYVALUE(1) = 0 1 2 26-MAY-2014 10:06:06 AIPS END 1 2 26-MAY-2014 10:06:06 AIPS VBA_VER = KEYVALUE(1) 1 2 26-MAY-2014 10:06:06 AIPS * Restore saved adverbs 1 2 26-MAY-2014 10:06:06 AIPS KEYWORD = VBA_KEYW; KEYVALUE = VBA_KEYV; KEYSTRNG = VBA_KEYS 1 2 26-MAY-2014 10:06:06 AIPS RETURN VBA_VER 1 2 26-MAY-2014 10:06:06 AIPS FINISH 1 2 26-MAY-2014 10:06:06 AIPS PROCEDURE VLALIST 1 2 26-MAY-2014 10:06:06 AIPS *procedure to run LISTR in a standard manner 1 2 26-MAY-2014 10:06:06 AIPS default 'LISTR';tget vlalist;task 'LISTR' 1 2 26-MAY-2014 10:06:06 AIPS docrt=-1; opty 'GAIN'; inext 'SN'; bif 1;eif 2 1 2 26-MAY-2014 10:06:06 AIPS stokes 'HALF'; dparm 5 1 0 1 2 26-MAY-2014 10:06:06 AIPS runwait('LISTR') 1 2 26-MAY-2014 10:06:06 AIPS FINISH 1 2 26-MAY-2014 10:06:06 AIPS PROCEDURE DAYNUM(VBA_DATE) 1 2 26-MAY-2014 10:06:06 AIPS *----------------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS * Returns the day number when given a date as a character string in 1 2 26-MAY-2014 10:06:06 AIPS * yyyymmdd format. The leap year calculation is good from 1901-2099. 1 2 26-MAY-2014 10:06:06 AIPS * VBA_DATE is a 16 character string so the user can send KEYWORD. 1 2 26-MAY-2014 10:06:06 AIPS *----------------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS array vba_mnum(12) 1 2 26-MAY-2014 10:06:06 AIPS scalar vba_yr, vba_mo, vba_day, vba_dnum, vba_leap, vba_ok 1 2 26-MAY-2014 10:06:06 AIPS *----------------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS vba_leap = 0; vba_yr=value(substr(vba_date,1,4)) 1 2 26-MAY-2014 10:06:06 AIPS vba_mnum(1)=0;vba_mnum(2)=31;vba_mnum(3)=59;vba_mnum(4)=90 1 2 26-MAY-2014 10:06:06 AIPS vba_mnum(5)=120;vba_mnum(6)=151;vba_mnum(7)=181;vba_mnum(8)=212 1 2 26-MAY-2014 10:06:06 AIPS vba_mnum(9)=243;vba_mnum(10)=273;vba_mnum(11)=304;vba_mnum(12)=334 1 2 26-MAY-2014 10:06:06 AIPS vba_mo=value(substr(vba_date,5,6)); vba_day=value(substr(vba_date,7,8)) 1 2 26-MAY-2014 10:06:06 AIPS if(mod(vba_yr,4)=0&vba_mo>2) then; vba_leap=1;end 1 2 26-MAY-2014 10:06:06 AIPS vba_dnum=vba_mnum(vba_mo)+vba_day+vba_leap 1 2 26-MAY-2014 10:06:06 AIPS if(vba_mo<1)!(vba_mo>12)!(vba_day<1)!(vba_day>31)then; vba_dnum=-1;end 1 2 26-MAY-2014 10:06:06 AIPS return vba_dnum 1 2 26-MAY-2014 10:06:06 AIPS finish 1 2 26-MAY-2014 10:06:06 AIPS PROCEDURE VLATECR 1 2 26-MAY-2014 10:06:06 AIPS *----------------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS * Input adverbs: 1 2 26-MAY-2014 10:06:06 AIPS * INNAME file name 1 2 26-MAY-2014 10:06:06 AIPS * INCLASS file class localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 32 Pops Prior Date Time Task Messages for user 130 1 2 26-MAY-2014 10:06:06 AIPS * INSEQ file sequence number 1 2 26-MAY-2014 10:06:06 AIPS * INDISK disk number 1 2 26-MAY-2014 10:06:06 AIPS *----------------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS scalar vba_ok, vba_yr, vba_cr, vba_dnum, vba_i, vba_get, vba_days, vba_nfil 1 2 26-MAY-2014 10:06:06 AIPS scalar vba_rund 1 2 26-MAY-2014 10:06:06 AIPS string*3 vba_chdn 1 2 26-MAY-2014 10:06:06 AIPS string*48 vba_inf 1 2 26-MAY-2014 10:06:06 AIPS *----------------------------------------------------------------------- 1 2 26-MAY-2014 10:06:06 AIPS tput vlatecr; vnum 35; vput vlatecr; sysout='' 1 2 26-MAY-2014 10:06:06 AIPS vba_ok=1;vba_get=1; sys2com=''; 1 2 26-MAY-2014 10:06:06 AIPS if(maxtab('NX')=0)then 1 2 26-MAY-2014 10:06:06 AIPS vba_ok=-6 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS if(vba_ok>0)then 1 2 26-MAY-2014 10:06:06 AIPS default gethead; vget vlatecr; 1 2 26-MAY-2014 10:06:06 AIPS keyword = 'DATE-MAP'; gethead; vba_cr=value(substr(keystrng,1,4)) 1 2 26-MAY-2014 10:06:06 AIPS vba_rund=daynum(keystrng) 1 2 26-MAY-2014 10:06:06 AIPS keyword = 'DATE-OBS'; gethead; vba_yr=value(substr(keystrng,1,4)) 1 2 26-MAY-2014 10:06:06 AIPS if(vba_yr>1997)&(vba_yr<=vba_cr) then; 1 2 26-MAY-2014 10:06:06 AIPS vba_dnum=daynum(keystrng); 1 2 26-MAY-2014 10:06:06 AIPS if(vba_dnum<1)!(vba_dnum>366) then; vba_ok=-4;end 1 2 26-MAY-2014 10:06:06 AIPS if(vba_yr=1998)&(vba_dnum<151)then; vba_ok=-5;end 1 2 26-MAY-2014 10:06:06 AIPS else 1 2 26-MAY-2014 10:06:06 AIPS vba_ok=-4; if(vba_yr<=1997) then; vba_ok=-5; end 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS default getthead; vget vlatecr; 1 2 26-MAY-2014 10:06:06 AIPS inext 'NX';keywo 'NUM ROW'; getthead; pixxy keyval(1), 1; tabget 1 2 26-MAY-2014 10:06:06 AIPS vba_days=keyval(1)+keyval(2); pixxy(2)=2; tabget 1 2 26-MAY-2014 10:06:06 AIPS vba_nfil=ceil(vba_days+0.5*(keyval(1)+keyval(2))) 1 2 26-MAY-2014 10:06:06 AIPS if(vba_ok>0)&((vba_yr<2002)!((vba_yr=2002)&(vba_dnum<305))) then 1 2 26-MAY-2014 10:06:06 AIPS if(((vba_days+0.5*(keyval(1)+keyval(2)))-vba_nfil+1.0)*24.0>23.0) then 1 2 26-MAY-2014 10:06:06 AIPS vba_nfil=vba_nfil+1 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS pixxy 1, 1; tabget; vba_days=keyval(1)+keyval(2); pixxy(2)=2; tabget 1 2 26-MAY-2014 10:06:06 AIPS if((vba_days-0.5*(keyval(1)+keyval(2)))*24.0<1.0) then 1 2 26-MAY-2014 10:06:06 AIPS vba_nfil=vba_nfil+1; vba_dnum=vba_dnum-1 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS if(vba_yr=1998)&(vba_dnum<151)then; vba_ok=-5;end 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS if(vba_ok>0) then 1 2 26-MAY-2014 10:06:06 AIPS syscom 'which wget 1 2 26-MAY-2014 10:06:06 AIPS system 1 2 26-MAY-2014 10:06:06 AIPS if(error>0) then 1 2 26-MAY-2014 10:06:06 AIPS syscom 'which curl 1 2 26-MAY-2014 10:06:06 AIPS system 1 2 26-MAY-2014 10:06:06 AIPS if(error>0) then 1 2 26-MAY-2014 10:06:06 AIPS syscom 'which ncftpget 1 2 26-MAY-2014 10:06:06 AIPS system 1 2 26-MAY-2014 10:06:06 AIPS if(error>0) then; vba_ok=-1;else; vba_get=-2;end 1 2 26-MAY-2014 10:06:06 AIPS else 1 2 26-MAY-2014 10:06:06 AIPS vba_get=-1 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS if(vba_ok>0) then 1 2 26-MAY-2014 10:06:06 AIPS type 'DOWNLOAD FILE(S):' localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 33 Pops Prior Date Time Task Messages for user 130 1 2 26-MAY-2014 10:06:06 AIPS for vba_i=vba_dnum to vba_dnum+vba_nfil-1 1 2 26-MAY-2014 10:06:06 AIPS substr(vba_chdn,1,2)='00'; 1 2 26-MAY-2014 10:06:06 AIPS if(vba_i>99) then; 1 2 26-MAY-2014 10:06:06 AIPS vba_chdn=char(vba_i) 1 2 26-MAY-2014 10:06:06 AIPS else 1 2 26-MAY-2014 10:06:06 AIPS if(vba_i>9) then 1 2 26-MAY-2014 10:06:06 AIPS substr(vba_chdn,2,3)=char(vba_i) 1 2 26-MAY-2014 10:06:06 AIPS else 1 2 26-MAY-2014 10:06:06 AIPS substr(vba_chdn,3,3)=char(vba_i) 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS sys2com(1)=' ftp://cddis.gsfc.nasa.gov/gps/products/ionex/ 1 2 26-MAY-2014 10:06:06 AIPS sys2com(2)=char(vba_yr)!!'/'!!vba_chdn!!'/' 1 2 26-MAY-2014 10:06:06 AIPS sys2com(3)='jplg 1 2 26-MAY-2014 10:06:06 AIPS sys2com(4)=vba_chdn!!'0.'!!substr(char(vba_yr),3,4)!!'i 1 2 26-MAY-2014 10:06:06 AIPS sys2com(5)='.Z' 1 2 26-MAY-2014 10:06:06 AIPS if(vba_get>0) then 1 2 26-MAY-2014 10:06:06 AIPS syscom 'wget -t 10 -P /tmp 1 2 26-MAY-2014 10:06:06 AIPS system 1 2 26-MAY-2014 10:06:06 AIPS if(error>0) then 1 2 26-MAY-2014 10:06:06 AIPS sys2com(3)='codg 1 2 26-MAY-2014 10:06:06 AIPS system 1 2 26-MAY-2014 10:06:06 AIPS if(error<=0)then 1 2 26-MAY-2014 10:06:06 AIPS syscom 'mv /tmp/ 1 2 26-MAY-2014 10:06:06 AIPS sys2com(1)=sys2com(3) 1 2 26-MAY-2014 10:06:06 AIPS sys2com(2)=sys2com(4) 1 2 26-MAY-2014 10:06:06 AIPS sys2com(3)='.Z /tmp/jplg 1 2 26-MAY-2014 10:06:06 AIPS system 1 2 26-MAY-2014 10:06:06 AIPS sys2com(1)=' ftp://cddis.gsfc.nasa.gov/gps/products/ionex/ 1 2 26-MAY-2014 10:06:06 AIPS sys2com(2)=char(vba_yr)!!'/'!!vba_chdn!!'/' 1 2 26-MAY-2014 10:06:06 AIPS sys2com(3)='jplg 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS else 1 2 26-MAY-2014 10:06:06 AIPS if(vba_get=-1) then 1 2 26-MAY-2014 10:06:06 AIPS syscom 'curl 1 2 26-MAY-2014 10:06:06 AIPS sys2com(6)=' > /tmp/jplg 1 2 26-MAY-2014 10:06:06 AIPS sys2com(6)=sys2com(6)!!sys2com(4)!!sys2com(5) 1 2 26-MAY-2014 10:06:06 AIPS system 1 2 26-MAY-2014 10:06:06 AIPS if(error>0) then 1 2 26-MAY-2014 10:06:06 AIPS sys2com(3)='codg 1 2 26-MAY-2014 10:06:06 AIPS sys2com(6)=' > /tmp/codg 1 2 26-MAY-2014 10:06:06 AIPS sys2com(6)=sys2com(6)!!sys2com(4)!!sys2com(5) 1 2 26-MAY-2014 10:06:06 AIPS system 1 2 26-MAY-2014 10:06:06 AIPS if(error<=0)then 1 2 26-MAY-2014 10:06:06 AIPS syscom 'mv /tmp/ 1 2 26-MAY-2014 10:06:06 AIPS sys2com(1)=sys2com(3) 1 2 26-MAY-2014 10:06:06 AIPS sys2com(2)=sys2com(4) 1 2 26-MAY-2014 10:06:06 AIPS sys2com(3)='.Z /tmp/jplg 1 2 26-MAY-2014 10:06:06 AIPS sys2com(6)='' 1 2 26-MAY-2014 10:06:06 AIPS system 1 2 26-MAY-2014 10:06:06 AIPS sys2com(1)=' ftp://cddis.gsfc.nasa.gov/gps/products/ionex/ 1 2 26-MAY-2014 10:06:06 AIPS sys2com(2)=char(vba_yr)!!'/'!!vba_chdn!!'/' 1 2 26-MAY-2014 10:06:06 AIPS sys2com(3)='jplg 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS end localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 34 Pops Prior Date Time Task Messages for user 130 1 2 26-MAY-2014 10:06:06 AIPS else 1 2 26-MAY-2014 10:06:06 AIPS syscom='cd /tmp ; ncftpget -t 120 1 2 26-MAY-2014 10:06:06 AIPS system 1 2 26-MAY-2014 10:06:06 AIPS if(error>0) then 1 2 26-MAY-2014 10:06:06 AIPS sys2com(3)='codg 1 2 26-MAY-2014 10:06:06 AIPS system 1 2 26-MAY-2014 10:06:06 AIPS if(error<=0)then 1 2 26-MAY-2014 10:06:06 AIPS syscom 'mv /tmp/ 1 2 26-MAY-2014 10:06:06 AIPS sys2com(1)=sys2com(3) 1 2 26-MAY-2014 10:06:06 AIPS sys2com(2)=sys2com(4) 1 2 26-MAY-2014 10:06:06 AIPS sys2com(3)='.Z /tmp/jplg 1 2 26-MAY-2014 10:06:06 AIPS system 1 2 26-MAY-2014 10:06:06 AIPS sys2com(1)=' ftp://cddis.gsfc.nasa.gov/gps/products/ionex/ 1 2 26-MAY-2014 10:06:06 AIPS sys2com(2)=char(vba_yr)!!'/'!!vba_chdn!!'/' 1 2 26-MAY-2014 10:06:06 AIPS sys2com(3)='jplg 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS if(error>0) then; vba_ok=-2; end 1 2 26-MAY-2014 10:06:06 AIPS if(error<=0)then 1 2 26-MAY-2014 10:06:06 AIPS syscom = 'uncompress /tmp/ 1 2 26-MAY-2014 10:06:06 AIPS sys2com(1) = sys2com(3)!!sys2com(4)!!sys2com(5) 1 2 26-MAY-2014 10:06:06 AIPS if(error>0) then; vba_ok=-3;end 1 2 26-MAY-2014 10:06:06 AIPS if(vba_i=vba_dnum)then 1 2 26-MAY-2014 10:06:06 AIPS vba_inf = '/tmp/ 1 2 26-MAY-2014 10:06:06 AIPS vba_inf = vba_inf!!sys2com(3)!!sys2com(4) 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS sys2com(2)~'','','','',''; system 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS if(vba_ok<0)then 1 2 26-MAY-2014 10:06:06 AIPS type 'THE DOWNLOAD FAILED.' 1 2 26-MAY-2014 10:06:06 AIPS if(vba_ok=-1)then 1 2 26-MAY-2014 10:06:06 AIPS type 'Your system does not have any of the three possible commands, 1 2 26-MAY-2014 10:06:06 AIPS type 'wget, curl or ncftpget, that this script attempts to use to 1 2 26-MAY-2014 10:06:06 AIPS type 'automatically download the IONEX file(s). 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS if(vba_ok=-2) then 1 2 26-MAY-2014 10:06:06 AIPS type 'IT TAKES UP TO A WEEK FOR THE IONEX FILES TO APPEAR,' 1 2 26-MAY-2014 10:06:06 AIPS type 'IF YOUR EXPERIMENT IS RECENT, TRY AGAIN IN A FEW DAYS.' 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS if(vba_ok=-4) then 1 2 26-MAY-2014 10:06:06 AIPS type 'ATTEMPT TO CONVERT OBSERVATION DATE TO DAY NUMBER FAILED.' 1 2 26-MAY-2014 10:06:06 AIPS type 'CHECK THE OBSERVATION DATE IN THE HEADER OF THIS FILE.' 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS if(vba_ok=-5) then 1 2 26-MAY-2014 10:06:06 AIPS type 'IONEX FILES DO NOT EXIST FOR DATES EARLIER THAN JUNE 1, 1998.' 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS if(vba_ok<>-5) then 1 2 26-MAY-2014 10:06:06 AIPS type 'DOWNLOAD THE FILE(S) MANUALLY (SEE TECOR EXPLAIN FILE),' 1 2 26-MAY-2014 10:06:06 AIPS type 'AND RUN TECOR.' 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS end localhos AIPS (31DEC13) 130 28-MAY-2014 17:22:20 Page 35 Pops Prior Date Time Task Messages for user 130 1 2 26-MAY-2014 10:06:06 AIPS if(vba_ok>0) then 1 2 26-MAY-2014 10:06:06 AIPS default tecor; vget vlatecr; task 'TECOR' 1 2 26-MAY-2014 10:06:06 AIPS * nfiles=vba_nfil; infi=vba_inf; runwait('TECOR') 1 2 26-MAY-2014 10:06:06 AIPS nfiles=vba_nfil; infi=vba_inf; go tecor 1 2 26-MAY-2014 10:06:06 AIPS type 'NUMBER OF FILES DOWNLOADED = '!!char(nfiles) 1 2 26-MAY-2014 10:06:06 AIPS type 'There are jplg* (IONEX) files in your /tmp directory. 1 2 26-MAY-2014 10:06:06 AIPS type 'CL #'!!char(maxtab('CL'))!!' CONTAINS IONOSPHERIC CORRECTIONS' 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS if(vba_ok=-6) then 1 2 26-MAY-2014 10:06:06 AIPS type 'You must have a NX table to use this procedure. 1 2 26-MAY-2014 10:06:06 AIPS type 'Run INDXR and try again. 1 2 26-MAY-2014 10:06:06 AIPS end 1 2 26-MAY-2014 10:06:06 AIPS tget vlatecr 1 2 26-MAY-2014 10:06:06 AIPS return;finish 1 0 26-MAY-2014 10:06:13 AIPS tget vlacalib 1 0 26-MAY-2014 10:06:15 AIPS inp 1 0 26-MAY-2014 10:06:21 AIPS getn 1 1 2 26-MAY-2014 10:06:21 AIPS Got(1) disk= 1 user= 130 type=UV 19861211.CH 0.1 1 0 26-MAY-2014 10:06:24 AIPS inp 1 0 26-MAY-2014 10:06:26 AIPS 1 0 26-MAY-2014 10:06:32 AIPS go vlacalib 1 3 26-MAY-2014 10:06:33 AIPS SYSTEM command to be executed is: 1 3 26-MAY-2014 10:06:33 AIPS ls -1 $AIPSTARS/3C48_L.MODEL >& /dev/null 1 5 26-MAY-2014 10:06:33 CALRD Task CALRD (release of 31DEC13) begins 1 2 26-MAY-2014 10:06:33 CALRD Reading disk file AIPSTARS:3C48_L.MODEL 1 2 26-MAY-2014 10:06:33 CALRD Create 3C48_L .MODEL . 2 (MA) on disk 1 cno 4 1 3 26-MAY-2014 10:06:33 CALRD Appears to have ended successfully 1 5 26-MAY-2014 10:06:33 CALRD localhost 31DEC13 TST: Cpu= 0.0 Real= 0 1 2 26-MAY-2014 10:06:33 AIPS Resumes 1 5 26-MAY-2014 10:06:33 CALIB Task CALIB (release of 31DEC13) begins 1 3 26-MAY-2014 10:06:33 CALIB Using 19861211 . CH 0 . 1 Disk= 1 Usid= 130 1 6 26-MAY-2014 10:06:33 CALIB FQMATC: Setting FQ id number = 1 1 3 26-MAY-2014 10:06:33 CALIB UVGET: Using flag table version 1 to edit data 1 3 26-MAY-2014 10:06:33 CALIB Purports to die of UNNATURAL causes 1 5 26-MAY-2014 10:06:33 CALIB localhost 31DEC13 TST: Cpu= 0.0 Real= 0 1 2 26-MAY-2014 10:06:33 AIPS Resumes 1 9 26-MAY-2014 10:06:33 AIPS RETURN CODE -1 RECEIVED: STOPPING 1 0 26-MAY-2014 10:07:33 AIPS inp prtmsg 1 0 26-MAY-2014 10:07:37 AIPS go prtmsg 1 5 26-MAY-2014 10:07:49 AIPS User 130: 1944 messages, oldest written 21-MAY-2014 10:04:22 1 0 26-MAY-2014 10:07:49 AIPS 1 0 26-MAY-2014 10:07:50 AIPS