[daip] dave/LINUX 20200205.044322 update errors for 31DEC20
aipsmgr at nrao.edu
aipsmgr at nrao.edu
Tue Feb 4 23:43:32 EST 2020
AIPSUPD - COMRPL /home/AIPS/31DEC20/AIPS/SUB/AU8A.FOR
AIPSUPD - failed!
AIPSUPD - first 125 lines of /home/AIPS/31DEC20/LINUX/PREP/AU8A.LOG follow
COMRPL : Date Tue Feb 4 21:43:30 MST 2020
PP : Preprocess /home/AIPS/31DEC20/AIPS/SUB/AU8A.FOR
PP : into /home/AIPS/31DEC20/LINUX/PREP/AU8A.f
TEST VERSION OF PP
FC : Date Tue Feb 4 21:43:30 MST 2020
FC : Interpret FC \
FC : /home/AIPS/31DEC20/LINUX/PREP/AU8A.f
FC : as LIST=FALSE PURGE=FALSE
FC : plus /opt/intel/fc/9.1.043/bin/ifort -c -c -axNP -w90 -w95 -cm -ip -save -align all -O3 \
FC : /home/AIPS/31DEC20/LINUX/PREP/AU8A.f
fortcom: Error: /home/AIPS/31DEC20/LINUX/PREP/AU8A.f, line 5200: A dot (.) is invalid in a format list in this context. [X.A]
1772 FORMAT (12X.A2,' median over IFs',I3,' -',I3,' and',I3,' -',I3)
----------------^
compilation aborted for /home/AIPS/31DEC20/LINUX/PREP/AU8A.f (code 1)
FC : Compile of /home/AIPS/31DEC20/LINUX/PREP/AU8A.f
FC : ends with fatal error(s)!
1: SUBROUTINE AU8A (BRANCH)
2:C-----------------------------------------------------------------------
3:C! verb EXTLIST to list contents of plot files and other extension files
4:C# POPS-appl Plot-appl
5:C-----------------------------------------------------------------------
6:C; Copyright (C) 1995-1996, 1999-2012, 2016-2018, 2020
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 AU8A lists attributes of extension files (verb EXTLIST).
32:C Currently supports 'PL', 'SL', 'CC' types.
33:C Inputs:
34:C BRANCH I not used (only one verb in here).
35:C Common /CAPL/:
36:C INNAME R(3) the name of the parent file.
37:C INCLASS R(2) the class of the parent file.
38:C INSEQ R sequence number of the parent file.
39:C INTYPE R type of the parent file.
40:C INEXT R extension file type. 'PL', 'SL', 'CC'
41:C only types available.
42:C Plot types supported: 1 Misc. 2 CNTR 3 greys 4 PROFL
43:C 5 SL2PL 6 pcntr 7 IMEAN 8 UVPLT
44:C [ 9 gnplt][10 vbplt] 11 PFPLn [12 gaplt]
45:C 13 PLCUB 14 IMVIM 15 TAPLT 16 POSSM
46:C 17 SNPLT 18 kntr 19 UVHGM 20 ISPEC
47:C 21 VPLOT 22 CLPLT 23 DFTPL 24 FRPLT
48:C 25 FRMAP 26 PLOTR 27 GREYS 28 PCNTR
49:C 29 KNTR 30 BPLOT 31 APCAL 32 ANBPL
50:C 33 IRING 34 RSPEC 35 CAPLT 36 RFLAG
51:C 37 CCNTR 38 SERCH 39 EVAUV 40 DELZN
52:C 41 ELINT 42 FGPLT 43 GAL 44 SNIFS
53:C 45 SOUSP 46 WETHR 47 RM2PL 48 XG2PL
54:C 49 ALVAR 50 PCPLT 51 PLROW 52 PLOTC
55:C 53 UVHOL 54 PBEAM 55 PEEK 56 LOCIT
56:C 57 SNBLP 58 SYVSN 59 BLPLT
57:C pcntr, greys, kntr (6, 3, 18) are old form replacd 2002-Nov
58:C vbplt, gaplt, gnplt not supported 7/7/03
59:C-----------------------------------------------------------------------
60: INTEGER BRANCH
61:C
62: INTEGER NPLOTS, NVERS
63: PARAMETER (NPLOTS=59)
64: PARAMETER (NVERS=4)
65:C
66: CHARACTER NAME*12, CLASS*6, TYPE*2, CINEXT*2, IECHAR*2, CTEMP*25,
67: * PRGNAM*6, LTASK*6, TIME*8, DATE*12, CHCORR(13)*4, TUVPLT(18)*8,
68: * COLTYP(2)*8, BTEMP*2, RESULT*132, CHAX(2)*1, ATEMP*12,
69: * EXCHAR(8)*2, SORTOR(4)*6, TS1*1, TS2*1, TYPEBP(10)*12,
70: * XATYPE*10, YATYPE*14, CODET*4, CDUM*1, FUNC*2, FILNAM*48,
71: * PNAMES(NPLOTS)*5, DTEMP*4, TANBPL(17)*8, TVPLOT(22)*8,
72: * TCLPLT(4)*8, RFTY(6)*30, STRNG*80, DIDIT(2)*8, WXCODE(12)*4,
73: * SNTYPE(23)*4, NAME2*12, CLASS2*6, RMTYPE(5)*10, PRTASK*6,
74: * UVHOLC(5)*12, PBEAMC(8)*28, PEEKS(11)*6, XAXIST(6)*18
75: REAL DATA(768), TEMP(6), FAC, RANGE1, RANGE2, XICUT, XMAX,
76: * XMIN, XPCUT, XPLEV, ZXR, XLEVS, X, Y, XCLEV, TDEL, ABLC(2),
77: * ATRC(2), STFACT, TDATA(10), T1, T2, RDUM, FP(2), ROTATE, SOLINT
78: REAL HDATA(768), HREC(256)
79: INTEGER IRNO, IBCNT, IECNT, IICNT, IDATA(768), IBLC(2), ITRC(2),
80: * IX, IY, I, IELUN, ISX, IERR, IETYPE, IFIND, IMAX, IMAXV, IMLUN,
81: * INOPTS, IOBSVR, IPTYPE, IROT, IS, ISEQ, ISKW, ISLOT, IUSER, IV,
82: * IVER, IVOL, ICTR, IFIRST, IGM, INGM, J, NBXS, NS, IROUND, II,
83: * LSGN(2), NKEY, NCOL, NREC, IBDROP, IEDROP, INOSL, IBLCX, ITRCX,
84: * JJ, IP, IBVER, NCNT, IANT1(50), IANT2(50), NANT1, NANT2,
85: * NPARMS, STVERS, J1, J2, IT1(4), IT2(4), POTERR, IDUM, FT, NP,
86: * JTRIM, PNPARM(NPLOTS,NVERS), CVER, COFF1, COFF2, COFF3
87: LOGICAL NOSAVE, NOEXCL, EQUAL, NOWAIT, ABSEM(2), TABLE, FITASC,
88: * EXIST, WASRGB, ISOLD
89:C INCLUDE 'INCS:DDCH.INC'
90:C Include DDCH.
91:C-----------------------------------------------------------------------
92:C-----------------------------------------------------------------------
93:C AIPS system parameters
94: INTEGER NDCHD
95: PARAMETER (NDCHD=18)
96: CHARACTER SYSNAM*20, VERNAM*4, RLSNAM*8, DEVNAM(20)*48,
97: * NONNAM(80)*48, MAPNAM(20)*48, SYSTYP*4, SYSVER*8, TPDNAM*24,
98: * TPNAME(99)*24, HSTNAM*12
99: REAL HBLANK, QWHRT1(3), QWHRT2(3), QWHRT3(3)
100: DOUBLE PRECISION DBLANK
101: REAL XPRDMM, XTKDMM, TIMEDA(99), TIMESG, TIMEMS, TIMESC, TIMECA,
102: * TIMEBA(4), TIMEAP(3), FBLANK, RFILIT(14), AIPSMK
103: INTEGER NVOL, NBPS, NSPG, NBTB1, NTAB1, NBTB2, NTAB2, NBTB3,
104: * NTAB3, NTAPED, CRTMAX, PRTMAX, NBATQS, MAXXPR(2), CSIZPR(2),
105: * NINTRN, KAPWRD, NWDPDP, NBITWD, NCHLIN, NTVDEV, NTKDEV, BLANKV,
106: * NTVACC, NTKACC, UCTSIZ, BYTFLP, USELIM, NBITCH, NCHPRT,
107: * KAP2WD, MAXXTK(2), CSIZTK(2), DASSGN(8,99), SPFRMT, DPFRMT,
108: * NSHORT, TTYCAR, PRDELE, DCHDUM(NDCHD), DEVTAB(128), FTAB(3200)
AIPSUPD - UPDCOMRPL failed, NOT doing any COMLNK's!
More information about the Daip
mailing list