----------------------------------------------------------------------- ; 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: BlankZd0nPART 2 of 1981. Part 1 stored as CHANGED.81A.xI***********************************************************************lI***********************************************************************sD 391. Sept. 21, 1981 ZMSGOP, ZMSGCL, ZMSGDK (Vax) Eric" MSGWRT3 Fixed typing, error handling (in the Z's) 9 Moved to VLA Oct 5 (by link), to Modcomp Oct 7.AE 392. Sept. 21, 1981 HIIO Eric A Correct machine dependent parameter to independent parmE: Moved to VLA Oct 5 (by link), to Modcomp Oct 7..B 393. September 24, 1981 Several Eric8 Mostly an attempt to standardize the UV tasks" CHIS.inc : minor typing" DHIS.inc : minor typing" DUIN.inc : add parms , CUIN.inc : add parms .6 DSRT.inc : Remove parts now in DUVH.@ CSRT.inc : Remove parts now in CUVH'J DFIL.inc : Minor typing corrrTD^ CHCOPY : Add fast copy when everything lines up w realsGh [INPUTS]UVFLG : Change YPARM to APARM (since YPARM for maps)e.r [HELP]UVFLG : " " "8| [INPUTS]APCLN, CCMOD : Correct range on INVER9 [HELP] APCLN, CCMOD : Clarify INVER defaults.wF APCLN : Add call to FNDEXT to support INVER default with* new EXTINI defaults." CCMOD : As for APCLN< UVSUB : Change to new call sequence for UVCREA8 Routines below moved from [.NOTST] to [.AIPS]> UVPGET : Standardize, make fusier, use DUVH, CUVH7 UVCREA : " , change call sequence5 UVINIT : " (just minor typing)t5 UVDISK : " (just minor typing)e! GREG : Standardize 7 PERMAT : Standardize, simplify logic a bit= OSORT : Standardize (mostly change indentation)m7 LSORT : " " " "l7 SHSORT : " " " "P7& MERGE : " " " "c;0 EXTINI : Standardize, correct size computation I: Changed meaning of default input version # (writes) ?D EXTIO : Standardize, correct extension order,.... !N JULDAY : Standardizet!X VBOUT : Standardize 2b PRTUV : " , use DUVH, CUVH;l UVLOD : Standardize, add stubs for FITS tapesC!v UVFLG : Standardizen5 UVSRT : Standardize, make it use DUVH..w1 UVIBM : Standardize, use DUVH, CUVHoE [DOC]WHATSUP,IOSUP,UTILSUP,TASKSUP : Reflect above status /7 changes F FORS.CT1, FORS.CT5, EXES.CT1, EXES.CT5 : changes to reflect. above movement of code.: Moved to VLA Oct 5 (by link), to Modcomp Oct 7.B 394. Sept 28, 1981 AU9B, TKGMSL (new), TKRSPL (new) Gary/ [TEST.HELP]POPSDAT.cB Added verbs TKMODEL, TKAMODEL, for printing, reprintingA Gaussian models directly to the TEK 4012. And TKRESID C and TKARESID for printing, reprinting residuals of slicew!  model to the TEK 4012. 0 Moved to Modcomp Oct 7, nowhere else. B* 395. Sept 28, 1981 AU8A Gary:4 Updated to list gaussian model with slice file.0> Moved to Modcomp Oct 7, nowhere else.HBR 396. Sept 28, 1981 [TEST.APL]TIMDAT GaryB\ Convert integer array form of time and date to  Added verbs TKGUESS and TKAGUESS for plotting initialoD guesses in slice fitting. Added adverbs DOSLICE, DOMODEL, DORESID for SL2PL./( Moved to Modcomp Oct 7, nowhere else.82B< 406. Sept 30, 1981 [TEST.AIPS]TKGGPL(new) AU9B Gary?F Verbs TKGUESS, TKAGUESS for plotting initial guesses.A/P Moved to Modcomp Oct 7, nowhere else. ZAd 407. Oct. 1, 1981 ASCAL Fred Bn I modified the subroutine CNV in order to recognize data@x points that are labeled with bad antenna numbers (lessA than 1 or greater than 28). The change to CNV prevents@ such points from going into the gain solution routine ? and also causes them to be flagged when the new data fA file is written. I have a data base in which the first > visibility record, which contains data that look ok,= has a baseline number that decodes as 16-0. These S? points flowed into the gain solution routine. I made ? these changes both in the TEST area on the CV Vax andS on the Modcomp.TB 408. October 2, 1981 Several EricE An attempt to clean up the typing, character handling, etc. B in the so-called WaWa "easy" IO package. A more uniform/ set of error codes have been adopted.> CATDIR : Change error handling on CSTA operation3 CATIO : Revise status error meanings E" CHSTAT : Enhance meaning of error codes (& change them)MG, MCREAT : Change to use catlg physical type rather than MA 76 default is MA if catlg is blank.@@ Also clears extension file area in CATBLKCJ MDESTR : Use input INDEST = -32000 to suppress normal T messages ^@h IITB.INC, DITB.INC, CITB.INC : retype, change com name@r IBU1.INC, IBU2.INC, IBU3.INC, IBU4.INC, IBU5.INC : newF| declares buffer and filtab in desired real size8 CBUF.INC, EBUF.INC : retype, change com nameC DCAT.INC, CCAT.INC, ECAT.INC : retype, com name -> MAPHDR D The routines below have been moved from [.NOTST] to [.APL] CLENUP : Retype FILCLS : RetypeC FILCR : Retype, clean out debug, extra catlg handling + FILDES : Rewrite to use MDESTRU? FILIO : Retype, set read into catlg on first callE FILOPN : Retype, use FILTAB(PODEP+6,.) for blanking parmm GETHDR : Retype/ HDRINF : Rotype, add C*8 data typelF IOSET1, IOSET2, IOSET3, IOSET4, IOSET5 : new include, retypeE MAPCR : Rewrite to use MCREAT, change to return correctt: sequence number in case 0 was input.F MAPFIX : Retype, handle blanking, alter overflow handlingE& MAPIO : Retype, correct call to COMOFF, correct setting F0 window into depth (2 places), add MDISK (FINI atI: change of planes. Move COMOFF call to catch changes(D of operation also.-N MAPMAX : Retype, handle blankingl.X MAPWIN : Retype, no alter PODEP+6Db MAPXY : Retype, make it do what it says not full imagel OPENCF : Retypev PRENAM : Retype9 PRTNAM : Whole new version of name print out > SCRNAM : Retype, make name more compact, simplifyD SUMIM : Retype, add history file operations, add errorB checking, correct default scaling, out namesF TSKBE1, TSKBE2, TSKBE3, TSKBE4, TSKBE5 : retype, new include4 TSKEND : Retype add close down messages/ UNSCR : Retype, add error message 9 Moved to VLA Oct 5 (by link), to Modcomp Oct 7. = 409. Oct. 2, 1981 ASCAL FredA; GCALC1 had an Moved to Modcomp Oct 7, nowhere else.. @ 416. Oct 5, 1981 [DOC] Gary.- POPSUP added TKGMSL, TKGGPL, TKRSPLT&( WHATSUP added TIMDAT, FNDEXT2 UTILSUP added TIMDAT9< Moved to VLA Oct 5 (by link), to Modcomp Oct 7.hF >P 417. Oct 5, 1981 Several EricCZ FORS.CT1, EXES.CT1, FORS.CT5, EXES.CT5 : changed lists ton?d account for WaWa IO standardization, HDRWINtCn EXTINI : Removed several fatal bugs in my version, alsot9x add correction from Bill on init size C EXTIO : Removed infinite loop in my version, corrs frome/ Bill on expansion test, etce8 CNTR : Improved handling of default XYRATIO4 PCNTR : " " " "4 GREYS : " " " "4 PROFL : " " " "C TRANS : Improved messages, correct subimg/rowswap erroroF PRTIM : Correct formats, finding of clean beam, setting of BLC(!); MINIT : Correct error on backward, short row IOl8 Moved to VLA Oct 5 (by link), to Modcomp Oct 7 ? 418. Oct. 6, 1981 LSCAL , ASCAL FredwA I invented a new task, for use on the Vax's only, whichL? is identical to ASCAL except that larger data arrays n@ are provided. This allows one to avoid averaging when>" a long solution interval is used. 21411 visibility >, points can be held in the arrays. This is 10m10s of 6 10 second Filler data.?@ Also, in the least-squares gain solution routine,.>J I increased the iteration limit ITMAX from 30 to 40.?T Usually when one hits this limit, the data are bad ors=^ the model is bad. In very low S/N cases, or with a Ah translated model, the limit of 30 sometimes was legiti-s?r mately encountered. This change was made only in thes"| TEST area on the CV Vax.= Additional change, again only on CV Vax: GCALC,Z= with the print option turned on, now prints the rms; residual (Jy) at each iteration. GCALC1 prints aaA quantity which is essentially (i.e., for small epsilon)./ equal to the mean absolute residual. eA Also, a minor change to GCALC1: I changed the threeiA values of epsilon from 50, 5, and .5 mJy to 5, .5, and t@ .05 -- these are the values which I thought I had been using. @ 419. October 6, 1981 Plot programs Eric: TKPL : Make arcsec/mm work only when suitable6 PRTPL : " " " " "I CNTR : Correct bug causing first 5 words of buffer to be baduC GREYS : As CNTR, this bug inserted yesterday as part ofB2 fix to correct XYRATIO default6& Moved to VLA by link Oct 6,to Modcomp Oct 7.0 ?: 420. Oct 6, 1981 [TEST.NOTST]SLICE GarydED Was reading 1 too many lines of data in most circumstances.S'N Would hang up with new MDISK. .X Moved to Modcomp Oct 7, to VLA Oct 6b ?l 421. Oct 5, 1981 [TEST.INPUTS]several Gary #v CNTR GREYS PCNTR SL2PL() Changed description of XYRATIO.o/ Moved to Modcomp Oct 7, nowhere else.4 > 422. Oct. 7, 1981 ASCAL, LSCAL FredB On the CV Vax I made a few changes that were required. in order to use the modified UVCREA.= I also made a few changes that make it easier too> transport ASCAL to the Modcomp. The Modcomp doesn't@ allow COMPLEX comparisons in IF statements, and it has> trouble compiling and assembling statements that in-? volve too much complex arithmetic, at least when somet> of the variables are passed into a subroutine in the> argument list. The Modcomp still requires a special? version of ASCAL, with decreased array dimensions and ? with the double precision complex arithmetic stripped out of GCALC1. =* 423. Oct. 7, 1981 SL2PL Garyw24 New inputs and options DOMODEL, DORESID.1> Moved MODCOMP this date, nowhere else..XH >R 424. October 7, 1981 Several EricB\ The following errors were found by the Modcomp compiler:+f TKRSPL : FBLANK not initialized\6p EXTIO : WRITE misspelled in error messageFz FILCR : Lacked includes of DCH common, undeclared logical% HDRINF : WTYPE misspelledm5 MAPFIX : REED misspelled in error messagew. RWUPDT : Comment with lower case CG MOMFT : Program statement gave wrong name, Modcomp versiontB had no relation to more recent(?) Vax version SLFIT : Blank linei+ SL2PL : FBLANK not initialized\C UVSUB : Lacked include HDR common in SUBHIS subroutinen; Moved from Modcomp to CV vax Oct 9, nowhere else.a @ 425. October 9, 1981 Several  429. Oct. 12, 1981 AU9C Gary,B Superfluous variable in argument list of call to SET1DG.0 Moved to Modcomp Oct 13, nowhere else.(=2 430. Oct. 12, 1981 MSCALI Eric C< Fixed bug affecting >2 - dimensional maps (no loop point)s;F Moved to VLA this date (by link), Modcomp Oct 13.wP>Z 431. Oct 12, 1981 FILCR Eric/d Failed to VER for catlg scratch fileso/n Moved to Modcomp Oct 13, nowhere elseix> 432. Oct 12, 1981 DESCR (newish), AU3A Eric+ [.HELP]SCRDEST.yD Implement scratch file destroy by task name. Old DESCR inA [.NOTST] is replaced (it would not have worked anyway). 0 Moved to Modcomp Oct 13, nowhere else.= 433. Oct. 12, 1981 UVMAP(.FOR and .EXE) Fredv> In the subroutine CONGRD the variable EEND1 ought toB have been declared REAL*8. I corrected the error on theC CV Vax (in the TEST area only). It caused no evident ills effect.A0 Moved to Modcomp Oct 22, nowhere else.= 434. Oct. 13, 1981 [DOC]MV2C06SL. Garyi, Updated for new slice file format.0 Moved to Modcomp Oct 13, nowhere else."<, 435. Oct. 13, 1981 UPDATE0.COM Gary66 New. Replaces INSTALL for update procedure.@ Moved nowhere.J0 441. Oct. 15, 1981 [.HELP]ROAM,SETROAM,TVROAM Eric1: [.inputs]SETROAM,TVROAMa.D [.help]ROMODE (new) FN Add description of new adverb and correct TVCHAN description0X for code which will be installed soon./b Moved to Modcomp Oct 22, nowhere else_l>v 442. Oct. 16, 1981 [TEST.AIPS]ZACTV9.MAR GaryE Changed to allow different AIPS terminals to have different < message terminals for their respective shed tasks.A The AIPS terminal names are hard coded in this program,_> the message terminals are group logical assignments.! Moved to [TEST] at VLA.s? 443. October 19, 1981 [.HELP]TVLABEL, TVTRANSF, Eric 2 [.HELP]TVNAME, IMWEDGE, TVWEDGE> [.INPUTS]TVTRANSF, TVNAME, IMWEDGE, TVWEDGE@ Modify descriptions for upcoming changes in algorithms/ Moved to Modcomp Oct 22, nowhere else ? 444. October 20, 1981 [.HELP]POPSDAT, IMPWEDGE Eric 6 [.HELP]TVBLINK, CURBLINK, TVMBLINKB  [.INPUTS]IMPWEDGE, TVBLINK, CURBLINK, TVMBLINKB New verbs: imwedge from clip min to max rather than fromC  map min to max, blinking with enhancement options, switch 3* cursor between blinking and steady modes. /4 Moved to Modcomp Oct 22, nowhere elsee>?H 445. Oct. 20, 1981 [TEST.AIPS]ZACTV9.MAR Garyf>R Another pass (see 442). AIPS terminal names are nowD\ group logical assignments (AIPSTT1 and AIPSTT2) in  Moved nowhere.C 454. October 22, 1981 Several Eric I( A considerable number of changes to the TV handling as follows:B2F< IDCH.INC, DDCH.INC, CDCH.INC : Add parameters to give number?F of AIPS allowed access to TV and TK devices /P DTVC.INC. CTVC.INC : Minor typing fixIZ DTVD.INC, CTVD.INC : Minor typing fix, add TVSPLC (split chans) dDn ICINIT : Change call to ICOPEN, clean up typing a littleHx ICOPEN : New call sequence. Tests whether access is allowed< opens file # min0 (NPOPS, NTVDEV) or TKA ICREAD : Change call to ICOPEN, fix up error handlingRB ICWRIT : change call to ICOPEN, fix up typing a littleI Move directory update outside loop (failed to remove / overlaid images otherwise)r: LABINI : Add hidden label type 7 (no top line)2 TVINIT : Use NTVACC rather than NTVDEV@ TVOPEN : Use new NTVACC parameter rather than NTVDEV@ TVPL : Use new NTVACC parameter rather than NTVDEV= WINDOW : Limit BLC to NPTS before ILL Window test @ YTVCIN : Set new TVSPLC roam channel parameter to 0 D ZDCHIN : Add new access numbers to code and to read from( parameter disk file: AU5 : Use new TVFIND to perform verb TVNAME6 Set INDISK on TVNAME, do CURBLINKG" AU5A : Modify to handle new adverb/parms ROMODE and to be G, able to load 4x1, 3x1, 1x3, and 1x4 roam images as <6 well as the previous 2x1, 1x2, and 2x2.D@ AU5B : Use new TVFIND routine to determine which image3J Add wedge label call to IAXIS1eDT AU5C : Use new TVFIND routine to determine which image@^ Fix up img catalog more for labeling wedges h Do IMPWEDGE>r AU6 : Add cycle color contour types in TVPSEUDO>| AU6A : Do Blink algorithm with image enhancementE AU6B : (NEW) Do graphics display of values under cursorsE COMPIL : Remember to reinit another counter on ; operatorTE IAXIS1 : Add hidden label type 7: no top, extra bot linestD Add arg. to clear full graphics planes not partF ICOVER : (NEW) Finds if there are partly overlapped images0 currently visible on the TVC IENHNS : Use grch 1 for plot, no background, starts offeC IMCCLR : Add cycle color contour types, mod green levelH of Dutch orange, add 2 IMPS schemes (per M. Lesser)C The options are nice, but the colors should be  improved.< SETPAR : Add new access numbers (NTVACC, NTKACC)8 TVBLNK : (NEW) Run the basic blink algorithmD TVFIND : (NEW) Return the plane number and image catalogG of a desired image (either only one on or ask userE2 to point at it via TV cursor)B& TVROAM : Correct setting of split point, generalize to00 handle 4x1, 3x1, etc. modes?: TVWIND : Support 4x1, 3x1, 1x3, 1x4 roam modes also ,D VERBS, VERBSB, VERBSC : Add AU6B&N ZSTRTA : Use NTVACC et al./X Moved to Modcomp Oct 22, nowhere else bAl 455. October 22, 1981 Several Ericl'v AU9A : Add test on NTKACCP% AU9B : " " " " % AU9C : " " " "o7 OERROR : Add message to go with TEKS IN USE : TKPL : Change NTKDEV to NTKACC in usage test: APCLN : Change NTVDEV to NTVACC in usage test8 UVMAP : " " " " "- APMAP : Add usage test on NTVACC,- NTERP : Add usage test on NTVACCw0 Moved to Modcomp Oct 22  a given level. ALSO:$ [TEST.INPUTS and HELP]CLIP.- [TEST.HELP]TASKS, MAPCLEAN, WHATSNEWt1( Moved: CV Vax 23 Oct. 1981, nowhere else 2 A7< 15. Oct. 3, 1981 HELP files Edr5F Made minor changes in [test.help] and [help]o-P files for TASKS, APPLIC and WHATSNEW*Z Moved CV Vax Oct 23, nowhere elsed6n 16. Oct. 8, 1981 PBCOR Ed;x Finished debugging PBCOR task to apply the primaryo; beam correction to a map. The code now resides ini9 [TEST.NOTST] and the EXE file has been copied to.9 [VPOPS]. The relevent .DOC files have also been 5 updated, as well as the relevent HELP files.i* Moved CV Vax Oct 23, nowhere else8 17. Oct. 13, 1981 [TEST.PSAP]GRDFIN Bill: Changed core sucker GRDFIN so that it now treates: VPOL the same as IPOL/IBEM; that is when the VPOL? gridded data files are transformed, the beam comes out  in the imaginary part.B1 Moved: CV Vax 23 Oct. 1981, nowhere else  6 21. Oct. 13, 1981 UVMAP Bill> Put trap in VISRD to catch the case when no unflagged@ data was found. Previously the program died a horrible." death with no clue as to the problem.0, Moved: CV Vax 23 Oct. 1981 nowhere else6 O6@ 22. Oct. 16, 1981 CLIP,FUDGE,ASCAL Bill;J Removed CATBLK from call to UVCREA; in ASCAL addedCX 460. Oct. 27, 1981 UVMAP Bill9b Fixed GRDTAB, WRK (a P*4) now initilized to 0,0i"l Moved: Modcomp this datev r> 461. Oct. 27, 1981 PRNTMN EricF Fixed up option to do one member at a time to do full source, code listings one at a time (only)/ Moved to Modcomp Nov 17, nowhere else ? 462. October 27, 1981 VERBSC ErichH Allow it to call AU1(2 and 3) to set EXIT, RESTART error codes< Moved to VLA via link (Oct 28), to Modcomp Nov 17.? 463. October 29, 1981 AU3A EriceD Correct sum disk blocks for full disk (was ok if NBPS=512)/ Moved to Modcomp Nov 17, nowhere elsel@ 464. October 30, 1981 DESCR, IMCCLR EricG  Fix bug in activity test and add VS files for UVSRT in DESCR,4 Put in actual IMPS 8-color table in IMCCLR/  Moved to Modcomp Nov 17, nowhere elsea*@4 464. October 30, 1981 EXTINI, MCUBE Eric<> Fix history card format in MCUBE, fix initial size5H computation & max # logical records in filet/R Moved to Modcomp Nov 17, nowhere else \