----------------------------------------------------------------------- ; Copyright (C) 1996-1997 ; Associated Universities, Inc. Washington DC, USA. ; ; This program is free software; you can redistribute it and/or ; modify it under the terms of the GNU General Public License as ; published by the Free Software Foundation; either version 2 of ; the License, or (at your option) any later version. ; ; This program is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; ; You should have received a copy of the GNU General Public ; License along with this program; if not, write to the Free ; Software Foundation, Inc., 675 Massachusetts Ave, Cambridge, ; MA 02139, USA. ; ; Correspondence concerning AIPS should be addressed as follows: ; Internet email: aipsmail@nrao.edu. ; Postal address: AIPS Project Office ; National Radio Astronomy Observatory ; 520 Edgemont Road ; Charlottesville, VA 22903-2475 USA ----------------------------------------------------------------------- A This file must be used to record any changes made to theDHcode on the Charlottesville VAX in the logon area [RPOPS]. The format to use is:(/2 line 1: Date Program name Your nameN< line 2: What was doneGF line 3: Where has this change been moved (e.g. VPOPS, the Modcomp)NP line 4: BlankZdn PART 1 OF 1982 x'Part 1 of 1981 stored as CHANGED.81A. ;Part 2 of 1981 stored as CHANGED.81B (Aipsletter 11/1/81)*:Part 3 of 1981 stored as CHANGED.81C (Aipsletter 1/1/82)I***********************************************************************I*********************************************************************** B 577. January 2, 1982 FORS .CT3 and .CT5 Eric@ Change name of GETNAM to GTNAME, move BPRLSE to [.FPS]4 Moved to VLA & CV AIPS Jan 8, nowhere elseC 578. January 3, 1982 AU2, ZTQSPY Eric@ SPY message level 2 for batch, bug in retake terminals> Moved from Modcomp this date, to VLA & CV AIPS Jan 8C" 579. January 4, 1982 UVPLT EricrC, Remove all the page marks, add call to DIE (may not be theo 6 thing needed, however).8@ Moved to VLA & CV AIPS Jan 8, to Modcomp Jan 10JAT 580. Jan. 4, 1982 ASCAL and LSCAL Fred B^ I moved the calls to ZDCHIN and VHDRIN from the main pro-Ah gram to the subroutine SCLPRM. This change will allow as9r more efficient overlay structure on the Modcomp.e3| Also removed the call to CHPACK in SCLPRM.C4 Moved to VLA & CV AIPS Jan 8, nowhere else.A 590. Jan. 6, 1982 POPSDAT. DAPL.INC CAPL.INC Garya Added adverb DOALL.9 Moved to VLA & CV AIPS Jan 8, to Modcomp Jan 10.wA 591. Jan. 6, 1982 FITTP Gary ? Added DOALL option. One can now backup all files thats@ match the input parameters (using traditional defaults)* as well as the 1st matching file.9 Moved to VLA & CV AIPS Jan 8, to Modcomp Jan 10. A 592. Jan. 6, 1982 ZQTRUN.MAR GaryeA Fixed bug that caused ZCMPRS not to work on large files..  Changed MOVZWL to MOVL.4 Moved to VLA & CV AIPS Jan 8, nowhere else.&@0 593. Jan. 6, 1982 ASCAL and LSCAL Fred>: I added a further check on antenna numbers (see #407,@D Oct. 1, 1981): the program now flags data on baselines?N labeled i-j whenever j does not exceed i. The programhAX makes no special mention of data flagged for this cause,Ab but rather counts them in its summary printout as pointsl#l that already were flagged. 4v Moved to VLA & CV AIPS Jan 8, nowhere else.? 594. Jan. 7, 1982 CORFQ Fred @ The UVHDR common in CORFQ was inconsistent with that inA UVPGET, thus record pointers were wrong, and the programeC was adjusting the wrong data (in particular, it was screw- A ing up baseline numbers). I inserted the INCLUDE state-t; ments for DUVH and CUVH to make the commons agree.O9 Moved to VLA & CV AIPS Jan 8, to Modcomp Jan 10.? 595. January 7, 1982 Several Erico* ITICS : Get more X-axis ticksA AU6C : TVFIDDLE didn't know what channels to fiddleH5 Fail to close TV on MAPOPN error C UVSRT : Lost info on ext files when output UV file was #  same as input.,D MAPFIX : Add some catlg handling when must retry max/min6  [HELP, INPUTS]TVFIDDLE : Add TVCHAN adverb2* [HELP]IMWEDGE, IMPWEDGE : Fix up typing94 Moved to VLA & CV AIPS Jan 8, to Modcomp Jan 10 >@H 596. January 8, 1982 (late) WaWa IO Eric>R MAPCR : Use FILES common only on non-scratch files9\ FILDES : Init catalog num  604. January 16, 1982 A few Eric 2 UVSRT : Allow it to do compress againA AU4 : INTAPE <= 0 now means 1 as per documentationR5( Moved from VLA this date, to Modcomp Feb 3. 2@< 605. January 18, 1982 UVMAP BillBF When shifting positions the new RA is computed from the CP unshifted value of the declination. Fixed bug in historyR3Z which reversed old and shifted positions. @d Also corrected mispelled constant in VISRD 3.046741E-5n to 3.0461741E-5.4x Moved to MODCOMP this date, to VLA Jan 20. u? 606. Jan. 20, 1982 ASCAL and LSCAL FredbB In VISCOR the calls to LG2BIT were out of place, so thatA LG2BIT was being called many more times than necessary.x? This was evidently slowing down VISCOR by a factor oft 5-10.m) Moved to MODCOMP and VLA today.6= 607. Jan. 20, 1982 ASCAL and LSCAL Fred @ I modified the gain solution routines GCALC and GCALC1B so that always when there are six or fewer antennas they@ use a damping factor equal to 1/4. The intent of thisC modification is to make these routines work more reliably] on VLBI data. 0 Moved to VLA(1) March 7, nowhere else.<" 608. Jan. 21, 1982 several INPUTS and HELPS BillA, Changed IN2SEQ and IN3SEQ used for frequency channel toS6 CHANNEL in::@ [TEST.INPUTS]UVEXP,UVFLG,UVMAP,UVSUB,PRTUV and2J [TEST.HELP]UVEXP,UVFLG,UVMAP,UVSUB,PRTUV9T Also removed "DON'T BE A DISK HOG" message from6<^ [TEST.INPUTS]UVLOD since it is no longer relavant.0h Moved to VLA Jan 23, to Modcomp Feb 3.r eA| 609. January 19, 1982 IMLOD, APCLN, [.help]APCLN Eric E Fix up IMLOD to parse history from RANCID and VLACV, removeDF excess tests for END et al in FITHIS. Fix up error handling2 in APCLN and stop defaulting disks to 1.2 Moved from VLA Jan 24, to Modcomp Feb 3.A 610. January 20,1982 UVPLT Tim B Corrected bugs preventing proper selection of data. Also: corrected incorrect decl. of XINTER in TICS sub.2 Moved from VLA Jan 24, to Modcomp Feb 3.A 611. Jan 20, 1982 2 new tasks Eric/Perley8) PRTTP : To list tape contentsa7 CORMS : Version of COMB to put out RMS mapsb/ both with associated INPUTS and HELPsi2 Moved from VLA Jan 24, to Modcomp Feb 3.>& 612. January 20, 1982 COMB, PBCOR EricI0 COMB : Fixed bug - set BFLAG true when input pix. blank alsov;: PBCOR : Changed blanked pixel counter to real*8 %D [.HELP]WHATSNEW : Updated 2N Moved from VLA Jan 24, to Modcomp Feb 3.X?b 613. January 22-23, 1982 Several EricPCl FIXCAT : NEW - service pgm in [.AIPS] to clear messed up +v entries in catalog filesA8 IBMTP : Set the product/band header parameterD DESCR : Add CONVL to list, check UVMAP on requested APMAP9 (won't work until CONVL fixed up some) C EXFND : Separate clip flux for polarization, VCLP opcode.# [.INPUTS]EXFND. : Ditton# [.HELP]EXFND. : Ditto10 [.HELP]OPCODE. : Add VCLP for EXFND1 APCLN : Stop setting outdisk = indisk e@ PRTPL : Recognize PCNTR plots, fix address problem in= PRFINT (led to ISTART=0 => overwrite data)cD [.INPUTS]PRTPL : Let ASPMM be scaling factor non-standard= [.HELP]PRTPL : plot types. " " "lD [DOC]MV2C06PL. : Add types 6,7; add char offset to GCHARA PRTUV : Fix up # bytes in buffer (use NWDPFP, not BP) 2  Moved from VLA Jan 24, to Modcomp Feb 3.>  61 Moved nowhere. ; 622. Jan. 27, 1982 PBCOR BillB7 Wrong return code was sent to TSKEND - fixed.ED( Moved: MODCOMP this date, to VLA(1) March 7, nowhere else.2 d< o;F 623. Jan. 28, 1982 [TEST.NOTST]REBLD.FOR Gary :P New stand alone utility to rebuild the directoryAZ portion of a catalog from the header information in theDd catalog. This is useful if someone mistakenly initializes n a catalog with FILINI.&x Moved MODCOMP, nowhere else. ; 624. Jan. 28, 1982 [TEST.INPUTS & HELP]UVLOD Billt# Changed NITER to NPOINTS. C Moved: to Modcomp Feb 3, to VLA(1) March 7, nowhere else. D 625. January 28, 1982 Several from David Garrett (U Tx) Eric2 SETPAR : READs all must be from unit 53 MDISK : Declare integers FIBLK, FNBYTE + ZPRMPT : Declare integer OUTLUNsF SL2PL : Declare variables DOSLIC, DOMODL, DORES correctly. SLICE : IRETCOD should be IRETCD < UVMAP : Subroutine MAPOUT, no longer needs LSEQA APMAP : Subroutine MAPOUT no longer datas LSEQ twiceeC PROFL : Change dimensions of PERCNT, LBRACE in routinee? PFCHAR to match size in equivalence tables A Moved to Modcomp Feb 3, to VLA(1) March 7, nowhere elsee" <, 626. January 28, 1982 [TEST.INPUTS & HELP]TOAIPS Bill#6 Changed NITER to NPOINTS. @ Moved: nowhere. J AT 627. January 29, 1982 Several [.HELP] files Eric B^ Clarify tape positioning in help files of TPHEAD, IMLOD,+h EXIND, EXFND, UVLOD, FITTP, UVEXPAr Moved to Modcomp Feb 3, to VLA(1) March 7, nowhere else| A 628. January 29, 1982 SLFIT Eric + Declare REAL*8 WORK(12) in GAUFINm0 Moved to VLA Jan 30, to Modcomp Feb 3. A 629. January 30, 1982 PRTPL EricaC Switched file to fast IO type - program runs a lot faster / Moved to VLA Jan 30, to Modcomp Feb 3  A 630. February 1, 1982 Several EricmF BATER : Insert the BATDAT include where ACOUNT (1,....) needed it. BATER.COM : Change ZSTOPR to ZSTOPAE ZSTRTB : (Vax only) Change MNAME to Character*5, allowsn) resumption to workrA Moved to Modcomp Feb 3, to VLA(1) March 7, nowhere elseG A& 631. Feb. 1, 1982 ZOPEN Gary.iA0 Our method of handling print out to LPA0: does not worknB: for some other line printer drivers. Added DISP='PRINT'AD to FORTRAN open statement to fix this. This also meansSDN we don't need the group assignment FOR001 = LPA0: anymore./X Moved to VLA(1) March 7, nowhere elseab Bl 632. February 2, 1982 Several EricBv EXTCOP : It was looking for header info in the scratch2 buffer, not the header bufferD AUB : It did not look for correct file on UNQUEUE and6 JOBLIST. UNQUEUEd too fast also.D ZDOPRT : Add ISIZE and Buffer to call sequence (not used6 on Vax) - Vax version only so far> PRTPL : Add buffer size and buffer to call ZDOPRT7 BATER : Modify CUB to match changes in AUBcG IMCCLR : Correct IMPS 64-color table (switch RED and GREEN) B Moved to Modcomp Feb 3, to VLA(1) March 7, nowhere else. C 633. February 3, 1982 task startup Eric,D The old system allowed for example APCLN3 to do the job ofA APCLN1 while APCLN1 did the job of APCLN3. This led to D confusion on message terminals, sub-process IDs, SPY, etc.E GTPARM : Call WHOAMI rather than search full TD file listlC WHOAMI : (NEW) Get task name, number via call to ZGNAME ; ZGNAME : (NEW, VAX) gets task ID via SYS$GETJPI <* ZGNAME : (NEW, MODCOMP) gets task ID via REX #43A4 Moved to Modcomp Feb 3, to VLA(1) March 7, nowhere else> CH 634. Feb. 3, 1982 UVLOD Bill DR Fixed bug which caused failure when a source record had no@\ data and was followed by another source record for thef same source.Dp Moved: MODCOMP this date, to VLA(1) March 7, nowhere else.z 1A 635. Feb. 3, 1982 ASCAL FredwB Modified SOLVE to enter the reference antenna numbers inC the gain records. Also changed VISCOR to record the meanl@ modulus of the gain solutions in the gain file header.@ Also now record information on the number of if's, and> which if's they are, (i.e., R, L, or R and L) in the" gain file header record.> Also redefined the meaning of the if flags which are< stored in the gain records, so that information on> missing antennas is more explicitly communic  Clones of UVSUB (including FUDGE etc.) had an uninitilized argument to HIINIT. B UVCOP : Arg. changed to N3 (& added to DATA stmt.)( VBCAL : dittoc2 VBMRG : ditto < CLIP : dittoMF UVSUB : ditto5P UVSRT : ditto (N2 was in DATA stmt )cHZ UVCOP, CLIP, UVSUB moved to MODCOMP this date, to VLA(1) Marchd 7, nowhere elseRn U>x 640. Feb. 9, 1982 ZTXMAT.MAR GaryA Fixed bug. Device and directory specification assummedC less than 20 charaters. Increased to 48. This bug wouldB show up when using verbs INPUTS or HELP for a VAX system4 with long directory or subdirectory names./ Moved to VLA(1) March 7, nowhere elseI? 641. February 9, 1982 New FITS format EricoE An extension to FITS to transfer tables of numbers has beenOE devised and applied first to Clean Components files. Tasks + involved in reading & writing are1H FITTP : Automatically write CC files as TABLES, restructure" the main alsoF PRTTP : Actually read data records to check tape quality,G Understand TABLES extensions, print their headers,( and read their dataB IMLOD : Read TABLES extensions and create CC files if6" found. Restructure the main alsoC, Moved to Modcomp Feb 11, to VLA(1) March 7, nowhere else.U6?@ 642. Feb. 10, 1982 VBMRG Bill ?J Now disregards data whose amplitude is less than halfT:T of another choice for the same visibility point.^ Moved: nowhere.Hh tFr 643. February 10-11, 1982 A couple Eric.| PRTPL : Minor typing corrections H UVSRT : Prevent overwriting some strange output file, allow8 only overwriting the input UV file.- DUVH.INC : Move comments to line up, CUVH.INC : DittoA PBCOR : More includes in main so overlays might work G FUDGE : Standardize, move to [.APL] from [.NOTST], prevent89 overwite except for OUTfile = INfiledE Moved: to Modcomp Feb 11, to VLA(1) March 7, nowhere else..xF 644. Feb. 11, 1982 EXPND BillC Copied an EXPORT tape writing one file per source record.e Also added/changed:l2 DXPN.INC, CXPN.INC, [TEST.INPUTS]EXPND. ' [TEST.HELP]EXPND, TASKS, TAPE  [DOC]INCSUP, TASKSUPB Moved to Modcomp Feb 22, to VLA(1) March 7, nowhere else& VF0 645. February 12, 1982 Today's EricF: [DOC] TASKSUP : Added UVFND, PRTTP; corrected IMLOD, FITTP,D [HELP] TASKS : Minor correction%N [INPUTS] EXFND : Add VCLPi3X [INPUTS] FITTP : Add mention of CC filesg>b [HELP] FITTP : Add that CC files are written out PASS2 - Now in complex to real transform it switches< halves of each row before reading them. Changed in [TEST.APL] = CONVL, new task. convolves an image with a gaussianTC or another image. Replaces the older routine by the sameD& name. Additions/changes in:$ [TEST.NOTST]CONVL.FOR* [TEST]DCVL.INC and CCVL.INC" [TEST.INPUTS]CONVL.3 [TEST.HELP]CONVL., TASKS., ANALYSIS.M% [DOC]TASKSUP., INCSUP.2D Moved: MODCOMP this date, to VLA(1) March 7, nowhere else. lC 655. February 22, 1982 Some more Eric 5 R4TOI2 : Leave output map in WRITe status A" APCLN : Leave that WRITe status to be cleared by DIE99, ZWHOMI : (Modcomp only) Change to call ZGNAME 96 ZTQSPY : (Modcomp only) Change to call ZTQSP2 C@ ZTQSP2 : NEW - (Modcomp only) gets list of active tasks DJ etc., All assembly to get around changes on TCB@T structures as Modcomp updates their systemsC^ Moved to Modcomp Feb 22, to VLA(1) March 7, nowhere else. hBr 656. February 23-24, 1982 Modcomp discovered Eric.| UVMAP : Fix HI common declaration6 UVCOP : Bad declaration of NAMEIN in main FUDGE : Ditto5 CLIP : Ditto, fix HI common declarationr. UVSUB : Fix HI common declaration> UVFND : Remove DATA statement for common variable* RGBMP : A common out of orderA APMAP : Numerous failures of code to seem to lead to,' a RETURN statementoA DBCON : Failed to DATA T, F; missing comma in a DATA C Moved to Modcomp Feb 23, to VLA(1) March 7, nowhere else.rD 657. February 23-24, 1982 Several more EricH FIXFIL : New [.AIPS] service program to correct single words( in specified files.? ACOUNT : Make it more self-protective (done 19-Feb) F PRTTP : Error on IBM tapes (failed to loop) and add about+& blanking bits (if any)C0 IBMTP : Messed up all magic value blanked outputs!!!!! A: Fixed this for data and for header parameter =D EXFND : Test weights correctly in VCLP operationAN PRTACC : Add a sequence # to user and task print outsEX FNDUV : Withdrawn (UVFND does its op among other things)&b [.INPUTS]FNDUV : WithdrawnCl [DOC]TASKSUP,WHATSUP,IOSUP,UTILSUP : Remove FNDUV, showM.v changes to standard, etc.C Moved to Modcomp March 5, to VLA(1) March 7, nowhere else C 658. February 23, 1982 PSAP version of UVSUB Bill. Added routines:O* [TEST.PSAP]PTSUB, PTFAZ and RECT: which allow UVSUB to be used with the pseudo AP.E Moved: to Modcomp March 5, to VLA(1) March 7, nowhere else.e eB 659. February 24, 1982 DBCON BillI Now marks output sort order 'TB', if both input sort orders are  'TB'. E Moved: to Modcomp March 5, to VLA(1) March 7, nowhere else.  C 660. February 25, 1982 VAX things Eric/GaryD)  FORS.CT1 : Add APCLN routinesr/ B 666. March 7, 1982 UVPL2 -> UVPLT Eric4 Change name in fortran and inputs and helpC( Moved already to Modcomp, to VLA(1) March 7, nowhere elseo2H< 667. March 7, 1982 PBCOR Arnold / EricEF Incorporate A. Rots' faster method of computing the primary P beam correction 6Z Moved to VLA(1) March 7, to Modcomp April 1.dCn 668. MARCH 10, 1982 APCLN BillcCx History file now has CLEAN restoring beam to 10 microsec.w2 Moved: to Modcomp April 1, nowhere else. nC 669. March 9, 1982 Transport/update procedures Garyn< Fixed bugs or deficiences in the procedures below:> INSTALL.COM LINKA.COM LINKNS.COM? LINKT.COM UPDATE0.COM UPDATE1.COMd< UPDATENS.COM EXES.CT5 FORS.CT5 Moved: nowhere.mE 670. March 12, 1982 [TEST.PSAP]CFFT BilliB Made Base address pointer to XFOUR I*4 and subtracted 1./ I don't see how this has ever worked.-2 Moved: to Modcomp April 1, nowhere else. nE 671. March 13, 1982 PRTDR Bill E New task. Prints selected contents of a VLBI fringe fittingoA" solution file (DR extension file). Also added/changed:a, [TEST.INPUTS]PRTDR.t*6 [TEST.HELP]PRTDR., TASKS., VLBI.2@ Moved: to Modcomp April 1, nowhere else.J ET 672. March 13, 1982 TV errors Ericn-^ AU5A : Close TV on ReRoam erroro5h TVBLNK : Turn off channel on manual blinkt0r Moved to Modcomp April 1, nowhere else|E 673. March 14, 1982 CVSDIV BillaE Added in [TEST.FPS] and [TEST.PSAP] an AP routine to dividet/ a complex vector by a complex scalar. 1 Moved: to Modcomp April 1, nowhere else