[daip] Patch for VLBIUTILS (VLBACRPL and VLBASNPL)

[Kaj Wiik]

Hi!

Below is a small patch for VLBAUTILS.001 to enable
running VLBACRPL and VLBASNPL without a TV (e.g. from
scripts). 

I'd like to add that the AIPS team is doing a wonderful
job, it is clear that AIPS is developing into a good direction
(e.g. DVD support and extended VLBAUTILS)!

Many thanks!

Kaj
wiik at vsop.isas.jaxa.jp

--- /appl/aips/31DEC04/RUN/VLBAUTIL.001.orig    2004-04-21 18:12:52.000000000 +0900
+++ /appl/aips/31DEC04/RUN/VLBAUTIL.001 2004-04-21 18:20:02.000000000 +0900
@@ -1812,7 +1812,7 @@
 *-----------------------------------------------------------------------
 scalar vlb_ok
 tput vlbacrpl
-tvinit
+if(dotv>0)then; tvinit;end
 task 'possm'; default; tget vlbacrpl; task 'possm'
   if(gainu=0)then; gainu=MAXTAB('cl');end
   if(refant=0)then; refant=1;end
@@ -1861,7 +1861,7 @@
 end
 tput vlbasnpl
 if(vlb_ok>0)then
-  tvinit
+  if(dotv>0)then; tvinit;end
   task 'snplt'; default; tget vlbasnpl; task 'snplt'
     if(optype='' ! optype='phas')then; pixra -180 180;end
     keyw 'NO_ANT'; getth; nplot=keyval(1)