[daip] primate/LNX64 20260915.034909 update errors for 31DEC26
aipssrc at primate.aoc.nrao.edu
aipssrc at primate.aoc.nrao.edu
Mon Sep 14 23:49:47 EDT 2026
AIPSUPD - COMRPL /home/AIPS/31DEC26/AIPS/SUB/AU5.FOR
AIPSUPD - failed!
AIPSUPD - first 125 lines of /home/AIPS/31DEC26/LNX64/PREP/AU5.LOG follow
COMRPL : Date Mon Sep 14 21:49:42 MDT 2026
AIPP : Preprocess /home/AIPS/31DEC26/AIPS/SUB/AU5.FOR
AIPP : into /home/AIPS/31DEC26/LNX64/PREP/AU5.f
AIFC : Date Mon Sep 14 21:49:42 MDT 2026
AIFC : Interpret AIFC \
AIFC : /home/AIPS/31DEC26/LNX64/PREP/AU5.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/AU5.f
/home/AIPS/31DEC26/LNX64/PREP/AU5.f:399:10:
IF (RDUM.GT.0.0) THEN
1
Error: IF clause at (1) requires a scalar LOGICAL expression
AIFC : Compile of /home/AIPS/31DEC26/LNX64/PREP/AU5.f
AIFC : ends with fatal error(s)!
1: SUBROUTINE AU5 (BRANCH)
2:C-----------------------------------------------------------------------
3:C! basic TV verbs to do on/off, read cursor position, init the TV, ...
4:C# POPS-appl TV-appl
5:C-----------------------------------------------------------------------
6:C; Copyright (C) 1995-1996, 1998, 2003, 2006, 2008-2009, 2012
7:C; Copyright (C) 2014-2015, 2021, 2024, 2026
8:C; Associated Universities, Inc. Washington DC, USA.
9:C;
10:C; This program is free software; you can redistribute it and/or
11:C; modify it under the terms of the GNU General Public License as
12:C; published by the Free Software Foundation; either version 2 of
13:C; the License, or (at your option) any later version.
14:C;
15:C; This program is distributed in the hope that it will be useful,
16:C; but WITHOUT ANY WARRANTY; without even the implied warranty of
17:C; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18:C; GNU General Public License for more details.
19:C;
20:C; You should have received a copy of the GNU General Public
21:C; License along with this program; if not, write to the Free
22:C; Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,
23:C; MA 02139, USA.
24:C;
25:C; Correspondence concerning AIPS should be addressed as follows:
26:C; Internet email: aipsmail at nrao.edu.
27:C; Postal address: AIPS Project Office
28:C; National Radio Astronomy Observatory
29:C; 520 Edgemont Road
30:C; Charlottesville, VA 22903-2475 USA
31:C-----------------------------------------------------------------------
32:C Do most common image functions:
33:C BRANCH = 1 => initialize image device
34:C 2 => clear image channel(s)
35:C 3 => clear graphics channel(s)
36:C 4 => turn on selected image channel(s)
37:C 5 => turn off image channel(s)
38:C 6 => turn on graphics channel(s)
39:C 7 => turn off graphics
40:C 8 => select standard color channels
41:C 9 => read cursor position in screen coord
42:C 10 => read cursor position in map coord
43:C 11 => read cursor position in sky coord
44:C 12 => use cursor to fill in INNAME, INCLASS, INSEQ
45:c from selected image
46:C 13 => Switch cursor to/from blinking
47:C 14 => Read graphics channel color
48:C 15 => Write graphics channel color
49:C 16 => Write character multiply factor
50:C 17 => Set JMFIT/IMFIT initial guess adverbs
51:C-----------------------------------------------------------------------
52: INTEGER BRANCH
53:C
54:C INCLUDE 'INCS:PMAD.INC'
55:C Include PMAD
56:C-----------------------------------------------------------------------
57:C-----------------------------------------------------------------------
58:C Parameters for MA data
59: INTEGER MAXIMG, MABFSS, MABFSL
60:C Maximum axis dimension
61: PARAMETER (MAXIMG = 131072)
62:C Standard image IO buffer
63: PARAMETER (MABFSS = 4 * MAXIMG)
64:C Large image IO buffer
65: PARAMETER (MABFSL = 16 * MAXIMG)
66:C End PMAD
67: CHARACTER RSTR*20, ONCODE(2)*4, NAME*18, CLASS*6, TYPE*2,
68: * PRGNAM*6, CDUM*1, VNAME(3)*6
69: INTEGER IERR, IPL, ICHAN, INCH, INBUF(MABFSS), ICOLOR, JON,
70: * JTVPOS, DUM, IN1, IN2, I, ICH, ILEN, IX, IY, JERR, POTERR, IGR,
71: * ITEMP, ZAND, ZOR, IDUM, IC, MSGSAV, NBO, MBOX, NG, QUAD, DLUN,
72: * DIND, JBUFSZ, WIN(4), OFBLK, IBUT, CNO, SEQNO, IVOL, NX, NY,
73: * CATIMG(256), ININD, IXC(33), IYC(33)
74: LOGICAL F, LGRAPH, PFLAG, ROAMED
75: REAL EPS, RPOS(2), RDUM(2), XYPOS(7), XCOORD(6), BLCO(7),
76: * TRCO(7), GMAX(4), GPOS(2,4), GWID(3,4), ARRAY(16,16), DX(2),
77: * RBUFF(MABFSS), SLOPE, OFFS, CG, SG, X, Y
78: DOUBLE PRECISION SKYPOS(3)
79:C INCLUDE 'INCS:DPOP.INC'
80:C Include DPOP.
81:C-----------------------------------------------------------------------
82:C-----------------------------------------------------------------------
83: INTEGER KT, LPGM, LLIT, LAST, IDEBUG, MODE, IFFLAG, LINK,
84: * L, NAMEP, IP, LP, SLIM, AP, BP, ONE, ZERO, TRUE, FALSE,
85: * STACK(1000), CSTACK(1000), SP, CP, SP0, MPAGE, LPAGE
86: REAL V(1000), XX
87: COMMON /POPS/ V, XX, KT, LPGM, LLIT, LAST, IDEBUG, MODE, IFFLAG,
88: * LINK, L, NAMEP, IP, LP, SLIM, AP, BP, ONE, ZERO, TRUE, FALSE,
89: * STACK, CSTACK, SP, CP, SP0, MPAGE, LPAGE
90:C End DPOP.
91:C INCLUDE 'INCS:DERR.INC'
92:C Include DERR.
93:C-----------------------------------------------------------------------
94:C-----------------------------------------------------------------------
95:C POPS error handling for OERROR
96: INTEGER ERRNUM, IERROR(10), ERRLEV
97: CHARACTER PNAME(10)*6
98: COMMON /ERRORS/ ERRNUM, IERROR, ERRLEV
99: COMMON /ERRORC/ PNAME
100:C End DERR.
101:C INCLUDE 'INCS:DMSG.INC'
102:C Include DMSG.
103:C-----------------------------------------------------------------------
104:C-----------------------------------------------------------------------
105:C AIPS system message common
106: INTEGER MSGCNT, NPOPS, NLUSER, NACOUN, MSGSUP, MSGREC,
107: * MSGKIL, ISBTCH, DBGAIP, MSGVER, MSGRMB, MSGDUM
108: CHARACTER MSGTXT*80, TSKNAM*6
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/AIPS/SUB/AU2A.FOR
P 31DEC26/AIPS/SUB/AU5.FOR
P 31DEC26/AIPS/SUB/AU8A.FOR
P 31DEC26/HELP/DEFCOLOR.HLP
P 31DEC26/HELP/LWPLA.HLP
P 31DEC26/HELP/PDPLT.HLP
P 31DEC26/HELP/POPSDAT.HLP
P 31DEC26/HELP/TEPLT.HLP
P 31DEC26/HELP/TV3COLOR.HLP
P 31DEC26/HELP/TV3LOD.HLP
P 31DEC26/HELP/TVCHAN.HLP
P 31DEC26/HELP/TVCOLORS.HLP
P 31DEC26/HIST/CHANGE.DOC
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/UPDATE/WHATISOUT.UPD
U 31DEC26/UPDATE/WHATISOUT.UPD.SUM
P 31DEC26/Y/PGM/LWPLA.FOR
P 31DEC26/Y/PGM/NOTST/PDPLT.FOR
P 31DEC26/Y/PGM/NOTST/TEPLT.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 = 20260914.034450
UPDCONTROL - /home/AIPS/31DEC26/LNX64/UPDATE/LASTCOPY.DAT = 20260914.034450
UPDCONTROL - /home/AIPS/31DEC26/LNX64/UPDATE/LASTCOMRPL.DAT = 20260914.034450
UPDCONTROL - /home/AIPS/31DEC26/LNX64/UPDATE/LASTCOMLNK.DAT = 20260914.034450
UPDCONTROL - Everything seems in order
UPDUPDATE - running POPSGN for changed POPSDAT
Data disk assignments:
(Using COAOARN-specific default file /home/AIPS/DA00/DADEVS.LIST.COAOARN for DADEVS.PL)
Disk 1 (1) is /DATA/PRIMATE_1
Disk 2 (2) is /DATA/PRIMATE_2
Disk 3 (3) is /DATA/PRIMATE_3
Disk 4 (4) is /DATA/PRIMATE_4
Disk 5 (5) is /DATA/PRIMATE_5
Starting up POPSGN (RELEASE OF 31DEC26)
>Enter Idebug, Mname, Version (1 I, 2 A's) (NO COMMAS)
POPSG1: Popsgen complete
POPSG1: primate 31DEC26 TST: Cpu= 0.0 Real= 1 IO= 2
UPDCOMRPL: COMRPLs
14-SEP-2026 21:43:06 20260914 TST AIPSUB AU2A.FOR egreisen
14-SEP-2026 21:43:05 20260914 TST AIPSUB AU5.FOR egreisen
14-SEP-2026 21:43:06 20260914 TST AIPSUB AU8A.FOR egreisen
UPDCOMRPL: currently in /home/AIPS/31DEC26/LNX64/UPDATE
UPDCOMRPL: /home/AIPS/31DEC26/AIPS/SUB/AU2A.FOR
UPDCOMRPL: /home/AIPS/31DEC26/AIPS/SUB/AU8A.FOR
AIPSUPD - COMRPL /home/AIPS/31DEC26/AIPS/SUB/AU5.FOR
AIPSUPD - failed!
AIPSUPD - first 125 lines of /home/AIPS/31DEC26/LNX64/PREP/AU5.LOG follow
COMRPL : Date Mon Sep 14 21:49:42 MDT 2026
AIPP : Preprocess /home/AIPS/31DEC26/AIPS/SUB/AU5.FOR
AIPP : into /home/AIPS/31DEC26/LNX64/PREP/AU5.f
AIFC : Date Mon Sep 14 21:49:42 MDT 2026
AIFC : Interpret AIFC \
AIFC : /home/AIPS/31DEC26/LNX64/PREP/AU5.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/AU5.f
/home/AIPS/31DEC26/LNX64/PREP/AU5.f:399:10:
IF (RDUM.GT.0.0) THEN
1
Error: IF clause at (1) requires a scalar LOGICAL expression
AIFC : Compile of /home/AIPS/31DEC26/LNX64/PREP/AU5.f
AIFC : ends with fatal error(s)!
1: SUBROUTINE AU5 (BRANCH)
2:C-----------------------------------------------------------------------
3:C! basic TV verbs to do on/off, read cursor position, init the TV, ...
4:C# POPS-appl TV-appl
5:C-----------------------------------------------------------------------
6:C; Copyright (C) 1995-1996, 1998, 2003, 2006, 2008-2009, 2012
7:C; Copyright (C) 2014-2015, 2021, 2024, 2026
8:C; Associated Universities, Inc. Washington DC, USA.
9:C;
10:C; This program is free software; you can redistribute it and/or
11:C; modify it under the terms of the GNU General Public License as
12:C; published by the Free Software Foundation; either version 2 of
13:C; the License, or (at your option) any later version.
14:C;
15:C; This program is distributed in the hope that it will be useful,
16:C; but WITHOUT ANY WARRANTY; without even the implied warranty of
17:C; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18:C; GNU General Public License for more details.
19:C;
20:C; You should have received a copy of the GNU General Public
21:C; License along with this program; if not, write to the Free
22:C; Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,
23:C; MA 02139, USA.
24:C;
25:C; Correspondence concerning AIPS should be addressed as follows:
26:C; Internet email: aipsmail at nrao.edu.
27:C; Postal address: AIPS Project Office
28:C; National Radio Astronomy Observatory
29:C; 520 Edgemont Road
30:C; Charlottesville, VA 22903-2475 USA
31:C-----------------------------------------------------------------------
32:C Do most common image functions:
33:C BRANCH = 1 => initialize image device
34:C 2 => clear image channel(s)
35:C 3 => clear graphics channel(s)
36:C 4 => turn on selected image channel(s)
37:C 5 => turn off image channel(s)
38:C 6 => turn on graphics channel(s)
39:C 7 => turn off graphics
40:C 8 => select standard color channels
41:C 9 => read cursor position in screen coord
42:C 10 => read cursor position in map coord
43:C 11 => read cursor position in sky coord
44:C 12 => use cursor to fill in INNAME, INCLASS, INSEQ
45:c from selected image
46:C 13 => Switch cursor to/from blinking
47:C 14 => Read graphics channel color
48:C 15 => Write graphics channel color
49:C 16 => Write character multiply factor
50:C 17 => Set JMFIT/IMFIT initial guess adverbs
51:C-----------------------------------------------------------------------
52: INTEGER BRANCH
53:C
54:C INCLUDE 'INCS:PMAD.INC'
55:C Include PMAD
56:C-----------------------------------------------------------------------
57:C-----------------------------------------------------------------------
58:C Parameters for MA data
59: INTEGER MAXIMG, MABFSS, MABFSL
60:C Maximum axis dimension
61: PARAMETER (MAXIMG = 131072)
62:C Standard image IO buffer
63: PARAMETER (MABFSS = 4 * MAXIMG)
64:C Large image IO buffer
65: PARAMETER (MABFSL = 16 * MAXIMG)
66:C End PMAD
67: CHARACTER RSTR*20, ONCODE(2)*4, NAME*18, CLASS*6, TYPE*2,
68: * PRGNAM*6, CDUM*1, VNAME(3)*6
69: INTEGER IERR, IPL, ICHAN, INCH, INBUF(MABFSS), ICOLOR, JON,
70: * JTVPOS, DUM, IN1, IN2, I, ICH, ILEN, IX, IY, JERR, POTERR, IGR,
71: * ITEMP, ZAND, ZOR, IDUM, IC, MSGSAV, NBO, MBOX, NG, QUAD, DLUN,
72: * DIND, JBUFSZ, WIN(4), OFBLK, IBUT, CNO, SEQNO, IVOL, NX, NY,
73: * CATIMG(256), ININD, IXC(33), IYC(33)
74: LOGICAL F, LGRAPH, PFLAG, ROAMED
75: REAL EPS, RPOS(2), RDUM(2), XYPOS(7), XCOORD(6), BLCO(7),
76: * TRCO(7), GMAX(4), GPOS(2,4), GWID(3,4), ARRAY(16,16), DX(2),
77: * RBUFF(MABFSS), SLOPE, OFFS, CG, SG, X, Y
78: DOUBLE PRECISION SKYPOS(3)
79:C INCLUDE 'INCS:DPOP.INC'
80:C Include DPOP.
81:C-----------------------------------------------------------------------
82:C-----------------------------------------------------------------------
83: INTEGER KT, LPGM, LLIT, LAST, IDEBUG, MODE, IFFLAG, LINK,
84: * L, NAMEP, IP, LP, SLIM, AP, BP, ONE, ZERO, TRUE, FALSE,
85: * STACK(1000), CSTACK(1000), SP, CP, SP0, MPAGE, LPAGE
86: REAL V(1000), XX
87: COMMON /POPS/ V, XX, KT, LPGM, LLIT, LAST, IDEBUG, MODE, IFFLAG,
88: * LINK, L, NAMEP, IP, LP, SLIM, AP, BP, ONE, ZERO, TRUE, FALSE,
89: * STACK, CSTACK, SP, CP, SP0, MPAGE, LPAGE
90:C End DPOP.
91:C INCLUDE 'INCS:DERR.INC'
92:C Include DERR.
93:C-----------------------------------------------------------------------
94:C-----------------------------------------------------------------------
95:C POPS error handling for OERROR
96: INTEGER ERRNUM, IERROR(10), ERRLEV
97: CHARACTER PNAME(10)*6
98: COMMON /ERRORS/ ERRNUM, IERROR, ERRLEV
99: COMMON /ERRORC/ PNAME
100:C End DERR.
101:C INCLUDE 'INCS:DMSG.INC'
102:C Include DMSG.
103:C-----------------------------------------------------------------------
104:C-----------------------------------------------------------------------
105:C AIPS system message common
106: INTEGER MSGCNT, NPOPS, NLUSER, NACOUN, MSGSUP, MSGREC,
107: * MSGKIL, ISBTCH, DBGAIP, MSGVER, MSGRMB, MSGDUM
108: CHARACTER MSGTXT*80, TSKNAM*6
AIPSUPD - UPDCOMRPL failed, NOT doing any COMLNK's!
More information about the Daip
mailing list