[daip] primate/LNX64 20260805.163850 update errors for 31DEC26
aipssrc at primate.aoc.nrao.edu
aipssrc at primate.aoc.nrao.edu
Wed Aug 5 12:39:36 EDT 2026
AIPSUPD - COMRPL /home/AIPS/31DEC26/Y/SUB/NOTST/PLEND.FOR
AIPSUPD - failed!
AIPSUPD - first 125 lines of /home/AIPS/31DEC26/LNX64/PREP/PLEND.LOG follow
COMRPL : Date Wed Aug 5 10:39:33 MDT 2026
AIPP : Preprocess /home/AIPS/31DEC26/Y/SUB/NOTST/PLEND.FOR
AIPP : into /home/AIPS/31DEC26/LNX64/PREP/PLEND.f
AIFC : Date Wed Aug 5 10:39:34 MDT 2026
AIFC : Interpret AIFC \
AIFC : /home/AIPS/31DEC26/LNX64/PREP/PLEND.f
AIFC : as LIST=FALSE PURGE=FALSE
AIFC : plus /usr/bin/gfortran -c -fno-automatic -Wunused -Wuninitialized -Wmaybe-uninitialized -finit-local-zero -m64 -fimplicit-none -O2 \
AIFC : /home/AIPS/31DEC26/LNX64/PREP/PLEND.f
/home/AIPS/31DEC26/LNX64/PREP/PLEND.f:152:4:
999 RETURN
1
Warning: Label 999 at (1) defined but not used [-Wunused-label]
/home/AIPS/31DEC26/LNX64/PREP/PLEND.f:136:15:
IF (.NOT.DOTV) THEN
1
Error: Operand of .not. operator at (1) is REAL(4)
AIFC : Compile of /home/AIPS/31DEC26/LNX64/PREP/PLEND.f
AIFC : ends with fatal error(s)!
1: SUBROUTINE PLEND (ISTAT, IDEBUG)
2:C-----------------------------------------------------------------------
3:C! End-of-plot clean-up functions: Gary plot package.
4:C# Plot-util
5:C-----------------------------------------------------------------------
6:C; Copyright (C) 1995, 2019, 2026
7:C; Associated Universities, Inc. Washington DC, USA.
8:C;
9:C; This program is free software; you can redistribute it and/or
10:C; modify it under the terms of the GNU General Public License as
11:C; published by the Free Software Foundation; either version 2 of
12:C; the License, or (at your option) any later version.
13:C;
14:C; This program is distributed in the hope that it will be useful,
15:C; but WITHOUT ANY WARRANTY; without even the implied warranty of
16:C; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17:C; GNU General Public License for more details.
18:C;
19:C; You should have received a copy of the GNU General Public
20:C; License along with this program; if not, write to the Free
21:C; Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,
22:C; MA 02139, USA.
23:C;
24:C; Correspondence concerning AIPS should be addressed as follows:
25:C; Internet email: aipsmail at nrao.edu.
26:C; Postal address: AIPS Project Office
27:C; National Radio Astronomy Observatory
28:C; 520 Edgemont Road
29:C; Charlottesville, VA 22903-2475 USA
30:C-----------------------------------------------------------------------
31:C Do some plotting cleanup functions. Write "end of plot" record,
32:C close plot file, check for vectors that were off the plot.
33:C Then terminates the task with a call to DIE.
34:C Inputs:
35:C ISTAT I 0=successful completion, other=dies unnaturally.
36:C IDEBUG I > 0 => do not delete PL file despite errors
37:C-----------------------------------------------------------------------
38: INTEGER ISTAT, IDEBUG
39:C
40: INTEGER IERR
41:C INCLUDE 'INCS:DMSG.INC'
42:C Include DMSG.
43:C-----------------------------------------------------------------------
44:C-----------------------------------------------------------------------
45:C AIPS system message common
46: INTEGER MSGCNT, NPOPS, NLUSER, NACOUN, MSGSUP, MSGREC,
47: * MSGKIL, ISBTCH, DBGAIP, MSGVER, MSGRMB, MSGDUM
48: CHARACTER MSGTXT*80, TSKNAM*6
49: COMMON /MSGCOM/ MSGCNT, NPOPS, NLUSER, NACOUN, MSGSUP, MSGREC,
50: * MSGKIL, ISBTCH, DBGAIP, MSGVER, MSGRMB, MSGDUM
51: COMMON /MSGCHR/ MSGTXT, TSKNAM
52:C End DMSG.
53:C INCLUDE 'INCS:DPLT.INC'
54:C Include DPLT.
55:C-----------------------------------------------------------------------
56:C-----------------------------------------------------------------------
57:C Include for plotting
58:C INCLUDE 'INCS:PMAD.INC'
59:C Include PMAD
60:C-----------------------------------------------------------------------
61:C-----------------------------------------------------------------------
62:C Parameters for MA data
63: INTEGER MAXIMG, MABFSS, MABFSL
64:C Maximum axis dimension
65: PARAMETER (MAXIMG = 131072)
66:C Standard image IO buffer
67: PARAMETER (MABFSS = 4 * MAXIMG)
68:C Large image IO buffer
69: PARAMETER (MABFSL = 16 * MAXIMG)
70:C End PMAD
71: DOUBLE PRECISION CATD(128)
72: REAL PBLC(2), PTRC(2), XY, XSCAL, XOFF, YSCAL, YOFF, GFAC,
73: * GOFF, RANGE(2), XLAST, YLAST, CATR(256), DOTV
74: INTEGER PLTBLK(256), IOFFPL, IVER, IBLKSZ, IMSTUF(37),
75: * IOBLK(MABFSS), CATBLK(256), GRCHN, TVCHN, TVCORN(4)
76: REAL CATH(256)
77: COMMON /PLTCOM/ IOBLK, PBLC, PTRC, XY, XSCAL, XOFF, YSCAL,
78: * YOFF, GOFF, GFAC, RANGE, XLAST, YLAST, PLTBLK, IOFFPL, IVER,
79: * IBLKSZ, IMSTUF, GRCHN, TVCHN, TVCORN, DOTV
80: COMMON /MAPHDR/ CATBLK
81: EQUIVALENCE (CATBLK, CATH, CATR, CATD)
82:C End DPLT.
83:C INCLUDE 'INCS:DGPH.INC'
84:C Include DGPH.
85:C-----------------------------------------------------------------------
86:C-----------------------------------------------------------------------
87:C SKIPPED 'INCS:PMAD.INC'
88:C Plotting common
89: INTEGER GPHSIZ, GPHLUN, GPHIND, GPHPOS, GPHRRN, GPHVOL,
90: * GPHTLO, GPHTHI
91: REAL GPHX1, GPHX2, GPHY1, GPHY2, SCALEF, GPHRNG(2,3)
92: CHARACTER GPHNAM*48, TVSUBR*6, GPHFUN*2
93:C
94: LOGICAL GPHDOT, GPHPAG, GPHDOD
95: INTEGER GPHCRN(2), GPHTVC(3), GPHTVG(8), GPHIX0, GPHIX1, GPHIX2,
96: * GPHIXL, GPHIY0, GPHIY1, GPHIY2, GPHIYL, GPHTVW(4), GPHCHL,
97: * GPHCHB, GPHCHR, GPHCHT, GPHNGR, GPHCAT(256), GPHSCR(MAXIMG),
98: * GPHERO, GPHERG, GPHERC, GPHERV, GPHPLX(2), GPHPLY(2), GPHCNT,
99: * GPHLTY, GPHCON(32), GPHCOL(3)
100: REAL GPHSCX, GPHSCY, GPHRX1, GPHRX2, GPHRY1, GPHRY2, GPHCUT
101:C
102: COMMON /GPHCOM/ GPHX1, GPHX2, GPHY1, GPHY2, SCALEF, GPHSCX,
103: * GPHSCY, GPHRX1, GPHRX2, GPHRY1, GPHRY2, GPHDOT, GPHPAG,
AIPSUPD - UPDCOMRPL failed, NOT doing any COMLNK's!
AIPSUPD - Using CVS for copying files.
UPDCVS - cvs copy of 31DEC26 begun, 1st character means
- U added, P updated, M your file differs from master
- C you have a changed file needing work (error!)
- ? you have a file not on the master (ignore)
U 31DEC26/TIMESTAMP
P 31DEC26/HELP/ALVAR.HLP
P 31DEC26/HELP/ANBPL.HLP
P 31DEC26/HELP/APCAL.HLP
P 31DEC26/HELP/BLPLT.HLP
P 31DEC26/HELP/BPEPL.HLP
P 31DEC26/HELP/BPERR.HLP
P 31DEC26/HELP/BPLOT.HLP
P 31DEC26/HELP/BPPLT.HLP
P 31DEC26/HELP/BSTST.HLP
P 31DEC26/HELP/CAPLT.HLP
P 31DEC26/HELP/CCNTR.HLP
P 31DEC26/HELP/CLOSE.HLP
P 31DEC26/HELP/CLPLT.HLP
P 31DEC26/HELP/CNTR.HLP
P 31DEC26/HELP/CONFI.HLP
P 31DEC26/HELP/CONPL.HLP
P 31DEC26/HELP/CSPEC.HLP
P 31DEC26/HELP/DELZN.HLP
P 31DEC26/HELP/DFTPL.HLP
P 31DEC26/HELP/ELFIT.HLP
P 31DEC26/HELP/ELINT.HLP
P 31DEC26/HELP/EVAUV.HLP
P 31DEC26/HELP/FGPLT.HLP
P 31DEC26/HELP/FRMAP.HLP
P 31DEC26/HELP/FRPLT.HLP
P 31DEC26/HELP/GAL.HLP
P 31DEC26/HELP/GCPLT.HLP
P 31DEC26/HELP/GREYS.HLP
P 31DEC26/HELP/IMEAN.HLP
P 31DEC26/HELP/IMRMS.HLP
P 31DEC26/HELP/IMVIM.HLP
P 31DEC26/HELP/IRING.HLP
P 31DEC26/HELP/ISPEC.HLP
P 31DEC26/HELP/KNTR.HLP
P 31DEC26/HELP/LOCIT.HLP
P 31DEC26/HELP/MARSP.HLP
P 31DEC26/HELP/OBPLT.HLP
P 31DEC26/HELP/PANEL.HLP
P 31DEC26/HELP/PBEAM.HLP
P 31DEC26/HELP/PCHIS.HLP
P 31DEC26/HELP/PCNTR.HLP
P 31DEC26/HELP/PCPLT.HLP
P 31DEC26/HELP/PDPLT.HLP
P 31DEC26/HELP/PEEK.HLP
P 31DEC26/HELP/PFPL1.HLP
P 31DEC26/HELP/PFPL2.HLP
P 31DEC26/HELP/PFPL3.HLP
P 31DEC26/HELP/PLCUB.HLP
P 31DEC26/HELP/PLOTC.HLP
P 31DEC26/HELP/PLOTR.HLP
P 31DEC26/HELP/PLRFI.HLP
P 31DEC26/HELP/PLROW.HLP
P 31DEC26/HELP/POSSM.HLP
P 31DEC26/HELP/PROFL.HLP
P 31DEC26/HELP/PRPLT.HLP
P 31DEC26/HELP/PRTAN.HLP
P 31DEC26/HELP/QBEAM.HLP
P 31DEC26/HELP/RFLAG.HLP
P 31DEC26/HELP/RIRMS.HLP
P 31DEC26/HELP/RM2PL.HLP
P 31DEC26/HELP/RMFIT.HLP
P 31DEC26/HELP/RSPEC.HLP
P 31DEC26/HELP/SERCH.HLP
P 31DEC26/HELP/SL2PL.HLP
P 31DEC26/HELP/SNBLP.HLP
P 31DEC26/HELP/SNFIT.HLP
P 31DEC26/HELP/SNIFS.HLP
P 31DEC26/HELP/SNPLT.HLP
P 31DEC26/HELP/SOUSP.HLP
P 31DEC26/HELP/SPLOT.HLP
P 31DEC26/HELP/SPRMS.HLP
P 31DEC26/HELP/SYHIS.HLP
P 31DEC26/HELP/SYVSN.HLP
P 31DEC26/HELP/TAPLT.HLP
P 31DEC26/HELP/TARPL.HLP
P 31DEC26/HELP/TEPLT.HLP
P 31DEC26/HELP/UVHGM.HLP
P 31DEC26/HELP/UVHOL.HLP
P 31DEC26/HELP/UVPLT.HLP
P 31DEC26/HELP/UVRMS.HLP
P 31DEC26/HELP/VBRFI.HLP
P 31DEC26/HELP/VLBRF.HLP
P 31DEC26/HELP/VPLOT.HLP
P 31DEC26/HELP/WETHR.HLP
P 31DEC26/HELP/XG2PL.HLP
P 31DEC26/HELP/XPLOT.HLP
P 31DEC26/HELP/ZAMAN.HLP
P 31DEC26/HELP/ZEMAN.HLP
P 31DEC26/HIST/CHANGE.DOC
P 31DEC26/INC/DPLT.INC
P 31DEC26/QY/PGM/NOTST/CONPL.FOR
P 31DEC26/QY/PGM/NOTST/EVAUV.FOR
P 31DEC26/UPDATE/COMLNK.UPD
U 31DEC26/UPDATE/COMLNK.UPD.SUM
P 31DEC26/UPDATE/COMRPL.UPD
U 31DEC26/UPDATE/COMRPL.UPD.SUM
U 31DEC26/UPDATE/LASTCVS.DAT
P 31DEC26/UPDATE/PUTBCK.UPD
U 31DEC26/UPDATE/PUTBCK.UPD.SUM
P 31DEC26/UPDATE/REASONS.UPD
U 31DEC26/UPDATE/REASONS.UPD.SUM
P 31DEC26/Y/PGM/BLSUM.FOR
P 31DEC26/Y/PGM/BPERR.FOR
P 31DEC26/Y/PGM/BSTST.FOR
P 31DEC26/Y/PGM/CCNTR.FOR
P 31DEC26/Y/PGM/CNTR.FOR
P 31DEC26/Y/PGM/CSPEC.FOR
P 31DEC26/Y/PGM/FTARS.FOR
P 31DEC26/Y/PGM/GREYS.FOR
P 31DEC26/Y/PGM/IMEAN.FOR
P 31DEC26/Y/PGM/IMRMS.FOR
P 31DEC26/Y/PGM/IMVIM.FOR
P 31DEC26/Y/PGM/ISPEC.FOR
P 31DEC26/Y/PGM/KNTR.FOR
P 31DEC26/Y/PGM/MARSP.FOR
P 31DEC26/Y/PGM/PANEL.FOR
P 31DEC26/Y/PGM/PCNTR.FOR
P 31DEC26/Y/PGM/PEEK.FOR
P 31DEC26/Y/PGM/PROFL.FOR
P 31DEC26/Y/PGM/PRPLT.FOR
P 31DEC26/Y/PGM/RM2PL.FOR
P 31DEC26/Y/PGM/RMFIT.FOR
P 31DEC26/Y/PGM/RSPEC.FOR
P 31DEC26/Y/PGM/SERCH.FOR
P 31DEC26/Y/PGM/SL2PL.FOR
P 31DEC26/Y/PGM/TAPLT.FOR
P 31DEC26/Y/PGM/XG2PL.FOR
P 31DEC26/Y/PGM/XPLOT.FOR
P 31DEC26/Y/PGM/ZAMAN.FOR
P 31DEC26/Y/PGM/ZEMAN.FOR
P 31DEC26/Y/PGM/NOTST/ALVAR.FOR
P 31DEC26/Y/PGM/NOTST/ANBPL.FOR
P 31DEC26/Y/PGM/NOTST/APCAL.FOR
P 31DEC26/Y/PGM/NOTST/BLPLT.FOR
P 31DEC26/Y/PGM/NOTST/BPEPL.FOR
P 31DEC26/Y/PGM/NOTST/BPLOT.FOR
P 31DEC26/Y/PGM/NOTST/BPPLT.FOR
P 31DEC26/Y/PGM/NOTST/CAPLT.FOR
P 31DEC26/Y/PGM/NOTST/CLOSE.FOR
P 31DEC26/Y/PGM/NOTST/CLPLT.FOR
P 31DEC26/Y/PGM/NOTST/CONFI.FOR
P 31DEC26/Y/PGM/NOTST/DELZN.FOR
P 31DEC26/Y/PGM/NOTST/DFTPL.FOR
P 31DEC26/Y/PGM/NOTST/ELFIT.FOR
P 31DEC26/Y/PGM/NOTST/ELINT.FOR
P 31DEC26/Y/PGM/NOTST/FGPLT.FOR
P 31DEC26/Y/PGM/NOTST/FRMAP.FOR
P 31DEC26/Y/PGM/NOTST/FRPLT.FOR
P 31DEC26/Y/PGM/NOTST/GAL.FOR
P 31DEC26/Y/PGM/NOTST/GCPLT.FOR
P 31DEC26/Y/PGM/NOTST/IRING.FOR
P 31DEC26/Y/PGM/NOTST/LOCIT.FOR
P 31DEC26/Y/PGM/NOTST/OBPLT.FOR
P 31DEC26/Y/PGM/NOTST/PBEAM.FOR
P 31DEC26/Y/PGM/NOTST/PCHIS.FOR
P 31DEC26/Y/PGM/NOTST/PCPLT.FOR
P 31DEC26/Y/PGM/NOTST/PDPLT.FOR
P 31DEC26/Y/PGM/NOTST/PFPL1.FOR
P 31DEC26/Y/PGM/NOTST/PFPL2.FOR
P 31DEC26/Y/PGM/NOTST/PFPL3.FOR
P 31DEC26/Y/PGM/NOTST/PLCUB.FOR
P 31DEC26/Y/PGM/NOTST/PLOTC.FOR
P 31DEC26/Y/PGM/NOTST/PLOTR.FOR
P 31DEC26/Y/PGM/NOTST/PLRFI.FOR
P 31DEC26/Y/PGM/NOTST/PLROW.FOR
P 31DEC26/Y/PGM/NOTST/POSSM.FOR
P 31DEC26/Y/PGM/NOTST/PRTAN.FOR
P 31DEC26/Y/PGM/NOTST/QBEAM.FOR
P 31DEC26/Y/PGM/NOTST/RFLAG.FOR
P 31DEC26/Y/PGM/NOTST/RIRMS.FOR
P 31DEC26/Y/PGM/NOTST/SNBLP.FOR
P 31DEC26/Y/PGM/NOTST/SNFIT.FOR
P 31DEC26/Y/PGM/NOTST/SNIFS.FOR
P 31DEC26/Y/PGM/NOTST/SNPLT.FOR
P 31DEC26/Y/PGM/NOTST/SOUSP.FOR
P 31DEC26/Y/PGM/NOTST/SPLOT.FOR
P 31DEC26/Y/PGM/NOTST/SPRMS.FOR
P 31DEC26/Y/PGM/NOTST/SYHIS.FOR
P 31DEC26/Y/PGM/NOTST/SYVSN.FOR
P 31DEC26/Y/PGM/NOTST/TARPL.FOR
P 31DEC26/Y/PGM/NOTST/TEPLT.FOR
P 31DEC26/Y/PGM/NOTST/UVHGM.FOR
P 31DEC26/Y/PGM/NOTST/UVHOL.FOR
P 31DEC26/Y/PGM/NOTST/UVPLT.FOR
P 31DEC26/Y/PGM/NOTST/UVRMS.FOR
P 31DEC26/Y/PGM/NOTST/VBRFI.FOR
P 31DEC26/Y/PGM/NOTST/VLBRF.FOR
P 31DEC26/Y/PGM/NOTST/VPLOT.FOR
P 31DEC26/Y/PGM/NOTST/WETHR.FOR
P 31DEC26/Y/SUB/GINIT.FOR
P 31DEC26/Y/SUB/NOTST/PLINIT.FOR
P 31DEC26/Y/SUB/NOTST/PLMAKE.FOR
UPDCVS - cvs update of 31DEC26 completed
UPDCVS - cvs update of TEXT completed
AIPSUPD - UPDCVS apparently worked
UPDCONTROL - /home/AIPS/31DEC26/LNX64/UPDATE/LASTREMOVE.DAT = 20260804.034449
UPDCONTROL - /home/AIPS/31DEC26/LNX64/UPDATE/LASTCOPY.DAT = 20260804.034449
UPDCONTROL - /home/AIPS/31DEC26/LNX64/UPDATE/LASTCOMRPL.DAT = 20260804.034449
UPDCONTROL - /home/AIPS/31DEC26/LNX64/UPDATE/LASTCOMLNK.DAT = 20260804.034449
UPDCONTROL - Everything seems in order
UPDCOMRPL: COMRPLs
05-AUG-2026 16:22:17 20260805 TST YNOT PLEND.FOR egreisen
05-AUG-2026 16:22:17 20260805 TST YNOT PLINIT.FOR egreisen
05-AUG-2026 16:22:17 20260805 TST YNOT PLMAKE.FOR egreisen
05-AUG-2026 16:22:16 20260805 TST YSUB GINIT.FOR egreisen
05-AUG-2026 16:22:18 20260805 TST YSUB PL3VEC.FOR egreisen
05-AUG-2026 16:22:18 20260805 TST YSUB PLGRY.FOR egreisen
05-AUG-2026 16:22:18 20260805 TST YSUB PLPOS.FOR egreisen
05-AUG-2026 16:22:19 20260805 TST YSUB PLVEC.FOR egreisen
UPDCOMRPL: currently in /home/AIPS/31DEC26/LNX64/UPDATE
UPDCOMRPL: /home/AIPS/31DEC26/Y/SUB/NOTST/PLINIT.FOR
UPDCOMRPL: /home/AIPS/31DEC26/Y/SUB/NOTST/PLMAKE.FOR
UPDCOMRPL: /home/AIPS/31DEC26/Y/SUB/GINIT.FOR
UPDCOMRPL: /home/AIPS/31DEC26/Y/SUB/PL3VEC.FOR
UPDCOMRPL: /home/AIPS/31DEC26/Y/SUB/PLGRY.FOR
UPDCOMRPL: /home/AIPS/31DEC26/Y/SUB/PLPOS.FOR
UPDCOMRPL: /home/AIPS/31DEC26/Y/SUB/PLVEC.FOR
AIPSUPD - COMRPL /home/AIPS/31DEC26/Y/SUB/NOTST/PLEND.FOR
AIPSUPD - failed!
AIPSUPD - first 125 lines of /home/AIPS/31DEC26/LNX64/PREP/PLEND.LOG follow
COMRPL : Date Wed Aug 5 10:39:33 MDT 2026
AIPP : Preprocess /home/AIPS/31DEC26/Y/SUB/NOTST/PLEND.FOR
AIPP : into /home/AIPS/31DEC26/LNX64/PREP/PLEND.f
AIFC : Date Wed Aug 5 10:39:34 MDT 2026
AIFC : Interpret AIFC \
AIFC : /home/AIPS/31DEC26/LNX64/PREP/PLEND.f
AIFC : as LIST=FALSE PURGE=FALSE
AIFC : plus /usr/bin/gfortran -c -fno-automatic -Wunused -Wuninitialized -Wmaybe-uninitialized -finit-local-zero -m64 -fimplicit-none -O2 \
AIFC : /home/AIPS/31DEC26/LNX64/PREP/PLEND.f
/home/AIPS/31DEC26/LNX64/PREP/PLEND.f:152:4:
999 RETURN
1
Warning: Label 999 at (1) defined but not used [-Wunused-label]
/home/AIPS/31DEC26/LNX64/PREP/PLEND.f:136:15:
IF (.NOT.DOTV) THEN
1
Error: Operand of .not. operator at (1) is REAL(4)
AIFC : Compile of /home/AIPS/31DEC26/LNX64/PREP/PLEND.f
AIFC : ends with fatal error(s)!
1: SUBROUTINE PLEND (ISTAT, IDEBUG)
2:C-----------------------------------------------------------------------
3:C! End-of-plot clean-up functions: Gary plot package.
4:C# Plot-util
5:C-----------------------------------------------------------------------
6:C; Copyright (C) 1995, 2019, 2026
7:C; Associated Universities, Inc. Washington DC, USA.
8:C;
9:C; This program is free software; you can redistribute it and/or
10:C; modify it under the terms of the GNU General Public License as
11:C; published by the Free Software Foundation; either version 2 of
12:C; the License, or (at your option) any later version.
13:C;
14:C; This program is distributed in the hope that it will be useful,
15:C; but WITHOUT ANY WARRANTY; without even the implied warranty of
16:C; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17:C; GNU General Public License for more details.
18:C;
19:C; You should have received a copy of the GNU General Public
20:C; License along with this program; if not, write to the Free
21:C; Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,
22:C; MA 02139, USA.
23:C;
24:C; Correspondence concerning AIPS should be addressed as follows:
25:C; Internet email: aipsmail at nrao.edu.
26:C; Postal address: AIPS Project Office
27:C; National Radio Astronomy Observatory
28:C; 520 Edgemont Road
29:C; Charlottesville, VA 22903-2475 USA
30:C-----------------------------------------------------------------------
31:C Do some plotting cleanup functions. Write "end of plot" record,
32:C close plot file, check for vectors that were off the plot.
33:C Then terminates the task with a call to DIE.
34:C Inputs:
35:C ISTAT I 0=successful completion, other=dies unnaturally.
36:C IDEBUG I > 0 => do not delete PL file despite errors
37:C-----------------------------------------------------------------------
38: INTEGER ISTAT, IDEBUG
39:C
40: INTEGER IERR
41:C INCLUDE 'INCS:DMSG.INC'
42:C Include DMSG.
43:C-----------------------------------------------------------------------
44:C-----------------------------------------------------------------------
45:C AIPS system message common
46: INTEGER MSGCNT, NPOPS, NLUSER, NACOUN, MSGSUP, MSGREC,
47: * MSGKIL, ISBTCH, DBGAIP, MSGVER, MSGRMB, MSGDUM
48: CHARACTER MSGTXT*80, TSKNAM*6
49: COMMON /MSGCOM/ MSGCNT, NPOPS, NLUSER, NACOUN, MSGSUP, MSGREC,
50: * MSGKIL, ISBTCH, DBGAIP, MSGVER, MSGRMB, MSGDUM
51: COMMON /MSGCHR/ MSGTXT, TSKNAM
52:C End DMSG.
53:C INCLUDE 'INCS:DPLT.INC'
54:C Include DPLT.
55:C-----------------------------------------------------------------------
56:C-----------------------------------------------------------------------
57:C Include for plotting
58:C INCLUDE 'INCS:PMAD.INC'
59:C Include PMAD
60:C-----------------------------------------------------------------------
61:C-----------------------------------------------------------------------
62:C Parameters for MA data
63: INTEGER MAXIMG, MABFSS, MABFSL
64:C Maximum axis dimension
65: PARAMETER (MAXIMG = 131072)
66:C Standard image IO buffer
67: PARAMETER (MABFSS = 4 * MAXIMG)
68:C Large image IO buffer
69: PARAMETER (MABFSL = 16 * MAXIMG)
70:C End PMAD
71: DOUBLE PRECISION CATD(128)
72: REAL PBLC(2), PTRC(2), XY, XSCAL, XOFF, YSCAL, YOFF, GFAC,
73: * GOFF, RANGE(2), XLAST, YLAST, CATR(256), DOTV
74: INTEGER PLTBLK(256), IOFFPL, IVER, IBLKSZ, IMSTUF(37),
75: * IOBLK(MABFSS), CATBLK(256), GRCHN, TVCHN, TVCORN(4)
76: REAL CATH(256)
77: COMMON /PLTCOM/ IOBLK, PBLC, PTRC, XY, XSCAL, XOFF, YSCAL,
78: * YOFF, GOFF, GFAC, RANGE, XLAST, YLAST, PLTBLK, IOFFPL, IVER,
79: * IBLKSZ, IMSTUF, GRCHN, TVCHN, TVCORN, DOTV
80: COMMON /MAPHDR/ CATBLK
81: EQUIVALENCE (CATBLK, CATH, CATR, CATD)
82:C End DPLT.
83:C INCLUDE 'INCS:DGPH.INC'
84:C Include DGPH.
85:C-----------------------------------------------------------------------
86:C-----------------------------------------------------------------------
87:C SKIPPED 'INCS:PMAD.INC'
88:C Plotting common
89: INTEGER GPHSIZ, GPHLUN, GPHIND, GPHPOS, GPHRRN, GPHVOL,
90: * GPHTLO, GPHTHI
91: REAL GPHX1, GPHX2, GPHY1, GPHY2, SCALEF, GPHRNG(2,3)
92: CHARACTER GPHNAM*48, TVSUBR*6, GPHFUN*2
93:C
94: LOGICAL GPHDOT, GPHPAG, GPHDOD
95: INTEGER GPHCRN(2), GPHTVC(3), GPHTVG(8), GPHIX0, GPHIX1, GPHIX2,
96: * GPHIXL, GPHIY0, GPHIY1, GPHIY2, GPHIYL, GPHTVW(4), GPHCHL,
97: * GPHCHB, GPHCHR, GPHCHT, GPHNGR, GPHCAT(256), GPHSCR(MAXIMG),
98: * GPHERO, GPHERG, GPHERC, GPHERV, GPHPLX(2), GPHPLY(2), GPHCNT,
99: * GPHLTY, GPHCON(32), GPHCOL(3)
100: REAL GPHSCX, GPHSCY, GPHRX1, GPHRX2, GPHRY1, GPHRY2, GPHCUT
101:C
102: COMMON /GPHCOM/ GPHX1, GPHX2, GPHY1, GPHY2, SCALEF, GPHSCX,
103: * GPHSCY, GPHRX1, GPHRX2, GPHRY1, GPHRY2, GPHDOT, GPHPAG,
AIPSUPD - UPDCOMRPL failed, NOT doing any COMLNK's!
More information about the Daip
mailing list