----------------------------------------------------------------------- ; 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 ----------------------------------------------------------------------- This file must be used to record any changes made to the code on the Charlottesville VAX in the logon area [RPOPS]. The format to use is: line 1: Date Program name Your name line 2: What was done line 3: Where has this change been moved (e.g. VPOPS, the Modcomp) line 4: Blank ********************************************************************* ********************************************************************* 1. April 23, 1981 All modules Eric Copied from CV Vax [RPOPS] area to [TEST] moved to CV Modcomp June 1, to VLA June 26,1981 ************ 1. Feb 16, 1981 Gary All modules initially copied from the VLA VAX on the above date. 2. Feb 25, 1981 many (see below) David The error handling of the file-related Z-routines has been improved. Care has been taken to ensure that in all cases the error code is returned to the FCB whenever an FCB is one of the call arguments. A system routine is called through ZQMSG to translate those annoying errors that fall in the "OTHER" category. The routines should now return error codes AS ADVERTISED. Minor logic errors have been found and corrected. The prologue comments have been cleaned up. Moved to VLA Vax effective 3/1/81 ZCREAT : updates space used, now FORTRAN calling ZQCREA. It now checks for legal volume number. also returns IERR=3, not enough space. ZDESTR : ZEXPND : also updates space used in file header. ZOPEN : Eric's changes + calls ZQMSG for "OTHER". ZQASSN : ZQCLOS : does not call ZQMSG to avoid reentrancy. ZQCREA : old ZCREAT + updates space used in file header. ZQDEVN : added to find device given the channel. ZQEXP : ZQIO : doesn't call ZQMSG to avoid reentrancy. ZQMSG : added to translate "OTHER" type errors. ZQOPEN : doesn't call ZQMSG to avoid reentrancy. ZQRENA : volume unavailable was not being returned. ZQTRUN : also updates space used in file header. ZQTAPE : did not always return error code to FCB. ZQWIO : did not always return err to FCB. Calls ZQMSG. ZRENAM : (new routine requested by Walter ) ZTKQIO : 3. Feb 28, 1981 ZMIO.FOR David Added call to ZQMSG to translate "OTHER" type errors. Moved : see below 4. Feb 28, 1081 ZFIO.FOR David Added call to ZQMSG to translate "OTHER" type errors. Moved : see below 5. March 3, 1981 CATDIR.FOR Walter If IVOL = 0 for OPCODEs SRCH,OPEN,LIST,QLST, the program will loop over all known volumes. Also: error code of 9 means warning on CSTA (e.g. CLRD if STATUS was REST or WRIT). This used to be error code of 8, which was ambiguous. CHANGED IN RPOPS.IPOPS and put in SUBLIB 6. MARCH 1, 19981 MANY ROUTINES ERIC BROUGHT FROM VLA VAX ------------------------------------------------------------------- 1. Feb 13, 1981 AU9 Eric Correct algorithm for maps w offsets, return answers in adverbs Moved to VPOPS & CV Mar 1, 1981 2. Feb 13, 1981 DAPL.INC, CAPL.INC Eric Add adverb MAPVAL to return pixel values etc. Moved to VPOPS & CV Mar 1, 1981 3. Feb 13, 1981 VLADAT, VLADATB Eric Add adverb MAPVAL and verb PIXVAL (181) Moved to VPOPS & CV Mar 1, 1981 4. Feb 13, 1981 AU3 Eric Correct CAT to not use TYPIN Moved to VPOPS & CV Mar 1, 1981 5. Feb 13, 1981 AU8 Eric Correct NAMECLR to clear TYPINs Moved to VPOPS & CV Mar 1, 1981 6. Feb 13, 1981 APMAP W. Cotton Added adverb QUAL to specify source qualifier. Moved: MODCOMP 20FEB81 to VPOPS & again to CV Mar 1, 1981 7. Feb 13, 1981 AU9 W. Cotton Added verb PIXVAL to interpolate map pixel values. Moved to VPOPS & CV Mar 1, 1981 8. Feb 15, 1981 APMAP Eric Added options to get RR, LL maps separately + frequency override Moved : MODCOMP 20FEB81 to VPOPS & again to CV Mar 1, 1981 9. Feb 15, 1981 DMAP.INC, CMAP.INC Eric Added parameters for above options (#8) Moved : MODCOMP 20FEB81 to VPOPS & again to CV Mar 1, 1981 10. Feb 15, 1981 ZDCHIN Gary Change default system from 3 disks to 1 disk since most exported systems will be 1 disk at least initially. Moved to VPOPS & CV Mar 1, 1981 11. Feb 15, 1981 TEKPL Gary Fixed bug that allows integer overflow during scaling if BLC negative. Moved to VPOPS & CV Mar 1, 1981 12. Feb 15, 1981 APMAP Eric Removed rewind after data read, force to read to EOF Moved : MODCOMP 20FEB81 to VPOPS and again to CV March 1, 1981 13. Feb 15, 1981 EXIND Eric Improved accuracy of frequency in output format Moved to VPOPS & CV Mar 1, 1981 14. Feb 16, 1981 MCREAT Eric Changed duplicate name message handling & fixed typing Moved to VPOPS & CV Mar 1, 1981 15. FEB 17, 1981 MSCALE Ed Found error in determining round-off. Corrected and recompiled. Moved to VPOPS & CV Mar 1, 1981 16. FEB 17, 1981 ADDMP Ed Relinked ADDMP to because of change in MSCALE. Moved to VPOPS & CV Mar 1, 1981 17. Feb 17, l981 MPRNT Ed Made substantial changes to MPRNT to incorporate the mask type of blanking. The value of the blanking pixel is read from the header S2H(K2INH). Moved to VPOPS & CV Mar 1, 1981 18. FEB 17, l981 MSCALF Ed Modified MSCALE to incorporate blanking. The value of the blanking pixel in the floating point scratch file is read as an input parameter. The blanking pixel in the output file is assumed to be -32768. Moved to VPOPS & CV Mar 1, 1981 19. FEB 17, 1981 COMB Ed New task COMB written and debugged and placed in RPOPS. A few minor bugs, especially with SP IND but ready to be used. Replace TAPEIN adverb and perhaps CPARMX. Moved to VPOPS & CV Mar 1, 1981 20. Feb 18, 1981 COMB Eric Corrected bug: failure to use SEQIN2 Moved to VPOPS & CV Mar 1, 1981 21. Feb 18, 1981 FITTP Eric Bug: does not honor IWAIT=true. Fixed a Declare. Moved to VPOPS & CV Mar 1, 1981 22. Feb 18, 1981 AU9 Eric Value of MA wiped out sometimes in mapopn. Used dummy var. Moved to VPOPS & CV Mar 1, 1981 23. Feb 18, 1981 ZSTRTR Eric Added message giving the NPOPS # being started Moved to VPOPS & CV Mar 1, 1981 24. Feb 18, 1891 APCLN Bill Changed subroutine BMSHP to try several solutions for the CLEAN beam parameters until it finds a real (not imag) solution. Moved : MODCOMP 20FEB81 to VPOPS & again to CV Mar 1,1981 25. Feb 20, 1981 MLOAD Eric Added primary map-name default to be IMNAME/IMCLASS keywords in FITS header if they are present. Moved to VPOPS & CV Mar 1, 1981 26. Feb 22, 1981 PFILE Gary New program finished. Moved to VPOPS & CV Mar 1, 1981 27. Feb 22, 1981 POLPL Gary New program finished. Moved to VPOPS & CV Mar 1, 1981 28. Feb 21, 1981 APMAP Eric Changed handling of NFILES to be like AVFILE and EXIND Moved to VPOPS & CV Mar 1, 1981 29. Feb 21, 1981 ZOPEN, ZTOPEN Eric Changed wait to 15, 5 minutes with message every 15 sec moved to VPOPS & CV Mar 1, 1981 30. Feb 21, 1981 many (see below) Eric Added to POPS: minimum match, better error tests on char strings insertion of = when no operator, HELP, INPUTS like verbs GO like HELP et al., stick commas in adverb lists, etc Moved to VPOPS & CV Mar 1, 1981 ASSIGN : char equates now test lengths in characters AU1A : perform HELP, INP, INPUTS as verbs on stack AU2 : from stack, default TASK, better error return BCLEAN : typing CHUNT : search linked list for char-lengthed parm, min match COMPIL : insert equals, commas; change NEXTP for LOG (TAG 30) EDITOR : alter expected pseudo-verb numbers GETFLD : typing, # characters not words for hollerith strings GETNAM : be friendlier about quotes etc around string HELPS : for HELP, INPUTS, GO get name, put on stack w verb # HUNT : change comments INIT : typing, call CHUNT not HUNT LTSTOR : typing MASSGN : typing OERROR : new messages "NO PROC MODE", "LOG NEGATIVE" POLISH : remove test for verb in line, HELPS doesn't stop line PSEUDO : be friendly on edits of ARRAY, STRING; add SCALAR add new mode to allow restrictednew symbol creation QUICK : add functions LOG, LN, MOD, MODULUS, ATAN2, EXP change SIN, COS, TAN ATAN to use degrees alter PRINT code a little RANCC (CU2) : like AU2 SYMBOL : actual length of symbol in chars stored create symbol only on special mode # VERBS : add AU1A VERBSB : add AU1A, make more like VERBS again VERBSC : add AU1A, make more like VERBS again VLAGEN : use new symbol creation mode 31. Feb 23, 1981 FITTP Eric Handling of history file corrected some: needs more Moved to VPOPS & CV Mar 1, 1981 32. Feb 24, 1981 SNCR Eric Added messages on errors Moved to VPOPS & CV Mar 1, 1981 33. Feb 24, 1981 ZCREAT Eric Added IERR=3 return for disk full !!! It was missing!! Moved to VPOPS & CV Mar 1, 1981 34. Feb 25, 1981 POLPL Gary Fixed bug. Sin => Cos in determining bottom Y position. Moved to VPOPS & CV Mar 1, 1981. 35. Feb 25, 1981 MPRNT Ed, Eric Fixed bug: skip over blank test when no blank Moved to VPOPS & CV Mar 1, 1981 36. Feb 26, 1981 APMAP Eric Fixed some of the typing, fixed bug in weight for "RL" Removed skip out on not.WANTED with NVIS > 0 Installed QUAL usage in version which I found Moved to VPOPS & CV Mar 1, 1981 37. Mar 1, 1981 FITTP Eric Fixed up handling of no HI file some more Moved to VPOPS & CV Mar 1, 1981 38. Mar 1, 1981 APCLN Eric Made it stop TV display if error!! Fixed some typing - needs much more Moved to VPOPS & CV Mar 1, 1981 March 1, 1981 all Fortran ones Eric some retyping Moved to VPOPS & CV Mar 1, 1981. ZCREAT : updates space used, now FORTRAN calling ZQCREA. It now checks for legal volume number. also returns IERR=3, not enough space. ZEXPND : also updates space used in file header. ZOPEN : Eric's changes + calls ZQMSG for "OTHER". ZQMSG : added to translate "OTHER" type errors. ZRENAM : (new routine requested by Walter ) 40. Feb 28, 1981 ZMIO.FOR David Eric retyped March 1, 1981 Added call to ZQMSG to translate "OTHER" type errors. Moved to VPOPS & CV Mar 1, 1981. 41. Feb 28, 1081 ZFIO.FOR David Eric retyped March 1, 1981 Added call to ZQMSG to translate "OTHER" type errors. Moved to VPOPS & CV Mar 1, 1981. 42 March 1, 1981 CONTR, GSCAL, PFILE, IAXIS1 Eric Made frequency display accurate to kHz Moved to VPOPS & CV Mar 1, 1981 43. March 1, 1981 EXFND Eric New task Moved to VPOPS & CV Mar 1, 1981 44. March 1, 1981 DDCH.INC,IDCH.INC,CDCH.INC Eric ZDCHIN Common to carry desired value for blank integer maps Moved to VPOPS & CV Mar 1, 1981 45. March 1, 1981 COMB Eric MSCALF Take advantage of #44 above, retype a bit also Moved to VPOPS & CV Mar 1, 1981 46. March 1, 1981 MPRNT Eric Make blank integer printout machine independent, retype a bit Moved to VPOPS & CV Mar 1, 1981 47. March 1, 1981 AU9, CUBINT, MSCALE Eric Retype a little (CUBINT is a new program by Bill Cotton) Moved to VPOPS & CV Mar 1, 1981 -------------------------------------------------------------------- 8. March 11, 1981 GMCAT.FOR Gary New subroutine to put command in graph file that tells TEKPL, IISPL, ect. to put misc info in the image catalog header. moved to MC 3/31 & VLA 4/9/81 9. March 11, 1981 TKCURS.FOR Gary New subroutine to activate and read the cursor on the TEKTRONIX 4012 screen. moved to MC 3/31 & VLA 4/9/81 10. March 11, 1981 AU9A.FOR, VLADAT. Gary New subroutine for verbs TKMAPPOS, TKSKYPOS, TKVAL. moved to MC 3/31 & VLA 4/9/81 11. March 11, 1981 VERBS.FOR, VERBSB.FOR, VERBSC.FOR Gary Added AU9A. moved to MC 3/31 & VLA 4/9/81 11a. March 11, 1981 GSCAL.FOR Gary Made map type for grey scale equal to 2. moved to MC 3/31 & VLA 4/9/81. 12. March 12, 1981 TEKPL.FOR Gary Fixed to interpret GMCAT commands. moved to MC 3/31 & VLA 4/9/81. 13. March 12, 1981 IISPL.for Gary Updated to interpret GMCAT commands. moved to MC 3/31 & VLA 4/9/81 14. March 12, 1981 ZACTV9.MAR Gary Change working set default to 150 and working set limit to 250 for subprocesses (tasks). moved RPOPS VLA. and VPOPS 4/9/81 15. March 13, 1981 TEKVEC.FOR Gary Fixed rounding error. moved to MC 3/31 & VLA 4/9/81 16. March 16, 1981 SKYFRM.FOR Gary New general subroutine that formats sky coordinates, It sorts out RA, DEC, other; uses TRIM ect. moved to MC 3/31 & VLA 4/9/81 17. March 16, 1981 PRTPL.FOR Gary Updated to recognize and skip GMCAT commands. moved to MC 3/31 & VLA 4/9/81. 18. March 16, 1981 SLICE.FOR Gary New program for making slice files. moved to MC 3/31 & VLA 4/9/81. 19. March 17, 1981 SLPLF.FOR Gary New program for making plot file from slice file. moved to MC 3/31 & VLA 4/9/81. 20. MARCH 16, 1981 MPRNT.FOR Ed Modified PHEAD.FOR to recognize expanded set of Stokes parameter values. They are now STOKES VAL MEANING SYMBOL -1 Undefined ?? 0 Beam BM 1 Total intensity I 2 Linear pol, 0 deg Q 3 Linear pol,90 deg U 4 Circular pol V 5 Linear pol int P 6 Degree of pol M 7 Angle of lin. pol AN 8 Spectral index SI 9 Opacity OP Moved to Modcomp 3/18/81 21. MARCH 16, 1981 COMB.FOR Eric and Ed Modified COMB.FOR and associated subroutines for the following: (1) Broke up a two-dimensional CAT block (2) Corrected some illegal data statements (3) COMB now creates and writes a proper HI file (4) Proper stokes value now written into header (5) A few other minor bugs New HELP and INPUTS files have been generated. Changed to adverb OPCODE with char string values Moved to [RPOPS.IPOPS] rather than [..NOTST] and to Modcomp on 3/18/81 by Eric 22. March 18, VERBS, VERBSB, VERBSC, VLADAT Gary Added AU9B (PLOT, REPLOT) Moved to MC 3/31 & VLA 4/9/81 23. March 19, OPEXT.FOR Gary Subroutine to open an extension file. Moved to MC 3/31 & VLA 4/9/81 24. March 23, 1981 POLPL Eric PFILE GMCAT SLPLF SLICE SKYFRM TKCURS AU9A PRTPL IISPL GSCAL TEKVEC CATDIR OPEXT Retyped to make standard, small mods for fixups Moved to MC 3/31 & VLA 4/9/81 25. March 23, 1981 WINDOW Eric Integerizes BLC and TRC returned Moved to MC 3/31 & VLA 4/9/81 26. March 24, 1981 AU9B.FOR Gary Finished debugging verbs PLOT, REPLOT. moved to MC 3/31 & VLA 4/9/81. (not VPOPS yet) 27. March 24, 1981 AU8.FOR, VLADAT, VLADATB Gary Added verb GETNAME3. Moved to MC 3/31 & VLA 4/9/81 28. March 24, 1981 MAPOPN Eric AU3 AU7 CMODL FRED IISPL PCC PRTPL TEKPL TGRPH To take advantage of changed CATDIR (now uses IVOL=0) Moved to MC 3/31 & VLA 4/9/81. 29. March 24, 1981 SNEVAL Eric SNEVWT Corrected 1st, created 2nd to handle both kinds of blanking The 2nd returns a weight buffer, the 1st substitutes for bad Moved to MC 3/31 & VLA 4/9/81 30. March 25, 1981 NAMEST Eric New routine to build packed string of image name w no blanks Moved to MC 3/31 & VLA 4/9/81 31. March 25, 1981 PRTPL.FOR Gary Changed algorithm to allow pixels consisting of up to 256 dots across. Fixed bug for improper exit if this limit is exceeded. Moved to MC 3/31 & VLA 4/9/81. 32. March 25, 1981 COMB Eric Fixed: inititialization of FALSE in main, FMAX1 & FMAX2 Made divide by LOGFR @ 310 in COMBN rather than multiply Moved to Modcomp this date, VLA 4/9/81 33. March 26, 1981 TRIM Eric Made it trim trailing nulls as well as blanks Moved to MC 3/31 & VLA 4/9/81 34. March 26, 1981 CTICS Eric Allow more accurate tick intervals Moved to MC 3/31 & VLA 4/9/81 35. March 26, 1981 POLPL Eric CONTR GSCAL Mods to use new SNEVAL, NAMEST, CTICS Moved to MC 3/31 & VLA 4/9/81 36. March 26, 1981 TVLOAD AU5A LSTHDR Mods to support both kinds of blanking Moved to MC 3/31 & VLA 4/9/81 37. March 26, 1981 POLPL.FOR Gary Fixed bug putting garbage on right of plot if BLCY>BLCX. Also default value for PLEV now works. Moved to MC 3/31 & VLA 4/9/81. 38. March 26, 1981 CONTR.FOR Gary Looking for 40 levels instead of 20. Moved to MC 3/31 & VLA 4/9/81. 39. March 27, 1981 FITTP Eric COMB MPRNT PFILE SLPLF Fixed handling of blanked input maps Moved to MC 3/31 & VLA 4/9/81 40. March 27, 1981 SLICE.FOR Gary Changed algorithm for determining no. of points in slice. Moved to MC 3/31 & VLA 4/9/81. 41. March 27, 1981 ITICS, IAXIS1 Eric Changed to more accurate labels, added Stokes types, added image name to display Moved to MC 3/31 & VLA 4/9/81 42. March 31, 1981 DECTP Eric Changed handling of blanking to support magic value Moved to MC 3/31 & VLA 4/9/81 43. March 31, 1981 DWRITE Eric Added decimal to frequency Moved to MC 3/31 & VLA 4/9/81 44. April 2, 1981 BATTER Eric MSGWRT Corrected ZDCHIN call & which NPOPS go to terminal Moved to MC 3/31 & VLA 4/9/81. 45. April 6, 1981 APCLN Eric Changed clean beam symbols to avoid confusion in history Moved: done on VLA Vax & MC also 46. April 6, 1981 OPEXT, SLICE, SLPLF Eric Fixed bugs found on MC: OPEXT better messages, SLICE init ISPOS in 2-D, SLPLF use IVER rather than ISVER Moved from MC this date and to VLA 4/9/81 47. April 7, 1981 VERBS, VERBSB, VERBSC Gary Added AU8A (EXTLIST extension file list). Moved to Modcomp June 1, to VLA June 26,1981. 48. April 7, 1981 POLPL Gary Changed Plot type from 2 (same as contour) to 6. Moved to Modcomp June 1, to VLA June 26, 1981. 49. April 7, 1981 AU9A Gary Changed to recognize 48 above. Moved to Modcomp June 1, to VLA June 26, 1981. 50. April 9, 1981 DBAT.,CBAT. Eric DBWT, IBWT, CBWT.INC New includes for use in batch file handling replace fixed declares and add size & name on write Moved to Modcomp June 1, to VLA June 26, 1981 51. April 9, 1981 DMSG & CMSG.INC Eric Add parameter MSGSUP at end for message suppression Moved to Modcomp June 1, to VLA June 26, 1981 52. April 9, 1981 MSGWRT Eric To use above: set MSGSUP=32000 to block messages at levels 6 and 7 only Also, messages at level 1 treated as level 2 if batch Moved to Modcomp June 1, to VLA June 26, 1981 53. April 9, 1981 SLPLF Eric Fix up setting of depth parameter Moved to Modcomp June 1, to VLA June 26, 1981 54. April 9, 1981 GTPARM ZDCHIN Eric Init MSGSUP to zero in both Moved to Modcomp June 1, to VLA June 26, 1981 55. April 9, 1981 AU8 Eric NAMECLR no longer clears second name Moved to Modcomp June 1, to VLA June 26, 1981 56. April 9, 9181 PREAD Eric Use batch includes, test file size & expand on writing Moved to Modcomp June 1, to VLA June 26, 1981 57. April 9, 1981 POLPL.FOR Gary Fixed not putting parameters in rec 1 of graph file correctly. Moved to Modcomp June 1, to VLA June 26, 1981. 58. April 10, 1981 SLICE Gary Added date, time to 1st rec of slice file. Moved to Modcomp June 1, to VLA June 26, 1981. 59. April 10, 1981 VERBSC, VERBSB Eric Give error if called for interactive verb Moved to Modcomp June 1, to VLA June 26, 1981 60. April 10, 1981 OERROR Eric Error message #60 for 59 above Close any open RUN file Moved to Modcomp June 1, to VLA June 26, 1981 61. April 10, 1981 BBUILD, AUB, BATTER Eric Use batch includes, use batch writing file size and name expand file if needed Moved to Modcomp June 1, to VLA June 26, 1981 62. April 10, 1981 RANCID, RANCB, VLAGEN Eric Use batch includes in declares Moved to Modcomp June 1, to VLA June 26, 1981 63. April 10, 1981 RANCC Eric As 61 above plus remove check on symbol table in VLADAT while checking if TASK is in fact a task Moved to Modcomp June 1, to VLA June 26, 1981 64. April 10, 1981 STORES Eric Add pseudoverbs SAVE and GET Moved to Modcomp June 1, to VLA June 26, 1981 65. April 10, 1981 CATDIR Eric Change print of rest status to blank Moved to Modcomp June 1, to VLA June 26, 1981 66. April 10, 1981 AU3 Eric Make CAT use adverb TYPEIN Moved to Modcomp June 1, to VLA June 26, 1981 67. April 10, 1981 FILINI Eric Picks up size of batch file on create, asks & stores size on init (uses create size if answer = 0) Moved to Modcomp June 1, to VLA June 26, 1981 68. April 10, 1981 COMPIL Eric Clean up recognition of commas & unary signs Moved to Modcomp June 1, to VLA June 26, 1981 69. April 13, 1981 AU9B, TKSLIN, TKSLPL, Eric TKSLTI, TLABNO, TKSLAB, TKVECX, TKCHAR New verb routine AU9B broken up into component subroutines minor standardization typing corrections Moved to Modcomp June 1, to VLA June 26, 1981 70. April 13, 1981 EXIND, EXFND Eric Added checks on record lengths Moved to Modcomp June 1, to VLA June 26, 1981 71. April 13, 1981 COMPIL Eric Sticks on = for dummies in more cases Moved to Modcomp June 1, to VLA June 26, 1981 - it's dangerous 72. April 13, 1981 QUICK Eric Correct starting error checks for new quick verbs Moved to Modcomp June 1, to VLA June 26, 1981 73. April 14, 1981 COMB Eric Added common square of cutoff for speed, handle unblanked vale of ATAN2(0,0) Moved to Modcomp June 1, to VLA June 26, 1981 74. April 14, 1981 AU8A Eric Modified typing a little to make more standard Moved to Modcomp June 1, to VLA June 26, 1981 75. April 16, 1981 VERBS, VERBSB, VERBSC Gary Added call to AU3A. (DISKUSE, ALLDEST, SCRDEST). Moved to Modcomp June 1, to VLA June 26, 1981. 76. April 17, 1981 TPHEAD MLREOF Eric Added message suppression (requires MLOAD relink) Moved to Modcomp June 1, to VLA June 26, 1981 77. April 17, 1981 MEAN Eric Corrected RMS formula, revised for blanked maps Moved to Modcomp June 1, to VLA June 26, 1981 78. April 18, 1981 AU9B, AU8A Eric Corrected missing data statements, AU8A now honors USID=32000 Moved to Modcomp June 1, to VLA June 26, 1981 79. April 18, 1981 SLPLF TKSLIN Eric Now honor new SL file format (see #58 above) Moved to Modcomp June 1, to VLA June 26, 1981 80. April 18, 1981 ADDMP, CONTR, DECTP Eric EXFND, EXIND, FRED GSCAL, MPRNT, PFILE POLPL, PRTPL, SLICE SUBIM, TEKPL, TGRPH Corrected order of last message and slow RELPOP Moved to Modcomp June 1, to VLA June 26, 1981 81. April 18, 1981 COMB Eric Made it less fussy about exact coordinate match Added missing MSGWRT call on failure to match coords Moved: this revs only to MC this date 82. April 20, 1981 AU8 (DESTEXT) Gary Made it possible to delete higher version no. than the max in the header. Moved to Modcomp June 1, to VLA June 26, 1981 83. April 20, 1981 ZCLOSE, ZTRSUM, ZACTV8 Eric Lowered message levels to allow suppress Moved to Modcomp June 1, to VLA June 26, 1981 84. April 20, 1981 ZCMPRS, ZFIO, ZM70XF Eric ZMIO, ZRENAM, ZWAIT Minor cosmetic typing changes Moved to VLA June 26, 1981 85. April 20, 1981 ZEXIST.MAR Gary New subroutine to find out if a file exists. Moved to Modcomp June 1, to VLA June 26, 1981 (MC version) ******************************************************************* ******************************************************************8 ******************************************************************* 86. April 24, 1981 ITICS Eric Fixed missing declares of BLANK Moved to Modcomp June 1, to VLA June 26, 1981 except [RPOPS] area 87. April 24, 1981 RANCID -> AIPS Eric RANCC -> AIPSC RANCB -> AIPSB ZSTOPR -> ZSTOPA ZSTRTR -> ZSTRTA Programs renamed and changed internally to work on new name and AIPS rather than RANCID Moved to Modcomp June 1, to VLA June 26, 1981 88. April 24, 1981 AUA, RELPOP, ZTQSPY Eric MSGWRT, ZWHOMI, AU2 ZACTV8, ZACTV9 Moded for AIPS rather than RANCID Moved to Modcomp June 1, to VLA June 26, 1981 89. April 24, 1981 BATTER -> BATER ZSTRTB DBCR.INC CBCR.INC New name, new symbol table, AIPS rather than RANCID Min. match and optional = signs in grammer Moved to Modcomp June 1, to VLA June 26, 1981 90. April 26, 1981 VLAGEN -> POPSGN Eric New name Moved to Modcomp June 1, to VLA June 26, 1981 91. April 26, 1981 AU1A Eric Mod to print 2nd line of INPUTS file as the 1st header line Moved to Modcomp June 1, to VLA June 26, 1981 92. April 26, 1981 BATQ Eric Moved to .APL from .AIPS, added WHOO opcode locate current job Moved to Modcomp June 1, to VLA June 26, 1981 93. April 26, 1981 BATPRT Eric New: labels line printer output for batch jobs Moved to Modcomp June 1, to VLA June 26, 1981 94. April 26, 1981 MPRNT, PRTMSG, AU7 Eric Mod to use new BATPRT subroutine Moved to Modcomp June 1, to VLA June 26, 1981 95. April 24, 1981 COMB, MSCALE, MSCALF Eric Alterred handling of result = constant maps Moved clear ext. files from header to early in COMB Moved to Modcomp June 1, to VLA June 26, 1981 BUT FROM [RPOPS] 96. April 26, 1981 HENCO1, HENCO2, HENCOO Eric HENCO3 Changed to new adverb names, created HENCO3 for IN3... Moved to Modcomp June 1, to VLA June 26, 1981 97. April 26-27, 1981 ADDMP -> ADDIM Eric CMODL -> CCMOD COMB CONTR -> CNTR DECTP -> IBMTP EXFND EXIND FITTP FRED -> CCTP GSCAL -> GREYS IISPL -> TVPL MEAN -> IMEAN MPRNT -> PRTIM PCC -> PRTCC PFILE -> PROFL POLPL -> PCNTR PRTPL SLICE SLPLF -> SF2PF SUBIM TEKPL -> TKPL Change to new adverb names, task names in comments, history handling, common /INPARM/ ordering, etc. NOTE: CCMOD was found to have new code in it from somewhere! Moved to Modcomp June 1, to VLA June 26, 1981 98. April 29, 1981 DAPL.INC, CAPL.INC Eric Go to new variable names + new order Moved to Modcomp June 1, to VLA June 26, 1981 99. April 29, 1981 DOPL.inc, COPL.inc Eric Go to new order of adverbs, keep old variable names This is a temporary thing to simplify change over Moved nowhere 100. April 29, 1981 AU1, AU1A Eric Fixed to new DAPL CAPL Moved to Modcomp June 1, to VLA June 26, 1981 101. April 29, 1981 AU1A, AU2 Eric Fixed to new INPUTS file format: line 2 as header Moved to Modcomp June 1, to VLA June 26, 1981 102. April 29, 1981 AU2, AU3, AU4, AU5, Eric AU5A, AU5B, AU6, AU6A, AU7, AU8, AU8A, AU9, AU9A, AU9B, AUA, AUB AIPSC Fixed to use temporary adverb include DOPL, COPL Moved nowhere 103. April 29, 1981 ZWHOMI, IMEAN Gary Bugs. Allowed AIPS1 as valid task name in 1st, 'WRITE' changed to 'WRIT' in data statement in 2nd. Moved to Modcomp June 1, to VLA June 26, 1981. 104. April 29, 1981 SETLOG.COM, RESETLOG.COM Gary New command procs to set and reset group logical name assignments to run AIPS from MXA0. Moved to VLA June 26,1981.. 105. April 29, 1981 CONDRW Gary New subroutine to draw contours (to be used in CONTR, POLPL) Moved to Modcomp June 1, to VLA June 26, 1981. 106. April 29, 1981 CLAB1 Gary New subroutine for RA/DEC type labels. Moved to Modcomp June 1, to VLA June 26, 1981. 107. April 29, 1981 CLAB2 Gary New subroutine for arc seconds from center labeling. Moved to Modcomp June 1, to VLA June 26, 1981. 108. April 29, 1981 COMLAB Gary Subroutine to draw common labeling used for both CLAB1, and CLAB2. Moved to Modcomp June 1, to VLA June 26, 1981. 109. April 30, 1981 LABNO Gary Number formating routine to be used with labeling. Moved to Modcomp June 1, to VLA June 26, 1981. 110. May 1, 1981 APCLN, BPMAP, UVIN, UVSRT Eric/Bill LIST, TERP, UVCREA, UVINIT UVDISK, MERGE, LSORT, SHSORT QKSORT, DSKFFT, FILL1, FILL2 EMPTY1, EMPTY2, XPOSE, VTRANS DUIN.INC, CUIN.INC DSRT.INC, CSRT.INC Brought from the Modcomp to [.NOTST] this date Moved to VLA June 26,1981. 111. April 30, 1981 AVER -> SUMIM Eric MOM -> MOMFT DESCR, CLENUP, FILCLS, FILCR FILDES, FILOPN, GETHDR, HDRINF IMIO, IMOPEN, IMWIN, IOSET1-5 MAPCR, MAPFIX, MAPIO, MAPMAX MAPXY, OPENCF, PRENAM, SCRNAM TSKBE1-5, TSKEND, UNSCR, FILIO Moved from [RPOPS.IPOPS} to [TEST.NOTST] since they have not been examined & are not close to standards. This is "wawa's" easy IO package. In fact, MOMFT does nor correspond to any INPUTS for it & hence was not fixed up or linked. IMIO is incomplete & will not compile. 112. April 30, 1981 MOM Eric Old subroutine wiped out by WaWa recovered from obscure file so that PFIT verb will work and AIPS will link edit. 113. May 4, 1981 DMAP.INC, CMAP.INC Eric DUIN.INC, CUIN.INC DMPX.INC, CMPX.INC CSRT.INC Mods to support new adverbs orders & use of DOEOF Moved to Modcomp June 1, to VLA June 26, 1981 114. May 4, 1981 COMPIL Eric Fix bug: used to add = for dummies on IF and WHILE clauses Moved to Modcomp June 1, to VLA June 26, 1981 115. May 4, 1981 AU1A Gary Fixed bug: Using LTYPE as variable. It is now an adverb. Moved to Modcomp June 1, to VLA June 26, 1981 116. May 5, 1981 BPMAP Eric APMAP Change parameter order, go to CELLSIZE from FLDVU Drop ROTATE from BPMAP Change meaning of conv type numbers, add character printout and history showing those meanings Correct default handling of X and Y for exp * sinc Moved to Modcomp June 1, to VLA June 26, 1981 117. May 5, 1981 UVIN -> UVLOD Eric New name, new parms order, fix up prg name handling Start to make standard in its typing Moved to Modcomp June 1, to VLA June 26, 1981 118. May 5, 1981 CNTR, GREYS, PROFL, SF2PF, SLICE Gary Changed NAMIN to PRUSER in GINIT to allow for change in NPARM common. Moved to Modcomp June 1, to VLA June 26, 1981. 119. May 5, 1981 TERP -> NTERP Eric APCLN Fixed order of parms passing & made method more standard Some retyping of APCLN Moved to Modcomp June 1, to VLA June 26, 1981 120. May 6, 1981 SNCRB Eric/Bill New routine brought from MC, call order changed Moved to Modcomp June 1, to VLA June 26, 1981 121. May 6, 1981 UVSRT Eric/Bill Brought from MC -> [.NOTST], fix parms order, handling of task name, some typing, & call sequence to SNCRB Moved to Modcomp June 1, to VLA June 26, 1981 122. May 6, 1981 DBINIT Gary New subroutine to do defaults and initialization for double buffered read. Moved to Modcomp June 1, to VLA June 26, 1981. 123 May 6, 1981 AU3A Gary Fixed bug (ALLDEST) for INTYPE equals blank. Moved to Modcomp June 1, to VLA June 26, 1981. 124. May 6, 1981 new sublibrary Eric Created 2 sublibraries [.FPS] and [.PSAP] for all in house "array processor" routines (microcode & Fortran versions thereof in [.FPS] and CPU AP-simulation routines in [.PSAP]) 125. May 6, 1981 BOXSUM, CVCMUL, RECT, VTRANS Eric Moved these Fortran-microcode from [.NOTST] to [.FPS] APRFT, GRDFIN, APGRID CLNSUB, DIRADD, TPVF1 TPVF2 Fortran-microcode routines stripped from tasks: APMAP, BPMAP APCLN, NTERP Tasks now free of the Fortran versions of specialized micrcode VIDIV, HIST, CSQTRN Moved microcode from [.APL] to [.FPS] Moved to Modcomp June 1, to VLA June 26, 1981 126. May 6-7, 1981 EXIND, EXFND, UVLOD, APMAP Eric Fix bug in record length test Moved to Modcomp June 1, to VLA June 26, 1981 127. May 8, 1981 CNTR, PCNTR, GREYS Gary Added LTYPE=2 option (arc sec from center labeling). Moved to Modcomp June 1, to VLA June 26, 1981. 128. May 8, 1981 SF2PF Gary Changed to use general routine LABNO instead of SLABNO. Moved to Modcomp June 1, to VLA June 26, 1981. 129. May 10, 1981 NTERP, R4TOI2 Eric Correct bugs: extra encode, fail to close on error, mapsize Moved to Modcomp June 1, to VLA June 26, 1981 130. May 10, 1981 MAPSIZ Eric Routine to compute mapsize given NX, NYtotal, NB Moved to Modcomp June 1, to VLA June 26, 1981 131. May 10, 1981 CLAB1, CLAB2, COMLAB Eric DBINIT Typing changed to standard; call sequence changed Moved to Modcomp June 1, to VLA June 26, 1981 132. May 10, 1981 GREYS, PCNTR, CNTR Eric SF2PF Change call sequence for #131 above A variety of minor, standardizing typing changes Moved to Modcomp June 1, to VLA June 26, 1981 133. May 10, 1981 DIE, DFIL.INC, CFIL.INC Eric Made DIE standard, created includes for file info Their order is changed, however! Moved to Modcomp June 1, to VLA June 26, 1981 134. May 10, 1981 IROUND Eric New standard function, rounds floating to nearest integer*2 Moved to Modcomp June 1, to VLA June 26, 1981 135. May 10, 1981 UVSRT, DSRT.INC, CSRT.INC Eric UVLOD, DUIN.INC, CUIN.INC BPMAP, DMPX.INC, CMPX.INC Changed for new DIE and DFIL.INc's Moved to Modcomp June 1, to VLA June 26, 1981 136. May 12, 1981 BATER, DBPL.INC, CBPL.INC Eric AU2, AU3, AU3A, AU4, AU5 AU5A, AU5B, AU6, AU6A, AU7 AU8, AU8A, AU9, AU9A, AU9B AUA, AUB, AIPSC Convert to use new variable names appropriate to the new adverb names Moved to Modcomp June 1, to VLA June 26, 1981 137. May 13, 1981 FILL1, EMPTY1, EMPTY2, FILL2 Eric DSKFFT (only little change) Retyped to standards except for comments Use new /CFILE/ includes Moved to Modcomp June 1, to VLA June 26, 1981 138. May 13, 1981 MSCALE, MSCALF Eric Removed a possible divide by 0 Moved to Modcomp June 1, to VLA June 26, 1981 139. May 15, 1981 MSGWRT Eric Fixed message about PRTMSG to this new name Moved to Modcomp June 1, to VLA June 26, 1981 140. May 15, 1981 TXTMAT Gary New routine for finding file names with min match. Moved from modcomp this date. 141. May 15, 1981 ZTXMAT.MAR Gary Parses name and searches directory for all min match files. Moved to Modcomp June 1 (MC version), to VLA June 26, 1981. 142. May 16, 1981 AU8 Eric Changed GETnames: PRUSER set only on first, message on all Moved to Modcomp June 1, to VLA June 26, 1981 143. May 16, 1981 AU3 Eric Changed handling of destroy to keep cat if errors occur Moved to Modcomp June 1, to VLA June 26, 1981 144. May 16, 1981 AU1A, AU2 Eric Allow min match on GO, HELP, INPUTS Moved to Modcomp June 1, to VLA June 26, 1981 145. May 16, 1981 OERROR Eric Added message #39: not yes / no Moved to Modcomp June 1, to VLA June 26, 1981 146. May 16, 1981 QUICK Eric Fixed bug for unary minus and logical not ops Moved to Modcomp June 1, to VLA June 26, 1981 147. May 18, 1981 AU3A Eric Retyped a lot; rearrange destroy to leave cat entry on error Moved to Modcomp June 1, to VLA June 26, 1981 148. May 18, 1981 ZTOPEN Eric Fixed bug in waiting process Moved to VLA June 26,1981. 149. May 18, 1981 CU3A, VERBSC Eric New routine: stubbed version of AU3A does calls to PREAD and checks the results only. Moved to Modcomp June 1, to VLA June 26, 1981 150. May 19, 1981 MAXMIN Bill This microcode routine was moved from [TEST.APL] to [TEST.FPS] 151. May 19, 1981 APXPOS Bill A missing line in this routine was replaced. APCLN now will work. Moved to Modcomp June 1, to VLA June 26, 1981. 152. May 20, 1981 TVINIT Eric Now turns off all planes but 1 to make its TVLIMG=1 true Moved to Modcomp June 1, to VLA June 26, 1981 153. May 20, 1981 AU6 Eric Made all pseudo color verbs into one with multiple button use Moved to Modcomp June 1, to VLA June 26, 1981 154. May 20, 1981 TVLOAD, ISCALE, AU5A Eric Changed to use XINC, YINC in loading image to TV screen Moved to Modcomp June 1, to VLA June 26, 1981. 155. May 20, 1981 ITICS, IAXIS1 Eric Now can handle images with Xinc, Yinc > 1 Moved to Modcomp June 1, to VLA June 26, 1981 156. May 20, 1981 UVDISK Bill Now no longer marks FTAB(FIND+3)=-1 to indicate all data processed. Moved: VLA VAX to Modcomp June 1, to VLA June 26, 1981 157. May 20,1981 APCLN Bill Removed MINCLN and now only one subtract is done for a given CLEAN component in the in-AP core CLEAN. Also, the speeded up version of the AP CLEAN min. flux for a given major cycle is hard wired in. EXP=1. Also a missing APWD call in INGAUS was inserted. Moved to Modcomp June 1, to VLA June 26, 1981 158. May 21, 1981 TICCOR Eric Corrects Delta LL,MM tick lengths to Delta RA, Dec Moved to Modcomp June 1, to VLA June 26, 1981 159. May 21, 1981 PROFL Eric Add use of TICCOR Moved to Modcomp June 1, to VLA June 26, 1981 160. May 21, 1981 CTICS, ITICS Eric Corrected bug in RA, DEC labeling, Use TICCOR now ITICS: many changes to improve labels Moved to Modcomp June 1, to VLA June 26, 1981 161. May 21, 1981 IAXIS1 Eric Blank out area of IMNAME display Moved to Modcomp June 1, to VLA June 26, 1981 162. May 21, 1981 STORES Eric Change handling of errors on names for SAVE/GET areas Moved to Modcomp June 1, to VLA June 26, 1981 163. May 21, 1981 AU3A Eric Removed bug in DISKUSE which messed up data used by SAVDEST Removed bug in Class checking in ALLDEST Moved to Modcomp June 1, to VLA June 26, 1981 164. May 21, 1981 AU5 Eric Add message of set name for TVNAME Moved to Modcomp June 1, to VLA June 26, 1981 165. May 22, 1981 MSKIP,MINSK Bill copied corrected versions of these routines from MODCOMP. They should not do double buffering correctly. 166. May 22, 1981 Installation system. Gary TRANSPRT.COM INSTALL.COM COMPILE.COM COMPAP.COM COMPPS.COM COMPNS.COM LINKA.COM LINKT.COM LINKNS.COM Updated installation system to use AIPS format as of this date. Moved to VLA June 26,1981. 167. May 28, 1981 AU2, AU1A Eric Fixed bug in limit checking Moved to Modcomp June 1, to VLA June 26, 1981 168. May 28, 1981 AIPSC (CU2) Eric Made it honor min-match, fix bug in limit check, skip 2nd record in inputs file Moved to Modcomp June 1, to VLA June 26, 1981 169. May 30, 1981 UVPGET Bill This routine which was placed in NOTST determines a number of useful parameters for a uv data base from the catalogue. The parameters are things such as RA,Dec, Scaling factors, and the location of the random parmeters in a logical rec. Moved MODCOMP 170. May 30, 1981 PRTUV Bill A number of bugs were removed and the output is now more informative (eg. gives file name, date listed etc.). User number now obtained from input. moved to Modcomp June 1, to VLA June 26, 1981 171. May 30, 1981 BPMAP -> UVMAP Eric Name change Moved to Modcomp June 1, to VLA June 26, 1981 172. May 31, 1981 UVDISK Bill Several problems involved with reading or writing the end of a file were fixed. Typing cleaned up a bit. Moved to Modcomp June 1, to VLA June 26, 1981 173. June 1, 1981 UVDISK Bill Corrected a bug left introduced in cleaning up typing Moved to Modcomp June 1, to VLA June 26, 1981 174. June 1, 1981 PRTUV Bill Modified format of output, time now given in hh,mm,ss Moved to Modcomp June 1, to VLA June 26, 1981 175. June 1,1981 UVFLG Bill This task flags selected UV data. Input currently crude. moved to Modcomp June 1, to VLA June 26, 1981 176. June 1, 1981 AU3A AU5 AU5B AU7 Eric CLAB1 APXPOS Fixed bug: N80 not declared, datad found by MC in AU3 RDATA not datad in AU5 AU5B used LABEL rather than LTYPE AU7 used SEQOUT rather than OUTSEQ CLAB1 didn't define STOK, FREC APXPOS removed a blank line Moved from MC this date to VLA June 26, 1981 177. June 1, 1981 ISCALE Eric Fixed bug found by Modcomp compiler in log transfer Fixed it so it handles RANGE(2) = RANGE(1) Moved from MC this date. to VLA June 26, 1981 178. June 3,1981 UVMAP Bill Fixed bug which caused incorrect position shift. Moved to Modcomp. 179. June 3, 1981 UVSRT Bill ROTATE of u,v now added. Moved to Modcomp June 6, to VLA June 26, 1981 180. June 4, 1981 FILINI, AIPSC Eric Bugs found by MC compiler: FILINI used ITYPE not ITYP AIPSC used BWTDAT(n) with explicit n's > that declared & failed to init a N80. Moved from MC this date to VLA June 26, 1981 181. June 3, 1981 SF2PF -> SL2PL Eric Name change only Moved to Modcomp June 6, to VLA June 26, 1981 181. June 4, 1981 AU9B, TKSLIN Eric Fix variable name in AU9B, possible overflow in TKSLIN Moved to Modcomp June 6, to VLA June 26, 1981 182. June 4,1981 UVMAP Bill Fixed to pickup rotation of coordinate from UV CATBLK. Moved to Modcomp June 6, to VLA June 26, 1981 183. June 4,1981 UVSRT Bill Fixed a couple bugs with the coordinate rotation. Moved to Modcomp June 6, to VLA June 26, 1981. 184. June 5,1981 COMB Ed Added adverb DOGRIDCR to task. If set to -1, only the two imput map dimensionality is checked before combing. Moved to Modcomp June 6, to VLA June 26, 1981. 185. June 5, 1981 Psap routines Eric APGET -> APGET, APGET2 APPUT -> APPUT, APPUT2 APGRID remove blank lines APGRD2 add computation of increment RFFT removed equiv into "AP memory" MC didn't handle it well Moved from MC this date, to VLA June 26, 1981 186. June 7, 1981 UVLOD Eric Correct Fortran error (missing ,) Moved from MC this date, to VLA June 26, 1981 187. June 7, 1981 COMPIL, CTICS Eric COMPIL bug would not do arithmetic in ('s CTICS bug showed full label always Moved from MC this date, to VLA June 26, 1981 188. June 8, 1981 UVCREA MCREAT Eric Fixed bug which led to duplicate names Moved from MC this date, to VLA June 26, 1981 189. June 8, 1981 AU9B, TKSLIN, TKSLAB, TKSLTI, TKSLPL Gary Fixed to put dummy values of TRC(2), BLC(2) instead of actual values thus preventing possible integer overflow in graphics package. Moved to Modcomp June 12, to VLA June 26, 1981. 190. June 8, 1981 SL2PL Gary Task version of 189. Same change. Moved to Modcomp June 12, to VLA June 26, 1981. 191. June 8, 1981 AU9A Gary TKVAL changed to interpret changes in 189, 190. Moved to Modcomp June 12, to VLA June 26, 1981 192. June 8, 1981 PROFL Gary Fixed bug in hidden line algorithm and made scaling algorithm smarter to fit all lettering on the page. This program may still have problems on lines that go almost straight down. Moved to Modcomp June 12, to VLA June 26, 1981. 193. June 9, 1981 PCNTR Gary Fixed bug in print out of 'POL LINE: 1 PIXEL = ...' Moved to Modcomp June 12, to VLA June 26, 1981. 194. June 11, 1981 APMAP, UVMAP Eric/Bill APMAP no longer die on TV error UVMAP fix declare in main Moved from Modcomp this date, to VLA June 26, 1981 195. June 11, 1981 UVINIT,UVDISK Bill For FAST I/O now checks that I/O does not start in the middle of a block. Moved from Modcomp this date, to VLA June 26, 1981 196. June 11, 1981 UVSRT Bill Fixed bug in INSORT when run out of data. Move from MODCOMP this date, to VLA June 26, 1981 197. June 11, 1981 AU8A Gary Changed EXTLIST to recognize histograms Moved to Modcomp June 22, to VLA June 26, 1981.. 198. June 12, 1981 AIPSC (CU2) Eric Buffer not declared Moved from Modcomp this date, to VLA June 26, 1981 199. June 12, 1981 MCREAT UVCREAT Eric Now set IERR = 0 rather than no change on ok Moved from Modcomp this date, to VLA June 26, 1981 200. June 12, 1981 COMB Ed/Eric Fix up error message handling Not moved to Vax yet from MC 201. June 12, 1981 PCNTR Eric Declare & data N1 & N8 in PLAB Moved from MC this date, to VLA June 26, 1981 202. June 15, 1981 APCLN Bill Added special adverb for speed up factor (FACTOR) which changes the limit for a given major cycle. Moved to MODCOMP this date, to VLA June 26, 1981. 203. June 15, 1981 TV stuff Eric DTVD.INC, CTVD.INC drop unused last img corners, last image now TVLIMG(4), add split mode parm DTVC.INC, CTVC.INC add parm: split types allowed TVWHER to get coords of TV point in presence of split screen TVWIND to get corners for normal & split TV loads TVROAM to do roam function AU5B to call TVWHER AU6 to skip crap blocking scroll correction YCURSE to drop corr for scroll AU5 to use TVWHER and skip setting TVLIMG TVINIT correct error handling, skip setting TVLIMG YSLECT now sets TVLIMG (1 to 4) YTVCIN sets new parms dropped old parms AU5A calls revised TVWIND, TVLOAD; does roam functions TVLOAD remove window operations to TVWIND & calling routines Moved to Modcomp June 22, to VLA June 26, 1981. 204. June 16, 1981 ZACTV8 Gary Changed to use ZQMSG thus producing better error messages. Moved to VLA June 26,1981.. 205. June 16, 1981 ZTXMAT Gary Changed hardcoded dir names to logical names. Moved to VLA June 26,1981.. 206. June 16, 1981 ASCAL Fred Corrected comments at the front of GETMOD. Added zero-divide trap in DO 10 loop in SOLVE2. Moved MODCOMP July 27, VLA July 27. 207. JUNE 16, 1981 UVINIT BILL FIXED BUG WHICH INCORRECTLY COMPUTES THE NUMBER OF CALLS PER BUFFER. MOVED MODCOMP THIS DATE, to VLA June 26, 1981. - THIS TERMINAL WILL NOT TYPE LOWER CASE!!!!! 208. June 17, 1981 ZGTDIR.MAR Gary Changed to handle file types 'SI', 'SN', 'SF'. Also this program can now parse the directory and does not need the 'list of names' files. Moved to VLA June 26,1981.. 208. June 17, 1981 ZTOPEN Gary Updated to handle file types 'SI', 'SN', 'SF'. Added call to ZQMSG for better error messages. Moved to VLA June 26,1981.. 209. June 17, 1981 AU5C Eric New: does verbs TVWEDGE, IMWEDGE, IMERASE Moved to Modcomp June 22, to VLA June 26, 1981. 210. June 17, 1981 AU5B Eric Added trap for zeroed images & wedges, labels stubbed Moved to Modcomp June 22, to VLA June 26, 1981. 211. June 17, 1981 VERBS, VERBSB, VERBSC Eric Added AU5C, moved numbers some in branch table Moved to Modcomp June 22, to VLA June 26, 1981. 212. June 17, 1981 APCLN Bill BMSHP now picks a more stable solution when fitting the beam size. Moved: MODCOMP this date, to VLA June 26, 1981. 213. JUNE 18, 1981 UVFLG Bill Antenna #0 now flags all data in given time range Moved: MODCOMP this date, to VLA June 26, 1981. 214. June 22, 1981 IMLOD Eric Add data for N8 in FITDAT: fix flip CV-ordered maps Moved from MC this date, to VLA June 26, 1981 215. June 22, 1981 UVMAP Bill Fixed several problems in uniform weighting and gridding known as the Owen problem. Moved to Modcomp, to VLA June 26,1981.. 216. June 23, 1981 YCURSE Eric Made it figure out TV quadrant (before zoom corr mostly) and hence it can do scroll correction again Moved to Modcomp this date, to VLA June 26, 1981 217. June 23, 1981 TVWHER, TVROAM, IENHNS Eric AU6, AU6A, AU5C Corrected to new call sequence of YCURSE mostly, TVROAM changed zoom pos, TVWHER now a minor routine Moved to Modcomp this date, to VLA June 26, 1981 218. June 23, 1981 BATQ Eric Bug in WHOO option gave wrong job number out. Fixed Moved from Modcomp this date, to VLA June 26, 1981 219. June 23, 1981 AU8 Gary Modified to allow deletion of extension file even if none of that type in header. Moved to Modcomp June 24, to VLA June 26, 1981. 220. June 24, 1981 ZACTV9.MAR Gary Modified to give detached processes (batch jobs) working set defaults of 150 and working set limits of 250 pages. Moved to VLA June 26,1981.. 221. June 24, 1981 CBPL.INC DBPL.INC Eric BATER, FILINI Fix numerous bugs re min match in BATER, BA inits in FILINI Moved to Modcomp this date, to VLA June 26, 1981. 222. June 24, 1981 AUB Eric Add optional immediate argument to BATEDIT Moved to Modcomp this date, to VLA June 26, 1981. 223. June 24-25, 1981 IMEAN Gary/Eric Added histogram option. Moved to Modcomp June 25, to VLA June 26, 1981. 224. June 25, 1981 CAPL.INC, DAPL.INC Gary Added new adverbs DOHIST, BDROP, EDROP, MMPAS. Moved to Modcomp June 25, to VLA June 26, 1981. 225. June 25,1981 UVMAP, APMAP Bill Completed fix for Owen problem. Moved: MODCOMP June 26, to VLA June 26, 1981. 226. June 26, 1981 AU9B, TKSLIN, TKSLPL Gary Added BDROP, EDROP option. Moved to Modcomp June 26, to VLA June 26, 1981. 227. June 26, 1981 AU3A Gary Updated DISKUSE to handle UV data. Moved to Modcomp June 26, to VLA June 26, 1981. 228. June 26,1981 [TEST.PSAP]HIST Bill Modified rounding to a more accurate method. Moved: MODCOMP this date, to VLA June 26, 1981. 229. June 26, 1981 ZGTDIR Gary Fixed bug for HE, IN, RU type files. Moved to VLA June 26,1981.. 230. June 26, 1981 COMPILE, FORS.CT1, FORS.CT5 Gary Updates in installation procedure. Moved to VLA June 26,1981.. 231. June 29, 1981 PRNTMN Gary Fixed bug. ZDCHIN must be called before CHFILL. Moved to VLA July 1, to Modcomp July 27. 232. June 29, 1981 YSLECT Eric Fixed bug for graphics planes Moved to VLA July 1, to Modcomp July 30. 233. June 29, 1981 UVLOD Eric Fixed bugs in GREG, VISIN Moved to VLA July 10, to Modcomp July 27. 234. June 29, 1981 UVDISK Bill Fixed bug which caused problem for R*4 data. Moved: to Modcomp July 27, to VLA Sept 18. 235. July 1, 1981 UVDISK,UVINIT Bill Fixed several bugs related to R*4 data Moved: to Modcomp July 27, to VLA Sept 18. 236. July 1 1981 PRTPL, TKPL Gary Added millimeters per arc sec option. Moved MODCOMP July 9, 1981, to VLA July 27. 237. July 2, 1981 EXES.CT1, EXES.CT5 Gary Added SUBIM, and SUMIM respectively. Done at VLA also. 238. July 7,1981 UVSRT Bill Added Fred's fast quick sort routine. OSORT and PERMAT. Moved: MODCOMP this date, to VLA July 27 239. July 7,1981 UVCREA Bill Added error checking after call to ZCREAT. Moved: also done at VLA-VAX, MODCOMP this date. 240. July 7,1981 APCLN Bill Added expand of CLEAN components file after final write. Also added FACTOR to history output. Moved MODCOMP this date, VLA July 12 241. July 7, 1981 UVLOD Bill Corrected reading of sort order from tape. Moved: MODCOMP this date, (at VLA see below) 242. July 7, 1981 PROFL Gary Made more sophisticated in which direction to draw lines to help out hidden line algorithm. Moved MODCOMP July 9, 1981, to VLA July 27. 243. July 8, 1981 ZACTV9.MAR Gary Changed working set def from 150 to 256 and working set max from 250 to 512 to try to make use of 3 MB of core. Moved to VLA Sept. 18. 244. July 8, 1981 CLAB2 Gary Fixed bug. Was using X pixel separation for both X and Y. Moved MODCOMP July 9, 1981 (see below) 245. July 8, 1981 SL2PL Gary Added BDROP, EDROP option. Moved MODCOMP July 9, 1981 (see below) 246. July 8, 1981 SCALMM Gary New subroutine to help scale mm per arc sec. Moved MODCOMP July 9, 1981 to VLA July 27. 247. July 9, 1981 MOMFT WaWa Installed a working version on CV VAX and updated INPUTS file on CV VAX Installed on VLA VAX on July 10 247. July 10,1981 UVIBM,JULDAY,VBOUT Bill Added task UVIBM which writes EXPORT format tapes from a catalogued uv data base. It uses the somewhat ggeneral routines JULDAY (civil date to Julian date), and VBOUT which writes RECFM=VB integer*2 data to a tape. Moved: to Modcomp, to VLA July 27. 248. July 10,1981 GREG Bill Picked this routine out of the code for UVLOD. It converts Julian date to civil date. Moved: to Modcomp, VLA July 27. 249. July 13, 1981 UVSRT,OSORT Fred Fixed OSORT so that it sets its error flag to 0 (there is actually no possibility of an error condition, given correct inputs). IER had come back garbage on the Modcomp. Recompiled UVSRT on the CV VAX, but haven't yet done so on the MODCOMP since I can't remember the library names. Moved: Modcomp this date, VLA July 27. 250. July 13, 1981 PRTPL Gary Fixed bug that only shows up on MODCOMP. PRFINT, INW can be one too big. MovedModcomp this date, VLA July 27 251. July 14, 1981 UVSRT,OSORT Fred Moved change described in item 249 to Modcomp and relinked on Modcomp. 252. July 17, 1981 ZACTV9.MAR Gary Changed so that when a task bombs a file called ERROR.DAT is created and the system error messages are written to the file as well as to the error monitor screen. Changes also made at VLA by Eric. 253. July 17,1981 APCLN Bill Added adverb XINC to specify minimum beam patch. Also increased map histogram size to 1024 levels and fixed a bug in DECIDE which sometimes caused too many map points to be loaded into the AP. Moved: MODCOMP this date , to VLA JUly 27. 254. July 17, 1981 UVFLG Bill Now writes the number of visibilities flagged/unflagged onto both the history file and the log file. Also now allows single baseline flagging. Moved: MODCOMP this date, to VLA July 27. 255. July 20, 1981 IDCH, DDCH, CDCH, ZDCHIN, SETPAR Gary Added XPRDMM (X printer dots per mm) and XTKDMM (X Tektronix dots per mm) to end of system parameter file. All tasks will (might?) run without recompiling. Moved to Modcomp, VLA July 27. 256. July 20, 1981 OVLROI, OVLIOR Gary New routines to put a floating point value in NWDPFP consecutive integer array elements and retreive it. Used with 255. Moved to Modcomp, VLA July 27. 257. July 20, 1981 PRTPL, TKPL, SCALMM Gary Updated to work with 255. Also changed mm per arc sec to arc sec per mm. Moved to VLA, Modcomp July 27. 258. July 20, 1981 AU5B Gary Added arc sec labeling option. Moved to Modcomp, VLA July 27. 259. July 20, 1981 ILAB0, ILAB1, ILAB2, ILABNO Gary New routines used with 258. Moved to VLA, Modcomp July 27. 260. July 22, 1981 UVIBM Bill Fixed two bugs in VISOUT, one in COMMON/XPARM/ Moved from MODCOMP, this date , to VLA July 27. 261. July 23, 1981 ASCAL Eric / Fred Eric at VLA: Prevent ATAN2(0,0) in plot in GNPL2 Fix up typing Adapt to change in freq units, NCOR location Stop wiping out the Physical type in header Fred in CV: a) Checked the weight computations. Found no problems. b) Fixed bug in SOLVE2 connected with AVAC option. Now copy R gains to L. c) In VISCOR, now do not set weights for flagged data to zero. Instead negate the absolute value of the weight attached to the input visibility. d) Consolidated the work arrays required by SOLVE, SOLVE2, and GCALC. Now they are all declared in SOLVE. Some are now placed in a labelled common, /WRK/, so that the storage may be shared with GETMOD. e) Added NITER option to select the number of CLEAN components to be used. Added descriptions of NITER option in the HELPS file and in the INPUTS file in TEST. f) In VISCOR, repaired the overflow test. Before, only positive overflows were detected. g) Repaired the scratch file destruction. Gain file now gets destroyed in VISCOR unless the PLOT option is active. h) Visibility input file sometimes was being left in READ status. Repaired this by changing occurrences of FIND1 to FIND in VISCOR. Moved to Modcomp, VLA July 27. 262. July 22-23 Brought from VLA Eric APCLN: Add call to ZEXPND on write last CC buffer Rotate goes into y-axis according to EBF Make more standard (early subroutines only) Add max residual, FACTOR to history Guard write status better New message levels Don't copy dirty map history on restart (BITER>0) Incorporate Bill's additions of min beam patch parm and error correction in that parm handling UVSRT: ROTATE goes into y-axis according to EBF (added to above changes) APMAP: ROTATE goes into y-axis according to EBF TKPL: Correct scaling of RX1 in setting x-origin added to Gary's arc sec/mm PRTPL: As TKPL CLAB2: Fewer ticks on a short x-axis, tick length to depend on both axes, use correct pixel incre. (per Gary above) UVLOD: Correct sort order translation, make more standard, compress file at end, correct units (to Hz, etc.) Handle tape EOF better: as an END record Count from 0 not 0.2 * (1.2 * NITER), init IOCNT Corrections moved from VLA this date, BUT others added so VLA is not up to date (nor MOdcomp) Moved to Modcomp, VLA July 27. 263. July 23, 1981 Moved fully from VLA Eric AU3 : Limit # of ext versions to 99 AU3A : Correct DISKUSE and ALLDEST to loop over all disks Limit # of ext versions to 99 AU6 : Clarify handling of ..SCROL channel defaults AU8 : Clarify messages on EXTDEST Bug messed up # HI files if destroy ext not in catlg Limit # versions to 99 AU8A : Fix character handling, add image name to headers Add info on slice plot files Add 2nd & 3rd image names to descr. of pcntr files Limit # of ext versions to 99 Allow biggers LEVS values, fix positioning AU9 : Make it not take subimage off edge of map TVWIND : Fixed correction of window to fit TV LSTHDR : Make it do better on UV like headers TKSLIN : Fix bugs, make labels prettier TLABNO : Fewer decimal places TKSLTI : Fix bugs, make labels prettier TKSLPL : Fix up typing a little Make it leave screen in alpha mode for auto-dim ITICS : More ticks on x axis, tick length depend both axes PRTMSG : Faster compress when no movement, ZENDPG call put after call to BATPRT PRNTMN : Make BLANK (4) for Vax call to ZGTDIR FILAIP : New program to do installation file create/init ZSTRTA : Alter messages some FILINI : Remove machine-dependent "16"s AIPSB : Rearrange close-down sequence to get tear-off page ZACTV9 : Get error dumps to go to ERROR.DAT file also Moved from VLA to CV VAX this date, to Modcomp July 27. 264. July 23, 1981 UVIBM Bill Fixed several bugs and improved method of determining scaling factors. (Bugs involved name FILE and FREQ in Hz) Moved: MODCOMP this date, to VLA July 27. 265. July 22, 1981 Moved from VLA extravaganza Eric MINIT : Bug - did 2 reads even when only one requested MDISK : Minor typing correction MAPOPN : Fix handling of INTYPE = ' ' Clarify comments MAPCLS : Correct typing to standards CATIO : Clarify comments ZQCREA : Clarify comments ZCMPRS : Allow map files to compress (VAX) Fix round up of size ZENDPG : Add page skip on last page mostly full PCNTR : Change file name defaults Rearrange to have all defaults filled in in advance CLAB1 : Change call to CTICS CTICS : Add XYRATO to call seq: prevent too many ticks on short x axis TVPL : Correct scaling of RX1 in setting x origin SL2PL : Add other kind of STOKES to labeling Add BDROP & EDROP options Fix numerous bugs, labeling prettier, fix typing SLICE : Fix error in row # for BLC(2) > TRC(2) Correct error handling: useful when RQUICK = false Make it do blanked maps correctly FITTP : Rearrange output of HI file & parsable HI header info RANCID -> AIPS reorganize tape write Correct writing of END card: missed when last in hdr TPHEAD : Add code to skip label files on labeled tapes IMLOD : Revise parsing of FITS history cards (only AIPS ones) DEC -> IBM Stop adding FITS in front of HI & unknown cards in HI file. Recognize PDP11 keywords and correct ref pixel Fix init min/max setting for 8 & 16 bit FITS tapes Alter handling of output class defaults Correct format error in error message IMEAN : Add log plot option, better labels (Jy on left...) COMB : Alter handling of output class defaults Fix error handling esp. with HI files Moved from VLA this date, to Modcomp July 27. 266. July 22, 1981 VLA extrava Eric APMAP [VPOPS version only] : Improve sort error messages Reverse sign of user-supplied ROTATE Change message levels, correct Stokes & Freq history UVPGET : Adapt to changes in FREQ unit, check for old Pick up NCOR from correct location DMPX.INC : Add bandwidth CMPX.INC : Add bandwidth UVMAP : NPARMS = 63 only Add test for missorted data ROTATE goes in y-axis according to EBF Alter message levels, correct STOKES history Adapt to changes in UV units, etc. Output bandwidth Correct frequency override Better freq into HI file PRTUV : Adapt to change in frequ units UVCREA : Fix error test on ZCREAT and some of the typing Moved from VLA this date, Modcomp July 27. 267. July 22, 1981 VLA extrava [INPUTS] Eric EXTLIST : Correct error IMVAL : correct error IMEAN : Add log plot option SL2PL : Add EDROP, BDROP TVOFF : Fix error in typing (bad format) TVON : " " " " GROFF : " " " " GRON : " " " " TVTRANSF : Correct defaults PCNTR : Add new defaults IMXY : Fix format error UVLOD : Reference to EXIND for correct value of NITER SUMIM : Change to way program actually works Moved from VLA to CV Vax, Modcomp July 24. 268. July 22, 1981 VLA extrava [HELP] Eric POPSDAT : Change intyp = ' ' Add proc OFFROAM EXTLIST : Correct errors IMVAL : correct errors INTYPE : correct error in default IN2TYPE : " " " IN3TYPE : " " " FACTOR : Change description & defaults SORT : Correct error UVMAP : correct error TV : correct error IMEAN : Add log plot option SL2PL : Add BDROP, EDROP TVPL : Clarify TVCHAN use TVCHAN : Clarify defaults TVLOD : Clarify defaults COMB : Fix defaults for POLA UV4TYPE : Correct to true default parms SUMIM : Change to way program actually works Moved from VLA to CV Vax this date, Modcomp July 25. 269. July 22, 1981 Eric [HELP]APCLN : New options (min beam patch) [INPUTS]APCLN : " "" ", also correct range Moved to Modcomp , VLA July 27. 270. July 22, 1981 transport doc, procs Eric Correct errors in documentation Change to all compiles /DEBUG, add program FILAIP Modules affected: [DOC] MV2C1002. and MV2C1003. INSTALL.COM COMPILE.COM COMPIL2.COM LINKA.COM LINKT.COM LINKNS.COM COMPNS.COM COMPAP.COM COMPPS.COM Moved from VLA this date 271. July 23, 1981 new adverbs Eric [INPUTS]ASCAL : Change X,Y PARM to A, B PARM [INPUTS]APCLN : Change XINC to MINPATCH [HELP]POPSDAT : Add APARM, BPARM, MINPATCH [HELP]APCLN : Change XINC to MINPATCH [HELP]ASCAL : Change Parms names DAPL.INC CAPL.INC Moved to Modcomp, VLA July 27. 272. July 25, 1981 Modcomp found errors Eric AU8 : Mistyped IBLANK variable as BLANK APCLN : Order of XINC, XDOTV wrong in common in GETIN ILAB1 : Didn't declare INSIDE as a logical PRTPL : Had a DATA statement for XPRDMM a global common var. Moved from Modcomp this date, to VLA July 27. 273. July 28, 1981 [HELP]POPSDAT. Gary Added new verbs SET1DG, SLFIT, SLMODEL. New adverbs GMAX, GPOS, GWIDTH, ERRMAX, ERRPOS, ERRWIDTH, NGAUSS. All for gaussian fitting of slices package. Moved to Modcomp Sept 4, to VLA Sept. 18. 274. July 29, 1981 DAPL.INC, CAPL.INC Gary Added new adverbs GPOS, GMAX, GWIDTH, ERRPOS, ERRMAX, ERRWTH, NGAUSS. Moved to Modcomp Sept 4, to VLA Sept. 18. 275. July 29, 1981 UVFLG Bill Fixed a couple bugs which caused UVFLG not to flag non- correlator based. Moved:MODCOMP, VLA VAX this date. 276. July 30, 1981 several Eric DSRT.INC, CSRT.INC : retype a little, add OLDFIL DFIL.INC, CFIL.INC : retype a little UVCREA : Now leaves file in catalogue "WRIT" status UVSRT : Redo file opens to allow catlg to show files busy Moved from Modcomp this date, to VLA Sept. 18 277. July 30, 1981 several Eric TKDVEC : New routine - converts vector to TEK mess & sends TEKVEC : Rewrite to handle off-edge values correctly IISVEC : Rewrite to handle off-edge values correctly TVPL : Revise error (off-edge vectors) without crashing TKPL : " " " " " " PRTPL : " " " and Correct off-edge vectors Moved to Modcomp Sept 4, to VLA Sept. 18 278. July 30, 1981 FITTP Eric Add message about which map is being written Moved to Modcomp Sept 4, to VLA Sept. 18 279. July 30, 1981 LSTHDR Eric Better format for RA and DEC axes Moved to Modcomp Sept 4, to VLA Sept. 18 280. July 30, 1981 Gary's new ones Eric AU5B, ILAB0, ILAB1, ILAB2, ILABNO, SCALMM, OVLROI, OVLIOR Minor retyping mostly. Change logic one place in ILAB0 Moved to Modcomp Sept 4, to VLA Sept. 18 281. July 30, 1981 ASCAL Fred In VISCOR, WTS should have been declared as an array. Changed on Modcomp and CV Vax. There were no obvious ill effects on the Vax, but something critical was get- ting clobbered on the Modcomp. Also put the INIT option into the MAPOPN call for the new uv file in VISCOR -- this change also on CV Vax and Modcomp. 282. July 30, 1981 ASCAL Fred Got ASCAL working on the Modcomp, and in the process made a number of changes on Modcomp only. "Best" version of the program is now on the Modcomp. I'll bring this version to the Vax in a few days time and tidy it up a bit more. 283. Aug 7, 1981 AU4A, GMODEL, GAUSS, TKSLAC, CREXT, GFUNC, Gary VERBS New programs for gaussian fitting package. Moved to Modcomp Sept 4, to VLA Sept. 18. 284. Aug 7, 1981 LMDER, LMDER1, QRFAC, QRSOLV, LMPAR, Gary ENORM, DPMPAR, GETERR, COVAR. Argonne least sqs fitting package retyped to approach AIPS typing standards. Used in gaussian fitting. Moved to Modcomp Sept 4, to VLA Sept. 18. 285. Aug 7, 1981 AU8A Gary Updated to give some information about type of slice ie slice data or model. Moved to Modcomp Sept 4, to VLA Sept. 18. 286. Aug 7, 1981 FORS.CT2 Gary Transport system updated with new subroutine names. Moved to VLA Sept. 18. 287. Aug 7, 1981 [HELP]SLFIT, SET1DG, SLMODEL Gary [INPUTS]SLFIT, SET1DG, SLMODEL One dim gaussian fitting stuff. Moved to Modcomp Sept 4, to VLA Sept. 18. 289. Aug 10, 1981 GAUSS Gary Removed debug tool (assignment of TOL to ERRPOS(1) ). Moved to Modcomp Sept 4, to VLA Sept. 18. 290. Aug 10, 1981 [TEST.HELP]POPSDAT. Gary Added PROC FIT(J) to assist fitting and plotting of gaussian fit of a slice on tektronix. Moved to Modcomp Sept 4, to VLA Sept. 18. 291. Aug 10, 1981 LINKNS.COM Gary Changed to allow choice of AP or PSAP code. Moved to VLA Sept. 18. 292. Aug 11, 1981 [TEST.NOTST]REGLR.FOR,CONVL.FOR,JAFPL.FOR Walter These are three test programs that I leave for your digestion. REGLR is a program written by Fred that I have improved. It tries to improve dirty maps (i.e. reduce sidelobes) with an iterative "regularizing" procedure. That is, it tries iteratively to minimize a specified norm of a model map, which is the weighted sum of the mean square deviation of the model UV plane and the measured UV plane, and a second norm which can be of several types, e.g. a sobolov smoothness norm, or a maximum likelihood norm. The resulting map has a somewhat undefined beam pattern, and is normalized to flux/pixel (READ: KELVINS) rather than flux/beam. My version has 2 de luxe features: if the input map is a CLEAN map, the clean components are added into map as delta functions before the end. This allows you to "regularize" a residual map after cleaning it a bit (use BMAJ=-1). you can convolve the output map with a circular gaussian function. If well chosen this at least leaves you with a more or less well defined beam. CONVL convolves a given map with a circular gaussian. The normalization is such that the brightness of a highly extended source remains constant after convolution, rather than the peak of a point source. Could easily be modified to change the normalization and to use elliptical gaussians. JAFPL is a TV camera test program. When you run it, it disables the LUTs for the refresh channels, and enables the LUT for the video digitizer. It then does one of 5 things. (1) use the feedback loop to clear refresh channel 2. (2) use the feedback loop to put the TV image into channel 2. (3) Read the contents of a specific LUT. (4) Initialize IFM to standard for feedback. (5) quit. On leaving it disables the TV camera. Moved: to VLA Sept 18, 1981. 293. August 13, 1981 Lots Eric A major rewrite of the position evaluation routines has been made necessary by the coming of 3-dimensional, transposed image. In particular, some routines assumed that the axes could be in arc sec and even that they were LL,MM in that order. The following is a list of the changes designed to handle the new data and correct the poor assumptions. CLAB2 Deleted FNDRA Deleted FNDDEC Deleted ILAB0 Deleted ILAB1 Deleted ILAB2 Deleted ILABNO Deleted TKSLAB Deleted (replaced by TKLAB) TKSLTI Deleted (replaced by TKTICS) TLABNO Deleted DIRDEC New: finds DEC given dec pixel & RA incl correct for rotation, non-linear (like old FNDDEC sort of) DIRRA New: like DIRDEC but for the reverse axes FNDX New: finds x val given xpix,yval replaces purpose of FNDRA although the similarity stops there FNDY New: finds y val given ypix, xval , ditto LABINI New: calls SETLOC, converts to center-rel axis parms if desired, calls METSCA to get better scales SETLOC New: build position common SLBINI New: Init for plotting slices TKLAB New: Axis labels direct to TK device TKTICS New: Ticks direct to TK device (version of CTICS) DLOC.INC An entirely revised location common CLOC.INC " " " " DAPL.INC Increase size of PIXXY: forces recompile all AUn's CLAB1 New call seq, use new common, remove find axis type CNTR Alter handling of LTYPE, init of CH, calls to label COMLAB New call seq, call LABINI to set pos common to truth or "lies" (ltype=4), added lines for ltype=4 COORDD Retype some CTICS Use new common, new incr for non-RA/dec, use new FNDX, FNDY routines, no tick numbers if CPREF and CTYP are blank DBINIT Minor typing changes DIRCOS Retype quite a bit, drop IERR in call seq. (unused) GCHAR Set to do nothing if NCHAR <= 0 (IERR = 0) GREYS Change LTYPE meaning, init of CH, calls to label, GLAB to use new common & LABINI rather than CLAB2 IMA2MP Retype some, change common to MAPHDR IMLOD Change to use new common in fixing PDP11 ref pixel MP2IMA Retype some, correct for X/Yinc, change common name MP2SKY Use new common, changed call seq (X(3)) NEWPOS Retype quite a bit PCNTR Change handling of LTYPE, init of CH, calls to label PROFL Change handling of LTYPE etc. SKY2MP Use new common: nobody uses this one now SKYFRM Change call seq., no longer use /LOCATI/ SL2PL Rewrite labeling almost entirely to use new common and standard labeling routines (CLAB1, CTICS) SLICE Remove unused reference to /LOCATI/ SUBIM Remove unused reference to /LOCATI/ TICCOR Use new common TKPL Change name of cat common to /MAPHDR/ TVPL Change name of cat common to /MAPHDR/ XYPIX Fancier: uses new common XYVAL Fancier: uses new common AU5 Use /MAPHDR/ , new pos routines on IMPOS AU5A Use /MAPHDR/ as the common AU5B Go back to using IAXIS1 AU5C Use /MAPHDR/ AU9 Use /MAPHDR/, new pos routines, support correct access to 3-d maps AU9A Use /MAPHDR/, new pos routines AU9B Use new TK labeling routines IAXIS1 Resurrected: calls LABINI now, rearrange axis labeling & ticks calls to use new common ITICS Change call seq., non-ra/dec increments, use new position common TKCHAR Made it return with no error on NCHAR <= 0. TKSLIN Use SLBINI, return parms for new TK label routines TVLOAD Use /MAPHDR/ TVWIND Use /MAPHDR/ [INPUTS]CNTR. Allow wider range LTYPE, describe new types " GREYS. " " " " " " " " PCNTR. " " " " " " " " PROFL. " " " " " " " " SL2PL. " " " " " " " " TKSLICE. " " " " " " " " TVLABEL. " " " " " " " [HELP]POPSDAT. Init value LTYPE ->3, PIXXY now array(7) " CNTR. Describe new labeling types " GREYS. " " " " " LTYPE. " " " " " PCNTR. " " " " " PROFL. " " " " " SL2PL. " " " " " TKSLICE. " " " " " TVLABEL. " " " " Moved to Modcomp Sept 4, to VLA Sept. 18. 294. August 14, 1981 YTVCIN, YCURSE Eric For some reason, the CV Vax IIS seems to work differently from the others. It will do a smooth scroll (SCXINC=1) and has a different and more reasonable set of zoom correction needs. The new YCURSE may port to our other machines, but the YTVCIN must be handled more carefully. Moved YCURSE to Modcomp Sept 4, to VLA Sept. 18. 295. Aug 14, 1981 CNVRT plus HELP and INPUTS Gary New task to convert to I*2 or R*4 type maps, depending on the input map type. Moved to Modcomp Sept 4, to VLA Sept. 18. 296 Aug 14, 1981 MSCALI Gary New subroutine, used with 295, to copy an I*2 file into a corresponding R*4 file. This program is the inverse of MSCALF. Moved to Modcomp Sept 4, to VLA Sept. 18. 297. Aug 14, 1981 SETPAR Gary Added missing goto after graphics devices question. Change RANCID => AIPS. Moved to Modcomp Sept 4, to VLA Sept. 18. 298. Aug. 18, 1981 ASCAL Fred I moved the version of ASCAL that is described in item 282 to the CV VAX, installed it in the TEST area, and verified that it works on the CV VAX. 299. Aug 18, 1981 UVLOD Bill Fixed bug in file compression. Now makes file 128 vis larger than is actually there. Moved MODCOMP this date. to VLA Sept. 18. 300. Aug 19, 1981 most all UV data base routines Bill Installed floating uv data system. Copied the following: INCLUDE files: DSRT.INC CSRT.INC DUIN.INC CUIN.INC DMPX.INC CMPX.INC Subroutines UVCREA UVDISK UVINIT UVPGET MERGE LSORT OSORT SHSORT PERMAT Tasks UVLOD UVIBM UVFLG PRTUV UVMAP UVFLG OLDUV added to allow the rescue of old data. OLDUV is the I*2 version of UVIBM. Moved: to Modcomp Sept 4, to VLA Sept. 18 301. Aug. 19, 1981 ASCAL Fred I modified ASCAL to use the floating-point visibi- lity format and tested it on the CV Vax. I installed this version in the TEST area on the CV Vax, but no- where else. A few changes will be needed to make it work on the Modcomp (I'll probably shorten the visibi- lity buffers). I also repaired the subroutine GAINPL so that it destroys the gain file after generating a plot. This I did only in the floating-point version. Moved to Modcomp Sept 4, to VLA Sept. 18. 302. Aug 20, 1981 TRANS Eric [.inputs]TRANS, [.HELP]TRANS. [.HELP]POPSDAT, [.HELP]TRANSCOD New task to transpose 7-dim images. New adverb (14-char) to tell task how to do the transpose. Moved to Modcomp Sept 4, to VLA Sept. 18 303. Aug 20, 1981 MDESTR AU3 Eric DIE MAPCLR Made MDESTR smart enough to leave cat entry on errors, Then AU3 and MAPCLR can call it. DIE resets R/W type 2 to 1 on normal completion, MAPCLR destroys any type 2's. Moved to Modcomp Sept 4, to VLA Sept. 18. 304. Aug 21, 1981 MINIT Eric Added code to prevent it from reading too much on the initial 1 or 2 reads (messy, but like MDISK) Moved to Modcomp Sept 4, to VLA Sept. 18 305. Aug. 24, 1981 ASCAL Fred In the floating-point version (which is present only in the TEST area on the CV Vax) I corrected the call to SUMARY. The CLEAN component fluxes were not being read properly. Moved to Modcomp Sept 4, to VLA Sept. 18. 306. Aug. 24, 1981 UVSUB,RECT.AP,PTSUB.VFC Bill also DSUB.INC,CSUB.INC,DUVH.INC,CUVH.INC Added new task which subtracts CLEAN components from a UV data base. Corrected errors in the source version of RECT from the [FPS] library. PTSUB is a VFC routine which is called by UVSUB and in turn calls RECT. Moved: to Modcomp Sept 4, to VLA Sept. 18 307. Aug 25, 1981 Changes made at VLA Ed Brought back on tape the following updates from the VLA [HELP] APCLN, UVFLG, MINPATCH, ASPMM, APARM, BPARM, MAPCLEAN, RESCALE, HELP, WHATSNEW, TASKS, SLICE, ASCAL, UVMAP, PRTPL [INPUTS] UVFLG, RESCALE, SLICE, ASCAL, UVMAP, PRTPL Identical changes made in [TEST.HELP] and [TEST.INPUTS] Moved to MODCOMP on Sept 1 308. Aug 25, 1981 IMEAN Ed VLA version of IMEAN which includes integration of flux density for a clean map brought from VLA. FOR in [TEST.APL] and EXE put into [TEST] and [AIPS] and [VPOPS] Moved to MODCOMP on Sept 1 309. Aug 25, 1981 AU7 Ed VLA version of AU7.FOR brought from VLA. The RESCALE verb was modified for more natural change of the Scale factor and offset. AU7.FOR has been placed in [TEST.AIPS] but AIPS has not been recompiled yet Moved to MODCOMP on Sept 1. 310. Aug 25, 1981 [TEST.HELP]UVSUB,TASKS,MAPCLEAN Bill Added/or changed these inputs files to reflect the existence of task UVSUB. Also: [TEST.INPUTS]UVSUB. Moved to Modcomp Sept 4, to VLA Sept. 18. 311. Aug 25, 1981 UVPGET, UVMAP Bill Changed so that there is no longer a test to see if FREQ .le. 1 GHz as a trap fo old data. Moved to Modcomp Sept 4, to VLA Sept. 18 312. Aug. 25, 1981 ASCAL Fred (To the floating-point version in TEST on the CV Vax) I added a new subroutine, GCALC1, whose purpose is experimental and to compute phase corruptions by solving an L1 minimization problem rather than by solving a least-squares (L2) problem. GCALC1, in its present form, seems to behave reliably, but it is inefficient. It doesn't yet calculate solutions for full complex gains. ASCAL.FOR and ASCAL.EXE are in the TEST area, but GCALC1.FOR, etc., resides only in the FRED area. The new subroutine is invoked by setting BPARM(6) equal to one. 313. Aug. 25, 1981 ASCAL Fred I appended the code for GCALC1 (GCALC1.FOR) to the rest of ASCAL, ASCAL.FOR, so that the program may be moved, in toto. Creature only inhabits CV Vax at present. GCALC1 is described in item 312. Moved to Modcomp Sept 4, to VLA Sept. 18. 314. Aug. 26, 1981 XFOUR.MAR David & Bill Added David's new assembler FFT routine to the PSAP area. DSKFFT with the new routine takes about 55% of the time that it took with the FORTRAN FFT. Moved to VLA Sept. 18. 315. Aug. 26-27, 1981 ASCAL Fred To the floating-point version of ASCAL in the TEST area on the CV Vax I added a new subroutine, named FLAG, which is still under development and whose purpose is to flag deviant data points after the telescope gains have been computed. FLAG is invoked by setting BPARM(7) pos- itive. Visibilities which, after correction, differ from the model visibility by more than XSTD standard de- viations are flagged. XSTD is given by BPARM(8). No weighting is used in computing the rms visibility resi- dual, and only the visibilities which received full weight in computing the gain solutions are considered as candidates for flagging (and only these points are used in computing the rms). This approach, in a typical application in which the input model does not model the extended emission, prevents the program from flagging short-spacings. Solutions for the antenna gains from the new L1 minimization subroutine, GCALC1, are far less sensitive to wild points than those from the least-squares routine GCALC. So it isn't essential to recompute the antenna gains after data have been discarded. GCALC1, as well as FLAG, requires more development. I had to lengthen the gain records by 2048 bytes in order for them to hold the 2x378 baseline flags. Moved to Modcomp Sept 4, to VLA Sept. 18 316. Aug. 27, 1981 UVINIT Bill Fixed bug which caused improper operation when disk I/O was in integral numbers of blocks but there was a visibility offset which did not correspond to an integral number of blocks. The only program that I know of that was affected was PRTUV which has been relinked. Moved: to Modcomp Sept 4, to VLA Sept. 18. 317. Aug. 27, 1981 UVSUB Bill Two changes: 1) Fixed bug which caused failure when more than 1024 components were subtracted. 2) Added ADVERB BITER which allows the specification of the first CLEAN component in the file to be subracted. Moved: to Modcomp Sept 4, to VLA Sept. 18 318. Aug. 28, 1981 VBOUT Bill This routine was not updated when the rest of the floating uv data software waas installed. It has not been copied to [TEST.NOTST]. This routine is called only by UVIBM. Moved: to Modcomp Sept 4, to VLA Sept. 18. 319. Aug. 28, 1981 APCLN,[TEST.INPUTS and HELP]APCLN. Bill Added BADDISK to the inputs. Also did some cleaning up: DIECLN was removed and replaced with the standard call to DIE in the main routine. Moved: to Modcomp Sept 4, to VLA Sept. 18. 320. Aug. 28, 1981 PASS1,PASS2 Bill Standardized a bit: call to DIECLN removed and a return code installed. Also removed all calls to ZUNSGN and ZUNADD and made some (but not all) values sent to AP routines P I*4. Moved: to Modcomp Sept 4, to VLA Sept. 18. 321. Aug. 28, 1981 APXPOS Bill Standarized: call to DIECLN removed and a return error code installed. Removed call to ZUNSGN and make all values sent to AP routines P I*4. Moved: to Modcomp Sept 4, to VLA Sept. 18 322. Aug. 28, 1981 MCUBE (plus helps, inputs) Gary New task to make a 3D R*4 image from set of 2D images. Moved to Modcomp Sept 4, to VLA Sept. 18. 323. Aug. 28, 1981 Gary New subroutines to go with 322. CHKMAP checks to see if 2D map can fit in 3D map. LUPAX lines up axis in 2 image headers, swapping if necessary. WRPLAN writes a I*2 2D subimage into a plane of an R*4 3D image WRBLNK writes R*4 blank pixels into a plane. SWAPAX swaps axis values in a header. COMPAX compares axis of two image headers, counts differences. Moved to Modcomp Sept 4, to VLA Sept. 18. 324. Aug. 30, 1981 ASCAL Fred Several changes (to the version in TEST on CV Vax): 1. In VISCOR I added a 4x4 array of counters. For RR, LL, RL, and LR the program now counts the number of visibility points which were previously flagged, the number flagged due to undetermined gain solutions, the number edited out by the subroutine FLAG, and the number of points remaining. This information is printed in the message file and is written in the history file. 2. Information on auto-editing now is written to the history file, as well as a message whenever the L1 gain solution routine was used. 3. Descriptions of the auto-editing options, BPARM(7) and BPARM(8), were added to the HELPS and INPUTS files. A description of BPARM(6), which selects the L1 gain solution routine, was also added in these files. 4. I corrected errors in the HELPS and INPUTS files which were introduced earlier (See item #307). Moved to Modcomp Sept 4, to VLA Sept. 18. 325. Aug. 30, 1981 APCLN Bill Fixed bug introduced in last change which causes the dirty and beam maps not to be unflagged when the program finished. Moved: to Modcomp Sept 4, to VLA Sept. 18. 326. Aug. 30, 1981 UVSUB Bill Program now correctly (I hope) takes into account the difference between the CLEAN map center and the UV reference position. Moved: to Modcomp Sept 4, to VLA Sept. 18 327. Sept. 1, 1981 UVSUB Bill fixed bug left over from above. The reference center was shifted the wrong way. Moved: to Modcomp Sept 4, to VLA Sept. 18. 328. Sept. 1, 1981 UVMAP Bill Fixed MAPOUT/MAPHIS so that non-map file luns are used in the history I/O. This should fix the problem of extending history files. Moved: to Modcomp Sept 4, to VLA Sept. 18. 329. Sept. 1, 1981 IMEAN Ed Fixed minor errors in some format statements. Moved: MODCOMP and VLA 330. September 1, 1981 Lots Eric The advent of transposed imagery has brought home a design flaw in our IO system: the waste of disk space on short rows. A new standard is now imposed: if more than 1 row will fit completely in a sector, then do so. When packed this way, rows may not span sector boundaries. Also each plane must begin on a sector boundary. Almost all tasks must be relinked because of this. The other changes are: MINIT : Handle such structure - uses 3 free words / FTAB entry MDISK : Handle the short row case MSCALE : Allow subimaging, loop over planes (NY not NYTOT now) MSCALF : " " " " " " MAPOPN : Fix bug which cleared someone else's write flag DIE : Closes all open files now. MAPSIZ : Compute new map file sizes correctly w new standards MAPSNC : Use corrected MAPSIZ, open scratch file also MCREAT : Use corrected MAPSIZ COMOFF : Compute plane offset correctly with new standards FITTP : Use BLC, TRC; Do a plane at a time IBMTP : Use BLC, TRC; Write out more than 1 plane if desired TRANS : Change to new disk structure IMLOD : Write out 1 plane at a time; use DIE, /CFILES/ DCOM.INC : Includes for COMB CCOM.INC : " " " ECOM.INC : " " " COMB : Do more than one plane with BLC, TRC either as one plane of map 2 with all planes of map 1 or n-dim. with n-dim. [INPUTS]COMB : Added BLC, TRC " IBMTP : " " " " FITTP : " " " [HELP] COMB : " " " and some description " IBMTP : " " " " " " FITTP : " " " " " " TASKS : Added TRANS Moved to Modcomp Sept 4, to VLA Sept. 18. 331. Sept. 2, 1981 (1d gaussian fitting) Gary Updated gaussian fitting routines to use the new location common and to give results in the units printed on the slice labeling. The routines updated are: AU4A GAUSS GFUNC GMODEL SETIDG SLOCIN (new) Moved to Modcomp Sept 4, to VLA Sept. 18. 332. Sept. 2, 1981 TKSLIN, SL2PL Gary Routines put more stuff in the image catalog about labeling, EDROP, BDROP, ect. for use in gaussian fitting changes (331). Moved to Modcomp Sept 4, to VLA Sept. 18. 332. Sept. 2, 1981 [TEST.HELP]FIT. [TEST.INPUTS]FIT Gary New helps and inputs for this AIPS procedure. Moved to Modcomp Sept 4, to VLA Sept. 18. 333. Sept. 2, 1981 MSCALI Gary Modified to look like new MSCALF i.e. BLC and TRC option. Moved to Modcomp Sept 4, to VLA Sept. 18. 334. Sept. 2, 1981 CNVRT Gary Modified to use new MSCALF and MSCALI. Moved to Modcomp Sept 4, to VLA Sept. 18. 335. Sept. 3, 1981 ASCAL Fred I made three major changes to the floating-point ver- sion in the TEST area on the CV Vax: 1.) In the subroutine SOLVE there was a bug in the loop that gets executed when the data are to be averaged over finite time intervals. The final averages were be- ing computed erroneously; the result was that the gain solution routine would either fail to converge, and then flag the data for the final time interval, or that it would converge on a crazy solution appropriate for the garbage data. The latter would result in severe contami- nation of the data at the end of the output file. This problem was evident in the gain plots. The problem has been corrected. 2.) To keep the flux scale from drifting when the program solves for full complex gains, I now compute the mean modulus of the antenna gains, over the entire run. Before the data are corrected, the gains are re-scaled so that the mean modulus of the gains which are finally used is equal to unity. 3.) If you don't want to believe rather wild ampli- tude solutions, there is a new option for you. Set BPARM(9) to a positive number. A new subroutine, called GEDIT, then will keep track of the (running) mean modulus of the antenna gain solutions, and when the modulus of a gain solution differs from the running mean (over all i.f.'s) modulus by more than BPARM(9) standard deviations GEDIT will mark that i.f. as bad. Moved to Modcomp Sept 4, to VLA Sept. 18. 336. Sept. 3, 1981 LMDER, LMDER1, QRFAC, QRSOLV, Ed LMPAR, ENORM, DPMPAR, GETERR, COVAR Copied these ARGONNE LEAST-SQUARE subroutine package from [TEST.AIPS] to [TEST.APL] Moved: to Modcomp Sept 4, to VLA Sept. 18 337. Sept. 3, 1981 MCUBE, CHKMAP Gary. Fixed bugs. Wrong branch in MCUBE when map not found. Rounding problem in CHKMAP when ZPIXEL not 1. Moved to Modcomp Sept 4, to VLA Sept. 18. 338. Sept 4, 1981 several Eric Errors found by Modcomp compiler AU5B - vestigial use of NOTLAB MP2IMA - possible zero divide IMA2MP - possible zero divide AU4A - wrong variable names, missing return CREXT - messed up data statement... TKLAB - LTYPE present instead of LABEL MSCALI - Used XMAX vestigially instead of setting to 1 WRPLAN - No data for FBLANK COMPAX - axis increments used as Real*8 Problem affecting ENORM, DPMPAR at least: Modcomp requires REAL FUNCTION*8 .... Vax requires REAL*8 FUNCTION .... Moved from Modcomp this date, to VLA Sept. 18 339. Sept 4, 1981 UVMAP Bill Fixed bug in MAPOUT re rectangular maps Moved to Modcomp Sept 4, to VLA Sept. 18. 340. Sept. 4, 1981 [DOC]WHATSUP, TASKSUP, APSUP, IOSUP Bill Removed deleted routines, added new ones of mine. Moved to Modcomp, to VLA Sept. 18. 341. Sept 4, 1981 NTERP Eric Fixed (new) call sequence to MAPSIZ Moved to Modcomp Sept 4, to VLA Sept. 18. 342. Sept 5, 1981 [.HELP]TRANS., TRANSCOD., SUBIM. Eric Finally did the 2 TRANS ones, corrected SUBIM Moved to Modcomp this date, to VLA Sept. 18. 343. Sept. 5, 1981 FITTP, COMB, PROFL Eric Modcomp compiler finds NYTOT in FITTP, LOGFR in COMB which were not initialized, also BLANK in PROFL. Moved from Modcomp this date, to VLA Sept. 18. 344. Sept. 5, 1981 UVMAP,DMPX.INC,CMPX.INC Bill Fixed misspelling in VISRD (SORT=>ISORT) and added BANWID to CMPX. common. Moved to MODCOMP this date, to VLA Sept. 18. 345. Sept. 5, 1981 UVSRT Bill Removed variable OLDFIL from UVSBIN and marked CFILES so that new output file will be destroyed on failure. Moved to MODCOMP this date, to VLA Sept. 18. 346. Sept. 6, 1981 IMLOD, OSORT Eric Fixed bugs in IMLOD introduced with change #330, set IER=0 in OSORT. Moved to Modcomp this date, to VLA Sept. 18. 347. Sept. 7, 1981 [DOC]WHATSUP.,INCSUP.,IOSUP., Eric TASKSUP., POPSUP., UTILSUP. Additions & deletions reflecting latest routines Moved Modcomp, to VLA Sept. 18. 348. Sept. 7, 1981 ZEXPND (for VAX) Eric Corrected messages, removed use of "MAP" !! Moved to VLA Sept. 18. 349. Sept. 7, 1981 several Eric [HELP]POPSDAT. : Renumber verbs, remove those for AU4A VERBS : New branch table, retype some, remove AU4A VERBSB : New branch table, " " VERBSC : New branch table, " " AU1 : Add EXIT, RESTART with message printing func. HELPS : Change verbs numbers for HELP, INPUTS, GO, .. [HELP]PRTMSG : corrected [HELP]RESTART : change explanation adding message print [HELP]EXIT : change explanation adding message print [INPUTS]PRTMSG : correct error [INPUTS]EXIT : NEW: explanation & PRIORITY adverb [INPUTS]RESTART " " " " ZRENAM : New one for Modcomp (VAX one done earlier) OLDFT : FITTP for old short-row images [HELP]OLDFT : " " " " [INPUTS]OLDFT : " " " " Withdrawn for reconsideration: AU4A, GMODEL, GAUSS, GFUNC, and CREXT. Inserted in task MCUBE were LUPAX and CHKMAP. Moved to Modcomp Sept 8, to VLA Sept. 18 350. Sept. 8, 1981 several Eric [HELP]POPSDAT : Increase size of Fitting adverbs, set ERR...=-1 DAPL.INC : Increase size of fitting adverbs VERBS : Change branch table for new verb numbers VERBSB : " " " " " " " VERBSC : " " " " " " LSTHDR : Fix pickup of incr to scale clean beam, .... CNVRT : Standardize, fix init failures MSCALI : Standardize, have it get min/max on subim, support all blanking types (call seq changed) [HELP]CNVRT : Add SNCUT [INPUTS]CNVRT : Add SNCUT MSCALE : Gets actual max/min when doing subim MSCALF : Gets actual max/min when doing subim TKSLIN : New form for Slice parts of image cat block SLOCIN : " " " " " " " " AU9A : " " " " " " " " AU8A : " " " " " " " " also remove slice model file description SL2PL : New image cat block form (for call to GMCAT) SLBINI : Correct bug, set IDROP = 0 if ignored Moved to Modcomp Sept 8, to VLA Sept. 18. 351. Sept. 8, 1981 LMSTR1.FOR, LMSTR.FOR, RWUPDT.FOR Ed Added these three subroutine to [TEST.APL] for use with Gaussian fitting using less core than LMDER Moved: to VLA Sept 18, nowhere else 352. Sept. 9, 1981 CORFQ Bill Added new task, corrects uv data for an incorrect observing frequency. Also changed/added: [TEST.INPUTS]CORFQ. [TEST.HELP]CORFQ [TEST.HELP]TASKS Moved: to VLA Sept 18, nowhere else. 353. Sept. 9, 1981 EXTINI, EXTIO Bill Added new subroutines. They create, open, do bookkeeping, I/O, extensions etc. for standarized extension files. Moved: to VLA Sept 18, nowhere else. 354. Sept. 9, 1981 IMLOD, FITTP, OLDFT, IBMTP Eric Fix bugs introduced in recent changes, IMLOD now uses magic-value blanking for FITS images. Moved to Modcomp this date, VLA Sept 18 355. Sept. 9, 1981 UVMAP Bill Fixed useage of RA and DEC so as to minimize roundoff and truncation errors. Moved: to Modcomp Sept 16, to VLA Sept 18. 356. Sept. 10, 1981 ASCAL Fred I revised the subroutine GETMOD to read (via SUMARY) the new format CC extension file. I added a new option, INVER, to select the version number of the CC file. The helps and inputs files in TEST.HELP and TEST.INPUTS have been revised accordingly. I also added a brief note on the new gain solution routine in the helps and inputs files. I also removed the COMMON labeled /WRK, since its function was only to shoehorn the program in on the Modcomp. Probably the shoehorning can be done over again without the need for this labeled common. These changes were made only in the TEST area on the CV Vax. Moved: to VLA Sept 18, nowhere else. 357. Sept. 10, 1981 APCLN Bill Updated APCLN to read new format CC file, also added version no. to CC files and cleaned up code a bit. Also changed: DCLN.INC CCLN.INC [TEST.INPUT]APCLN. [TEST.HELP]APCLN. Moved: to VLA Sept 18, nowhere else 358. Sept. 10, 1981 PRTCC,CCMOD,UVSUB Bill Changed to read new format CC files, also added version number for CC file. Also changed: DSUB.INC, CSUB.INC [TEST.INPUT]PRTCC, CCMOD, UVSUB [TEST.HELP]PRTCC, CCMOD, UVSUB Moved: to VLA Sept 18, nowhere else 359. Sept. 10, 1981 [TEST.NOTST]SUMARY Bill Changed to read new format CC file. Moved: to VLA Sept 18, nowhere else 360. Sept. 10, 1981 VERBS, VERBSB, VERBSC, SET1DG Gary AU9C (new), [.HELP]TKSET (new) [.INPUTS]TKSET (new) [.HELP]TK1SET, [.INPUTS]TK1SET, [.HELP]POPSDAT. Two new verbs TKSET, TK1SET for setting initial guesses for all gaussian components of slice model or reset 1 component. Moved to VLA Sept 18, nowhere else. 361. September 11, 1981 MCUBE Eric WRPLAN, WRBLNK, COMPAX, SWAPAX [.INPUTS]MCUBE, [.HELP]MCUBE Standardize, correct, extend to do n-dim -> n+1 dim. Moved to VLA Sept 18, nowhere else 362. Sept. 11, 1981 ZDESTR Gary Changed error code. 1=file not found. 2= other. Moved to VLA Sept 18, nowhere else. 363. Sept. 11, 1981 LSTHDR Eric Support float point maps with blanking Moved to VLA Sept 18, nowhere else. 364. Sept. 13, 1981 ASCAL Fred I inserted new versions of GCALC and GCALC1. GCALC had a minor error (a CONTINUE statement out of place) that was introduced in trying to improve the typing. This error should have had no major effect ex- cept to slow the rate of convergence, and, perhaps, to cause a bit of trouble in marginal cases. I also changed GCALC so that now, instead of fitting model(i,j) to g(j)*conjg(g(i))*obs(i,j), it fits obs(i,j) to g(i)*conjg(g(j))*model(i,j) (and returns the recipro- cals of the correction factors). GCALC1 now is able to solve for full complex gains as well as just for phase corrections. I also made the phase solution algorithm a bit more efficient. Most of the work now is done in double-precision. Some of the complex double-precision may cause a problem later in transporting the routine to the Modcomp or the 360. This stuff could easily be done in real arithmetic, but after a bit more testing I may go back to single prec. GCALC1 needs more work -- it seems to work reliably, but still is a bit slow. I also updated the HELPS file. These changes were made only in the TEST area on the CV Vax. Moved to VLA Sept 18, nowhere else. 365. Sept. 14, 1981 ASCAL Fred Added descriptions of BPARM(9) in the ASCAL. in TEST.HELP and in TEST.INPUTS. Also now print out BPARM(9) in the history file. 366. Sept. 14, 1981 ASCAL Fred In the averaging loop in the subroutine SOLVE there was still a problem with the last solution interval that was not fully corrected as described in #335. The problem is fixed now. Moved to VLA Sept 18, nowhere else. 367. September 14, 1981 several Eric DAPL.INC, CAPL.INC : add new adverbs AUT : new. Stubbed routine for test verbs. VERBS : To call AUT. VERBSC : To make error on call of AUT. VERBSB : To make error on call of AUT. AU7 : New verb - AXDEFINE. TVLOAD : Fix handling of blanking on floating pt maps SNRVAL : New. Substitutes desired value for blanks (floating) [.HELP]POPSDAT : New verbs, adverbs " AXDEFINE : New verb " NAXIS : New adverb (for AXDEFINE, MCUBE) " AXREF : " " " " " AXVAL : " " (for AXDEFINE) " AXINC : " " " " MCUBE : fix for new adverb names [.INPUTS]MCUBE : Fix for new adverb names " AXDEFINE : New verb Moved to VLA Sept 18, nowhere else. 368. September 15, 1981 several Eric UVMAP : add option to map L at different frequency from R DMPX.INC : increase dimension of OUFREQ [HELP]UVMAP : Add option about L frequency override CTICS : Change AINT call to correct DINT ITICS : " " " " PROFL : " " " " " Moved to Modcomp Sept 16, to VLA Sept 18. 369. September 16, 1981 ZTQSPY (Modcomp ver only) Eric Added ROL to list of tasks to avoid displaying Moved nowhere (and should not). 370. Sept. 16, 1981 SL2PL, AU8A, AU9B, TKSLPL Gary. Modified to allow for EXTINI header and REAL*4 values for slice points. Moved to VLA Sept 18, nowhere else. 371. Sept. 16, 1981 SLICE Gary Same as 370 but must be moved to NOTST because of use of EXTINI. Also updated to allow fractional BLC, TRC. Moved NOTST: to VLA Sept 18, nowhere else. 381. Sept. 16, 1981 FNDEXT (new) Gary Routine to find latest version number of an extension file in a catalog header. Moved to VLA Sept 18, nowhere else. 382. September 17, 1981 MCREAT, MADDEX, DELEXT, HICREA Eric Fix up typing some, changed cat handling a bit in MADDEX Moved to VLA Sept 18, nowhere else 383. Sept. 17, 1981 IMFIT Ed Gaussian-fitting of images debugged enough to be put in TEST area. IMFIT is in [TEST.NOTST] because of the use of Jaffe's IO package. Moved to VLA Sept 18, nowhere else 384. Sept. 17, 1981 DECONV Ed Useful subroutine which deconvolves the clean beam from a gaussian beam. Put in [TEST.APL] Moved to VLA Sept 18, nowhere else 385. Sept. 17, 1981 HELP Ed Added relevant information in the general HELP files for the new tasks CNVRT, IMFIT, SLFIT, TRANS, UVSUB, CORFQ, OLDFT, OLDUV and for the new verbs AXDEFINE, TKSET and TK1SET. Moved to VLA Sept 18, nowhere else 386. Sept. 17, 1981 HELP Ed Added HELP files for GPOS, GMAX, GWIDTH, EPOS, EMAX, EWIDTH, NGAUSS. Moved to VLA Sept 18, nowhere else 387. Sept. 17, 1981 transport procedure Gary. EXES.CT1 EXES.CT5 FORS.CT1 COMPILE.COM INSTALL.COM TRANSPRT.COM Updated to work as of this date. Fixed HELP-INPUT mix up in TRANSPRT. Moved to VLA Sept 18, nowhere else. 388. Sept. 17, 1981 new update procedure Gary. UPDATE1.COM UPDATEA.COM UPDATENS.COM UPDATET.COM Procedure to update code and libraries in [TEST.*] without messing up data files except memory file. Still needs a little work. Moved to VLA Sept 18, nowhere else. 389. Sept. 18, 1981 [DOC]MV2C1004. Gary. Instructions for update procedure. Moved to VLA Sept 18, nowhere else. 390. Sept. 18, 1981 [DOC] WHATSUP, TASKSUP, UTILSUP Ed Add routines related to IMFIT. Moved to VLA Sept 18, nowhere else.