[daip] Re: AIPS installation problems

Tue Jul 22 19:07:16 EDT 2003

Hello Eric,
	I've attached INSTEP2.LOG and INSTEP4.LOG.  Just browsing
INSTEP2.LOG, I don't see any obvious error messages.  INSTEP4.LOG,
however, has some small errors from the very beginning, which eventually
turn into serious errors.  Do you still think the INSTEP2 portion of the
installation is failing?
	Regarding the X11 problems:  I don't see any "YSUB.LIS" in the
directory you mentioned.  Here's what I see:

[claw at byrd INSTALL]$ pwd
/usr/local/aips/31DEC03/LINUX/INSTALL
[claw at byrd INSTALL]$ ls
AIPPGM.LIS  APLOOP.LIS  INSTEP2.LOG  QDEV.LIS  YGEN.LIS
AIPSUB.LIS  APLSUB.LIS  INSTEP4@     QNOT.LIS  YNOT.LIS
APLGEN.LIS  INSTEP2@    INSTEP4.LOG  QSUB.LIS

	Does this tell you something?  
	Overall, I'm beginning to wonder if I shouldn't just try to start
over.  I tried to install the 31DEC02 version, which confused the
install.pl script when trying to do 31DEC03.  Perhaps the install.pl
script still hasn't recovered...?  

		cheers,
		casey

On Tue, 22 Jul 2003, Eric Greisen wrote:

> These indicate to me that INSTEP2 did not run to completion at all.
> Take a look at the end of INSTEP2.LOG and at all of the *.LIS files in
> the $AIPS_ROOT/$TST/LINUX/INSTALL area.  TVOPEN is in YSUB.LIS and
> should have a - in front of it.
-------------- next part --------------
INSTEP4    : Begins at Tue Jul 22 14:21:53 CDT 2003
INSTEP4    : 
INSTEP4    : Compile and Link all programs (may take a while)
INSTEP4    : 
INSTEP4    : Processing $AIPPGM/...
INSTEP4    : programs.
MAKEAT    : Making     AIPPGM.LIS
INSTEP4    : Begin      $AIPPGM/...
INSTEP4    : compiling/linking of
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/AIPSB.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/AIPSC.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/AIPS.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/AJAX.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/BATER.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/BSTRT1.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/DAIP.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/FILAI2.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/FILAIP.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/FILINI.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/GRIPR.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/POPSGN.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/QMNGR.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/RECAT.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/SETSP.FOR
INSTEP4   : /usr/local/aips/31DEC03/AIPS/PGM/SETTVP.FOR
COMLNK    : Date       Tue Jul 22 14:21:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/AIPSB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AIPSB.f
FC        : Date       Tue Jul 22 14:21:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AIPSB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AIPSB.f
/usr/local/aips/31DEC03/LINUX/PREP/AIPSB.f: In subroutine `batset':
/usr/local/aips/31DEC03/LINUX/PREP/AIPSB.f:263: warning: unused variable `deltim'
/usr/local/aips/31DEC03/LINUX/PREP/AIPSB.f:261: warning: unused variable `magic'
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AIPSB.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:21:54 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/AIPSB.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/AIPSB.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/AIPSB.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6D.o)(.text+0xcb): In function `au6d_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6D.o)(.text+0x160): In function `au6d_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6D.o)(.text+0xb48): In function `au6d_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x42c): In function `grpoly_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x52d): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x5cf): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x913): In function `grpoly_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x977): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x9fa): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0xabd): In function `grpoly_':
: undefined reference to `bltfil_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0xe20): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(PREAD.o)(.text+0x856): In function `pread_':
: undefined reference to `zprmpt_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZACTV8.o)(.text+0x61d): In function `zactv8_':
: undefined reference to `zactv9_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCMPRS.o)(.text+0x124): In function `zcmprs_':
: undefined reference to `zcmpr2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCREAT.o)(.text+0x1dc): In function `zcreat_':
: undefined reference to `zcrea2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDESTR.o)(.text+0xc1): In function `zdestr_':
: undefined reference to `zdest2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDIE.o)(.text+0x7b): In function `zdie_':
: undefined reference to `zdie2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMIO.o)(.text+0x1e0): In function `zmio_':
: undefined reference to `zmi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZRENAM.o)(.text+0x7e): In function `zrenam_':
: undefined reference to `zrena2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTKOPN.o)(.text+0x1f0): In function `ztkopn_':
: undefined reference to `ztkop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZIPACK.o)(.text+0xdc): In function `zipack_':
: undefined reference to `zipac2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZLPCLS.o)(.text+0x157): In function `zlpcls_':
: undefined reference to `zlpcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSOP.o)(.text+0x155): In function `zsssop_':
: undefined reference to `zssso2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTXMAT.o)(.text+0x190): In function `ztxmat_':
: undefined reference to `ztxma2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTXMAT.o)(.text+0x355): In function `ztxmat_':
: undefined reference to `ztxma2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x1a): In function `zsssc2_':
: undefined reference to `buffered'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x23): In function `zsssc2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x2f): In function `zsssc2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x45): In function `zsssc2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x53): In function `zsssc2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x16): In function `zsssx2_':
: undefined reference to `buffered'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x27): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x3c): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x45): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x6e): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x94): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xb3): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xc2): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xce): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xda): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xec): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x10a): more undefined references to `packet_int' follow
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x135): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x15d): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x166): In function `zsssx2_':
: undefined reference to `bufferop'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x173): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x17c): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x19e): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x1c6): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x1cf): In function `zsssx2_':
: undefined reference to `bufferop'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x24d): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x253): In function `zsssx2_':
: undefined reference to `Z_rcvinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2c2): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2d9): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2e4): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2f8): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x31c): In function `zsssx2_':
: undefined reference to `Z_rcvinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x361): In function `zsssx2_':
: undefined reference to `Z_rcvinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x368): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x42f): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x43e): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x452): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x476): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x4bb): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x4c2): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x51c): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x52b): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x53f): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x563): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x5a8): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x5af): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x5bd): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.data+0x0): undefined reference to `packet_int'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/AIPSB.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/AIPSB.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/AIPSB.f
COMLNK    : Date       Tue Jul 22 14:21:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/AIPSC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AIPSC.f
FC        : Date       Tue Jul 22 14:21:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AIPSC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AIPSC.f
/usr/local/aips/31DEC03/LINUX/PREP/AIPSC.f: In subroutine `cu2':
/usr/local/aips/31DEC03/LINUX/PREP/AIPSC.f:751: warning: unused variable `tskdly'
/usr/local/aips/31DEC03/LINUX/PREP/AIPSC.f:749: warning: unused variable `luntd'
/usr/local/aips/31DEC03/LINUX/PREP/AIPSC.f:746: warning: unused variable `luntty'
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AIPSC.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:21:57 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/AIPSC.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/AIPSC.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/AIPSC.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(PREAD.o)(.text+0x856): In function `pread_':
: undefined reference to `zprmpt_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZACTV8.o)(.text+0x61d): In function `zactv8_':
: undefined reference to `zactv9_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCMPRS.o)(.text+0x124): In function `zcmprs_':
: undefined reference to `zcmpr2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCREAT.o)(.text+0x1dc): In function `zcreat_':
: undefined reference to `zcrea2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDESTR.o)(.text+0xc1): In function `zdestr_':
: undefined reference to `zdest2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZRENAM.o)(.text+0x7e): In function `zrenam_':
: undefined reference to `zrena2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTKOPN.o)(.text+0x1f0): In function `ztkopn_':
: undefined reference to `ztkop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDIE.o)(.text+0x7b): In function `zdie_':
: undefined reference to `zdie2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZLPCLS.o)(.text+0x157): In function `zlpcls_':
: undefined reference to `zlpcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSOP.o)(.text+0x155): In function `zsssop_':
: undefined reference to `zssso2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTXMAT.o)(.text+0x190): In function `ztxmat_':
: undefined reference to `ztxma2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTXMAT.o)(.text+0x355): In function `ztxmat_':
: undefined reference to `ztxma2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZIPACK.o)(.text+0xdc): In function `zipack_':
: undefined reference to `zipac2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x1a): In function `zsssc2_':
: undefined reference to `buffered'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x23): In function `zsssc2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x2f): In function `zsssc2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x45): In function `zsssc2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x53): In function `zsssc2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x16): In function `zsssx2_':
: undefined reference to `buffered'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x27): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x3c): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x45): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x6e): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x94): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xb3): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xc2): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xce): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xda): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xec): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x10a): more undefined references to `packet_int' follow
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x135): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x15d): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x166): In function `zsssx2_':
: undefined reference to `bufferop'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x173): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x17c): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x19e): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x1c6): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x1cf): In function `zsssx2_':
: undefined reference to `bufferop'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x24d): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x253): In function `zsssx2_':
: undefined reference to `Z_rcvinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2c2): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2d9): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2e4): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2f8): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x31c): In function `zsssx2_':
: undefined reference to `Z_rcvinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x361): In function `zsssx2_':
: undefined reference to `Z_rcvinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x368): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x42f): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x43e): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x452): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x476): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x4bb): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x4c2): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x51c): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x52b): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x53f): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x563): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x5a8): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x5af): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x5bd): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.data+0x0): undefined reference to `packet_int'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/AIPSC.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/AIPSC.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/AIPSC.f
COMLNK    : Date       Tue Jul 22 14:21:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/AIPS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AIPS.f
FC        : Date       Tue Jul 22 14:21:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AIPS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AIPS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AIPS.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:21:59 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/AIPS.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/AIPS.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/AIPS.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5A.o)(.text+0x41): In function `au5a_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5A.o)(.text+0x19c): In function `au5a_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5A.o)(.text+0x282): In function `au5a_':
: undefined reference to `tvload_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5A.o)(.text+0x94e): In function `au5a_':
: undefined reference to `tvload_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5A.o)(.text+0xc10): In function `au5a_':
: undefined reference to `tvload_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0xa8): In function `au5b_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x1b3): In function `au5b_':
: undefined reference to `tvfind_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x1e0): In function `au5b_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x316): In function `au5b_':
: undefined reference to `iaxis1_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x6dc): In function `au5b_':
: undefined reference to `tvwher_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x982): In function `au5b_':
: undefined reference to `imanot_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x9ec): In function `au5b_':
: undefined reference to `imanot_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0xab6): In function `au5b_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0xb77): In function `au5b_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x114e): In function `au5b_':
: undefined reference to `tvwher_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x126c): In function `au5b_':
: undefined reference to `tvwher_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x139b): In function `au5b_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x144f): In function `au5b_':
: undefined reference to `tvfind_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x19c1): In function `au5b_':
: undefined reference to `starpl_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x1b0f): In function `au5b_':
: undefined reference to `tvfind_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x227b): In function `au5b_':
: undefined reference to `pntplt_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x23ce): In function `au5b_':
: undefined reference to `tvfind_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x29ef): In function `au5b_':
: undefined reference to `tvfind_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0xba): In function `au5c_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0x19d): In function `au5c_':
: undefined reference to `tvfind_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0x33b): In function `au5c_':
: undefined reference to `iwedge_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0x370): In function `au5c_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0x40e): In function `au5c_':
: undefined reference to `tvwher_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0x646): In function `au5c_':
: undefined reference to `grboxs_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0x899): In function `au5c_':
: undefined reference to `grboxs_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0xc0d): In function `au5c_':
: undefined reference to `grslic_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0xe25): In function `au5c_':
: undefined reference to `grboxs_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0x18c2): In function `au5c_':
: undefined reference to `grboxs_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5D.o)(.text+0xf9): In function `au5d_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5D.o)(.text+0x1eb): In function `au5d_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5D.o)(.text+0x16bc): In function `au5d_':
: undefined reference to `tvload_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5D.o)(.text+0x1b1e): In function `au5d_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5D.o)(.text+0x1beb): In function `au5d_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5D.o)(.text+0x1d71): In function `au5d_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5D.o)(.text+0x1ec9): In function `au5d_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0xd4): In function `au5e_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0x1d1): In function `au5e_':
: undefined reference to `ofmio_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0x2ec): In function `au5e_':
: undefined reference to `ofmgam_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0x3f2): In function `au5e_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0x668): In function `au5e_':
: undefined reference to `ofmcon_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0x87d): In function `au5e_':
: undefined reference to `ofmio_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0x936): In function `au5e_':
: undefined reference to `ofmmod_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0x990): In function `au5e_':
: undefined reference to `ofmmod_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5.o)(.text+0x41): In function `au5_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5.o)(.text+0xeb): In function `au5_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5.o)(.text+0x13d): In function `au5_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5.o)(.text+0x9ed): In function `au5_':
: undefined reference to `tvwher_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5.o)(.text+0x1024): In function `au5_':
: undefined reference to `tvfind_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6A.o)(.text+0x146): In function `au6a_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6A.o)(.text+0x399): In function `au6a_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6A.o)(.text+0x4bb): In function `au6a_':
: undefined reference to `ienhns_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6A.o)(.text+0x5df): In function `au6a_':
: undefined reference to `tvblnk_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6A.o)(.text+0xb53): In function `au6a_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6A.o)(.text+0xcd7): In function `au6a_':
: undefined reference to `ienhns_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6B.o)(.text+0x22): In function `au6b_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6B.o)(.text+0x74): In function `au6b_':
: undefined reference to `tvalue_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6B.o)(.text+0x88): In function `au6b_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6C.o)(.text+0x25): In function `au6c_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6C.o)(.text+0x24d): In function `au6c_':
: undefined reference to `tvfidl_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6C.o)(.text+0x261): In function `au6c_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6D.o)(.text+0xcb): In function `au6d_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6D.o)(.text+0x160): In function `au6d_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6D.o)(.text+0xb48): In function `au6d_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6E.o)(.text+0x319): In function `au6e_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6E.o)(.text+0x3fb): In function `au6e_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6E.o)(.text+0x109a): In function `au6e_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6.o)(.text+0x1c7): In function `au6_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6.o)(.text+0x4af): In function `au6_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6.o)(.text+0x80b): In function `au6_':
: undefined reference to `tvzome_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6.o)(.text+0x991): In function `au6_':
: undefined reference to `tvscrl_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6.o)(.text+0x9d8): In function `au6_':
: undefined reference to `tvpsud_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6.o)(.text+0xe6b): In function `au6_':
: undefined reference to `tvflam_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRLUTS.o)(.text+0x42c): In function `grluts_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRLUTS.o)(.text+0x596): In function `grluts_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRLUTS.o)(.text+0x689): In function `grluts_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRLUTS.o)(.text+0x73d): In function `grluts_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRLUTS.o)(.text+0x955): In function `grluts_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRLUTS.o)(.text+0x9c4): In function `grluts_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRLUTS.o)(.text+0xaf2): In function `grluts_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x42c): In function `grpoly_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x52d): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x5cf): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x913): In function `grpoly_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x977): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x9fa): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0xabd): In function `grpoly_':
: undefined reference to `bltfil_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0xe20): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(HIENH.o)(.text+0x8ad): In function `hienh_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(PREAD.o)(.text+0x856): In function `pread_':
: undefined reference to `zprmpt_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(RDUSER.o)(.text+0x98): In function `rduser_':
: undefined reference to `zprmpt_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(RLHIST.o)(.text+0xcc): In function `rlhist_':
: undefined reference to `zgrlhi_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(RLHIST.o)(.text+0x116): In function `rlhist_':
: undefined reference to `zgrltc_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(RLHIST.o)(.text+0x24f): In function `rlhist_':
: undefined reference to `zgrlhi_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVLAB.o)(.text+0x3c6): In function `tvlab_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVLAB.o)(.text+0x4e2): In function `tvlab_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVLAB.o)(.text+0x704): In function `tvlab_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVLAB.o)(.text+0x89f): In function `tvlab_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVMOVI.o)(.text+0x1422): In function `tvmovi_':
: undefined reference to `ienhns_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVMOVI.o)(.text+0x18e4): In function `tvmovi_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVMOVI.o)(.text+0x19a6): In function `tvmovi_':
: undefined reference to `colorc_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVROAM.o)(.text+0x455): In function `tvroam_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVVEC.o)(.text+0x18e): In function `tvvec_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZACTV8.o)(.text+0x61d): In function `zactv8_':
: undefined reference to `zactv9_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCMPRS.o)(.text+0x124): In function `zcmprs_':
: undefined reference to `zcmpr2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCREAT.o)(.text+0x1dc): In function `zcreat_':
: undefined reference to `zcrea2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDESTR.o)(.text+0xc1): In function `zdestr_':
: undefined reference to `zdest2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDIE.o)(.text+0x7b): In function `zdie_':
: undefined reference to `zdie2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZGMAIL.o)(.text+0xed): In function `zgmail_':
: undefined reference to `zgmai2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZIPACK.o)(.text+0xdc): In function `zipack_':
: undefined reference to `zipac2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMIO.o)(.text+0x1e0): In function `zmio_':
: undefined reference to `zmi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMOUNT.o)(.text+0x92e): In function `zmount_':
: undefined reference to `zmoun2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMOUNT.o)(.text+0xf83): In function `zmount_':
: undefined reference to `zmoun2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZRENAM.o)(.text+0x7e): In function `zrenam_':
: undefined reference to `zrena2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTAPE.o)(.text+0x25d): In function `ztape_':
: undefined reference to `ztap2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTAPE.o)(.text+0x443): In function `ztape_':
: undefined reference to `ztap2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTAPE.o)(.text+0x4a6): In function `ztape_':
: undefined reference to `ztap2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTAPE.o)(.text+0x53f): In function `ztape_':
: undefined reference to `ztap2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTAPE.o)(.text+0x64a): In function `ztape_':
: undefined reference to `ztap2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTKOPN.o)(.text+0x1f0): In function `ztkopn_':
: undefined reference to `ztkop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
/usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB(ITICS.o)(.text+0x83b): In function `itics_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB(ITICS.o)(.text+0x1336): In function `itics_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB(ITICS.o)(.text+0x1746): In function `itics_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB(ITICS.o)(.text+0x1d0f): In function `itics_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB(ITICS.o)(.text+0x2300): In function `itics_':
: undefined reference to `imanot_'
/usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB(ITICS.o)(.text+0x23fc): In function `itics_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB(OFMDIR.o)(.text+0x38a): In function `ofmdir_':
: undefined reference to `ztxma2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB(OFMDIR.o)(.text+0x546): In function `ofmdir_':
: undefined reference to `ztxma2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZLPCLS.o)(.text+0x157): In function `zlpcls_':
: undefined reference to `zlpcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSLK.o)(.text+0x1f0): In function `zssslk_':
: undefined reference to `zsssl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSOP.o)(.text+0x155): In function `zsssop_':
: undefined reference to `zssso2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTPCLS.o)(.text+0x500): In function `ztpcls_':
: undefined reference to `ztpcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTPMIO.o)(.text+0x329): In function `ztpmio_':
: undefined reference to `ztpmi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTPMIO.o)(.text+0x560): In function `ztpmio_':
: undefined reference to `ztpmid_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTPOPN.o)(.text+0x41b): In function `ztpopn_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTPOPN.o)(.text+0xab7): In function `ztpopn_':
: undefined reference to `ztpop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTPOPN.o)(.text+0xce0): In function `ztpopn_':
: undefined reference to `ztpopd_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTXMAT.o)(.text+0x190): In function `ztxmat_':
: undefined reference to `ztxma2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTXMAT.o)(.text+0x355): In function `ztxmat_':
: undefined reference to `ztxma2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x1a): In function `zsssc2_':
: undefined reference to `buffered'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x23): In function `zsssc2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x2f): In function `zsssc2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x45): In function `zsssc2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x53): In function `zsssc2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x16): In function `zsssx2_':
: undefined reference to `buffered'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x27): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x3c): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x45): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x6e): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x94): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xb3): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xc2): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xce): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xda): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xec): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x10a): more undefined references to `packet_int' follow
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x135): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x15d): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x166): In function `zsssx2_':
: undefined reference to `bufferop'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x173): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x17c): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x19e): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x1c6): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x1cf): In function `zsssx2_':
: undefined reference to `bufferop'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x24d): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x253): In function `zsssx2_':
: undefined reference to `Z_rcvinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2c2): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2d9): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2e4): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2f8): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x31c): In function `zsssx2_':
: undefined reference to `Z_rcvinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x361): In function `zsssx2_':
: undefined reference to `Z_rcvinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x368): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x42f): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x43e): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x452): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x476): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x4bb): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x4c2): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x51c): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x52b): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x53f): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x563): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x5a8): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x5af): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x5bd): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.data+0x0): undefined reference to `packet_int'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/AIPS.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/AIPS.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/AIPS.f
COMLNK    : Date       Tue Jul 22 14:22:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/AJAX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AJAX.f
FC        : Date       Tue Jul 22 14:22:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AJAX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AJAX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AJAX.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:22:00 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/AJAX.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/AJAX.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/AJAX.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCREAT.o)(.text+0x1dc): In function `zcreat_':
: undefined reference to `zcrea2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDESTR.o)(.text+0xc1): In function `zdestr_':
: undefined reference to `zdest2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/AJAX.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/AJAX.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/AJAX.f
COMLNK    : Date       Tue Jul 22 14:22:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/BATER.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BATER.f
FC        : Date       Tue Jul 22 14:22:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BATER.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BATER.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BATER.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:22:02 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/BATER.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/BATER.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/BATER.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(PREAD.o)(.text+0x856): In function `pread_':
: undefined reference to `zprmpt_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(RDUSER.o)(.text+0x98): In function `rduser_':
: undefined reference to `zprmpt_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZACTV8.o)(.text+0x61d): In function `zactv8_':
: undefined reference to `zactv9_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCMPRS.o)(.text+0x124): In function `zcmprs_':
: undefined reference to `zcmpr2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCREAT.o)(.text+0x1dc): In function `zcreat_':
: undefined reference to `zcrea2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDESTR.o)(.text+0xc1): In function `zdestr_':
: undefined reference to `zdest2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZLPCLS.o)(.text+0x157): In function `zlpcls_':
: undefined reference to `zlpcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/BATER.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/BATER.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/BATER.f
COMLNK    : Date       Tue Jul 22 14:22:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/BSTRT1.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BSTRT1.f
FC        : Date       Tue Jul 22 14:22:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BSTRT1.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BSTRT1.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BSTRT1.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:22:04 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/BSTRT1.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/BSTRT1.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/BSTRT1.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZACTV8.o)(.text+0x61d): In function `zactv8_':
: undefined reference to `zactv9_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/BSTRT1.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/BSTRT1.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/BSTRT1.f
COMLNK    : Date       Tue Jul 22 14:22:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/DAIP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DAIP.f
FC        : Date       Tue Jul 22 14:22:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DAIP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DAIP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DAIP.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:22:05 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/DAIP.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/DAIP.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/DAIP.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5A.o)(.text+0x41): In function `au5a_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5A.o)(.text+0x19c): In function `au5a_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5A.o)(.text+0x282): In function `au5a_':
: undefined reference to `tvload_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5A.o)(.text+0x94e): In function `au5a_':
: undefined reference to `tvload_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5A.o)(.text+0xc10): In function `au5a_':
: undefined reference to `tvload_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0xa8): In function `au5b_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x1b3): In function `au5b_':
: undefined reference to `tvfind_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x1e0): In function `au5b_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x316): In function `au5b_':
: undefined reference to `iaxis1_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x6dc): In function `au5b_':
: undefined reference to `tvwher_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x982): In function `au5b_':
: undefined reference to `imanot_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x9ec): In function `au5b_':
: undefined reference to `imanot_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0xab6): In function `au5b_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0xb77): In function `au5b_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x114e): In function `au5b_':
: undefined reference to `tvwher_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x126c): In function `au5b_':
: undefined reference to `tvwher_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x139b): In function `au5b_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x144f): In function `au5b_':
: undefined reference to `tvfind_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x19c1): In function `au5b_':
: undefined reference to `starpl_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x1b0f): In function `au5b_':
: undefined reference to `tvfind_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x227b): In function `au5b_':
: undefined reference to `pntplt_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x23ce): In function `au5b_':
: undefined reference to `tvfind_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5B.o)(.text+0x29ef): In function `au5b_':
: undefined reference to `tvfind_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0xba): In function `au5c_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0x19d): In function `au5c_':
: undefined reference to `tvfind_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0x33b): In function `au5c_':
: undefined reference to `iwedge_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0x370): In function `au5c_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0x40e): In function `au5c_':
: undefined reference to `tvwher_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0x646): In function `au5c_':
: undefined reference to `grboxs_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0x899): In function `au5c_':
: undefined reference to `grboxs_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0xc0d): In function `au5c_':
: undefined reference to `grslic_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0xe25): In function `au5c_':
: undefined reference to `grboxs_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5C.o)(.text+0x18c2): In function `au5c_':
: undefined reference to `grboxs_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5D.o)(.text+0xf9): In function `au5d_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5D.o)(.text+0x1eb): In function `au5d_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5D.o)(.text+0x16bc): In function `au5d_':
: undefined reference to `tvload_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5D.o)(.text+0x1b1e): In function `au5d_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5D.o)(.text+0x1beb): In function `au5d_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5D.o)(.text+0x1d71): In function `au5d_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5D.o)(.text+0x1ec9): In function `au5d_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0xd4): In function `au5e_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0x1d1): In function `au5e_':
: undefined reference to `ofmio_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0x2ec): In function `au5e_':
: undefined reference to `ofmgam_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0x3f2): In function `au5e_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0x668): In function `au5e_':
: undefined reference to `ofmcon_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0x87d): In function `au5e_':
: undefined reference to `ofmio_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0x936): In function `au5e_':
: undefined reference to `ofmmod_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5E.o)(.text+0x990): In function `au5e_':
: undefined reference to `ofmmod_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5.o)(.text+0x41): In function `au5_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5.o)(.text+0xeb): In function `au5_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5.o)(.text+0x13d): In function `au5_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5.o)(.text+0x9ed): In function `au5_':
: undefined reference to `tvwher_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU5.o)(.text+0x1024): In function `au5_':
: undefined reference to `tvfind_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6A.o)(.text+0x146): In function `au6a_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6A.o)(.text+0x399): In function `au6a_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6A.o)(.text+0x4bb): In function `au6a_':
: undefined reference to `ienhns_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6A.o)(.text+0x5df): In function `au6a_':
: undefined reference to `tvblnk_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6A.o)(.text+0xb53): In function `au6a_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6A.o)(.text+0xcd7): In function `au6a_':
: undefined reference to `ienhns_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6B.o)(.text+0x22): In function `au6b_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6B.o)(.text+0x74): In function `au6b_':
: undefined reference to `tvalue_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6B.o)(.text+0x88): In function `au6b_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6C.o)(.text+0x25): In function `au6c_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6C.o)(.text+0x24d): In function `au6c_':
: undefined reference to `tvfidl_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6C.o)(.text+0x261): In function `au6c_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6D.o)(.text+0xcb): In function `au6d_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6D.o)(.text+0x160): In function `au6d_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6D.o)(.text+0xb48): In function `au6d_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6E.o)(.text+0x319): In function `au6e_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6E.o)(.text+0x3fb): In function `au6e_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6E.o)(.text+0x109a): In function `au6e_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6.o)(.text+0x1c7): In function `au6_':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6.o)(.text+0x4af): In function `au6_':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6.o)(.text+0x80b): In function `au6_':
: undefined reference to `tvzome_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6.o)(.text+0x991): In function `au6_':
: undefined reference to `tvscrl_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6.o)(.text+0x9d8): In function `au6_':
: undefined reference to `tvpsud_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(AU6.o)(.text+0xe6b): In function `au6_':
: undefined reference to `tvflam_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRLUTS.o)(.text+0x42c): In function `grluts_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRLUTS.o)(.text+0x596): In function `grluts_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRLUTS.o)(.text+0x689): In function `grluts_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRLUTS.o)(.text+0x73d): In function `grluts_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRLUTS.o)(.text+0x955): In function `grluts_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRLUTS.o)(.text+0x9c4): In function `grluts_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRLUTS.o)(.text+0xaf2): In function `grluts_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x42c): In function `grpoly_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x52d): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x5cf): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x913): In function `grpoly_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x977): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0x9fa): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0xabd): In function `grpoly_':
: undefined reference to `bltfil_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(GRPOLY.o)(.text+0xe20): In function `grpoly_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(HIENH.o)(.text+0x8ad): In function `hienh_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(PREAD.o)(.text+0x856): In function `pread_':
: undefined reference to `zprmpt_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(RLHIST.o)(.text+0xcc): In function `rlhist_':
: undefined reference to `zgrlhi_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(RLHIST.o)(.text+0x116): In function `rlhist_':
: undefined reference to `zgrltc_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(RLHIST.o)(.text+0x24f): In function `rlhist_':
: undefined reference to `zgrlhi_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVLAB.o)(.text+0x3c6): In function `tvlab_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVLAB.o)(.text+0x4e2): In function `tvlab_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVLAB.o)(.text+0x704): In function `tvlab_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVLAB.o)(.text+0x89f): In function `tvlab_':
: undefined reference to `imchar_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVMOVI.o)(.text+0x1422): In function `tvmovi_':
: undefined reference to `ienhns_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVMOVI.o)(.text+0x18e4): In function `tvmovi_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVMOVI.o)(.text+0x19a6): In function `tvmovi_':
: undefined reference to `colorc_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVROAM.o)(.text+0x455): In function `tvroam_':
: undefined reference to `dlintr_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(TVVEC.o)(.text+0x18e): In function `tvvec_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZACTV8.o)(.text+0x61d): In function `zactv8_':
: undefined reference to `zactv9_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCMPRS.o)(.text+0x124): In function `zcmprs_':
: undefined reference to `zcmpr2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCREAT.o)(.text+0x1dc): In function `zcreat_':
: undefined reference to `zcrea2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDESTR.o)(.text+0xc1): In function `zdestr_':
: undefined reference to `zdest2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDIE.o)(.text+0x7b): In function `zdie_':
: undefined reference to `zdie2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZGMAIL.o)(.text+0xed): In function `zgmail_':
: undefined reference to `zgmai2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZIPACK.o)(.text+0xdc): In function `zipack_':
: undefined reference to `zipac2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMIO.o)(.text+0x1e0): In function `zmio_':
: undefined reference to `zmi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMOUNT.o)(.text+0x92e): In function `zmount_':
: undefined reference to `zmoun2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMOUNT.o)(.text+0xf83): In function `zmount_':
: undefined reference to `zmoun2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZRENAM.o)(.text+0x7e): In function `zrenam_':
: undefined reference to `zrena2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTAPE.o)(.text+0x25d): In function `ztape_':
: undefined reference to `ztap2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTAPE.o)(.text+0x443): In function `ztape_':
: undefined reference to `ztap2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTAPE.o)(.text+0x4a6): In function `ztape_':
: undefined reference to `ztap2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTAPE.o)(.text+0x53f): In function `ztape_':
: undefined reference to `ztap2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTAPE.o)(.text+0x64a): In function `ztape_':
: undefined reference to `ztap2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTKOPN.o)(.text+0x1f0): In function `ztkopn_':
: undefined reference to `ztkop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
/usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB(ITICS.o)(.text+0x83b): In function `itics_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB(ITICS.o)(.text+0x1336): In function `itics_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB(ITICS.o)(.text+0x1746): In function `itics_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB(ITICS.o)(.text+0x1d0f): In function `itics_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB(ITICS.o)(.text+0x2300): In function `itics_':
: undefined reference to `imanot_'
/usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB(ITICS.o)(.text+0x23fc): In function `itics_':
: undefined reference to `imvect_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB(OFMDIR.o)(.text+0x38a): In function `ofmdir_':
: undefined reference to `ztxma2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB(OFMDIR.o)(.text+0x546): In function `ofmdir_':
: undefined reference to `ztxma2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZLPCLS.o)(.text+0x157): In function `zlpcls_':
: undefined reference to `zlpcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSLK.o)(.text+0x1f0): In function `zssslk_':
: undefined reference to `zsssl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSOP.o)(.text+0x155): In function `zsssop_':
: undefined reference to `zssso2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTPCLS.o)(.text+0x500): In function `ztpcls_':
: undefined reference to `ztpcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTPMIO.o)(.text+0x329): In function `ztpmio_':
: undefined reference to `ztpmi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTPMIO.o)(.text+0x560): In function `ztpmio_':
: undefined reference to `ztpmid_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTPOPN.o)(.text+0x41b): In function `ztpopn_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTPOPN.o)(.text+0xab7): In function `ztpopn_':
: undefined reference to `ztpop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTPOPN.o)(.text+0xce0): In function `ztpopn_':
: undefined reference to `ztpopd_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTXMAT.o)(.text+0x190): In function `ztxmat_':
: undefined reference to `ztxma2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTXMAT.o)(.text+0x355): In function `ztxmat_':
: undefined reference to `ztxma2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x1a): In function `zsssc2_':
: undefined reference to `buffered'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x23): In function `zsssc2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x2f): In function `zsssc2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x45): In function `zsssc2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSC2.o)(.text+0x53): In function `zsssc2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x16): In function `zsssx2_':
: undefined reference to `buffered'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x27): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x3c): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x45): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x6e): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x94): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xb3): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xc2): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xce): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xda): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0xec): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x10a): more undefined references to `packet_int' follow
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x135): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x15d): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x166): In function `zsssx2_':
: undefined reference to `bufferop'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x173): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x17c): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x19e): In function `zsssx2_':
: undefined reference to `packet_int'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x1c6): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x1cf): In function `zsssx2_':
: undefined reference to `bufferop'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x24d): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x253): In function `zsssx2_':
: undefined reference to `Z_rcvinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2c2): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2d9): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2e4): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x2f8): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x31c): In function `zsssx2_':
: undefined reference to `Z_rcvinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x361): In function `zsssx2_':
: undefined reference to `Z_rcvinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x368): In function `zsssx2_':
: undefined reference to `Z_rcvbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x42f): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x43e): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x452): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x476): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x4bb): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x4c2): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x51c): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x52b): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x53f): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x563): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x5a8): In function `zsssx2_':
: undefined reference to `Z_sndinis'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x5af): In function `zsssx2_':
: undefined reference to `Z_sndbufs'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.text+0x5bd): In function `zsssx2_':
: undefined reference to `pack_offset'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZSSSX2.o)(.data+0x0): undefined reference to `packet_int'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/DAIP.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/DAIP.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/DAIP.f
COMLNK    : Date       Tue Jul 22 14:22:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/FILAI2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FILAI2.f
FC        : Date       Tue Jul 22 14:22:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILAI2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILAI2.f
/usr/local/aips/31DEC03/LINUX/PREP/FILAI2.f: In program `filai2':
/usr/local/aips/31DEC03/LINUX/PREP/FILAI2.f:44: warning: unused variable `imawin'
/usr/local/aips/31DEC03/LINUX/PREP/FILAI2.f:42: warning: `nrec' might be used uninitialized in this function
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FILAI2.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:22:07 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/FILAI2.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/FILAI2.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/FILAI2.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCREAT.o)(.text+0x1dc): In function `zcreat_':
: undefined reference to `zcrea2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDESTR.o)(.text+0xc1): In function `zdestr_':
: undefined reference to `zdest2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/FILAI2.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/FILAI2.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/FILAI2.f
COMLNK    : Date       Tue Jul 22 14:22:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/FILAIP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FILAIP.f
FC        : Date       Tue Jul 22 14:22:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILAIP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILAIP.f
/usr/local/aips/31DEC03/LINUX/PREP/FILAIP.f: In program `filaip':
/usr/local/aips/31DEC03/LINUX/PREP/FILAIP.f:39: warning: unused variable `imawin'
/usr/local/aips/31DEC03/LINUX/PREP/FILAIP.f:36: warning: unused variable `tvdisk'
/usr/local/aips/31DEC03/LINUX/PREP/FILAIP.f:38: warning: `nrec' might be used uninitialized in this function
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FILAIP.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:22:09 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/FILAIP.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/FILAIP.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/FILAIP.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCREAT.o)(.text+0x1dc): In function `zcreat_':
: undefined reference to `zcrea2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/FILAIP.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/FILAIP.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/FILAIP.f
COMLNK    : Date       Tue Jul 22 14:22:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/FILINI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FILINI.f
FC        : Date       Tue Jul 22 14:22:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILINI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILINI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FILINI.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:22:11 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/FILINI.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/FILINI.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/FILINI.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCMPRS.o)(.text+0x124): In function `zcmprs_':
: undefined reference to `zcmpr2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCREAT.o)(.text+0x1dc): In function `zcreat_':
: undefined reference to `zcrea2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDESTR.o)(.text+0xc1): In function `zdestr_':
: undefined reference to `zdest2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/FILINI.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/FILINI.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/FILINI.f
COMLNK    : Date       Tue Jul 22 14:22:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/GRIPR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GRIPR.f
FC        : Date       Tue Jul 22 14:22:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRIPR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRIPR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GRIPR.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:22:13 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/GRIPR.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/GRIPR.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/GRIPR.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(PREAD.o)(.text+0x856): In function `pread_':
: undefined reference to `zprmpt_'
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(RDUSER.o)(.text+0x98): In function `rduser_':
: undefined reference to `zprmpt_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCMPRS.o)(.text+0x124): In function `zcmprs_':
: undefined reference to `zcmpr2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCREAT.o)(.text+0x1dc): In function `zcreat_':
: undefined reference to `zcrea2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZGMAIL.o)(.text+0xed): In function `zgmail_':
: undefined reference to `zgmai2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZLPCLS.o)(.text+0x157): In function `zlpcls_':
: undefined reference to `zlpcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/GRIPR.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/GRIPR.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/GRIPR.f
COMLNK    : Date       Tue Jul 22 14:22:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/POPSGN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/POPSGN.f
FC        : Date       Tue Jul 22 14:22:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/POPSGN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/POPSGN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/POPSGN.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:22:14 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/POPSGN.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/POPSGN.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/POPSGN.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB(PREAD.o)(.text+0x856): In function `pread_':
: undefined reference to `zprmpt_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCREAT.o)(.text+0x1dc): In function `zcreat_':
: undefined reference to `zcrea2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDESTR.o)(.text+0xc1): In function `zdestr_':
: undefined reference to `zdest2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTXMAT.o)(.text+0x190): In function `ztxmat_':
: undefined reference to `ztxma2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTXMAT.o)(.text+0x355): In function `ztxmat_':
: undefined reference to `ztxma2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/POPSGN.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/POPSGN.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/POPSGN.f
COMLNK    : Date       Tue Jul 22 14:22:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/QMNGR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QMNGR.f
FC        : Date       Tue Jul 22 14:22:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMNGR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMNGR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QMNGR.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:22:16 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/QMNGR.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/QMNGR.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/QMNGR.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZACTV8.o)(.text+0x61d): In function `zactv8_':
: undefined reference to `zactv9_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDIE.o)(.text+0x7b): In function `zdie_':
: undefined reference to `zdie2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/QMNGR.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/QMNGR.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/QMNGR.f
COMLNK    : Date       Tue Jul 22 14:22:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/RECAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RECAT.f
FC        : Date       Tue Jul 22 14:22:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RECAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RECAT.f
/usr/local/aips/31DEC03/LINUX/PREP/RECAT.f: In subroutine `catins':
/usr/local/aips/31DEC03/LINUX/PREP/RECAT.f:432: warning: unused variable `f'
/usr/local/aips/31DEC03/LINUX/PREP/RECAT.f:432: warning: unused variable `t'
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RECAT.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:22:17 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/RECAT.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/RECAT.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/RECAT.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZCREAT.o)(.text+0x1dc): In function `zcreat_':
: undefined reference to `zcrea2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZDESTR.o)(.text+0xc1): In function `zdestr_':
: undefined reference to `zdest2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/RECAT.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/RECAT.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/RECAT.f
COMLNK    : Date       Tue Jul 22 14:22:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/SETSP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SETSP.f
FC        : Date       Tue Jul 22 14:22:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETSP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETSP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SETSP.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:22:19 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/SETSP.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/SETSP.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/SETSP.EXE
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/SETSP.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/SETSP.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/SETSP.f
COMLNK    : Date       Tue Jul 22 14:22:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/PGM/SETTVP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SETTVP.f
FC        : Date       Tue Jul 22 14:22:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETTVP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETTVP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SETTVP.f
FC        : ends successfully.
LINK      : Date is... Tue Jul 22 14:22:21 CDT 2003
LINK      : Interpret  LINK \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/SETTVP.o
LINK      : as         PURGE=TRUE REPLACE=TRUE SAVE=TRUE STRIP=TRUE
LINK      : plus       /usr/local/bin/g77 \
LINK      :            /usr/local/aips/31DEC03/LINUX/PREP/SETTVP.o \
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB \ 
LINK      :            /usr/local/aips/31DEC03/LINUX/LIBR/GNU/libreadline.a \ 
LINK      :            -lncurses \ 
LINK      :             -s \
LINK      :            -o /usr/local/aips/31DEC03/LINUX/PREP/SETTVP.EXE
/usr/local/aips/31DEC03/LINUX/PREP/SETTVP.o(.text+0x5a0): In function `MAIN__':
: undefined reference to `tvopen_'
/usr/local/aips/31DEC03/LINUX/PREP/SETTVP.o(.text+0x5d4): In function `MAIN__':
: undefined reference to `tvclos_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFIO.o)(.text+0x17a): In function `zfio_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZOPEN.o)(.text+0x45e): In function `zopen_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTCLS.o)(.text+0x6b): In function `zttcls_':
: undefined reference to `zttcl2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x23f): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x3a0): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTOPN.o)(.text+0x4d5): In function `zttopn_':
: undefined reference to `zttop2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTTYIO.o)(.text+0x429): In function `zttyio_':
: undefined reference to `zttyi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZTRLOG.o)(.text+0xff): In function `ztrlog_':
: undefined reference to `ztrlo2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGDK.o)(.text+0x106): In function `zmsgdk_':
: undefined reference to `zfi2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGOP.o)(.text+0x41b): In function `zmsgop_':
: undefined reference to `zdaopn_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x15e): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZMSGXP.o)(.text+0x1ce): In function `zmsgxp_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZABORT.o)(.text+0x85): In function `zabort_':
: undefined reference to `zabor2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZEXIST.o)(.text+0x139): In function `zexist_':
: undefined reference to `zexis2_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x221): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x490): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x4bb): In function `zfulln_':
: undefined reference to `zmktmp_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZFULLN.o)(.text+0x544): In function `zfulln_':
: undefined reference to `zpath_'
/usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB(ZBFLIP.o)(.text+0x6c): In function `zbflip_':
: undefined reference to `zbfli2_'
collect2: ld returned 1 exit status
LINK      : Status from /usr/local/bin/g77 is 1
LINK      : Link of    /usr/local/aips/31DEC03/LINUX/PREP/SETTVP.o
LINK      : dies from wimpy compiler
COMLNK    : Link failed!
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/SETTVP.o
COMLNK    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/SETTVP.f
INSTEP4    : Failure in $AIPPGM/...
INSTEP4    : compiling/linking.
INSTEP4    : Dies of unnatural causes at Tue Jul 22 14:22:22 CDT 2003
-------------- next part --------------
INSTEP2   : Begins     Fri Jul 18 16:53:48 CDT 2003

INSTEP2   : Create any missing binary file directories.

INSTEP2   : Directory /usr/local/aips/31DEC03/LINUX/LIBR
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
INSTEP2   : created.
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
INSTEP2   : created.
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLNOT
INSTEP2   : created.
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
INSTEP2   : created.
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
INSTEP2   : created.
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
INSTEP2   : created.
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QOOP
INSTEP2   : created.
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
INSTEP2   : created.
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QSUB
INSTEP2   : created.
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
INSTEP2   : created.
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/YSS
INSTEP2   : created.
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/YSUB
INSTEP2   : created.
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LOAD
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/MEMORY
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/ERRORS
INSTEP2   : already exists (no need to create).

INSTEP2   : Grind away on mass compilation of subroutines.
INSTEP2   : This part can take a very long time.

INSTEP2   : Process    $AIPSUB/...
INSTEP2   : subroutines.
MAKEAT    : Making     AIPSUB.LIS
INSTEP2   : Begin      $AIPSUB/...
INSTEP2   : compilations of
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/ADVERB.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/ADVRBS.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/ASSGN.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU1A.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU1.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU2A.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU2.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU3A.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU3B.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU3.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU4.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU5A.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU5B.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU5C.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU5D.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU5E.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU5.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU6A.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU6B.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU6C.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU6D.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU6E.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU6.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU7A.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU7B.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU7.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU8A.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU8.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU9A.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU9B.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU9C.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AU9.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AUA.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AUB.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AUC.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/AUT.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/BBUILD.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/BCLEAN.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/CATCR.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/CATLST.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/CHGRIP.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/CHUNT.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/COMPIL.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/CONCAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/CONFRM.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/CUBINT.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/DESCR.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/EDITOR.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/EQUIV.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/FWRITE.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/GETFLD.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/GETNME.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/GRLUTS.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/GRPOLY.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/HELPS.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/HIENH.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/HILUT.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/HUNT.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/INIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/K2TEXT.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/KILSRV.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/KWICK.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/KWIKHD.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/LLOCAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/LTSTOR.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/MASSGN.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/MSGHDR.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/OERROR.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/OFMLST.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/PASSGN.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/PFIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/POLISH.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/POP.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/PREAD.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/PRINTR.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/PRTALN.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/PRTMSG.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/PSEUDO.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/PUSH.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/RDUSER.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/RENUMB.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/RLHIST.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/RLOCAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/SCHOLD.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/SET1DG.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/SETTYP.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/SGLAST.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/SGLOCA.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/SLOCIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/STORES.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/SUBS.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/SYMBOL.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TAPSHO.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TASKWT.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TBDATA.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TBHEAD.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TKGGPL.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TKGMPL.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TKRSPL.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TKSLAC.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TKSLPL.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TVLAB.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TVMOVI.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TVROAM.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TVSLAC.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TVSLIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TVSLPL.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/TVVEC.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/UINIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/UWRITE.FOR
INSTEP2   : /usr/local/aips/31DEC03/AIPS/SUB/VERSTR.FOR
COMRPL    : Date       Fri Jul 18 16:53:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/ADVERB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ADVERB.f
FC        : Date       Fri Jul 18 16:53:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ADVERB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ADVERB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ADVERB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ADVERB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ADVERB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/ADVERB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/ADVERB.FOR
COMRPL    : Date       Fri Jul 18 16:53:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/ADVRBS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ADVRBS.f
FC        : Date       Fri Jul 18 16:53:52 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ADVRBS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ADVRBS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ADVRBS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ADVRBS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ADVRBS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/ADVRBS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/ADVRBS.FOR
COMRPL    : Date       Fri Jul 18 16:53:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/ASSGN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ASSGN.f
FC        : Date       Fri Jul 18 16:53:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ASSGN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ASSGN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ASSGN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ASSGN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ASSGN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/ASSGN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/ASSGN.FOR
COMRPL    : Date       Fri Jul 18 16:53:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU1A.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU1A.f
FC        : Date       Fri Jul 18 16:53:54 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU1A.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU1A.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU1A.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU1A.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU1A.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU1A.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU1A.FOR
COMRPL    : Date       Fri Jul 18 16:53:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU1.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU1.f
FC        : Date       Fri Jul 18 16:53:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU1.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU1.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU1.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU1.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU1.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU1.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU1.FOR
COMRPL    : Date       Fri Jul 18 16:53:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU2A.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU2A.f
FC        : Date       Fri Jul 18 16:53:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU2A.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU2A.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU2A.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU2A.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU2A.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU2A.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU2A.FOR
COMRPL    : Date       Fri Jul 18 16:53:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU2.f
FC        : Date       Fri Jul 18 16:53:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU2.FOR
COMRPL    : Date       Fri Jul 18 16:53:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU3A.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU3A.f
FC        : Date       Fri Jul 18 16:53:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU3A.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU3A.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU3A.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU3A.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU3A.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU3A.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU3A.FOR
COMRPL    : Date       Fri Jul 18 16:53:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU3B.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU3B.f
FC        : Date       Fri Jul 18 16:54:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU3B.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU3B.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU3B.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU3B.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU3B.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU3B.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU3B.FOR
COMRPL    : Date       Fri Jul 18 16:54:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU3.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU3.f
FC        : Date       Fri Jul 18 16:54:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU3.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU3.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU3.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU3.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU3.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU3.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU3.FOR
COMRPL    : Date       Fri Jul 18 16:54:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU4.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU4.f
FC        : Date       Fri Jul 18 16:54:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU4.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU4.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU4.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU4.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU4.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU4.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU4.FOR
COMRPL    : Date       Fri Jul 18 16:54:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU5A.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU5A.f
FC        : Date       Fri Jul 18 16:54:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU5A.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU5A.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU5A.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU5A.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU5A.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU5A.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU5A.FOR
COMRPL    : Date       Fri Jul 18 16:54:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU5B.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU5B.f
FC        : Date       Fri Jul 18 16:54:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU5B.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU5B.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU5B.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU5B.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU5B.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU5B.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU5B.FOR
COMRPL    : Date       Fri Jul 18 16:54:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU5C.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU5C.f
FC        : Date       Fri Jul 18 16:54:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU5C.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU5C.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU5C.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU5C.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU5C.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU5C.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU5C.FOR
COMRPL    : Date       Fri Jul 18 16:54:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU5D.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU5D.f
FC        : Date       Fri Jul 18 16:54:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU5D.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU5D.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU5D.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU5D.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU5D.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU5D.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU5D.FOR
COMRPL    : Date       Fri Jul 18 16:54:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU5E.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU5E.f
FC        : Date       Fri Jul 18 16:54:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU5E.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU5E.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU5E.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU5E.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU5E.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU5E.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU5E.FOR
COMRPL    : Date       Fri Jul 18 16:54:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU5.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU5.f
FC        : Date       Fri Jul 18 16:54:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU5.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU5.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU5.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU5.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU5.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU5.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU5.FOR
COMRPL    : Date       Fri Jul 18 16:54:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU6A.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU6A.f
FC        : Date       Fri Jul 18 16:54:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU6A.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU6A.f
/usr/local/aips/31DEC03/LINUX/PREP/AU6A.f: In subroutine `au6a':
/usr/local/aips/31DEC03/LINUX/PREP/AU6A.f:47: warning: unused variable `icbs'
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU6A.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU6A.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU6A.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU6A.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU6A.FOR
COMRPL    : Date       Fri Jul 18 16:54:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU6B.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU6B.f
FC        : Date       Fri Jul 18 16:54:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU6B.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU6B.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU6B.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU6B.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU6B.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU6B.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU6B.FOR
COMRPL    : Date       Fri Jul 18 16:54:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU6C.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU6C.f
FC        : Date       Fri Jul 18 16:54:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU6C.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU6C.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU6C.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU6C.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU6C.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU6C.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU6C.FOR
COMRPL    : Date       Fri Jul 18 16:54:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU6D.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU6D.f
FC        : Date       Fri Jul 18 16:54:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU6D.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU6D.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU6D.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU6D.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU6D.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU6D.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU6D.FOR
COMRPL    : Date       Fri Jul 18 16:54:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU6E.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU6E.f
FC        : Date       Fri Jul 18 16:54:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU6E.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU6E.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU6E.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU6E.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU6E.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU6E.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU6E.FOR
COMRPL    : Date       Fri Jul 18 16:54:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU6.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU6.f
FC        : Date       Fri Jul 18 16:54:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU6.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU6.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU6.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU6.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU6.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU6.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU6.FOR
COMRPL    : Date       Fri Jul 18 16:54:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU7A.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU7A.f
FC        : Date       Fri Jul 18 16:54:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU7A.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU7A.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU7A.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU7A.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU7A.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU7A.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU7A.FOR
COMRPL    : Date       Fri Jul 18 16:54:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU7B.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU7B.f
FC        : Date       Fri Jul 18 16:54:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU7B.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU7B.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU7B.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU7B.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU7B.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU7B.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU7B.FOR
COMRPL    : Date       Fri Jul 18 16:54:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU7.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU7.f
FC        : Date       Fri Jul 18 16:54:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU7.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU7.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU7.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU7.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU7.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU7.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU7.FOR
COMRPL    : Date       Fri Jul 18 16:54:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU8A.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU8A.f
FC        : Date       Fri Jul 18 16:54:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU8A.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU8A.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU8A.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU8A.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU8A.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU8A.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU8A.FOR
COMRPL    : Date       Fri Jul 18 16:54:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU8.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU8.f
FC        : Date       Fri Jul 18 16:54:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU8.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU8.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU8.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU8.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU8.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU8.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU8.FOR
COMRPL    : Date       Fri Jul 18 16:54:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU9A.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU9A.f
FC        : Date       Fri Jul 18 16:54:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU9A.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU9A.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU9A.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU9A.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU9A.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU9A.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU9A.FOR
COMRPL    : Date       Fri Jul 18 16:54:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU9B.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU9B.f
FC        : Date       Fri Jul 18 16:54:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU9B.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU9B.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU9B.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU9B.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU9B.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU9B.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU9B.FOR
COMRPL    : Date       Fri Jul 18 16:54:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU9C.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU9C.f
FC        : Date       Fri Jul 18 16:54:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU9C.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU9C.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU9C.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU9C.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU9C.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU9C.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU9C.FOR
COMRPL    : Date       Fri Jul 18 16:54:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AU9.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AU9.f
FC        : Date       Fri Jul 18 16:54:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU9.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AU9.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AU9.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AU9.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AU9.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AU9.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AU9.FOR
COMRPL    : Date       Fri Jul 18 16:54:30 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AUA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AUA.f
FC        : Date       Fri Jul 18 16:54:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AUA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AUA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AUA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AUA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AUA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AUA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AUA.FOR
COMRPL    : Date       Fri Jul 18 16:54:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AUB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AUB.f
FC        : Date       Fri Jul 18 16:54:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AUB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AUB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AUB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AUB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AUB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AUB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AUB.FOR
COMRPL    : Date       Fri Jul 18 16:54:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AUC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AUC.f
FC        : Date       Fri Jul 18 16:54:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AUC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AUC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AUC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AUC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AUC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AUC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AUC.FOR
COMRPL    : Date       Fri Jul 18 16:54:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/AUT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AUT.f
FC        : Date       Fri Jul 18 16:54:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AUT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AUT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AUT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AUT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AUT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/AUT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/AUT.FOR
COMRPL    : Date       Fri Jul 18 16:54:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/BBUILD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BBUILD.f
FC        : Date       Fri Jul 18 16:54:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BBUILD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BBUILD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BBUILD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BBUILD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BBUILD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/BBUILD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/BBUILD.FOR
COMRPL    : Date       Fri Jul 18 16:54:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/BCLEAN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BCLEAN.f
FC        : Date       Fri Jul 18 16:54:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BCLEAN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BCLEAN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BCLEAN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BCLEAN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BCLEAN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/BCLEAN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/BCLEAN.FOR
COMRPL    : Date       Fri Jul 18 16:54:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/CATCR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CATCR.f
FC        : Date       Fri Jul 18 16:54:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATCR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATCR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CATCR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CATCR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CATCR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/CATCR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/CATCR.FOR
COMRPL    : Date       Fri Jul 18 16:54:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/CATLST.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CATLST.f
FC        : Date       Fri Jul 18 16:54:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATLST.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATLST.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CATLST.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CATLST.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CATLST.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/CATLST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/CATLST.FOR
COMRPL    : Date       Fri Jul 18 16:54:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/CHGRIP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHGRIP.f
FC        : Date       Fri Jul 18 16:54:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHGRIP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHGRIP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHGRIP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHGRIP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHGRIP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/CHGRIP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/CHGRIP.FOR
COMRPL    : Date       Fri Jul 18 16:54:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/CHUNT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHUNT.f
FC        : Date       Fri Jul 18 16:54:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHUNT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHUNT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHUNT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHUNT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHUNT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/CHUNT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/CHUNT.FOR
COMRPL    : Date       Fri Jul 18 16:54:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/COMPIL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/COMPIL.f
FC        : Date       Fri Jul 18 16:54:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/COMPIL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/COMPIL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/COMPIL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/COMPIL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/COMPIL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/COMPIL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/COMPIL.FOR
COMRPL    : Date       Fri Jul 18 16:54:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/CONCAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CONCAT.f
FC        : Date       Fri Jul 18 16:54:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONCAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONCAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CONCAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CONCAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CONCAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/CONCAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/CONCAT.FOR
COMRPL    : Date       Fri Jul 18 16:54:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/CONFRM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CONFRM.f
FC        : Date       Fri Jul 18 16:54:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONFRM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONFRM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CONFRM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CONFRM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CONFRM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/CONFRM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/CONFRM.FOR
COMRPL    : Date       Fri Jul 18 16:54:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/CUBINT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CUBINT.f
FC        : Date       Fri Jul 18 16:54:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CUBINT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CUBINT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CUBINT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CUBINT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CUBINT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/CUBINT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/CUBINT.FOR
COMRPL    : Date       Fri Jul 18 16:54:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/DESCR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DESCR.f
FC        : Date       Fri Jul 18 16:54:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DESCR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DESCR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DESCR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DESCR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DESCR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/DESCR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/DESCR.FOR
COMRPL    : Date       Fri Jul 18 16:54:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/EDITOR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/EDITOR.f
FC        : Date       Fri Jul 18 16:54:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EDITOR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EDITOR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/EDITOR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/EDITOR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/EDITOR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/EDITOR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/EDITOR.FOR
COMRPL    : Date       Fri Jul 18 16:54:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/EQUIV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/EQUIV.f
FC        : Date       Fri Jul 18 16:54:48 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EQUIV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EQUIV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/EQUIV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/EQUIV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/EQUIV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/EQUIV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/EQUIV.FOR
COMRPL    : Date       Fri Jul 18 16:54:48 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/FWRITE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FWRITE.f
FC        : Date       Fri Jul 18 16:54:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FWRITE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FWRITE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FWRITE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FWRITE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FWRITE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/FWRITE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/FWRITE.FOR
COMRPL    : Date       Fri Jul 18 16:54:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/GETFLD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GETFLD.f
FC        : Date       Fri Jul 18 16:54:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETFLD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETFLD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GETFLD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GETFLD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GETFLD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/GETFLD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/GETFLD.FOR
COMRPL    : Date       Fri Jul 18 16:54:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/GETNME.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GETNME.f
FC        : Date       Fri Jul 18 16:54:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETNME.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETNME.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GETNME.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GETNME.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GETNME.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/GETNME.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/GETNME.FOR
COMRPL    : Date       Fri Jul 18 16:54:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/GRLUTS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GRLUTS.f
FC        : Date       Fri Jul 18 16:54:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRLUTS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRLUTS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GRLUTS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GRLUTS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GRLUTS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/GRLUTS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/GRLUTS.FOR
COMRPL    : Date       Fri Jul 18 16:54:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/GRPOLY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GRPOLY.f
FC        : Date       Fri Jul 18 16:54:52 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRPOLY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRPOLY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GRPOLY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GRPOLY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GRPOLY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/GRPOLY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/GRPOLY.FOR
COMRPL    : Date       Fri Jul 18 16:54:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/HELPS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HELPS.f
FC        : Date       Fri Jul 18 16:54:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HELPS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HELPS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HELPS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HELPS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HELPS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/HELPS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/HELPS.FOR
COMRPL    : Date       Fri Jul 18 16:54:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/HIENH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HIENH.f
FC        : Date       Fri Jul 18 16:54:54 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIENH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIENH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HIENH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HIENH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HIENH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/HIENH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/HIENH.FOR
COMRPL    : Date       Fri Jul 18 16:54:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/HILUT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HILUT.f
FC        : Date       Fri Jul 18 16:54:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HILUT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HILUT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HILUT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HILUT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HILUT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/HILUT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/HILUT.FOR
COMRPL    : Date       Fri Jul 18 16:54:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/HUNT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HUNT.f
FC        : Date       Fri Jul 18 16:54:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HUNT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HUNT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HUNT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HUNT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HUNT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/HUNT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/HUNT.FOR
COMRPL    : Date       Fri Jul 18 16:54:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/INIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/INIT.f
FC        : Date       Fri Jul 18 16:54:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/INIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/INIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/INIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/INIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/INIT.FOR
COMRPL    : Date       Fri Jul 18 16:54:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/K2TEXT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/K2TEXT.f
FC        : Date       Fri Jul 18 16:54:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/K2TEXT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/K2TEXT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/K2TEXT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/K2TEXT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/K2TEXT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/K2TEXT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/K2TEXT.FOR
COMRPL    : Date       Fri Jul 18 16:54:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/KILSRV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/KILSRV.f
FC        : Date       Fri Jul 18 16:54:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/KILSRV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/KILSRV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/KILSRV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/KILSRV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/KILSRV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/KILSRV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/KILSRV.FOR
COMRPL    : Date       Fri Jul 18 16:54:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/KWICK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/KWICK.f
FC        : Date       Fri Jul 18 16:55:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/KWICK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/KWICK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/KWICK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/KWICK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/KWICK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/KWICK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/KWICK.FOR
COMRPL    : Date       Fri Jul 18 16:55:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/KWIKHD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/KWIKHD.f
FC        : Date       Fri Jul 18 16:55:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/KWIKHD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/KWIKHD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/KWIKHD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/KWIKHD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/KWIKHD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/KWIKHD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/KWIKHD.FOR
COMRPL    : Date       Fri Jul 18 16:55:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/LLOCAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LLOCAT.f
FC        : Date       Fri Jul 18 16:55:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LLOCAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LLOCAT.f
/usr/local/aips/31DEC03/LINUX/PREP/LLOCAT.f: In function `llocat':
/usr/local/aips/31DEC03/LINUX/PREP/LLOCAT.f:1: warning: `llocat' might be used uninitialized in this function
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LLOCAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LLOCAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LLOCAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/LLOCAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/LLOCAT.FOR
COMRPL    : Date       Fri Jul 18 16:55:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/LTSTOR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LTSTOR.f
FC        : Date       Fri Jul 18 16:55:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LTSTOR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LTSTOR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LTSTOR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LTSTOR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LTSTOR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/LTSTOR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/LTSTOR.FOR
COMRPL    : Date       Fri Jul 18 16:55:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/MASSGN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MASSGN.f
FC        : Date       Fri Jul 18 16:55:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MASSGN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MASSGN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MASSGN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MASSGN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MASSGN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/MASSGN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/MASSGN.FOR
COMRPL    : Date       Fri Jul 18 16:55:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/MSGHDR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MSGHDR.f
FC        : Date       Fri Jul 18 16:55:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MSGHDR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MSGHDR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MSGHDR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MSGHDR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MSGHDR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/MSGHDR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/MSGHDR.FOR
COMRPL    : Date       Fri Jul 18 16:55:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/OERROR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/OERROR.f
FC        : Date       Fri Jul 18 16:55:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OERROR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OERROR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/OERROR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/OERROR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/OERROR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/OERROR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/OERROR.FOR
COMRPL    : Date       Fri Jul 18 16:55:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/OFMLST.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/OFMLST.f
FC        : Date       Fri Jul 18 16:55:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OFMLST.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OFMLST.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/OFMLST.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/OFMLST.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/OFMLST.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/OFMLST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/OFMLST.FOR
COMRPL    : Date       Fri Jul 18 16:55:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/PASSGN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PASSGN.f
FC        : Date       Fri Jul 18 16:55:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PASSGN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PASSGN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PASSGN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PASSGN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PASSGN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/PASSGN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/PASSGN.FOR
COMRPL    : Date       Fri Jul 18 16:55:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/PFIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PFIT.f
FC        : Date       Fri Jul 18 16:55:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PFIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PFIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PFIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PFIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PFIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/PFIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/PFIT.FOR
COMRPL    : Date       Fri Jul 18 16:55:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/POLISH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/POLISH.f
FC        : Date       Fri Jul 18 16:55:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/POLISH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/POLISH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/POLISH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/POLISH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/POLISH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/POLISH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/POLISH.FOR
COMRPL    : Date       Fri Jul 18 16:55:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/POP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/POP.f
FC        : Date       Fri Jul 18 16:55:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/POP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/POP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/POP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/POP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/POP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/POP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/POP.FOR
COMRPL    : Date       Fri Jul 18 16:55:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/PREAD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PREAD.f
FC        : Date       Fri Jul 18 16:55:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PREAD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PREAD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PREAD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PREAD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PREAD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/PREAD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/PREAD.FOR
COMRPL    : Date       Fri Jul 18 16:55:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/PRINTR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PRINTR.f
FC        : Date       Fri Jul 18 16:55:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRINTR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRINTR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PRINTR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PRINTR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PRINTR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/PRINTR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/PRINTR.FOR
COMRPL    : Date       Fri Jul 18 16:55:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/PRTALN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PRTALN.f
FC        : Date       Fri Jul 18 16:55:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRTALN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRTALN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PRTALN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PRTALN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PRTALN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/PRTALN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/PRTALN.FOR
COMRPL    : Date       Fri Jul 18 16:55:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/PRTMSG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PRTMSG.f
FC        : Date       Fri Jul 18 16:55:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRTMSG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRTMSG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PRTMSG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PRTMSG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PRTMSG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/PRTMSG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/PRTMSG.FOR
COMRPL    : Date       Fri Jul 18 16:55:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/PSEUDO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PSEUDO.f
FC        : Date       Fri Jul 18 16:55:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PSEUDO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PSEUDO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PSEUDO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PSEUDO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PSEUDO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/PSEUDO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/PSEUDO.FOR
COMRPL    : Date       Fri Jul 18 16:55:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/PUSH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PUSH.f
FC        : Date       Fri Jul 18 16:55:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PUSH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PUSH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PUSH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PUSH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PUSH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/PUSH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/PUSH.FOR
COMRPL    : Date       Fri Jul 18 16:55:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/RDUSER.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RDUSER.f
FC        : Date       Fri Jul 18 16:55:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RDUSER.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RDUSER.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RDUSER.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RDUSER.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RDUSER.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/RDUSER.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/RDUSER.FOR
COMRPL    : Date       Fri Jul 18 16:55:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/RENUMB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RENUMB.f
FC        : Date       Fri Jul 18 16:55:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RENUMB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RENUMB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RENUMB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RENUMB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RENUMB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/RENUMB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/RENUMB.FOR
COMRPL    : Date       Fri Jul 18 16:55:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/RLHIST.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RLHIST.f
FC        : Date       Fri Jul 18 16:55:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RLHIST.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RLHIST.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RLHIST.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RLHIST.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RLHIST.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/RLHIST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/RLHIST.FOR
COMRPL    : Date       Fri Jul 18 16:55:19 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/RLOCAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RLOCAT.f
FC        : Date       Fri Jul 18 16:55:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RLOCAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RLOCAT.f
/usr/local/aips/31DEC03/LINUX/PREP/RLOCAT.f: In function `rlocat':
/usr/local/aips/31DEC03/LINUX/PREP/RLOCAT.f:1: warning: `rlocat' might be used uninitialized in this function
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RLOCAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RLOCAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RLOCAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/RLOCAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/RLOCAT.FOR
COMRPL    : Date       Fri Jul 18 16:55:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/SCHOLD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SCHOLD.f
FC        : Date       Fri Jul 18 16:55:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SCHOLD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SCHOLD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SCHOLD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SCHOLD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SCHOLD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/SCHOLD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/SCHOLD.FOR
COMRPL    : Date       Fri Jul 18 16:55:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/SET1DG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SET1DG.f
FC        : Date       Fri Jul 18 16:55:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SET1DG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SET1DG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SET1DG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SET1DG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SET1DG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/SET1DG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/SET1DG.FOR
COMRPL    : Date       Fri Jul 18 16:55:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/SETTYP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SETTYP.f
FC        : Date       Fri Jul 18 16:55:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETTYP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETTYP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SETTYP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SETTYP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SETTYP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/SETTYP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/SETTYP.FOR
COMRPL    : Date       Fri Jul 18 16:55:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/SGLAST.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SGLAST.f
FC        : Date       Fri Jul 18 16:55:23 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SGLAST.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SGLAST.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SGLAST.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SGLAST.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SGLAST.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/SGLAST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/SGLAST.FOR
COMRPL    : Date       Fri Jul 18 16:55:23 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/SGLOCA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SGLOCA.f
FC        : Date       Fri Jul 18 16:55:23 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SGLOCA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SGLOCA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SGLOCA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SGLOCA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SGLOCA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/SGLOCA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/SGLOCA.FOR
COMRPL    : Date       Fri Jul 18 16:55:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/SLOCIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SLOCIN.f
FC        : Date       Fri Jul 18 16:55:24 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SLOCIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SLOCIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SLOCIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SLOCIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SLOCIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/SLOCIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/SLOCIN.FOR
COMRPL    : Date       Fri Jul 18 16:55:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/STORES.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/STORES.f
FC        : Date       Fri Jul 18 16:55:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STORES.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STORES.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/STORES.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/STORES.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/STORES.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/STORES.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/STORES.FOR
COMRPL    : Date       Fri Jul 18 16:55:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/SUBS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SUBS.f
FC        : Date       Fri Jul 18 16:55:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SUBS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SUBS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SUBS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SUBS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SUBS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/SUBS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/SUBS.FOR
COMRPL    : Date       Fri Jul 18 16:55:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/SYMBOL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SYMBOL.f
FC        : Date       Fri Jul 18 16:55:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SYMBOL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SYMBOL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SYMBOL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SYMBOL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SYMBOL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/SYMBOL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/SYMBOL.FOR
COMRPL    : Date       Fri Jul 18 16:55:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TAPSHO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TAPSHO.f
FC        : Date       Fri Jul 18 16:55:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TAPSHO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TAPSHO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TAPSHO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TAPSHO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TAPSHO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TAPSHO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TAPSHO.FOR
COMRPL    : Date       Fri Jul 18 16:55:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TASKWT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TASKWT.f
FC        : Date       Fri Jul 18 16:55:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TASKWT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TASKWT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TASKWT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TASKWT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TASKWT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TASKWT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TASKWT.FOR
COMRPL    : Date       Fri Jul 18 16:55:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TBDATA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TBDATA.f
FC        : Date       Fri Jul 18 16:55:30 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TBDATA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TBDATA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TBDATA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TBDATA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TBDATA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TBDATA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TBDATA.FOR
COMRPL    : Date       Fri Jul 18 16:55:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TBHEAD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TBHEAD.f
FC        : Date       Fri Jul 18 16:55:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TBHEAD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TBHEAD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TBHEAD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TBHEAD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TBHEAD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TBHEAD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TBHEAD.FOR
COMRPL    : Date       Fri Jul 18 16:55:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TKGGPL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TKGGPL.f
FC        : Date       Fri Jul 18 16:55:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKGGPL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKGGPL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TKGGPL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TKGGPL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TKGGPL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TKGGPL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TKGGPL.FOR
COMRPL    : Date       Fri Jul 18 16:55:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TKGMPL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TKGMPL.f
FC        : Date       Fri Jul 18 16:55:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKGMPL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKGMPL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TKGMPL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TKGMPL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TKGMPL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TKGMPL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TKGMPL.FOR
COMRPL    : Date       Fri Jul 18 16:55:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TKRSPL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TKRSPL.f
FC        : Date       Fri Jul 18 16:55:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKRSPL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKRSPL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TKRSPL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TKRSPL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TKRSPL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TKRSPL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TKRSPL.FOR
COMRPL    : Date       Fri Jul 18 16:55:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TKSLAC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TKSLAC.f
FC        : Date       Fri Jul 18 16:55:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKSLAC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKSLAC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TKSLAC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TKSLAC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TKSLAC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TKSLAC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TKSLAC.FOR
COMRPL    : Date       Fri Jul 18 16:55:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TKSLPL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TKSLPL.f
FC        : Date       Fri Jul 18 16:55:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKSLPL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKSLPL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TKSLPL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TKSLPL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TKSLPL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TKSLPL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TKSLPL.FOR
COMRPL    : Date       Fri Jul 18 16:55:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TVLAB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TVLAB.f
FC        : Date       Fri Jul 18 16:55:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVLAB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVLAB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TVLAB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TVLAB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TVLAB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TVLAB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TVLAB.FOR
COMRPL    : Date       Fri Jul 18 16:55:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TVMOVI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TVMOVI.f
FC        : Date       Fri Jul 18 16:55:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVMOVI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVMOVI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TVMOVI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TVMOVI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TVMOVI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TVMOVI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TVMOVI.FOR
COMRPL    : Date       Fri Jul 18 16:55:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TVROAM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TVROAM.f
FC        : Date       Fri Jul 18 16:55:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVROAM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVROAM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TVROAM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TVROAM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TVROAM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TVROAM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TVROAM.FOR
COMRPL    : Date       Fri Jul 18 16:55:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TVSLAC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TVSLAC.f
FC        : Date       Fri Jul 18 16:55:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVSLAC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVSLAC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TVSLAC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TVSLAC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TVSLAC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TVSLAC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TVSLAC.FOR
COMRPL    : Date       Fri Jul 18 16:55:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TVSLIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TVSLIN.f
FC        : Date       Fri Jul 18 16:55:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVSLIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVSLIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TVSLIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TVSLIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TVSLIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TVSLIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TVSLIN.FOR
COMRPL    : Date       Fri Jul 18 16:55:41 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TVSLPL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TVSLPL.f
FC        : Date       Fri Jul 18 16:55:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVSLPL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVSLPL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TVSLPL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TVSLPL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TVSLPL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TVSLPL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TVSLPL.FOR
COMRPL    : Date       Fri Jul 18 16:55:42 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/TVVEC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TVVEC.f
FC        : Date       Fri Jul 18 16:55:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVVEC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVVEC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TVVEC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TVVEC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TVVEC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/TVVEC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/TVVEC.FOR
COMRPL    : Date       Fri Jul 18 16:55:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/UINIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UINIT.f
FC        : Date       Fri Jul 18 16:55:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UINIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UINIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UINIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UINIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UINIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/UINIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/UINIT.FOR
COMRPL    : Date       Fri Jul 18 16:55:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/UWRITE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UWRITE.f
FC        : Date       Fri Jul 18 16:55:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UWRITE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UWRITE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UWRITE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UWRITE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UWRITE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/UWRITE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/UWRITE.FOR
COMRPL    : Date       Fri Jul 18 16:55:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/AIPS/SUB/VERSTR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/VERSTR.f
FC        : Date       Fri Jul 18 16:55:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VERSTR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VERSTR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/VERSTR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/VERSTR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/VERSTR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/AIPS/SUB/VERSTR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/AIPSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/AIPS/SUB/VERSTR.FOR
INSTEP2   : End of     $AIPSUB/...
INSTEP2   : compilations.
INSTEP2   : Begin      /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB
INSTEP2   : library creation.
LIBR      : Create new /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB.30006
LIBR      : created
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB.30006
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/ADVERB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/ADVRBS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/ASSGN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU1A.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU1.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU2A.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU2.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU3A.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU3B.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU3.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU4.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU5A.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU5B.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU5C.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU5D.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU5E.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU5.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU6A.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU6B.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU6C.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU6D.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU6E.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU6.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU7A.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU7B.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU7.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU8A.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU8.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU9A.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU9B.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU9C.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU9.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AUA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AUB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AUC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AUT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/BBUILD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/BCLEAN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/CATCR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/CATLST.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/CHGRIP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/CHUNT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/COMPIL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/CONCAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/CONFRM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/CUBINT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/DESCR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/EDITOR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/EQUIV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/FWRITE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/GETFLD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/GETNME.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/GRLUTS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/GRPOLY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/HELPS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/HIENH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/HILUT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/HUNT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/INIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/K2TEXT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/KILSRV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/KWICK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/KWIKHD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/LLOCAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/LTSTOR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/MASSGN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/MSGHDR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/OERROR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/OFMLST.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PASSGN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PFIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/POLISH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/POP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PREAD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PRINTR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PRTALN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PRTMSG.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PSEUDO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PUSH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/RDUSER.o
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB.30006
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/RENUMB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/RLHIST.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/RLOCAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SCHOLD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SET1DG.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SETTYP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SGLAST.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SGLOCA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SLOCIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/STORES.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SYMBOL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TAPSHO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TASKWT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TBDATA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TBHEAD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TKGGPL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TKGMPL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TKRSPL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TKSLAC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TKSLPL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TVLAB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TVMOVI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TVROAM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TVSLAC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TVSLIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TVSLPL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TVVEC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/UINIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/UWRITE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/VERSTR.o
LIBR      : Randomize  /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB.30006
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB.30006
LIBR      : randomized.
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/ADVERB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/ADVRBS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/ASSGN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU1A.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU1.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU2A.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU2.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU3A.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU3B.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU3.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU4.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU5A.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU5B.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU5C.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU5D.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU5E.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU5.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU6A.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU6B.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU6C.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU6D.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU6E.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU6.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU7A.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU7B.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU7.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU8A.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU8.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU9A.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU9B.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU9C.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AU9.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AUA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AUB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AUC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/AUT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/BBUILD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/BCLEAN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/CATCR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/CATLST.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/CHGRIP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/CHUNT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/COMPIL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/CONCAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/CONFRM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/CUBINT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/DESCR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/EDITOR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/EQUIV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/FWRITE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/GETFLD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/GETNME.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/GRLUTS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/GRPOLY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/HELPS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/HIENH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/HILUT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/HUNT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/INIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/K2TEXT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/KILSRV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/KWICK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/KWIKHD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/LLOCAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/LTSTOR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/MASSGN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/MSGHDR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/OERROR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/OFMLST.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PASSGN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PFIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/POLISH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/POP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PREAD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PRINTR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PRTALN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PRTMSG.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PSEUDO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/PUSH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/RDUSER.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/RENUMB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/RLHIST.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/RLOCAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SCHOLD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SET1DG.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SETTYP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SGLAST.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SGLOCA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SLOCIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/STORES.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SYMBOL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TAPSHO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TASKWT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TBDATA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TBHEAD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TKGGPL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TKGMPL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TKRSPL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TKSLAC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TKSLPL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TVLAB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TVMOVI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TVROAM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TVSLAC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TVSLIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TVSLPL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/TVVEC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/UINIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/UWRITE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/VERSTR.o
LIBR      : Moved      /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB.30006
LIBR      : to         /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB
INSTEP2   : End of     /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB
INSTEP2   : library creation.
INSTEP2   : Process    $APLSUB/...
INSTEP2   : subroutines.
MAKEAT    : Making     APLSUB.LIS
INSTEP2   : Begin      $APLSUB/...
INSTEP2   : compilations of
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/A2WAWA.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ACINI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ACINIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ACOUNT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/AIPINI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ALIASA.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ALIAS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ALLTAB.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/AMERGE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ANMAXA.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ANSAME.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ANTDAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ANTFND.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ANTINI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/AP2SIZ.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ATMFAZ.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/AVGCHN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/AVGCIF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/AVGSMO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/AXEFND.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/AXSTRN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/B2JPOS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/BAKLDS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/BATQ.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/BESSJ1.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/BLDSNM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/BLDTNM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/BLTGLE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/BLTLIS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/BOUNDS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/BOXBSM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/BSCONV.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CATCLR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CATDIR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CATIME.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CATINI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CATIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CATKEY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CATN2L.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CATOPN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CCINI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CCOPY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CFILL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CH2NUM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHAVRT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHBLNK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHCOMP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHCOPY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHECKL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHFILL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHKCHR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHLORU.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHLTOU.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHMATC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHNTIC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHPACK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHR2H.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHSTAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHTRIM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHUTOL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CHWMAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CLENUP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CMPCFL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/COMOFF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/COMPAR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/COORDD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/COORDT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/COPY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CORDDS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/COVAR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CRDSET.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CRDTRN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/CXFILL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DAT2JD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DATDAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DATEST.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DATFST.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DBINIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DECBIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DECONV.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DELEXT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DFILL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DIE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DIETSK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DIRCOS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DIRDEC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DIRRA.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DPCOPY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DPMPAR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DSORT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DTINIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DTTIME.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/DWRITE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ELIPSQ.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ENORM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/EULROT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/EVTHDR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/EVTPOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/EVTRDY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/EXTCOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/EXTHIS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/EXTINI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/EXTIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/EXTREQ.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FCINI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FIELDF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FILCLS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FILCOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FILCR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FILDES.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FILIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FILL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FILNUM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FILOPN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FILZCH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FITBM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FMATCH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FMAX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FNDCOL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FNDEXT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FNDX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FNDXY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FNDY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FPARSE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FRMT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FSERCH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FSWTCH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FUNBSM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FXHDEX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/FXSHFT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GALPOL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GAUSPS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GETCOL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GETCRD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GETERR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GETHDR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GETHUT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GETI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GETLG.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GETNUM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GETRLS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GETSTR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GETSYM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GETVIS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GRDFIX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GRDFLT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GREG.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GSCRED.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GTICNT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GTPARM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GTTELL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/GTWCRD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/H2CHR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/H2WAWA.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HDRBUF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HDRINF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HDRWIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HENCO1.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HENCO2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HENCO3.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HENCO4.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HENCOO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HIAD80.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HIADD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HIADDN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HICLOS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HICOPY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HICREA.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HIINIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HIIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HILOCT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HIMERG.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HIOPEN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HIPLOT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HISCOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/HITIME.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/IAMOK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ICOPEN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/IDWCRD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/IFPC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/IMA2MP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/IMERGE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/IMGERR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/INQFLT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/INQGEN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/INQINT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/INQSTR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/INTEDG.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/IOSET.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/IROUND.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ISCALE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ISHSRT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ISORT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ISTAB.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ISUM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ITRIM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/IWPC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/JABER.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/JD2DAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/JNUT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/JPOLAR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/JTRIM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/JULDAY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/KEYCOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/KTRIM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LABINI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LCOPY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LFILL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LINLIM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LINTER.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LMDER1.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LMDER.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LMPAR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LMPIX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LMSTR1.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LMSTR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LPCLOS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LPOPEN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LSERCH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LSORT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/LSTHDR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MADDEX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MAKOUT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MAPCLR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MAPCLS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MAPCOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MAPCR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MAPIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MAPMAX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MAPOPN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MAPSIZ.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MAPSNC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MAPWIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MAPXY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MATCH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MATVMU.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MCREAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MDESTR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MDISK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/METSCA.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/METSCD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MFINI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MINIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MINSK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MKYBUF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MLREOF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MOM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MOVIST.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MP2IMA.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MP2SKY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MSGWRT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MSKIP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MULSDB.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/MWFBSM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/NAMEST.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/NBYPX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/NEWPOS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/NMATCC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/NMATCH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/NXTMAP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OFMDIR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OPACTY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OPENCF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OPEXT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OSORT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OVLIOR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OVLROI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PASENC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PASWRD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PBCALC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PEAKFN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PERMAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PLNGET.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/POINI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/POWER2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PRENAM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PRJMAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PRJMUL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PRTLIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PRTNAM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PSFORM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PTPARM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PUTCOL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PUTCRD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/PUTKEY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/QRFAC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/QRSOLV.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/RANDIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/RANDUM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/RCOPY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/RCOPYS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/REALOG.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/REAVRT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/RECONV.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/REFRMT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/RELPOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/REMKEY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/REQBAS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/RESCAL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/RESCSL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/RFILL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/RNGSET.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/ROTFND.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/RSORT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/RSUM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/RSWAP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/RWUPDT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SATPRS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SAVHDR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SCALMM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SCREAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SCRNAM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SDDPTS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SELSTR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SETANT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SETBSC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SETDEF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SETDO3.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SETLOC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SETUP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SETVIS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SHFCRP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SHFTXY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SHIFTP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SHINCP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SHISIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SHSORT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SKPBLK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SKPEXT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SKY2MP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SKYFRM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SLAEVP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SLBINI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SMBOX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SMGAUS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SMMWF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SNDY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SNRVAL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SNSMOO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SPFIL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/STCLOS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/STEPCH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/STLTOU.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/STOPEN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/STPUT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/STRLIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/STXT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SUBHDR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SWAPAX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/SYMINV.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/T2DHMS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TABAN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TABCOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TABERR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TABFC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TABINI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TABIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TABKEY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TABLIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TABMRG.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TABPAK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TABPO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TABWX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TAPIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TEKFLS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TEKVEC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TFDHMS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TICCOR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TICINC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TICSTR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TIMDAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TKCATL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TKCHAR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TKCLR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TKCURS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TKDVEC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TKLAB.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TKSLIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TKTICS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TODHMS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TOUCH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TPHEAD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TPTBSM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TSKBEG.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TSKEND.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TSKHLP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TVWIND.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TXTLEN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/TXTMAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UCMPRS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UNPACK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UNSCR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UNSETG.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UNYBUF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVAPAS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVCONJ.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVCREA.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVDISK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVINCS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVINIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVLIMT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVPGET.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVPREP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVPROT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVSETB.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVSETZ.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVSIZE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVZERO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/UVZRSP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/VBOUT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/VERMAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/VHDRIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/VISCHK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/WANTCH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/WAWA2A.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/WHOAMI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/WINDF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/WINDOW.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/WORD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/WRBLNK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/WRIBOX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/WRPLAN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/WXINI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/XEULER.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/XTRFIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/XYPIX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/XYSHFT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/XYVAL.FOR
COMRPL    : Date       Fri Jul 18 16:55:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/A2WAWA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/A2WAWA.f
FC        : Date       Fri Jul 18 16:55:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/A2WAWA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/A2WAWA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/A2WAWA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/A2WAWA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/A2WAWA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/A2WAWA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/A2WAWA.FOR
COMRPL    : Date       Fri Jul 18 16:55:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ACINI2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ACINI2.f
FC        : Date       Fri Jul 18 16:55:54 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ACINI2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ACINI2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ACINI2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ACINI2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ACINI2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ACINI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ACINI2.FOR
COMRPL    : Date       Fri Jul 18 16:55:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ACINIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ACINIT.f
FC        : Date       Fri Jul 18 16:55:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ACINIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ACINIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ACINIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ACINIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ACINIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ACINIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ACINIT.FOR
COMRPL    : Date       Fri Jul 18 16:55:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ACOUNT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ACOUNT.f
FC        : Date       Fri Jul 18 16:55:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ACOUNT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ACOUNT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ACOUNT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ACOUNT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ACOUNT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ACOUNT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ACOUNT.FOR
COMRPL    : Date       Fri Jul 18 16:55:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/AIPINI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AIPINI.f
FC        : Date       Fri Jul 18 16:55:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AIPINI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AIPINI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AIPINI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AIPINI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AIPINI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/AIPINI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/AIPINI.FOR
COMRPL    : Date       Fri Jul 18 16:55:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ALIASA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ALIASA.f
FC        : Date       Fri Jul 18 16:55:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ALIASA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ALIASA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ALIASA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ALIASA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ALIASA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ALIASA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ALIASA.FOR
COMRPL    : Date       Fri Jul 18 16:55:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ALIAS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ALIAS.f
FC        : Date       Fri Jul 18 16:55:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ALIAS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ALIAS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ALIAS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ALIAS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ALIAS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ALIAS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ALIAS.FOR
COMRPL    : Date       Fri Jul 18 16:55:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ALLTAB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ALLTAB.f
FC        : Date       Fri Jul 18 16:55:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ALLTAB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ALLTAB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ALLTAB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ALLTAB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ALLTAB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ALLTAB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ALLTAB.FOR
COMRPL    : Date       Fri Jul 18 16:56:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/AMERGE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AMERGE.f
FC        : Date       Fri Jul 18 16:56:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AMERGE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AMERGE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AMERGE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AMERGE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AMERGE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/AMERGE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/AMERGE.FOR
COMRPL    : Date       Fri Jul 18 16:56:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ANMAXA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ANMAXA.f
FC        : Date       Fri Jul 18 16:56:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ANMAXA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ANMAXA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ANMAXA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ANMAXA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ANMAXA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ANMAXA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ANMAXA.FOR
COMRPL    : Date       Fri Jul 18 16:56:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ANSAME.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ANSAME.f
FC        : Date       Fri Jul 18 16:56:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ANSAME.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ANSAME.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ANSAME.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ANSAME.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ANSAME.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ANSAME.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ANSAME.FOR
COMRPL    : Date       Fri Jul 18 16:56:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ANTDAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ANTDAT.f
FC        : Date       Fri Jul 18 16:56:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ANTDAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ANTDAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ANTDAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ANTDAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ANTDAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ANTDAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ANTDAT.FOR
COMRPL    : Date       Fri Jul 18 16:56:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ANTFND.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ANTFND.f
FC        : Date       Fri Jul 18 16:56:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ANTFND.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ANTFND.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ANTFND.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ANTFND.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ANTFND.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ANTFND.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ANTFND.FOR
COMRPL    : Date       Fri Jul 18 16:56:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ANTINI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ANTINI.f
FC        : Date       Fri Jul 18 16:56:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ANTINI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ANTINI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ANTINI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ANTINI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ANTINI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ANTINI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ANTINI.FOR
COMRPL    : Date       Fri Jul 18 16:56:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/AP2SIZ.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AP2SIZ.f
FC        : Date       Fri Jul 18 16:56:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AP2SIZ.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AP2SIZ.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AP2SIZ.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AP2SIZ.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AP2SIZ.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/AP2SIZ.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/AP2SIZ.FOR
COMRPL    : Date       Fri Jul 18 16:56:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ATMFAZ.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ATMFAZ.f
FC        : Date       Fri Jul 18 16:56:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ATMFAZ.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ATMFAZ.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ATMFAZ.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ATMFAZ.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ATMFAZ.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ATMFAZ.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ATMFAZ.FOR
COMRPL    : Date       Fri Jul 18 16:56:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/AVGCHN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AVGCHN.f
FC        : Date       Fri Jul 18 16:56:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AVGCHN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AVGCHN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AVGCHN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AVGCHN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AVGCHN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/AVGCHN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/AVGCHN.FOR
COMRPL    : Date       Fri Jul 18 16:56:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/AVGCIF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AVGCIF.f
FC        : Date       Fri Jul 18 16:56:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AVGCIF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AVGCIF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AVGCIF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AVGCIF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AVGCIF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/AVGCIF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/AVGCIF.FOR
COMRPL    : Date       Fri Jul 18 16:56:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/AVGSMO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AVGSMO.f
FC        : Date       Fri Jul 18 16:56:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AVGSMO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AVGSMO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AVGSMO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AVGSMO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AVGSMO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/AVGSMO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/AVGSMO.FOR
COMRPL    : Date       Fri Jul 18 16:56:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/AXEFND.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AXEFND.f
FC        : Date       Fri Jul 18 16:56:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AXEFND.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AXEFND.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AXEFND.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AXEFND.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AXEFND.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/AXEFND.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/AXEFND.FOR
COMRPL    : Date       Fri Jul 18 16:56:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/AXSTRN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AXSTRN.f
FC        : Date       Fri Jul 18 16:56:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AXSTRN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AXSTRN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AXSTRN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AXSTRN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AXSTRN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/AXSTRN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/AXSTRN.FOR
COMRPL    : Date       Fri Jul 18 16:56:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/B2JPOS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/B2JPOS.f
FC        : Date       Fri Jul 18 16:56:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/B2JPOS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/B2JPOS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/B2JPOS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/B2JPOS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/B2JPOS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/B2JPOS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/B2JPOS.FOR
COMRPL    : Date       Fri Jul 18 16:56:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/BAKLDS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BAKLDS.f
FC        : Date       Fri Jul 18 16:56:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BAKLDS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BAKLDS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BAKLDS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BAKLDS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BAKLDS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/BAKLDS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/BAKLDS.FOR
COMRPL    : Date       Fri Jul 18 16:56:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/BATQ.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BATQ.f
FC        : Date       Fri Jul 18 16:56:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BATQ.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BATQ.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BATQ.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BATQ.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BATQ.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/BATQ.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/BATQ.FOR
COMRPL    : Date       Fri Jul 18 16:56:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/BESSJ1.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BESSJ1.f
FC        : Date       Fri Jul 18 16:56:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BESSJ1.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BESSJ1.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BESSJ1.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BESSJ1.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BESSJ1.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/BESSJ1.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/BESSJ1.FOR
COMRPL    : Date       Fri Jul 18 16:56:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/BLDSNM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BLDSNM.f
FC        : Date       Fri Jul 18 16:56:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BLDSNM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BLDSNM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BLDSNM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BLDSNM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BLDSNM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/BLDSNM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/BLDSNM.FOR
COMRPL    : Date       Fri Jul 18 16:56:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/BLDTNM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BLDTNM.f
FC        : Date       Fri Jul 18 16:56:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BLDTNM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BLDTNM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BLDTNM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BLDTNM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BLDTNM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/BLDTNM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/BLDTNM.FOR
COMRPL    : Date       Fri Jul 18 16:56:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/BLTGLE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BLTGLE.f
FC        : Date       Fri Jul 18 16:56:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BLTGLE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BLTGLE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BLTGLE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BLTGLE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BLTGLE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/BLTGLE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/BLTGLE.FOR
COMRPL    : Date       Fri Jul 18 16:56:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/BLTLIS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BLTLIS.f
FC        : Date       Fri Jul 18 16:56:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BLTLIS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BLTLIS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BLTLIS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BLTLIS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BLTLIS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/BLTLIS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/BLTLIS.FOR
COMRPL    : Date       Fri Jul 18 16:56:19 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/BOUNDS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BOUNDS.f
FC        : Date       Fri Jul 18 16:56:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BOUNDS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BOUNDS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BOUNDS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BOUNDS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BOUNDS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/BOUNDS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/BOUNDS.FOR
COMRPL    : Date       Fri Jul 18 16:56:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/BOXBSM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BOXBSM.f
FC        : Date       Fri Jul 18 16:56:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BOXBSM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BOXBSM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BOXBSM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BOXBSM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BOXBSM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/BOXBSM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/BOXBSM.FOR
COMRPL    : Date       Fri Jul 18 16:56:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/BSCONV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BSCONV.f
FC        : Date       Fri Jul 18 16:56:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BSCONV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BSCONV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BSCONV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BSCONV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BSCONV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/BSCONV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/BSCONV.FOR
COMRPL    : Date       Fri Jul 18 16:56:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CATCLR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CATCLR.f
FC        : Date       Fri Jul 18 16:56:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATCLR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATCLR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CATCLR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CATCLR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CATCLR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CATCLR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CATCLR.FOR
COMRPL    : Date       Fri Jul 18 16:56:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CATDIR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CATDIR.f
FC        : Date       Fri Jul 18 16:56:23 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATDIR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATDIR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CATDIR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CATDIR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CATDIR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CATDIR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CATDIR.FOR
COMRPL    : Date       Fri Jul 18 16:56:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CATIME.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CATIME.f
FC        : Date       Fri Jul 18 16:56:24 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATIME.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATIME.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CATIME.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CATIME.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CATIME.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CATIME.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CATIME.FOR
COMRPL    : Date       Fri Jul 18 16:56:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CATINI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CATINI.f
FC        : Date       Fri Jul 18 16:56:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATINI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATINI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CATINI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CATINI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CATINI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CATINI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CATINI.FOR
COMRPL    : Date       Fri Jul 18 16:56:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CATIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CATIO.f
FC        : Date       Fri Jul 18 16:56:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CATIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CATIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CATIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CATIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CATIO.FOR
COMRPL    : Date       Fri Jul 18 16:56:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CATKEY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CATKEY.f
FC        : Date       Fri Jul 18 16:56:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATKEY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATKEY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CATKEY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CATKEY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CATKEY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CATKEY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CATKEY.FOR
COMRPL    : Date       Fri Jul 18 16:56:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CATN2L.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CATN2L.f
FC        : Date       Fri Jul 18 16:56:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATN2L.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATN2L.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CATN2L.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CATN2L.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CATN2L.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CATN2L.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CATN2L.FOR
COMRPL    : Date       Fri Jul 18 16:56:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CATOPN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CATOPN.f
FC        : Date       Fri Jul 18 16:56:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATOPN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CATOPN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CATOPN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CATOPN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CATOPN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CATOPN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CATOPN.FOR
COMRPL    : Date       Fri Jul 18 16:56:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CCINI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CCINI.f
FC        : Date       Fri Jul 18 16:56:30 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CCINI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CCINI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CCINI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CCINI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CCINI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CCINI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CCINI.FOR
COMRPL    : Date       Fri Jul 18 16:56:30 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CCOPY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CCOPY.f
FC        : Date       Fri Jul 18 16:56:30 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CCOPY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CCOPY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CCOPY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CCOPY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CCOPY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CCOPY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CCOPY.FOR
COMRPL    : Date       Fri Jul 18 16:56:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CFILL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CFILL.f
FC        : Date       Fri Jul 18 16:56:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CFILL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CFILL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CFILL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CFILL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CFILL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CFILL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CFILL.FOR
COMRPL    : Date       Fri Jul 18 16:56:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CH2NUM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CH2NUM.f
FC        : Date       Fri Jul 18 16:56:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CH2NUM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CH2NUM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CH2NUM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CH2NUM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CH2NUM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CH2NUM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CH2NUM.FOR
COMRPL    : Date       Fri Jul 18 16:56:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHAVRT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHAVRT.f
FC        : Date       Fri Jul 18 16:56:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHAVRT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHAVRT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHAVRT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHAVRT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHAVRT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHAVRT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHAVRT.FOR
COMRPL    : Date       Fri Jul 18 16:56:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHBLNK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHBLNK.f
FC        : Date       Fri Jul 18 16:56:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHBLNK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHBLNK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHBLNK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHBLNK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHBLNK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHBLNK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHBLNK.FOR
COMRPL    : Date       Fri Jul 18 16:56:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHCOMP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHCOMP.f
FC        : Date       Fri Jul 18 16:56:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHCOMP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHCOMP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHCOMP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHCOMP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHCOMP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHCOMP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHCOMP.FOR
COMRPL    : Date       Fri Jul 18 16:56:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHCOPY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHCOPY.f
FC        : Date       Fri Jul 18 16:56:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHCOPY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHCOPY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHCOPY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHCOPY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHCOPY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHCOPY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHCOPY.FOR
COMRPL    : Date       Fri Jul 18 16:56:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHECKL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHECKL.f
FC        : Date       Fri Jul 18 16:56:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHECKL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHECKL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHECKL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHECKL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHECKL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHECKL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHECKL.FOR
COMRPL    : Date       Fri Jul 18 16:56:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHFILL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHFILL.f
FC        : Date       Fri Jul 18 16:56:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHFILL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHFILL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHFILL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHFILL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHFILL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHFILL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHFILL.FOR
COMRPL    : Date       Fri Jul 18 16:56:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHKCHR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHKCHR.f
FC        : Date       Fri Jul 18 16:56:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHKCHR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHKCHR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHKCHR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHKCHR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHKCHR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHKCHR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHKCHR.FOR
COMRPL    : Date       Fri Jul 18 16:56:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHLORU.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHLORU.f
FC        : Date       Fri Jul 18 16:56:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHLORU.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHLORU.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHLORU.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHLORU.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHLORU.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHLORU.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHLORU.FOR
COMRPL    : Date       Fri Jul 18 16:56:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHLTOU.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHLTOU.f
FC        : Date       Fri Jul 18 16:56:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHLTOU.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHLTOU.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHLTOU.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHLTOU.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHLTOU.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHLTOU.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHLTOU.FOR
COMRPL    : Date       Fri Jul 18 16:56:41 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHMATC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHMATC.f
FC        : Date       Fri Jul 18 16:56:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHMATC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHMATC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHMATC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHMATC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHMATC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHMATC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHMATC.FOR
COMRPL    : Date       Fri Jul 18 16:56:42 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHNTIC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHNTIC.f
FC        : Date       Fri Jul 18 16:56:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHNTIC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHNTIC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHNTIC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHNTIC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHNTIC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHNTIC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHNTIC.FOR
COMRPL    : Date       Fri Jul 18 16:56:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHPACK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHPACK.f
FC        : Date       Fri Jul 18 16:56:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHPACK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHPACK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHPACK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHPACK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHPACK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHPACK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHPACK.FOR
COMRPL    : Date       Fri Jul 18 16:56:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHR2H.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHR2H.f
FC        : Date       Fri Jul 18 16:56:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHR2H.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHR2H.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHR2H.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHR2H.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHR2H.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHR2H.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHR2H.FOR
COMRPL    : Date       Fri Jul 18 16:56:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHSTAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHSTAT.f
FC        : Date       Fri Jul 18 16:56:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHSTAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHSTAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHSTAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHSTAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHSTAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHSTAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHSTAT.FOR
COMRPL    : Date       Fri Jul 18 16:56:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHTRIM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHTRIM.f
FC        : Date       Fri Jul 18 16:56:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHTRIM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHTRIM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHTRIM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHTRIM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHTRIM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHTRIM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHTRIM.FOR
COMRPL    : Date       Fri Jul 18 16:56:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHUTOL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHUTOL.f
FC        : Date       Fri Jul 18 16:56:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHUTOL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHUTOL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHUTOL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHUTOL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHUTOL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHUTOL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHUTOL.FOR
COMRPL    : Date       Fri Jul 18 16:56:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CHWMAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CHWMAT.f
FC        : Date       Fri Jul 18 16:56:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHWMAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CHWMAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CHWMAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CHWMAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CHWMAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CHWMAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CHWMAT.FOR
COMRPL    : Date       Fri Jul 18 16:56:48 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CLENUP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CLENUP.f
FC        : Date       Fri Jul 18 16:56:48 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CLENUP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CLENUP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CLENUP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CLENUP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CLENUP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CLENUP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CLENUP.FOR
COMRPL    : Date       Fri Jul 18 16:56:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CMPCFL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CMPCFL.f
FC        : Date       Fri Jul 18 16:56:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CMPCFL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CMPCFL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CMPCFL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CMPCFL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CMPCFL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CMPCFL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CMPCFL.FOR
COMRPL    : Date       Fri Jul 18 16:56:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/COMOFF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/COMOFF.f
FC        : Date       Fri Jul 18 16:56:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/COMOFF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/COMOFF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/COMOFF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/COMOFF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/COMOFF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/COMOFF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/COMOFF.FOR
COMRPL    : Date       Fri Jul 18 16:56:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/COMPAR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/COMPAR.f
FC        : Date       Fri Jul 18 16:56:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/COMPAR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/COMPAR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/COMPAR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/COMPAR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/COMPAR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/COMPAR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/COMPAR.FOR
COMRPL    : Date       Fri Jul 18 16:56:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/COORDD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/COORDD.f
FC        : Date       Fri Jul 18 16:56:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/COORDD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/COORDD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/COORDD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/COORDD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/COORDD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/COORDD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/COORDD.FOR
COMRPL    : Date       Fri Jul 18 16:56:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/COORDT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/COORDT.f
FC        : Date       Fri Jul 18 16:56:52 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/COORDT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/COORDT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/COORDT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/COORDT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/COORDT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/COORDT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/COORDT.FOR
COMRPL    : Date       Fri Jul 18 16:56:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/COPY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/COPY.f
FC        : Date       Fri Jul 18 16:56:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/COPY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/COPY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/COPY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/COPY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/COPY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/COPY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/COPY.FOR
COMRPL    : Date       Fri Jul 18 16:56:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CORDDS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CORDDS.f
FC        : Date       Fri Jul 18 16:56:54 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CORDDS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CORDDS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CORDDS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CORDDS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CORDDS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CORDDS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CORDDS.FOR
COMRPL    : Date       Fri Jul 18 16:56:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/COVAR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/COVAR.f
FC        : Date       Fri Jul 18 16:56:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/COVAR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/COVAR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/COVAR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/COVAR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/COVAR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/COVAR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/COVAR.FOR
COMRPL    : Date       Fri Jul 18 16:56:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CRDSET.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CRDSET.f
FC        : Date       Fri Jul 18 16:56:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CRDSET.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CRDSET.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CRDSET.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CRDSET.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CRDSET.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CRDSET.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CRDSET.FOR
COMRPL    : Date       Fri Jul 18 16:56:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CRDTRN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CRDTRN.f
FC        : Date       Fri Jul 18 16:56:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CRDTRN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CRDTRN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CRDTRN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CRDTRN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CRDTRN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CRDTRN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CRDTRN.FOR
COMRPL    : Date       Fri Jul 18 16:56:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/CXFILL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CXFILL.f
FC        : Date       Fri Jul 18 16:56:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CXFILL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CXFILL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CXFILL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CXFILL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CXFILL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/CXFILL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/CXFILL.FOR
COMRPL    : Date       Fri Jul 18 16:56:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DAT2JD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DAT2JD.f
FC        : Date       Fri Jul 18 16:56:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DAT2JD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DAT2JD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DAT2JD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DAT2JD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DAT2JD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DAT2JD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DAT2JD.FOR
COMRPL    : Date       Fri Jul 18 16:56:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DATDAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DATDAT.f
FC        : Date       Fri Jul 18 16:57:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DATDAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DATDAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DATDAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DATDAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DATDAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DATDAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DATDAT.FOR
COMRPL    : Date       Fri Jul 18 16:57:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DATEST.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DATEST.f
FC        : Date       Fri Jul 18 16:57:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DATEST.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DATEST.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DATEST.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DATEST.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DATEST.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DATEST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DATEST.FOR
COMRPL    : Date       Fri Jul 18 16:57:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DATFST.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DATFST.f
FC        : Date       Fri Jul 18 16:57:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DATFST.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DATFST.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DATFST.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DATFST.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DATFST.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DATFST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DATFST.FOR
COMRPL    : Date       Fri Jul 18 16:57:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DBINIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DBINIT.f
FC        : Date       Fri Jul 18 16:57:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DBINIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DBINIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DBINIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DBINIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DBINIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DBINIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DBINIT.FOR
COMRPL    : Date       Fri Jul 18 16:57:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DECBIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DECBIT.f
FC        : Date       Fri Jul 18 16:57:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DECBIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DECBIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DECBIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DECBIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DECBIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DECBIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DECBIT.FOR
COMRPL    : Date       Fri Jul 18 16:57:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DECONV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DECONV.f
FC        : Date       Fri Jul 18 16:57:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DECONV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DECONV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DECONV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DECONV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DECONV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DECONV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DECONV.FOR
COMRPL    : Date       Fri Jul 18 16:57:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DELEXT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DELEXT.f
FC        : Date       Fri Jul 18 16:57:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DELEXT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DELEXT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DELEXT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DELEXT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DELEXT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DELEXT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DELEXT.FOR
COMRPL    : Date       Fri Jul 18 16:57:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DFILL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DFILL.f
FC        : Date       Fri Jul 18 16:57:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DFILL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DFILL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DFILL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DFILL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DFILL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DFILL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DFILL.FOR
COMRPL    : Date       Fri Jul 18 16:57:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DIE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DIE.f
FC        : Date       Fri Jul 18 16:57:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DIE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DIE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DIE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DIE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DIE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DIE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DIE.FOR
COMRPL    : Date       Fri Jul 18 16:57:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DIETSK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DIETSK.f
FC        : Date       Fri Jul 18 16:57:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DIETSK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DIETSK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DIETSK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DIETSK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DIETSK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DIETSK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DIETSK.FOR
COMRPL    : Date       Fri Jul 18 16:57:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DIRCOS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DIRCOS.f
FC        : Date       Fri Jul 18 16:57:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DIRCOS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DIRCOS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DIRCOS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DIRCOS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DIRCOS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DIRCOS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DIRCOS.FOR
COMRPL    : Date       Fri Jul 18 16:57:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DIRDEC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DIRDEC.f
FC        : Date       Fri Jul 18 16:57:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DIRDEC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DIRDEC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DIRDEC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DIRDEC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DIRDEC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DIRDEC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DIRDEC.FOR
COMRPL    : Date       Fri Jul 18 16:57:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DIRRA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DIRRA.f
FC        : Date       Fri Jul 18 16:57:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DIRRA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DIRRA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DIRRA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DIRRA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DIRRA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DIRRA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DIRRA.FOR
COMRPL    : Date       Fri Jul 18 16:57:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DPCOPY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DPCOPY.f
FC        : Date       Fri Jul 18 16:57:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DPCOPY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DPCOPY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DPCOPY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DPCOPY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DPCOPY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DPCOPY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DPCOPY.FOR
COMRPL    : Date       Fri Jul 18 16:57:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DPMPAR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DPMPAR.f
FC        : Date       Fri Jul 18 16:57:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DPMPAR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DPMPAR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DPMPAR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DPMPAR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DPMPAR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DPMPAR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DPMPAR.FOR
COMRPL    : Date       Fri Jul 18 16:57:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DSORT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DSORT.f
FC        : Date       Fri Jul 18 16:57:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DSORT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DSORT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DSORT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DSORT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DSORT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DSORT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DSORT.FOR
COMRPL    : Date       Fri Jul 18 16:57:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DTINIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DTINIT.f
FC        : Date       Fri Jul 18 16:57:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DTINIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DTINIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DTINIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DTINIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DTINIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DTINIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DTINIT.FOR
COMRPL    : Date       Fri Jul 18 16:57:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DTTIME.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DTTIME.f
FC        : Date       Fri Jul 18 16:57:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DTTIME.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DTTIME.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DTTIME.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DTTIME.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DTTIME.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DTTIME.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DTTIME.FOR
COMRPL    : Date       Fri Jul 18 16:57:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/DWRITE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DWRITE.f
FC        : Date       Fri Jul 18 16:57:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DWRITE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DWRITE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DWRITE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DWRITE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DWRITE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/DWRITE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/DWRITE.FOR
COMRPL    : Date       Fri Jul 18 16:57:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ELIPSQ.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ELIPSQ.f
FC        : Date       Fri Jul 18 16:57:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ELIPSQ.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ELIPSQ.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ELIPSQ.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ELIPSQ.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ELIPSQ.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ELIPSQ.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ELIPSQ.FOR
COMRPL    : Date       Fri Jul 18 16:57:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ENORM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ENORM.f
FC        : Date       Fri Jul 18 16:57:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ENORM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ENORM.f
/usr/local/aips/31DEC03/LINUX/PREP/ENORM.f: In function `enorm':
/usr/local/aips/31DEC03/LINUX/PREP/ENORM.f:1: warning: `enorm' might be used uninitialized in this function
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ENORM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ENORM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ENORM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ENORM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ENORM.FOR
COMRPL    : Date       Fri Jul 18 16:57:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/EULROT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/EULROT.f
FC        : Date       Fri Jul 18 16:57:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EULROT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EULROT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/EULROT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/EULROT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/EULROT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/EULROT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/EULROT.FOR
COMRPL    : Date       Fri Jul 18 16:57:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/EVTHDR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/EVTHDR.f
FC        : Date       Fri Jul 18 16:57:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EVTHDR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EVTHDR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/EVTHDR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/EVTHDR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/EVTHDR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/EVTHDR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/EVTHDR.FOR
COMRPL    : Date       Fri Jul 18 16:57:19 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/EVTPOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/EVTPOP.f
FC        : Date       Fri Jul 18 16:57:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EVTPOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EVTPOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/EVTPOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/EVTPOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/EVTPOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/EVTPOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/EVTPOP.FOR
COMRPL    : Date       Fri Jul 18 16:57:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/EVTRDY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/EVTRDY.f
FC        : Date       Fri Jul 18 16:57:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EVTRDY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EVTRDY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/EVTRDY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/EVTRDY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/EVTRDY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/EVTRDY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/EVTRDY.FOR
COMRPL    : Date       Fri Jul 18 16:57:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/EXTCOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/EXTCOP.f
FC        : Date       Fri Jul 18 16:57:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EXTCOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EXTCOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/EXTCOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/EXTCOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/EXTCOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/EXTCOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/EXTCOP.FOR
COMRPL    : Date       Fri Jul 18 16:57:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/EXTHIS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/EXTHIS.f
FC        : Date       Fri Jul 18 16:57:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EXTHIS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EXTHIS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/EXTHIS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/EXTHIS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/EXTHIS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/EXTHIS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/EXTHIS.FOR
COMRPL    : Date       Fri Jul 18 16:57:23 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/EXTINI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/EXTINI.f
FC        : Date       Fri Jul 18 16:57:23 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EXTINI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EXTINI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/EXTINI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/EXTINI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/EXTINI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/EXTINI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/EXTINI.FOR
COMRPL    : Date       Fri Jul 18 16:57:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/EXTIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/EXTIO.f
FC        : Date       Fri Jul 18 16:57:24 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EXTIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EXTIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/EXTIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/EXTIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/EXTIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/EXTIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/EXTIO.FOR
COMRPL    : Date       Fri Jul 18 16:57:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/EXTREQ.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/EXTREQ.f
FC        : Date       Fri Jul 18 16:57:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EXTREQ.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EXTREQ.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/EXTREQ.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/EXTREQ.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/EXTREQ.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/EXTREQ.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/EXTREQ.FOR
COMRPL    : Date       Fri Jul 18 16:57:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FCINI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FCINI.f
FC        : Date       Fri Jul 18 16:57:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FCINI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FCINI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FCINI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FCINI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FCINI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FCINI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FCINI.FOR
COMRPL    : Date       Fri Jul 18 16:57:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FIELDF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FIELDF.f
FC        : Date       Fri Jul 18 16:57:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FIELDF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FIELDF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FIELDF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FIELDF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FIELDF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FIELDF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FIELDF.FOR
COMRPL    : Date       Fri Jul 18 16:57:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FILCLS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FILCLS.f
FC        : Date       Fri Jul 18 16:57:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILCLS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILCLS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FILCLS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FILCLS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FILCLS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FILCLS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FILCLS.FOR
COMRPL    : Date       Fri Jul 18 16:57:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FILCOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FILCOP.f
FC        : Date       Fri Jul 18 16:57:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILCOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILCOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FILCOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FILCOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FILCOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FILCOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FILCOP.FOR
COMRPL    : Date       Fri Jul 18 16:57:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FILCR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FILCR.f
FC        : Date       Fri Jul 18 16:57:30 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILCR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILCR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FILCR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FILCR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FILCR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FILCR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FILCR.FOR
COMRPL    : Date       Fri Jul 18 16:57:30 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FILDES.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FILDES.f
FC        : Date       Fri Jul 18 16:57:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILDES.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILDES.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FILDES.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FILDES.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FILDES.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FILDES.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FILDES.FOR
COMRPL    : Date       Fri Jul 18 16:57:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FILIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FILIO.f
FC        : Date       Fri Jul 18 16:57:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FILIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FILIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FILIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FILIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FILIO.FOR
COMRPL    : Date       Fri Jul 18 16:57:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FILL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FILL.f
FC        : Date       Fri Jul 18 16:57:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FILL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FILL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FILL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FILL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FILL.FOR
COMRPL    : Date       Fri Jul 18 16:57:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FILNUM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FILNUM.f
FC        : Date       Fri Jul 18 16:57:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILNUM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILNUM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FILNUM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FILNUM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FILNUM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FILNUM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FILNUM.FOR
COMRPL    : Date       Fri Jul 18 16:57:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FILOPN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FILOPN.f
FC        : Date       Fri Jul 18 16:57:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILOPN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILOPN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FILOPN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FILOPN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FILOPN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FILOPN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FILOPN.FOR
COMRPL    : Date       Fri Jul 18 16:57:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FILZCH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FILZCH.f
FC        : Date       Fri Jul 18 16:57:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILZCH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILZCH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FILZCH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FILZCH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FILZCH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FILZCH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FILZCH.FOR
COMRPL    : Date       Fri Jul 18 16:57:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FITBM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FITBM.f
FC        : Date       Fri Jul 18 16:57:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FITBM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FITBM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FITBM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FITBM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FITBM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FITBM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FITBM.FOR
COMRPL    : Date       Fri Jul 18 16:57:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FMATCH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FMATCH.f
FC        : Date       Fri Jul 18 16:57:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FMATCH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FMATCH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FMATCH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FMATCH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FMATCH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FMATCH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FMATCH.FOR
COMRPL    : Date       Fri Jul 18 16:57:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FMAX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FMAX.f
FC        : Date       Fri Jul 18 16:57:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FMAX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FMAX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FMAX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FMAX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FMAX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FMAX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FMAX.FOR
COMRPL    : Date       Fri Jul 18 16:57:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FNDCOL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FNDCOL.f
FC        : Date       Fri Jul 18 16:57:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FNDCOL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FNDCOL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FNDCOL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FNDCOL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FNDCOL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FNDCOL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FNDCOL.FOR
COMRPL    : Date       Fri Jul 18 16:57:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FNDEXT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FNDEXT.f
FC        : Date       Fri Jul 18 16:57:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FNDEXT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FNDEXT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FNDEXT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FNDEXT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FNDEXT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FNDEXT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FNDEXT.FOR
COMRPL    : Date       Fri Jul 18 16:57:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FNDX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FNDX.f
FC        : Date       Fri Jul 18 16:57:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FNDX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FNDX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FNDX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FNDX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FNDX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FNDX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FNDX.FOR
COMRPL    : Date       Fri Jul 18 16:57:41 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FNDXY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FNDXY.f
FC        : Date       Fri Jul 18 16:57:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FNDXY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FNDXY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FNDXY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FNDXY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FNDXY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FNDXY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FNDXY.FOR
COMRPL    : Date       Fri Jul 18 16:57:42 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FNDY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FNDY.f
FC        : Date       Fri Jul 18 16:57:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FNDY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FNDY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FNDY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FNDY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FNDY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FNDY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FNDY.FOR
COMRPL    : Date       Fri Jul 18 16:57:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FPARSE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FPARSE.f
FC        : Date       Fri Jul 18 16:57:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FPARSE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FPARSE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FPARSE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FPARSE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FPARSE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FPARSE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FPARSE.FOR
COMRPL    : Date       Fri Jul 18 16:57:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FRMT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FRMT.f
FC        : Date       Fri Jul 18 16:57:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FRMT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FRMT.f
/usr/local/aips/31DEC03/LINUX/PREP/FRMT.f: In function `frmt':
/usr/local/aips/31DEC03/LINUX/PREP/FRMT.f:1: warning: `frmt' might be used uninitialized in this function
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FRMT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FRMT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FRMT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FRMT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FRMT.FOR
COMRPL    : Date       Fri Jul 18 16:57:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FSERCH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FSERCH.f
FC        : Date       Fri Jul 18 16:57:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FSERCH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FSERCH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FSERCH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FSERCH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FSERCH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FSERCH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FSERCH.FOR
COMRPL    : Date       Fri Jul 18 16:57:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FSWTCH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FSWTCH.f
FC        : Date       Fri Jul 18 16:57:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FSWTCH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FSWTCH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FSWTCH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FSWTCH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FSWTCH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FSWTCH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FSWTCH.FOR
COMRPL    : Date       Fri Jul 18 16:57:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FUNBSM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FUNBSM.f
FC        : Date       Fri Jul 18 16:57:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FUNBSM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FUNBSM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FUNBSM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FUNBSM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FUNBSM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FUNBSM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FUNBSM.FOR
COMRPL    : Date       Fri Jul 18 16:57:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FXHDEX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FXHDEX.f
FC        : Date       Fri Jul 18 16:57:48 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FXHDEX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FXHDEX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FXHDEX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FXHDEX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FXHDEX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FXHDEX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FXHDEX.FOR
COMRPL    : Date       Fri Jul 18 16:57:48 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/FXSHFT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FXSHFT.f
FC        : Date       Fri Jul 18 16:57:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FXSHFT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FXSHFT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FXSHFT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FXSHFT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FXSHFT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/FXSHFT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/FXSHFT.FOR
COMRPL    : Date       Fri Jul 18 16:57:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GALPOL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GALPOL.f
FC        : Date       Fri Jul 18 16:57:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GALPOL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GALPOL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GALPOL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GALPOL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GALPOL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GALPOL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GALPOL.FOR
COMRPL    : Date       Fri Jul 18 16:57:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GAUSPS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GAUSPS.f
FC        : Date       Fri Jul 18 16:57:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GAUSPS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GAUSPS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GAUSPS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GAUSPS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GAUSPS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GAUSPS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GAUSPS.FOR
COMRPL    : Date       Fri Jul 18 16:57:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GETCOL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GETCOL.f
FC        : Date       Fri Jul 18 16:57:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETCOL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETCOL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GETCOL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GETCOL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GETCOL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GETCOL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GETCOL.FOR
COMRPL    : Date       Fri Jul 18 16:57:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GETCRD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GETCRD.f
FC        : Date       Fri Jul 18 16:57:52 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETCRD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETCRD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GETCRD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GETCRD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GETCRD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GETCRD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GETCRD.FOR
COMRPL    : Date       Fri Jul 18 16:57:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GETERR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GETERR.f
FC        : Date       Fri Jul 18 16:57:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETERR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETERR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GETERR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GETERR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GETERR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GETERR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GETERR.FOR
COMRPL    : Date       Fri Jul 18 16:57:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GETHDR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GETHDR.f
FC        : Date       Fri Jul 18 16:57:54 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETHDR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETHDR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GETHDR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GETHDR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GETHDR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GETHDR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GETHDR.FOR
COMRPL    : Date       Fri Jul 18 16:57:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GETHUT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GETHUT.f
FC        : Date       Fri Jul 18 16:57:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETHUT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETHUT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GETHUT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GETHUT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GETHUT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GETHUT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GETHUT.FOR
COMRPL    : Date       Fri Jul 18 16:57:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GETI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GETI.f
FC        : Date       Fri Jul 18 16:57:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GETI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GETI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GETI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GETI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GETI.FOR
COMRPL    : Date       Fri Jul 18 16:57:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GETLG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GETLG.f
FC        : Date       Fri Jul 18 16:57:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETLG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETLG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GETLG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GETLG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GETLG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GETLG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GETLG.FOR
COMRPL    : Date       Fri Jul 18 16:57:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GETNUM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GETNUM.f
FC        : Date       Fri Jul 18 16:57:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETNUM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETNUM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GETNUM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GETNUM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GETNUM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GETNUM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GETNUM.FOR
COMRPL    : Date       Fri Jul 18 16:57:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GETRLS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GETRLS.f
FC        : Date       Fri Jul 18 16:57:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETRLS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETRLS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GETRLS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GETRLS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GETRLS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GETRLS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GETRLS.FOR
COMRPL    : Date       Fri Jul 18 16:57:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GETSTR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GETSTR.f
FC        : Date       Fri Jul 18 16:57:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETSTR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETSTR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GETSTR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GETSTR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GETSTR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GETSTR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GETSTR.FOR
COMRPL    : Date       Fri Jul 18 16:58:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GETSYM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GETSYM.f
FC        : Date       Fri Jul 18 16:58:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETSYM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETSYM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GETSYM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GETSYM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GETSYM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GETSYM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GETSYM.FOR
COMRPL    : Date       Fri Jul 18 16:58:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GETVIS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GETVIS.f
FC        : Date       Fri Jul 18 16:58:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETVIS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GETVIS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GETVIS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GETVIS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GETVIS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GETVIS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GETVIS.FOR
COMRPL    : Date       Fri Jul 18 16:58:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GRDFIX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GRDFIX.f
FC        : Date       Fri Jul 18 16:58:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDFIX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDFIX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GRDFIX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GRDFIX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GRDFIX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GRDFIX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GRDFIX.FOR
COMRPL    : Date       Fri Jul 18 16:58:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GRDFLT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GRDFLT.f
FC        : Date       Fri Jul 18 16:58:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDFLT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDFLT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GRDFLT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GRDFLT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GRDFLT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GRDFLT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GRDFLT.FOR
COMRPL    : Date       Fri Jul 18 16:58:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GREG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GREG.f
FC        : Date       Fri Jul 18 16:58:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GREG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GREG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GREG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GREG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GREG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GREG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GREG.FOR
COMRPL    : Date       Fri Jul 18 16:58:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GSCRED.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GSCRED.f
FC        : Date       Fri Jul 18 16:58:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GSCRED.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GSCRED.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GSCRED.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GSCRED.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GSCRED.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GSCRED.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GSCRED.FOR
COMRPL    : Date       Fri Jul 18 16:58:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GTICNT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GTICNT.f
FC        : Date       Fri Jul 18 16:58:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GTICNT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GTICNT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GTICNT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GTICNT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GTICNT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GTICNT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GTICNT.FOR
COMRPL    : Date       Fri Jul 18 16:58:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GTPARM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GTPARM.f
FC        : Date       Fri Jul 18 16:58:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GTPARM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GTPARM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GTPARM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GTPARM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GTPARM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GTPARM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GTPARM.FOR
COMRPL    : Date       Fri Jul 18 16:58:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GTTELL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GTTELL.f
FC        : Date       Fri Jul 18 16:58:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GTTELL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GTTELL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GTTELL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GTTELL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GTTELL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GTTELL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GTTELL.FOR
COMRPL    : Date       Fri Jul 18 16:58:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/GTWCRD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GTWCRD.f
FC        : Date       Fri Jul 18 16:58:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GTWCRD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GTWCRD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GTWCRD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GTWCRD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GTWCRD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/GTWCRD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/GTWCRD.FOR
COMRPL    : Date       Fri Jul 18 16:58:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/H2CHR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/H2CHR.f
FC        : Date       Fri Jul 18 16:58:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/H2CHR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/H2CHR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/H2CHR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/H2CHR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/H2CHR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/H2CHR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/H2CHR.FOR
COMRPL    : Date       Fri Jul 18 16:58:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/H2WAWA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/H2WAWA.f
FC        : Date       Fri Jul 18 16:58:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/H2WAWA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/H2WAWA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/H2WAWA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/H2WAWA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/H2WAWA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/H2WAWA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/H2WAWA.FOR
COMRPL    : Date       Fri Jul 18 16:58:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HDRBUF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HDRBUF.f
FC        : Date       Fri Jul 18 16:58:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HDRBUF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HDRBUF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HDRBUF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HDRBUF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HDRBUF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HDRBUF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HDRBUF.FOR
COMRPL    : Date       Fri Jul 18 16:58:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HDRINF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HDRINF.f
FC        : Date       Fri Jul 18 16:58:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HDRINF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HDRINF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HDRINF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HDRINF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HDRINF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HDRINF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HDRINF.FOR
COMRPL    : Date       Fri Jul 18 16:58:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HDRWIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HDRWIN.f
FC        : Date       Fri Jul 18 16:58:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HDRWIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HDRWIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HDRWIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HDRWIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HDRWIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HDRWIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HDRWIN.FOR
COMRPL    : Date       Fri Jul 18 16:58:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HENCO1.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HENCO1.f
FC        : Date       Fri Jul 18 16:58:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HENCO1.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HENCO1.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HENCO1.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HENCO1.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HENCO1.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HENCO1.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HENCO1.FOR
COMRPL    : Date       Fri Jul 18 16:58:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HENCO2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HENCO2.f
FC        : Date       Fri Jul 18 16:58:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HENCO2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HENCO2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HENCO2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HENCO2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HENCO2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HENCO2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HENCO2.FOR
COMRPL    : Date       Fri Jul 18 16:58:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HENCO3.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HENCO3.f
FC        : Date       Fri Jul 18 16:58:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HENCO3.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HENCO3.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HENCO3.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HENCO3.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HENCO3.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HENCO3.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HENCO3.FOR
COMRPL    : Date       Fri Jul 18 16:58:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HENCO4.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HENCO4.f
FC        : Date       Fri Jul 18 16:58:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HENCO4.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HENCO4.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HENCO4.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HENCO4.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HENCO4.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HENCO4.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HENCO4.FOR
COMRPL    : Date       Fri Jul 18 16:58:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HENCOO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HENCOO.f
FC        : Date       Fri Jul 18 16:58:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HENCOO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HENCOO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HENCOO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HENCOO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HENCOO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HENCOO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HENCOO.FOR
COMRPL    : Date       Fri Jul 18 16:58:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HIAD80.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HIAD80.f
FC        : Date       Fri Jul 18 16:58:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIAD80.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIAD80.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HIAD80.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HIAD80.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HIAD80.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HIAD80.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HIAD80.FOR
COMRPL    : Date       Fri Jul 18 16:58:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HIADD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HIADD.f
FC        : Date       Fri Jul 18 16:58:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIADD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIADD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HIADD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HIADD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HIADD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HIADD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HIADD.FOR
COMRPL    : Date       Fri Jul 18 16:58:19 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HIADDN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HIADDN.f
FC        : Date       Fri Jul 18 16:58:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIADDN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIADDN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HIADDN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HIADDN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HIADDN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HIADDN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HIADDN.FOR
COMRPL    : Date       Fri Jul 18 16:58:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HICLOS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HICLOS.f
FC        : Date       Fri Jul 18 16:58:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HICLOS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HICLOS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HICLOS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HICLOS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HICLOS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HICLOS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HICLOS.FOR
COMRPL    : Date       Fri Jul 18 16:58:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HICOPY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HICOPY.f
FC        : Date       Fri Jul 18 16:58:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HICOPY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HICOPY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HICOPY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HICOPY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HICOPY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HICOPY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HICOPY.FOR
COMRPL    : Date       Fri Jul 18 16:58:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HICREA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HICREA.f
FC        : Date       Fri Jul 18 16:58:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HICREA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HICREA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HICREA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HICREA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HICREA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HICREA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HICREA.FOR
COMRPL    : Date       Fri Jul 18 16:58:23 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HIINIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HIINIT.f
FC        : Date       Fri Jul 18 16:58:23 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIINIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIINIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HIINIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HIINIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HIINIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HIINIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HIINIT.FOR
COMRPL    : Date       Fri Jul 18 16:58:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HIIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HIIO.f
FC        : Date       Fri Jul 18 16:58:24 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HIIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HIIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HIIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HIIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HIIO.FOR
COMRPL    : Date       Fri Jul 18 16:58:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HILOCT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HILOCT.f
FC        : Date       Fri Jul 18 16:58:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HILOCT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HILOCT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HILOCT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HILOCT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HILOCT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HILOCT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HILOCT.FOR
COMRPL    : Date       Fri Jul 18 16:58:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HIMERG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HIMERG.f
FC        : Date       Fri Jul 18 16:58:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIMERG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIMERG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HIMERG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HIMERG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HIMERG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HIMERG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HIMERG.FOR
COMRPL    : Date       Fri Jul 18 16:58:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HIOPEN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HIOPEN.f
FC        : Date       Fri Jul 18 16:58:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIOPEN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIOPEN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HIOPEN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HIOPEN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HIOPEN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HIOPEN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HIOPEN.FOR
COMRPL    : Date       Fri Jul 18 16:58:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HIPLOT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HIPLOT.f
FC        : Date       Fri Jul 18 16:58:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIPLOT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HIPLOT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HIPLOT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HIPLOT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HIPLOT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HIPLOT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HIPLOT.FOR
COMRPL    : Date       Fri Jul 18 16:58:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HISCOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HISCOP.f
FC        : Date       Fri Jul 18 16:58:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HISCOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HISCOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HISCOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HISCOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HISCOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HISCOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HISCOP.FOR
COMRPL    : Date       Fri Jul 18 16:58:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/HITIME.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HITIME.f
FC        : Date       Fri Jul 18 16:58:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HITIME.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HITIME.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HITIME.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HITIME.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HITIME.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/HITIME.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/HITIME.FOR
COMRPL    : Date       Fri Jul 18 16:58:30 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/IAMOK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/IAMOK.f
FC        : Date       Fri Jul 18 16:58:30 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IAMOK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IAMOK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/IAMOK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/IAMOK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/IAMOK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/IAMOK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/IAMOK.FOR
COMRPL    : Date       Fri Jul 18 16:58:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ICOPEN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ICOPEN.f
FC        : Date       Fri Jul 18 16:58:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ICOPEN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ICOPEN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ICOPEN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ICOPEN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ICOPEN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ICOPEN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ICOPEN.FOR
COMRPL    : Date       Fri Jul 18 16:58:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/IDWCRD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/IDWCRD.f
FC        : Date       Fri Jul 18 16:58:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IDWCRD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IDWCRD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/IDWCRD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/IDWCRD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/IDWCRD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/IDWCRD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/IDWCRD.FOR
COMRPL    : Date       Fri Jul 18 16:58:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/IFPC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/IFPC.f
FC        : Date       Fri Jul 18 16:58:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IFPC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IFPC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/IFPC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/IFPC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/IFPC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/IFPC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/IFPC.FOR
COMRPL    : Date       Fri Jul 18 16:58:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/IMA2MP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/IMA2MP.f
FC        : Date       Fri Jul 18 16:58:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMA2MP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMA2MP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/IMA2MP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/IMA2MP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/IMA2MP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/IMA2MP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/IMA2MP.FOR
COMRPL    : Date       Fri Jul 18 16:58:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/IMERGE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/IMERGE.f
FC        : Date       Fri Jul 18 16:58:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMERGE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMERGE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/IMERGE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/IMERGE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/IMERGE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/IMERGE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/IMERGE.FOR
COMRPL    : Date       Fri Jul 18 16:58:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/IMGERR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/IMGERR.f
FC        : Date       Fri Jul 18 16:58:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMGERR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMGERR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/IMGERR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/IMGERR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/IMGERR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/IMGERR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/IMGERR.FOR
COMRPL    : Date       Fri Jul 18 16:58:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/INQFLT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/INQFLT.f
FC        : Date       Fri Jul 18 16:58:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INQFLT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INQFLT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/INQFLT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/INQFLT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/INQFLT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/INQFLT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/INQFLT.FOR
COMRPL    : Date       Fri Jul 18 16:58:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/INQGEN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/INQGEN.f
FC        : Date       Fri Jul 18 16:58:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INQGEN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INQGEN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/INQGEN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/INQGEN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/INQGEN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/INQGEN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/INQGEN.FOR
COMRPL    : Date       Fri Jul 18 16:58:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/INQINT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/INQINT.f
FC        : Date       Fri Jul 18 16:58:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INQINT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INQINT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/INQINT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/INQINT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/INQINT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/INQINT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/INQINT.FOR
COMRPL    : Date       Fri Jul 18 16:58:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/INQSTR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/INQSTR.f
FC        : Date       Fri Jul 18 16:58:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INQSTR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INQSTR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/INQSTR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/INQSTR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/INQSTR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/INQSTR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/INQSTR.FOR
COMRPL    : Date       Fri Jul 18 16:58:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/INTEDG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/INTEDG.f
FC        : Date       Fri Jul 18 16:58:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INTEDG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INTEDG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/INTEDG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/INTEDG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/INTEDG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/INTEDG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/INTEDG.FOR
COMRPL    : Date       Fri Jul 18 16:58:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/IOSET.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/IOSET.f
FC        : Date       Fri Jul 18 16:58:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IOSET.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IOSET.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/IOSET.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/IOSET.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/IOSET.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/IOSET.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/IOSET.FOR
COMRPL    : Date       Fri Jul 18 16:58:41 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/IROUND.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/IROUND.f
FC        : Date       Fri Jul 18 16:58:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IROUND.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IROUND.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/IROUND.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/IROUND.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/IROUND.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/IROUND.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/IROUND.FOR
COMRPL    : Date       Fri Jul 18 16:58:42 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ISCALE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ISCALE.f
FC        : Date       Fri Jul 18 16:58:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ISCALE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ISCALE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ISCALE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ISCALE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ISCALE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ISCALE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ISCALE.FOR
COMRPL    : Date       Fri Jul 18 16:58:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ISHSRT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ISHSRT.f
FC        : Date       Fri Jul 18 16:58:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ISHSRT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ISHSRT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ISHSRT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ISHSRT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ISHSRT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ISHSRT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ISHSRT.FOR
COMRPL    : Date       Fri Jul 18 16:58:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ISORT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ISORT.f
FC        : Date       Fri Jul 18 16:58:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ISORT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ISORT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ISORT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ISORT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ISORT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ISORT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ISORT.FOR
COMRPL    : Date       Fri Jul 18 16:58:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ISTAB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ISTAB.f
FC        : Date       Fri Jul 18 16:58:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ISTAB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ISTAB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ISTAB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ISTAB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ISTAB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ISTAB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ISTAB.FOR
COMRPL    : Date       Fri Jul 18 16:58:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ISUM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ISUM.f
FC        : Date       Fri Jul 18 16:58:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ISUM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ISUM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ISUM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ISUM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ISUM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ISUM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ISUM.FOR
COMRPL    : Date       Fri Jul 18 16:58:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ITRIM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ITRIM.f
FC        : Date       Fri Jul 18 16:58:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ITRIM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ITRIM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ITRIM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ITRIM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ITRIM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ITRIM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ITRIM.FOR
COMRPL    : Date       Fri Jul 18 16:58:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/IWPC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/IWPC.f
FC        : Date       Fri Jul 18 16:58:48 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IWPC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IWPC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/IWPC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/IWPC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/IWPC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/IWPC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/IWPC.FOR
COMRPL    : Date       Fri Jul 18 16:58:48 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/JABER.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/JABER.f
FC        : Date       Fri Jul 18 16:58:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/JABER.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/JABER.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/JABER.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/JABER.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/JABER.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/JABER.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/JABER.FOR
COMRPL    : Date       Fri Jul 18 16:58:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/JD2DAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/JD2DAT.f
FC        : Date       Fri Jul 18 16:58:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/JD2DAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/JD2DAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/JD2DAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/JD2DAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/JD2DAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/JD2DAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/JD2DAT.FOR
COMRPL    : Date       Fri Jul 18 16:58:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/JNUT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/JNUT.f
FC        : Date       Fri Jul 18 16:58:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/JNUT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/JNUT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/JNUT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/JNUT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/JNUT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/JNUT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/JNUT.FOR
COMRPL    : Date       Fri Jul 18 16:58:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/JPOLAR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/JPOLAR.f
FC        : Date       Fri Jul 18 16:58:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/JPOLAR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/JPOLAR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/JPOLAR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/JPOLAR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/JPOLAR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/JPOLAR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/JPOLAR.FOR
COMRPL    : Date       Fri Jul 18 16:58:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/JTRIM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/JTRIM.f
FC        : Date       Fri Jul 18 16:58:52 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/JTRIM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/JTRIM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/JTRIM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/JTRIM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/JTRIM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/JTRIM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/JTRIM.FOR
COMRPL    : Date       Fri Jul 18 16:58:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/JULDAY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/JULDAY.f
FC        : Date       Fri Jul 18 16:58:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/JULDAY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/JULDAY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/JULDAY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/JULDAY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/JULDAY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/JULDAY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/JULDAY.FOR
COMRPL    : Date       Fri Jul 18 16:58:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/KEYCOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/KEYCOP.f
FC        : Date       Fri Jul 18 16:58:54 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/KEYCOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/KEYCOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/KEYCOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/KEYCOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/KEYCOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/KEYCOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/KEYCOP.FOR
COMRPL    : Date       Fri Jul 18 16:58:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/KTRIM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/KTRIM.f
FC        : Date       Fri Jul 18 16:58:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/KTRIM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/KTRIM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/KTRIM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/KTRIM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/KTRIM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/KTRIM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/KTRIM.FOR
COMRPL    : Date       Fri Jul 18 16:58:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LABINI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LABINI.f
FC        : Date       Fri Jul 18 16:58:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LABINI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LABINI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LABINI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LABINI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LABINI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LABINI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LABINI.FOR
COMRPL    : Date       Fri Jul 18 16:58:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LCOPY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LCOPY.f
FC        : Date       Fri Jul 18 16:58:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LCOPY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LCOPY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LCOPY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LCOPY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LCOPY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LCOPY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LCOPY.FOR
COMRPL    : Date       Fri Jul 18 16:58:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LFILL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LFILL.f
FC        : Date       Fri Jul 18 16:58:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LFILL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LFILL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LFILL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LFILL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LFILL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LFILL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LFILL.FOR
COMRPL    : Date       Fri Jul 18 16:58:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LINLIM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LINLIM.f
FC        : Date       Fri Jul 18 16:58:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LINLIM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LINLIM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LINLIM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LINLIM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LINLIM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LINLIM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LINLIM.FOR
COMRPL    : Date       Fri Jul 18 16:58:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LINTER.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LINTER.f
FC        : Date       Fri Jul 18 16:58:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LINTER.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LINTER.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LINTER.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LINTER.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LINTER.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LINTER.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LINTER.FOR
COMRPL    : Date       Fri Jul 18 16:59:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LMDER1.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LMDER1.f
FC        : Date       Fri Jul 18 16:59:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LMDER1.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LMDER1.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LMDER1.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LMDER1.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LMDER1.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LMDER1.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LMDER1.FOR
COMRPL    : Date       Fri Jul 18 16:59:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LMDER.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LMDER.f
FC        : Date       Fri Jul 18 16:59:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LMDER.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LMDER.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LMDER.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LMDER.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LMDER.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LMDER.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LMDER.FOR
COMRPL    : Date       Fri Jul 18 16:59:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LMPAR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LMPAR.f
FC        : Date       Fri Jul 18 16:59:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LMPAR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LMPAR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LMPAR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LMPAR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LMPAR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LMPAR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LMPAR.FOR
COMRPL    : Date       Fri Jul 18 16:59:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LMPIX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LMPIX.f
FC        : Date       Fri Jul 18 16:59:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LMPIX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LMPIX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LMPIX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LMPIX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LMPIX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LMPIX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LMPIX.FOR
COMRPL    : Date       Fri Jul 18 16:59:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LMSTR1.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LMSTR1.f
FC        : Date       Fri Jul 18 16:59:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LMSTR1.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LMSTR1.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LMSTR1.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LMSTR1.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LMSTR1.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LMSTR1.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LMSTR1.FOR
COMRPL    : Date       Fri Jul 18 16:59:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LMSTR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LMSTR.f
FC        : Date       Fri Jul 18 16:59:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LMSTR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LMSTR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LMSTR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LMSTR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LMSTR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LMSTR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LMSTR.FOR
COMRPL    : Date       Fri Jul 18 16:59:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LPCLOS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LPCLOS.f
FC        : Date       Fri Jul 18 16:59:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LPCLOS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LPCLOS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LPCLOS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LPCLOS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LPCLOS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LPCLOS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LPCLOS.FOR
COMRPL    : Date       Fri Jul 18 16:59:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LPOPEN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LPOPEN.f
FC        : Date       Fri Jul 18 16:59:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LPOPEN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LPOPEN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LPOPEN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LPOPEN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LPOPEN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LPOPEN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LPOPEN.FOR
COMRPL    : Date       Fri Jul 18 16:59:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LSERCH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LSERCH.f
FC        : Date       Fri Jul 18 16:59:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LSERCH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LSERCH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LSERCH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LSERCH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LSERCH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LSERCH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LSERCH.FOR
COMRPL    : Date       Fri Jul 18 16:59:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LSORT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LSORT.f
FC        : Date       Fri Jul 18 16:59:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LSORT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LSORT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LSORT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LSORT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LSORT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LSORT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LSORT.FOR
COMRPL    : Date       Fri Jul 18 16:59:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/LSTHDR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/LSTHDR.f
FC        : Date       Fri Jul 18 16:59:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LSTHDR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/LSTHDR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/LSTHDR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/LSTHDR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/LSTHDR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/LSTHDR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/LSTHDR.FOR
COMRPL    : Date       Fri Jul 18 16:59:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MADDEX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MADDEX.f
FC        : Date       Fri Jul 18 16:59:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MADDEX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MADDEX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MADDEX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MADDEX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MADDEX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MADDEX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MADDEX.FOR
COMRPL    : Date       Fri Jul 18 16:59:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MAKOUT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MAKOUT.f
FC        : Date       Fri Jul 18 16:59:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAKOUT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAKOUT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MAKOUT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MAKOUT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MAKOUT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MAKOUT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MAKOUT.FOR
COMRPL    : Date       Fri Jul 18 16:59:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MAPCLR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MAPCLR.f
FC        : Date       Fri Jul 18 16:59:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPCLR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPCLR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MAPCLR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MAPCLR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MAPCLR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MAPCLR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MAPCLR.FOR
COMRPL    : Date       Fri Jul 18 16:59:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MAPCLS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MAPCLS.f
FC        : Date       Fri Jul 18 16:59:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPCLS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPCLS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MAPCLS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MAPCLS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MAPCLS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MAPCLS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MAPCLS.FOR
COMRPL    : Date       Fri Jul 18 16:59:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MAPCOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MAPCOP.f
FC        : Date       Fri Jul 18 16:59:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPCOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPCOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MAPCOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MAPCOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MAPCOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MAPCOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MAPCOP.FOR
COMRPL    : Date       Fri Jul 18 16:59:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MAPCR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MAPCR.f
FC        : Date       Fri Jul 18 16:59:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPCR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPCR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MAPCR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MAPCR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MAPCR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MAPCR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MAPCR.FOR
COMRPL    : Date       Fri Jul 18 16:59:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MAPIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MAPIO.f
FC        : Date       Fri Jul 18 16:59:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MAPIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MAPIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MAPIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MAPIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MAPIO.FOR
COMRPL    : Date       Fri Jul 18 16:59:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MAPMAX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MAPMAX.f
FC        : Date       Fri Jul 18 16:59:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPMAX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPMAX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MAPMAX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MAPMAX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MAPMAX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MAPMAX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MAPMAX.FOR
COMRPL    : Date       Fri Jul 18 16:59:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MAPOPN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MAPOPN.f
FC        : Date       Fri Jul 18 16:59:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPOPN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPOPN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MAPOPN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MAPOPN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MAPOPN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MAPOPN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MAPOPN.FOR
COMRPL    : Date       Fri Jul 18 16:59:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MAPSIZ.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MAPSIZ.f
FC        : Date       Fri Jul 18 16:59:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPSIZ.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPSIZ.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MAPSIZ.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MAPSIZ.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MAPSIZ.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MAPSIZ.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MAPSIZ.FOR
COMRPL    : Date       Fri Jul 18 16:59:19 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MAPSNC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MAPSNC.f
FC        : Date       Fri Jul 18 16:59:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPSNC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPSNC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MAPSNC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MAPSNC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MAPSNC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MAPSNC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MAPSNC.FOR
COMRPL    : Date       Fri Jul 18 16:59:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MAPWIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MAPWIN.f
FC        : Date       Fri Jul 18 16:59:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPWIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPWIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MAPWIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MAPWIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MAPWIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MAPWIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MAPWIN.FOR
COMRPL    : Date       Fri Jul 18 16:59:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MAPXY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MAPXY.f
FC        : Date       Fri Jul 18 16:59:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPXY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAPXY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MAPXY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MAPXY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MAPXY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MAPXY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MAPXY.FOR
COMRPL    : Date       Fri Jul 18 16:59:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MATCH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MATCH.f
FC        : Date       Fri Jul 18 16:59:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MATCH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MATCH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MATCH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MATCH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MATCH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MATCH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MATCH.FOR
COMRPL    : Date       Fri Jul 18 16:59:23 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MATVMU.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MATVMU.f
FC        : Date       Fri Jul 18 16:59:23 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MATVMU.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MATVMU.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MATVMU.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MATVMU.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MATVMU.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MATVMU.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MATVMU.FOR
COMRPL    : Date       Fri Jul 18 16:59:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MCREAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MCREAT.f
FC        : Date       Fri Jul 18 16:59:24 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MCREAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MCREAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MCREAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MCREAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MCREAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MCREAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MCREAT.FOR
COMRPL    : Date       Fri Jul 18 16:59:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MDESTR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MDESTR.f
FC        : Date       Fri Jul 18 16:59:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MDESTR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MDESTR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MDESTR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MDESTR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MDESTR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MDESTR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MDESTR.FOR
COMRPL    : Date       Fri Jul 18 16:59:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MDISK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MDISK.f
FC        : Date       Fri Jul 18 16:59:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MDISK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MDISK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MDISK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MDISK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MDISK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MDISK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MDISK.FOR
COMRPL    : Date       Fri Jul 18 16:59:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/METSCA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/METSCA.f
FC        : Date       Fri Jul 18 16:59:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/METSCA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/METSCA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/METSCA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/METSCA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/METSCA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/METSCA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/METSCA.FOR
COMRPL    : Date       Fri Jul 18 16:59:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/METSCD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/METSCD.f
FC        : Date       Fri Jul 18 16:59:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/METSCD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/METSCD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/METSCD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/METSCD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/METSCD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/METSCD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/METSCD.FOR
COMRPL    : Date       Fri Jul 18 16:59:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MFINI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MFINI.f
FC        : Date       Fri Jul 18 16:59:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MFINI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MFINI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MFINI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MFINI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MFINI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MFINI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MFINI.FOR
COMRPL    : Date       Fri Jul 18 16:59:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MINIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MINIT.f
FC        : Date       Fri Jul 18 16:59:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MINIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MINIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MINIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MINIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MINIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MINIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MINIT.FOR
COMRPL    : Date       Fri Jul 18 16:59:30 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MINSK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MINSK.f
FC        : Date       Fri Jul 18 16:59:30 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MINSK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MINSK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MINSK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MINSK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MINSK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MINSK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MINSK.FOR
COMRPL    : Date       Fri Jul 18 16:59:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MKYBUF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MKYBUF.f
FC        : Date       Fri Jul 18 16:59:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MKYBUF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MKYBUF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MKYBUF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MKYBUF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MKYBUF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MKYBUF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MKYBUF.FOR
COMRPL    : Date       Fri Jul 18 16:59:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MLREOF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MLREOF.f
FC        : Date       Fri Jul 18 16:59:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MLREOF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MLREOF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MLREOF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MLREOF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MLREOF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MLREOF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MLREOF.FOR
COMRPL    : Date       Fri Jul 18 16:59:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MOM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MOM.f
FC        : Date       Fri Jul 18 16:59:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MOM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MOM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MOM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MOM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MOM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MOM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MOM.FOR
COMRPL    : Date       Fri Jul 18 16:59:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MOVIST.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MOVIST.f
FC        : Date       Fri Jul 18 16:59:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MOVIST.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MOVIST.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MOVIST.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MOVIST.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MOVIST.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MOVIST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MOVIST.FOR
COMRPL    : Date       Fri Jul 18 16:59:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MP2IMA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MP2IMA.f
FC        : Date       Fri Jul 18 16:59:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MP2IMA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MP2IMA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MP2IMA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MP2IMA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MP2IMA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MP2IMA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MP2IMA.FOR
COMRPL    : Date       Fri Jul 18 16:59:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MP2SKY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MP2SKY.f
FC        : Date       Fri Jul 18 16:59:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MP2SKY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MP2SKY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MP2SKY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MP2SKY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MP2SKY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MP2SKY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MP2SKY.FOR
COMRPL    : Date       Fri Jul 18 16:59:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MSGWRT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MSGWRT.f
FC        : Date       Fri Jul 18 16:59:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MSGWRT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MSGWRT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MSGWRT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MSGWRT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MSGWRT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MSGWRT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MSGWRT.FOR
COMRPL    : Date       Fri Jul 18 16:59:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MSKIP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MSKIP.f
FC        : Date       Fri Jul 18 16:59:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MSKIP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MSKIP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MSKIP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MSKIP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MSKIP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MSKIP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MSKIP.FOR
COMRPL    : Date       Fri Jul 18 16:59:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MULSDB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MULSDB.f
FC        : Date       Fri Jul 18 16:59:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MULSDB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MULSDB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MULSDB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MULSDB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MULSDB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MULSDB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MULSDB.FOR
COMRPL    : Date       Fri Jul 18 16:59:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/MWFBSM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MWFBSM.f
FC        : Date       Fri Jul 18 16:59:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MWFBSM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MWFBSM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MWFBSM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MWFBSM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MWFBSM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/MWFBSM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/MWFBSM.FOR
COMRPL    : Date       Fri Jul 18 16:59:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/NAMEST.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/NAMEST.f
FC        : Date       Fri Jul 18 16:59:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/NAMEST.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/NAMEST.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/NAMEST.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/NAMEST.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/NAMEST.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/NAMEST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/NAMEST.FOR
COMRPL    : Date       Fri Jul 18 16:59:41 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/NBYPX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/NBYPX.f
FC        : Date       Fri Jul 18 16:59:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/NBYPX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/NBYPX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/NBYPX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/NBYPX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/NBYPX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/NBYPX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/NBYPX.FOR
COMRPL    : Date       Fri Jul 18 16:59:42 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/NEWPOS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/NEWPOS.f
FC        : Date       Fri Jul 18 16:59:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/NEWPOS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/NEWPOS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/NEWPOS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/NEWPOS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/NEWPOS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/NEWPOS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/NEWPOS.FOR
COMRPL    : Date       Fri Jul 18 16:59:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/NMATCC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/NMATCC.f
FC        : Date       Fri Jul 18 16:59:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/NMATCC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/NMATCC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/NMATCC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/NMATCC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/NMATCC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/NMATCC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/NMATCC.FOR
COMRPL    : Date       Fri Jul 18 16:59:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/NMATCH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/NMATCH.f
FC        : Date       Fri Jul 18 16:59:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/NMATCH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/NMATCH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/NMATCH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/NMATCH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/NMATCH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/NMATCH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/NMATCH.FOR
COMRPL    : Date       Fri Jul 18 16:59:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/NXTMAP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/NXTMAP.f
FC        : Date       Fri Jul 18 16:59:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/NXTMAP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/NXTMAP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/NXTMAP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/NXTMAP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/NXTMAP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/NXTMAP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/NXTMAP.FOR
COMRPL    : Date       Fri Jul 18 16:59:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OFMDIR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/OFMDIR.f
FC        : Date       Fri Jul 18 16:59:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OFMDIR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OFMDIR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/OFMDIR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/OFMDIR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/OFMDIR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OFMDIR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OFMDIR.FOR
COMRPL    : Date       Fri Jul 18 16:59:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OPACTY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/OPACTY.f
FC        : Date       Fri Jul 18 16:59:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OPACTY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OPACTY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/OPACTY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/OPACTY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/OPACTY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OPACTY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OPACTY.FOR
COMRPL    : Date       Fri Jul 18 16:59:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OPENCF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/OPENCF.f
FC        : Date       Fri Jul 18 16:59:48 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OPENCF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OPENCF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/OPENCF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/OPENCF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/OPENCF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OPENCF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OPENCF.FOR
COMRPL    : Date       Fri Jul 18 16:59:48 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OPEXT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/OPEXT.f
FC        : Date       Fri Jul 18 16:59:48 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OPEXT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OPEXT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/OPEXT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/OPEXT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/OPEXT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OPEXT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OPEXT.FOR
COMRPL    : Date       Fri Jul 18 16:59:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OSORT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/OSORT.f
FC        : Date       Fri Jul 18 16:59:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OSORT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OSORT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/OSORT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/OSORT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/OSORT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OSORT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OSORT.FOR
COMRPL    : Date       Fri Jul 18 16:59:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OVLIOR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/OVLIOR.f
FC        : Date       Fri Jul 18 16:59:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OVLIOR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OVLIOR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/OVLIOR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/OVLIOR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/OVLIOR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OVLIOR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OVLIOR.FOR
COMRPL    : Date       Fri Jul 18 16:59:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OVLROI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/OVLROI.f
FC        : Date       Fri Jul 18 16:59:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OVLROI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OVLROI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/OVLROI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/OVLROI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/OVLROI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OVLROI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OVLROI.FOR
COMRPL    : Date       Fri Jul 18 16:59:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PASENC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PASENC.f
FC        : Date       Fri Jul 18 16:59:52 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PASENC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PASENC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PASENC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PASENC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PASENC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PASENC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PASENC.FOR
COMRPL    : Date       Fri Jul 18 16:59:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PASWRD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PASWRD.f
FC        : Date       Fri Jul 18 16:59:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PASWRD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PASWRD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PASWRD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PASWRD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PASWRD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PASWRD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PASWRD.FOR
COMRPL    : Date       Fri Jul 18 16:59:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PBCALC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PBCALC.f
FC        : Date       Fri Jul 18 16:59:54 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PBCALC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PBCALC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PBCALC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PBCALC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PBCALC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PBCALC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PBCALC.FOR
COMRPL    : Date       Fri Jul 18 16:59:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PEAKFN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PEAKFN.f
FC        : Date       Fri Jul 18 16:59:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PEAKFN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PEAKFN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PEAKFN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PEAKFN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PEAKFN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PEAKFN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PEAKFN.FOR
COMRPL    : Date       Fri Jul 18 16:59:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PERMAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PERMAT.f
FC        : Date       Fri Jul 18 16:59:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PERMAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PERMAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PERMAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PERMAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PERMAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PERMAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PERMAT.FOR
COMRPL    : Date       Fri Jul 18 16:59:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PLNGET.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PLNGET.f
FC        : Date       Fri Jul 18 16:59:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLNGET.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLNGET.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PLNGET.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PLNGET.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PLNGET.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PLNGET.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PLNGET.FOR
COMRPL    : Date       Fri Jul 18 16:59:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/POINI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/POINI.f
FC        : Date       Fri Jul 18 16:59:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/POINI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/POINI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/POINI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/POINI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/POINI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/POINI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/POINI.FOR
COMRPL    : Date       Fri Jul 18 16:59:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/POWER2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/POWER2.f
FC        : Date       Fri Jul 18 16:59:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/POWER2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/POWER2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/POWER2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/POWER2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/POWER2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/POWER2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/POWER2.FOR
COMRPL    : Date       Fri Jul 18 16:59:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PRENAM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PRENAM.f
FC        : Date       Fri Jul 18 16:59:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRENAM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRENAM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PRENAM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PRENAM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PRENAM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PRENAM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PRENAM.FOR
COMRPL    : Date       Fri Jul 18 17:00:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PRJMAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PRJMAT.f
FC        : Date       Fri Jul 18 17:00:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRJMAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRJMAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PRJMAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PRJMAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PRJMAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PRJMAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PRJMAT.FOR
COMRPL    : Date       Fri Jul 18 17:00:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PRJMUL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PRJMUL.f
FC        : Date       Fri Jul 18 17:00:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRJMUL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRJMUL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PRJMUL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PRJMUL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PRJMUL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PRJMUL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PRJMUL.FOR
COMRPL    : Date       Fri Jul 18 17:00:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PRTLIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PRTLIN.f
FC        : Date       Fri Jul 18 17:00:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRTLIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRTLIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PRTLIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PRTLIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PRTLIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PRTLIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PRTLIN.FOR
COMRPL    : Date       Fri Jul 18 17:00:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PRTNAM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PRTNAM.f
FC        : Date       Fri Jul 18 17:00:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRTNAM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRTNAM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PRTNAM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PRTNAM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PRTNAM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PRTNAM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PRTNAM.FOR
COMRPL    : Date       Fri Jul 18 17:00:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PSFORM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PSFORM.f
FC        : Date       Fri Jul 18 17:00:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PSFORM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PSFORM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PSFORM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PSFORM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PSFORM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PSFORM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PSFORM.FOR
COMRPL    : Date       Fri Jul 18 17:00:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PTPARM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PTPARM.f
FC        : Date       Fri Jul 18 17:00:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PTPARM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PTPARM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PTPARM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PTPARM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PTPARM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PTPARM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PTPARM.FOR
COMRPL    : Date       Fri Jul 18 17:00:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PUTCOL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PUTCOL.f
FC        : Date       Fri Jul 18 17:00:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PUTCOL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PUTCOL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PUTCOL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PUTCOL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PUTCOL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PUTCOL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PUTCOL.FOR
COMRPL    : Date       Fri Jul 18 17:00:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PUTCRD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PUTCRD.f
FC        : Date       Fri Jul 18 17:00:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PUTCRD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PUTCRD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PUTCRD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PUTCRD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PUTCRD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PUTCRD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PUTCRD.FOR
COMRPL    : Date       Fri Jul 18 17:00:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/PUTKEY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PUTKEY.f
FC        : Date       Fri Jul 18 17:00:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PUTKEY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PUTKEY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PUTKEY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PUTKEY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PUTKEY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/PUTKEY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/PUTKEY.FOR
COMRPL    : Date       Fri Jul 18 17:00:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/QRFAC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QRFAC.f
FC        : Date       Fri Jul 18 17:00:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QRFAC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QRFAC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QRFAC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QRFAC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QRFAC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/QRFAC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/QRFAC.FOR
COMRPL    : Date       Fri Jul 18 17:00:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/QRSOLV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QRSOLV.f
FC        : Date       Fri Jul 18 17:00:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QRSOLV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QRSOLV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QRSOLV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QRSOLV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QRSOLV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/QRSOLV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/QRSOLV.FOR
COMRPL    : Date       Fri Jul 18 17:00:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/RANDIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RANDIN.f
FC        : Date       Fri Jul 18 17:00:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RANDIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RANDIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RANDIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RANDIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RANDIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/RANDIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/RANDIN.FOR
COMRPL    : Date       Fri Jul 18 17:00:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/RANDUM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RANDUM.f
FC        : Date       Fri Jul 18 17:00:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RANDUM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RANDUM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RANDUM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RANDUM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RANDUM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/RANDUM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/RANDUM.FOR
COMRPL    : Date       Fri Jul 18 17:00:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/RCOPY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RCOPY.f
FC        : Date       Fri Jul 18 17:00:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RCOPY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RCOPY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RCOPY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RCOPY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RCOPY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/RCOPY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/RCOPY.FOR
COMRPL    : Date       Fri Jul 18 17:00:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/RCOPYS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RCOPYS.f
FC        : Date       Fri Jul 18 17:00:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RCOPYS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RCOPYS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RCOPYS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RCOPYS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RCOPYS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/RCOPYS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/RCOPYS.FOR
COMRPL    : Date       Fri Jul 18 17:00:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/REALOG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/REALOG.f
FC        : Date       Fri Jul 18 17:00:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/REALOG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/REALOG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/REALOG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/REALOG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/REALOG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/REALOG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/REALOG.FOR
COMRPL    : Date       Fri Jul 18 17:00:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/REAVRT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/REAVRT.f
FC        : Date       Fri Jul 18 17:00:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/REAVRT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/REAVRT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/REAVRT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/REAVRT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/REAVRT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/REAVRT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/REAVRT.FOR
COMRPL    : Date       Fri Jul 18 17:00:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/RECONV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RECONV.f
FC        : Date       Fri Jul 18 17:00:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RECONV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RECONV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RECONV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RECONV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RECONV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/RECONV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/RECONV.FOR
COMRPL    : Date       Fri Jul 18 17:00:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/REFRMT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/REFRMT.f
FC        : Date       Fri Jul 18 17:00:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/REFRMT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/REFRMT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/REFRMT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/REFRMT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/REFRMT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/REFRMT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/REFRMT.FOR
COMRPL    : Date       Fri Jul 18 17:00:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/RELPOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RELPOP.f
FC        : Date       Fri Jul 18 17:00:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RELPOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RELPOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RELPOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RELPOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RELPOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/RELPOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/RELPOP.FOR
COMRPL    : Date       Fri Jul 18 17:00:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/REMKEY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/REMKEY.f
FC        : Date       Fri Jul 18 17:00:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/REMKEY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/REMKEY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/REMKEY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/REMKEY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/REMKEY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/REMKEY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/REMKEY.FOR
COMRPL    : Date       Fri Jul 18 17:00:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/REQBAS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/REQBAS.f
FC        : Date       Fri Jul 18 17:00:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/REQBAS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/REQBAS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/REQBAS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/REQBAS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/REQBAS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/REQBAS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/REQBAS.FOR
COMRPL    : Date       Fri Jul 18 17:00:19 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/RESCAL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RESCAL.f
FC        : Date       Fri Jul 18 17:00:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RESCAL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RESCAL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RESCAL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RESCAL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RESCAL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/RESCAL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/RESCAL.FOR
COMRPL    : Date       Fri Jul 18 17:00:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/RESCSL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RESCSL.f
FC        : Date       Fri Jul 18 17:00:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RESCSL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RESCSL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RESCSL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RESCSL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RESCSL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/RESCSL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/RESCSL.FOR
COMRPL    : Date       Fri Jul 18 17:00:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/RFILL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RFILL.f
FC        : Date       Fri Jul 18 17:00:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RFILL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RFILL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RFILL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RFILL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RFILL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/RFILL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/RFILL.FOR
COMRPL    : Date       Fri Jul 18 17:00:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/RNGSET.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RNGSET.f
FC        : Date       Fri Jul 18 17:00:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RNGSET.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RNGSET.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RNGSET.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RNGSET.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RNGSET.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/RNGSET.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/RNGSET.FOR
COMRPL    : Date       Fri Jul 18 17:00:23 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/ROTFND.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ROTFND.f
FC        : Date       Fri Jul 18 17:00:23 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ROTFND.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ROTFND.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ROTFND.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ROTFND.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ROTFND.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/ROTFND.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/ROTFND.FOR
COMRPL    : Date       Fri Jul 18 17:00:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/RSORT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RSORT.f
FC        : Date       Fri Jul 18 17:00:24 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RSORT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RSORT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RSORT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RSORT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RSORT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/RSORT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/RSORT.FOR
COMRPL    : Date       Fri Jul 18 17:00:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/RSUM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RSUM.f
FC        : Date       Fri Jul 18 17:00:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RSUM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RSUM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RSUM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RSUM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RSUM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/RSUM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/RSUM.FOR
COMRPL    : Date       Fri Jul 18 17:00:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/RSWAP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RSWAP.f
FC        : Date       Fri Jul 18 17:00:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RSWAP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RSWAP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RSWAP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RSWAP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RSWAP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/RSWAP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/RSWAP.FOR
COMRPL    : Date       Fri Jul 18 17:00:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/RWUPDT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/RWUPDT.f
FC        : Date       Fri Jul 18 17:00:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RWUPDT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/RWUPDT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/RWUPDT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/RWUPDT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/RWUPDT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/RWUPDT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/RWUPDT.FOR
COMRPL    : Date       Fri Jul 18 17:00:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SATPRS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SATPRS.f
FC        : Date       Fri Jul 18 17:00:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SATPRS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SATPRS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SATPRS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SATPRS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SATPRS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SATPRS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SATPRS.FOR
COMRPL    : Date       Fri Jul 18 17:00:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SAVHDR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SAVHDR.f
FC        : Date       Fri Jul 18 17:00:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SAVHDR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SAVHDR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SAVHDR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SAVHDR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SAVHDR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SAVHDR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SAVHDR.FOR
COMRPL    : Date       Fri Jul 18 17:00:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SCALMM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SCALMM.f
FC        : Date       Fri Jul 18 17:00:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SCALMM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SCALMM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SCALMM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SCALMM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SCALMM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SCALMM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SCALMM.FOR
COMRPL    : Date       Fri Jul 18 17:00:30 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SCREAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SCREAT.f
FC        : Date       Fri Jul 18 17:00:30 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SCREAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SCREAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SCREAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SCREAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SCREAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SCREAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SCREAT.FOR
COMRPL    : Date       Fri Jul 18 17:00:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SCRNAM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SCRNAM.f
FC        : Date       Fri Jul 18 17:00:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SCRNAM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SCRNAM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SCRNAM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SCRNAM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SCRNAM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SCRNAM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SCRNAM.FOR
COMRPL    : Date       Fri Jul 18 17:00:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SDDPTS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SDDPTS.f
FC        : Date       Fri Jul 18 17:00:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SDDPTS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SDDPTS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SDDPTS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SDDPTS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SDDPTS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SDDPTS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SDDPTS.FOR
COMRPL    : Date       Fri Jul 18 17:00:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SELSTR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SELSTR.f
FC        : Date       Fri Jul 18 17:00:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SELSTR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SELSTR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SELSTR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SELSTR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SELSTR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SELSTR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SELSTR.FOR
COMRPL    : Date       Fri Jul 18 17:00:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SETANT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SETANT.f
FC        : Date       Fri Jul 18 17:00:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETANT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETANT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SETANT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SETANT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SETANT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SETANT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SETANT.FOR
COMRPL    : Date       Fri Jul 18 17:00:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SETBSC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SETBSC.f
FC        : Date       Fri Jul 18 17:00:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETBSC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETBSC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SETBSC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SETBSC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SETBSC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SETBSC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SETBSC.FOR
COMRPL    : Date       Fri Jul 18 17:00:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SETDEF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SETDEF.f
FC        : Date       Fri Jul 18 17:00:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETDEF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETDEF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SETDEF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SETDEF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SETDEF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SETDEF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SETDEF.FOR
COMRPL    : Date       Fri Jul 18 17:00:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SETDO3.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SETDO3.f
FC        : Date       Fri Jul 18 17:00:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETDO3.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETDO3.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SETDO3.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SETDO3.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SETDO3.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SETDO3.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SETDO3.FOR
COMRPL    : Date       Fri Jul 18 17:00:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SETLOC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SETLOC.f
FC        : Date       Fri Jul 18 17:00:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETLOC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETLOC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SETLOC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SETLOC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SETLOC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SETLOC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SETLOC.FOR
COMRPL    : Date       Fri Jul 18 17:00:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SETUP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SETUP.f
FC        : Date       Fri Jul 18 17:00:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETUP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETUP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SETUP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SETUP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SETUP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SETUP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SETUP.FOR
COMRPL    : Date       Fri Jul 18 17:00:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SETVIS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SETVIS.f
FC        : Date       Fri Jul 18 17:00:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETVIS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SETVIS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SETVIS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SETVIS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SETVIS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SETVIS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SETVIS.FOR
COMRPL    : Date       Fri Jul 18 17:00:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SHFCRP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SHFCRP.f
FC        : Date       Fri Jul 18 17:00:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SHFCRP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SHFCRP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SHFCRP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SHFCRP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SHFCRP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SHFCRP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SHFCRP.FOR
COMRPL    : Date       Fri Jul 18 17:00:41 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SHFTXY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SHFTXY.f
FC        : Date       Fri Jul 18 17:00:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SHFTXY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SHFTXY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SHFTXY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SHFTXY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SHFTXY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SHFTXY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SHFTXY.FOR
COMRPL    : Date       Fri Jul 18 17:00:42 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SHIFTP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SHIFTP.f
FC        : Date       Fri Jul 18 17:00:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SHIFTP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SHIFTP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SHIFTP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SHIFTP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SHIFTP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SHIFTP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SHIFTP.FOR
COMRPL    : Date       Fri Jul 18 17:00:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SHINCP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SHINCP.f
FC        : Date       Fri Jul 18 17:00:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SHINCP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SHINCP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SHINCP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SHINCP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SHINCP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SHINCP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SHINCP.FOR
COMRPL    : Date       Fri Jul 18 17:00:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SHISIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SHISIN.f
FC        : Date       Fri Jul 18 17:00:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SHISIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SHISIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SHISIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SHISIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SHISIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SHISIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SHISIN.FOR
COMRPL    : Date       Fri Jul 18 17:00:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SHSORT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SHSORT.f
FC        : Date       Fri Jul 18 17:00:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SHSORT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SHSORT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SHSORT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SHSORT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SHSORT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SHSORT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SHSORT.FOR
COMRPL    : Date       Fri Jul 18 17:00:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SKPBLK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SKPBLK.f
FC        : Date       Fri Jul 18 17:00:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SKPBLK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SKPBLK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SKPBLK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SKPBLK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SKPBLK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SKPBLK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SKPBLK.FOR
COMRPL    : Date       Fri Jul 18 17:00:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SKPEXT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SKPEXT.f
FC        : Date       Fri Jul 18 17:00:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SKPEXT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SKPEXT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SKPEXT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SKPEXT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SKPEXT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SKPEXT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SKPEXT.FOR
COMRPL    : Date       Fri Jul 18 17:00:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SKY2MP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SKY2MP.f
FC        : Date       Fri Jul 18 17:00:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SKY2MP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SKY2MP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SKY2MP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SKY2MP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SKY2MP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SKY2MP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SKY2MP.FOR
COMRPL    : Date       Fri Jul 18 17:00:48 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SKYFRM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SKYFRM.f
FC        : Date       Fri Jul 18 17:00:48 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SKYFRM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SKYFRM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SKYFRM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SKYFRM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SKYFRM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SKYFRM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SKYFRM.FOR
COMRPL    : Date       Fri Jul 18 17:00:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SLAEVP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SLAEVP.f
FC        : Date       Fri Jul 18 17:00:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SLAEVP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SLAEVP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SLAEVP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SLAEVP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SLAEVP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SLAEVP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SLAEVP.FOR
COMRPL    : Date       Fri Jul 18 17:00:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SLBINI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SLBINI.f
FC        : Date       Fri Jul 18 17:00:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SLBINI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SLBINI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SLBINI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SLBINI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SLBINI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SLBINI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SLBINI.FOR
COMRPL    : Date       Fri Jul 18 17:00:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SMBOX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SMBOX.f
FC        : Date       Fri Jul 18 17:00:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SMBOX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SMBOX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SMBOX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SMBOX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SMBOX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SMBOX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SMBOX.FOR
COMRPL    : Date       Fri Jul 18 17:00:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SMGAUS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SMGAUS.f
FC        : Date       Fri Jul 18 17:00:52 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SMGAUS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SMGAUS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SMGAUS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SMGAUS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SMGAUS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SMGAUS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SMGAUS.FOR
COMRPL    : Date       Fri Jul 18 17:00:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SMMWF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SMMWF.f
FC        : Date       Fri Jul 18 17:00:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SMMWF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SMMWF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SMMWF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SMMWF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SMMWF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SMMWF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SMMWF.FOR
COMRPL    : Date       Fri Jul 18 17:00:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SNDY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SNDY.f
FC        : Date       Fri Jul 18 17:00:54 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SNDY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SNDY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SNDY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SNDY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SNDY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SNDY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SNDY.FOR
COMRPL    : Date       Fri Jul 18 17:00:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SNRVAL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SNRVAL.f
FC        : Date       Fri Jul 18 17:00:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SNRVAL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SNRVAL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SNRVAL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SNRVAL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SNRVAL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SNRVAL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SNRVAL.FOR
COMRPL    : Date       Fri Jul 18 17:00:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SNSMOO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SNSMOO.f
FC        : Date       Fri Jul 18 17:00:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SNSMOO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SNSMOO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SNSMOO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SNSMOO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SNSMOO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SNSMOO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SNSMOO.FOR
COMRPL    : Date       Fri Jul 18 17:00:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SPFIL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SPFIL.f
FC        : Date       Fri Jul 18 17:00:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SPFIL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SPFIL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SPFIL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SPFIL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SPFIL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SPFIL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SPFIL.FOR
COMRPL    : Date       Fri Jul 18 17:00:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/STCLOS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/STCLOS.f
FC        : Date       Fri Jul 18 17:00:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STCLOS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STCLOS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/STCLOS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/STCLOS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/STCLOS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/STCLOS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/STCLOS.FOR
COMRPL    : Date       Fri Jul 18 17:00:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/STEPCH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/STEPCH.f
FC        : Date       Fri Jul 18 17:00:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STEPCH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STEPCH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/STEPCH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/STEPCH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/STEPCH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/STEPCH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/STEPCH.FOR
COMRPL    : Date       Fri Jul 18 17:00:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/STLTOU.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/STLTOU.f
FC        : Date       Fri Jul 18 17:00:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STLTOU.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STLTOU.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/STLTOU.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/STLTOU.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/STLTOU.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/STLTOU.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/STLTOU.FOR
COMRPL    : Date       Fri Jul 18 17:01:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/STOPEN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/STOPEN.f
FC        : Date       Fri Jul 18 17:01:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STOPEN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STOPEN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/STOPEN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/STOPEN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/STOPEN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/STOPEN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/STOPEN.FOR
COMRPL    : Date       Fri Jul 18 17:01:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/STPUT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/STPUT.f
FC        : Date       Fri Jul 18 17:01:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STPUT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STPUT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/STPUT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/STPUT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/STPUT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/STPUT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/STPUT.FOR
COMRPL    : Date       Fri Jul 18 17:01:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/STRLIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/STRLIN.f
FC        : Date       Fri Jul 18 17:01:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STRLIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STRLIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/STRLIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/STRLIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/STRLIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/STRLIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/STRLIN.FOR
COMRPL    : Date       Fri Jul 18 17:01:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/STXT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/STXT.f
FC        : Date       Fri Jul 18 17:01:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STXT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/STXT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/STXT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/STXT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/STXT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/STXT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/STXT.FOR
COMRPL    : Date       Fri Jul 18 17:01:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SUBHDR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SUBHDR.f
FC        : Date       Fri Jul 18 17:01:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SUBHDR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SUBHDR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SUBHDR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SUBHDR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SUBHDR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SUBHDR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SUBHDR.FOR
COMRPL    : Date       Fri Jul 18 17:01:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SWAPAX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SWAPAX.f
FC        : Date       Fri Jul 18 17:01:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SWAPAX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SWAPAX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SWAPAX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SWAPAX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SWAPAX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SWAPAX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SWAPAX.FOR
COMRPL    : Date       Fri Jul 18 17:01:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/SYMINV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SYMINV.f
FC        : Date       Fri Jul 18 17:01:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SYMINV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SYMINV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SYMINV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SYMINV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SYMINV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/SYMINV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/SYMINV.FOR
COMRPL    : Date       Fri Jul 18 17:01:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/T2DHMS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/T2DHMS.f
FC        : Date       Fri Jul 18 17:01:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/T2DHMS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/T2DHMS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/T2DHMS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/T2DHMS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/T2DHMS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/T2DHMS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/T2DHMS.FOR
COMRPL    : Date       Fri Jul 18 17:01:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TABAN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TABAN.f
FC        : Date       Fri Jul 18 17:01:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABAN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABAN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TABAN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TABAN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TABAN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TABAN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TABAN.FOR
COMRPL    : Date       Fri Jul 18 17:01:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TABCOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TABCOP.f
FC        : Date       Fri Jul 18 17:01:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABCOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABCOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TABCOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TABCOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TABCOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TABCOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TABCOP.FOR
COMRPL    : Date       Fri Jul 18 17:01:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TABERR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TABERR.f
FC        : Date       Fri Jul 18 17:01:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABERR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABERR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TABERR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TABERR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TABERR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TABERR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TABERR.FOR
COMRPL    : Date       Fri Jul 18 17:01:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TABFC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TABFC.f
FC        : Date       Fri Jul 18 17:01:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABFC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABFC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TABFC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TABFC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TABFC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TABFC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TABFC.FOR
COMRPL    : Date       Fri Jul 18 17:01:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TABINI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TABINI.f
FC        : Date       Fri Jul 18 17:01:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABINI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABINI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TABINI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TABINI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TABINI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TABINI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TABINI.FOR
COMRPL    : Date       Fri Jul 18 17:01:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TABIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TABIO.f
FC        : Date       Fri Jul 18 17:01:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TABIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TABIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TABIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TABIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TABIO.FOR
COMRPL    : Date       Fri Jul 18 17:01:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TABKEY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TABKEY.f
FC        : Date       Fri Jul 18 17:01:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABKEY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABKEY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TABKEY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TABKEY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TABKEY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TABKEY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TABKEY.FOR
COMRPL    : Date       Fri Jul 18 17:01:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TABLIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TABLIN.f
FC        : Date       Fri Jul 18 17:01:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABLIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABLIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TABLIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TABLIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TABLIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TABLIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TABLIN.FOR
COMRPL    : Date       Fri Jul 18 17:01:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TABMRG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TABMRG.f
FC        : Date       Fri Jul 18 17:01:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABMRG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABMRG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TABMRG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TABMRG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TABMRG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TABMRG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TABMRG.FOR
COMRPL    : Date       Fri Jul 18 17:01:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TABPAK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TABPAK.f
FC        : Date       Fri Jul 18 17:01:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABPAK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABPAK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TABPAK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TABPAK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TABPAK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TABPAK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TABPAK.FOR
COMRPL    : Date       Fri Jul 18 17:01:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TABPO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TABPO.f
FC        : Date       Fri Jul 18 17:01:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABPO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABPO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TABPO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TABPO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TABPO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TABPO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TABPO.FOR
COMRPL    : Date       Fri Jul 18 17:01:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TABWX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TABWX.f
FC        : Date       Fri Jul 18 17:01:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABWX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABWX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TABWX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TABWX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TABWX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TABWX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TABWX.FOR
COMRPL    : Date       Fri Jul 18 17:01:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TAPIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TAPIO.f
FC        : Date       Fri Jul 18 17:01:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TAPIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TAPIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TAPIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TAPIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TAPIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TAPIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TAPIO.FOR
COMRPL    : Date       Fri Jul 18 17:01:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TEKFLS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TEKFLS.f
FC        : Date       Fri Jul 18 17:01:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TEKFLS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TEKFLS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TEKFLS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TEKFLS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TEKFLS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TEKFLS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TEKFLS.FOR
COMRPL    : Date       Fri Jul 18 17:01:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TEKVEC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TEKVEC.f
FC        : Date       Fri Jul 18 17:01:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TEKVEC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TEKVEC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TEKVEC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TEKVEC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TEKVEC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TEKVEC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TEKVEC.FOR
COMRPL    : Date       Fri Jul 18 17:01:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TFDHMS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TFDHMS.f
FC        : Date       Fri Jul 18 17:01:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TFDHMS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TFDHMS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TFDHMS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TFDHMS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TFDHMS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TFDHMS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TFDHMS.FOR
COMRPL    : Date       Fri Jul 18 17:01:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TICCOR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TICCOR.f
FC        : Date       Fri Jul 18 17:01:23 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TICCOR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TICCOR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TICCOR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TICCOR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TICCOR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TICCOR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TICCOR.FOR
COMRPL    : Date       Fri Jul 18 17:01:23 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TICINC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TICINC.f
FC        : Date       Fri Jul 18 17:01:23 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TICINC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TICINC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TICINC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TICINC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TICINC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TICINC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TICINC.FOR
COMRPL    : Date       Fri Jul 18 17:01:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TICSTR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TICSTR.f
FC        : Date       Fri Jul 18 17:01:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TICSTR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TICSTR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TICSTR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TICSTR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TICSTR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TICSTR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TICSTR.FOR
COMRPL    : Date       Fri Jul 18 17:01:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TIMDAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TIMDAT.f
FC        : Date       Fri Jul 18 17:01:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TIMDAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TIMDAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TIMDAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TIMDAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TIMDAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TIMDAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TIMDAT.FOR
COMRPL    : Date       Fri Jul 18 17:01:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TKCATL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TKCATL.f
FC        : Date       Fri Jul 18 17:01:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKCATL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKCATL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TKCATL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TKCATL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TKCATL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TKCATL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TKCATL.FOR
COMRPL    : Date       Fri Jul 18 17:01:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TKCHAR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TKCHAR.f
FC        : Date       Fri Jul 18 17:01:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKCHAR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKCHAR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TKCHAR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TKCHAR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TKCHAR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TKCHAR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TKCHAR.FOR
COMRPL    : Date       Fri Jul 18 17:01:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TKCLR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TKCLR.f
FC        : Date       Fri Jul 18 17:01:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKCLR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKCLR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TKCLR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TKCLR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TKCLR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TKCLR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TKCLR.FOR
COMRPL    : Date       Fri Jul 18 17:01:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TKCURS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TKCURS.f
FC        : Date       Fri Jul 18 17:01:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKCURS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKCURS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TKCURS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TKCURS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TKCURS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TKCURS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TKCURS.FOR
COMRPL    : Date       Fri Jul 18 17:01:30 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TKDVEC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TKDVEC.f
FC        : Date       Fri Jul 18 17:01:30 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKDVEC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKDVEC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TKDVEC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TKDVEC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TKDVEC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TKDVEC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TKDVEC.FOR
COMRPL    : Date       Fri Jul 18 17:01:30 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TKLAB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TKLAB.f
FC        : Date       Fri Jul 18 17:01:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKLAB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKLAB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TKLAB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TKLAB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TKLAB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TKLAB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TKLAB.FOR
COMRPL    : Date       Fri Jul 18 17:01:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TKSLIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TKSLIN.f
FC        : Date       Fri Jul 18 17:01:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKSLIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKSLIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TKSLIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TKSLIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TKSLIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TKSLIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TKSLIN.FOR
COMRPL    : Date       Fri Jul 18 17:01:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TKTICS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TKTICS.f
FC        : Date       Fri Jul 18 17:01:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKTICS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TKTICS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TKTICS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TKTICS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TKTICS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TKTICS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TKTICS.FOR
COMRPL    : Date       Fri Jul 18 17:01:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TODHMS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TODHMS.f
FC        : Date       Fri Jul 18 17:01:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TODHMS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TODHMS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TODHMS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TODHMS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TODHMS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TODHMS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TODHMS.FOR
COMRPL    : Date       Fri Jul 18 17:01:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TOUCH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TOUCH.f
FC        : Date       Fri Jul 18 17:01:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TOUCH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TOUCH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TOUCH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TOUCH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TOUCH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TOUCH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TOUCH.FOR
COMRPL    : Date       Fri Jul 18 17:01:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TPHEAD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TPHEAD.f
FC        : Date       Fri Jul 18 17:01:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TPHEAD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TPHEAD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TPHEAD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TPHEAD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TPHEAD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TPHEAD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TPHEAD.FOR
COMRPL    : Date       Fri Jul 18 17:01:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TPTBSM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TPTBSM.f
FC        : Date       Fri Jul 18 17:01:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TPTBSM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TPTBSM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TPTBSM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TPTBSM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TPTBSM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TPTBSM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TPTBSM.FOR
COMRPL    : Date       Fri Jul 18 17:01:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TSKBEG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TSKBEG.f
FC        : Date       Fri Jul 18 17:01:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TSKBEG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TSKBEG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TSKBEG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TSKBEG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TSKBEG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TSKBEG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TSKBEG.FOR
COMRPL    : Date       Fri Jul 18 17:01:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TSKEND.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TSKEND.f
FC        : Date       Fri Jul 18 17:01:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TSKEND.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TSKEND.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TSKEND.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TSKEND.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TSKEND.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TSKEND.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TSKEND.FOR
COMRPL    : Date       Fri Jul 18 17:01:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TSKHLP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TSKHLP.f
FC        : Date       Fri Jul 18 17:01:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TSKHLP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TSKHLP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TSKHLP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TSKHLP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TSKHLP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TSKHLP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TSKHLP.FOR
COMRPL    : Date       Fri Jul 18 17:01:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TVWIND.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TVWIND.f
FC        : Date       Fri Jul 18 17:01:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVWIND.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVWIND.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TVWIND.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TVWIND.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TVWIND.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TVWIND.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TVWIND.FOR
COMRPL    : Date       Fri Jul 18 17:01:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TXTLEN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TXTLEN.f
FC        : Date       Fri Jul 18 17:01:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TXTLEN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TXTLEN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TXTLEN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TXTLEN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TXTLEN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TXTLEN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TXTLEN.FOR
COMRPL    : Date       Fri Jul 18 17:01:41 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/TXTMAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TXTMAT.f
FC        : Date       Fri Jul 18 17:01:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TXTMAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TXTMAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TXTMAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TXTMAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TXTMAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/TXTMAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/TXTMAT.FOR
COMRPL    : Date       Fri Jul 18 17:01:42 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UCMPRS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UCMPRS.f
FC        : Date       Fri Jul 18 17:01:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UCMPRS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UCMPRS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UCMPRS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UCMPRS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UCMPRS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UCMPRS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UCMPRS.FOR
COMRPL    : Date       Fri Jul 18 17:01:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UNPACK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UNPACK.f
FC        : Date       Fri Jul 18 17:01:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UNPACK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UNPACK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UNPACK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UNPACK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UNPACK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UNPACK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UNPACK.FOR
COMRPL    : Date       Fri Jul 18 17:01:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UNSCR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UNSCR.f
FC        : Date       Fri Jul 18 17:01:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UNSCR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UNSCR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UNSCR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UNSCR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UNSCR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UNSCR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UNSCR.FOR
COMRPL    : Date       Fri Jul 18 17:01:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UNSETG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UNSETG.f
FC        : Date       Fri Jul 18 17:01:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UNSETG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UNSETG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UNSETG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UNSETG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UNSETG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UNSETG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UNSETG.FOR
COMRPL    : Date       Fri Jul 18 17:01:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UNYBUF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UNYBUF.f
FC        : Date       Fri Jul 18 17:01:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UNYBUF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UNYBUF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UNYBUF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UNYBUF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UNYBUF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UNYBUF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UNYBUF.FOR
COMRPL    : Date       Fri Jul 18 17:01:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVAPAS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVAPAS.f
FC        : Date       Fri Jul 18 17:01:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVAPAS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVAPAS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVAPAS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVAPAS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVAPAS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVAPAS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVAPAS.FOR
COMRPL    : Date       Fri Jul 18 17:01:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVCONJ.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVCONJ.f
FC        : Date       Fri Jul 18 17:01:48 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVCONJ.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVCONJ.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVCONJ.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVCONJ.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVCONJ.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVCONJ.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVCONJ.FOR
COMRPL    : Date       Fri Jul 18 17:01:48 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVCREA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVCREA.f
FC        : Date       Fri Jul 18 17:01:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVCREA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVCREA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVCREA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVCREA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVCREA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVCREA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVCREA.FOR
COMRPL    : Date       Fri Jul 18 17:01:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVDISK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVDISK.f
FC        : Date       Fri Jul 18 17:01:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVDISK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVDISK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVDISK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVDISK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVDISK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVDISK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVDISK.FOR
COMRPL    : Date       Fri Jul 18 17:01:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVINCS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVINCS.f
FC        : Date       Fri Jul 18 17:01:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVINCS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVINCS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVINCS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVINCS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVINCS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVINCS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVINCS.FOR
COMRPL    : Date       Fri Jul 18 17:01:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVINIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVINIT.f
FC        : Date       Fri Jul 18 17:01:52 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVINIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVINIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVINIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVINIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVINIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVINIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVINIT.FOR
COMRPL    : Date       Fri Jul 18 17:01:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVLIMT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVLIMT.f
FC        : Date       Fri Jul 18 17:01:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVLIMT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVLIMT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVLIMT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVLIMT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVLIMT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVLIMT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVLIMT.FOR
COMRPL    : Date       Fri Jul 18 17:01:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVPGET.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVPGET.f
FC        : Date       Fri Jul 18 17:01:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVPGET.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVPGET.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVPGET.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVPGET.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVPGET.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVPGET.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVPGET.FOR
COMRPL    : Date       Fri Jul 18 17:01:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVPREP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVPREP.f
FC        : Date       Fri Jul 18 17:01:54 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVPREP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVPREP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVPREP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVPREP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVPREP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVPREP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVPREP.FOR
COMRPL    : Date       Fri Jul 18 17:01:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVPROT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVPROT.f
FC        : Date       Fri Jul 18 17:01:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVPROT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVPROT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVPROT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVPROT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVPROT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVPROT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVPROT.FOR
COMRPL    : Date       Fri Jul 18 17:01:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVSETB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVSETB.f
FC        : Date       Fri Jul 18 17:01:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVSETB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVSETB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVSETB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVSETB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVSETB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVSETB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVSETB.FOR
COMRPL    : Date       Fri Jul 18 17:01:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVSETZ.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVSETZ.f
FC        : Date       Fri Jul 18 17:01:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVSETZ.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVSETZ.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVSETZ.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVSETZ.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVSETZ.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVSETZ.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVSETZ.FOR
COMRPL    : Date       Fri Jul 18 17:01:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVSIZE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVSIZE.f
FC        : Date       Fri Jul 18 17:01:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVSIZE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVSIZE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVSIZE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVSIZE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVSIZE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVSIZE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVSIZE.FOR
COMRPL    : Date       Fri Jul 18 17:01:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVZERO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVZERO.f
FC        : Date       Fri Jul 18 17:01:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVZERO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVZERO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVZERO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVZERO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVZERO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVZERO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVZERO.FOR
COMRPL    : Date       Fri Jul 18 17:01:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/UVZRSP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVZRSP.f
FC        : Date       Fri Jul 18 17:02:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVZRSP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVZRSP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVZRSP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVZRSP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVZRSP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/UVZRSP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/UVZRSP.FOR
COMRPL    : Date       Fri Jul 18 17:02:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/VBOUT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/VBOUT.f
FC        : Date       Fri Jul 18 17:02:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VBOUT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VBOUT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/VBOUT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/VBOUT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/VBOUT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/VBOUT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/VBOUT.FOR
COMRPL    : Date       Fri Jul 18 17:02:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/VERMAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/VERMAT.f
FC        : Date       Fri Jul 18 17:02:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VERMAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VERMAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/VERMAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/VERMAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/VERMAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/VERMAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/VERMAT.FOR
COMRPL    : Date       Fri Jul 18 17:02:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/VHDRIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/VHDRIN.f
FC        : Date       Fri Jul 18 17:02:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VHDRIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VHDRIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/VHDRIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/VHDRIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/VHDRIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/VHDRIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/VHDRIN.FOR
COMRPL    : Date       Fri Jul 18 17:02:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/VISCHK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/VISCHK.f
FC        : Date       Fri Jul 18 17:02:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VISCHK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VISCHK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/VISCHK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/VISCHK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/VISCHK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/VISCHK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/VISCHK.FOR
COMRPL    : Date       Fri Jul 18 17:02:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/WANTCH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/WANTCH.f
FC        : Date       Fri Jul 18 17:02:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WANTCH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WANTCH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/WANTCH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/WANTCH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/WANTCH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/WANTCH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/WANTCH.FOR
COMRPL    : Date       Fri Jul 18 17:02:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/WAWA2A.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/WAWA2A.f
FC        : Date       Fri Jul 18 17:02:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WAWA2A.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WAWA2A.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/WAWA2A.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/WAWA2A.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/WAWA2A.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/WAWA2A.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/WAWA2A.FOR
COMRPL    : Date       Fri Jul 18 17:02:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/WHOAMI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/WHOAMI.f
FC        : Date       Fri Jul 18 17:02:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WHOAMI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WHOAMI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/WHOAMI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/WHOAMI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/WHOAMI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/WHOAMI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/WHOAMI.FOR
COMRPL    : Date       Fri Jul 18 17:02:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/WINDF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/WINDF.f
FC        : Date       Fri Jul 18 17:02:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WINDF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WINDF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/WINDF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/WINDF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/WINDF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/WINDF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/WINDF.FOR
COMRPL    : Date       Fri Jul 18 17:02:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/WINDOW.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/WINDOW.f
FC        : Date       Fri Jul 18 17:02:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WINDOW.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WINDOW.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/WINDOW.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/WINDOW.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/WINDOW.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/WINDOW.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/WINDOW.FOR
COMRPL    : Date       Fri Jul 18 17:02:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/WORD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/WORD.f
FC        : Date       Fri Jul 18 17:02:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WORD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WORD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/WORD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/WORD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/WORD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/WORD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/WORD.FOR
COMRPL    : Date       Fri Jul 18 17:02:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/WRBLNK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/WRBLNK.f
FC        : Date       Fri Jul 18 17:02:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WRBLNK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WRBLNK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/WRBLNK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/WRBLNK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/WRBLNK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/WRBLNK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/WRBLNK.FOR
COMRPL    : Date       Fri Jul 18 17:02:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/WRIBOX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/WRIBOX.f
FC        : Date       Fri Jul 18 17:02:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WRIBOX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WRIBOX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/WRIBOX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/WRIBOX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/WRIBOX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/WRIBOX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/WRIBOX.FOR
COMRPL    : Date       Fri Jul 18 17:02:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/WRPLAN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/WRPLAN.f
FC        : Date       Fri Jul 18 17:02:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WRPLAN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WRPLAN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/WRPLAN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/WRPLAN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/WRPLAN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/WRPLAN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/WRPLAN.FOR
COMRPL    : Date       Fri Jul 18 17:02:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/WXINI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/WXINI.f
FC        : Date       Fri Jul 18 17:02:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WXINI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WXINI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/WXINI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/WXINI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/WXINI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/WXINI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/WXINI.FOR
COMRPL    : Date       Fri Jul 18 17:02:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/XEULER.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/XEULER.f
FC        : Date       Fri Jul 18 17:02:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/XEULER.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/XEULER.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/XEULER.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/XEULER.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/XEULER.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/XEULER.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/XEULER.FOR
COMRPL    : Date       Fri Jul 18 17:02:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/XTRFIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/XTRFIT.f
FC        : Date       Fri Jul 18 17:02:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/XTRFIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/XTRFIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/XTRFIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/XTRFIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/XTRFIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/XTRFIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/XTRFIT.FOR
COMRPL    : Date       Fri Jul 18 17:02:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/XYPIX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/XYPIX.f
FC        : Date       Fri Jul 18 17:02:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/XYPIX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/XYPIX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/XYPIX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/XYPIX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/XYPIX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/XYPIX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/XYPIX.FOR
COMRPL    : Date       Fri Jul 18 17:02:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/XYSHFT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/XYSHFT.f
FC        : Date       Fri Jul 18 17:02:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/XYSHFT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/XYSHFT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/XYSHFT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/XYSHFT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/XYSHFT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/XYSHFT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/XYSHFT.FOR
COMRPL    : Date       Fri Jul 18 17:02:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/XYVAL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/XYVAL.f
FC        : Date       Fri Jul 18 17:02:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/XYVAL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/XYVAL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/XYVAL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/XYVAL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/XYVAL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/XYVAL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/XYVAL.FOR
INSTEP2   : End of     $APLSUB/...
INSTEP2   : compilations.
INSTEP2   : Begin      /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB
INSTEP2   : library creation.
LIBR      : Create new /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB.27408
LIBR      : created
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB.27408
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/A2WAWA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ACINI2.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ACINIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ACOUNT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AIPINI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ALIASA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ALIAS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ALLTAB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AMERGE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ANMAXA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ANSAME.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ANTDAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ANTFND.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ANTINI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AP2SIZ.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ATMFAZ.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AVGCHN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AVGCIF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AVGSMO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AXEFND.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AXSTRN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/B2JPOS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BAKLDS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BATQ.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BESSJ1.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BLDSNM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BLDTNM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BLTGLE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BLTLIS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BOUNDS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BOXBSM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BSCONV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATCLR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATDIR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATIME.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATINI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATIO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATKEY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATN2L.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATOPN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CCINI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CCOPY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CFILL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CH2NUM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHAVRT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHBLNK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHCOMP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHCOPY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHECKL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHFILL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHKCHR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHLORU.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHLTOU.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHMATC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHNTIC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHPACK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHR2H.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHSTAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHTRIM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHUTOL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHWMAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CLENUP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CMPCFL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/COMOFF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/COMPAR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/COORDD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/COORDT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/COPY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CORDDS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/COVAR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CRDSET.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CRDTRN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CXFILL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DAT2JD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DATDAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DATEST.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DATFST.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DBINIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DECBIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DECONV.o
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB.27408
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DELEXT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DFILL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DIE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DIETSK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DIRCOS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DIRDEC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DIRRA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DPCOPY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DPMPAR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DSORT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DTINIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DTTIME.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DWRITE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ELIPSQ.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ENORM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EULROT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EVTHDR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EVTPOP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EVTRDY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EXTCOP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EXTHIS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EXTINI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EXTIO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EXTREQ.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FCINI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FIELDF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILCLS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILCOP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILCR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILDES.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILIO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILNUM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILOPN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILZCH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FITBM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FMATCH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FMAX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FNDCOL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FNDEXT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FNDX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FNDXY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FNDY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FPARSE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FRMT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FSERCH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FSWTCH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FUNBSM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FXHDEX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FXSHFT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GALPOL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GAUSPS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETCOL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETCRD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETERR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETHDR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETHUT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETLG.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETNUM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETRLS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETSTR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETSYM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETVIS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GRDFIX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GRDFLT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GREG.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GSCRED.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GTICNT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GTPARM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GTTELL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GTWCRD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/H2CHR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/H2WAWA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HDRBUF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HDRINF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HDRWIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HENCO1.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HENCO2.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HENCO3.o
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB.27408
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HENCO4.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HENCOO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIAD80.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIADDN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIADD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HICLOS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HICOPY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HICREA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIINIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIIO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HILOCT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIMERG.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIOPEN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIPLOT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HISCOP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HITIME.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IAMOK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ICOPEN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IDWCRD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IFPC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IMA2MP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IMERGE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IMGERR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/INQFLT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/INQGEN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/INQINT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/INQSTR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/INTEDG.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IOSET.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IROUND.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ISCALE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ISHSRT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ISORT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ISTAB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ISUM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ITRIM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IWPC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/JABER.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/JD2DAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/JNUT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/JPOLAR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/JTRIM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/JULDAY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/KEYCOP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/KTRIM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LABINI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LCOPY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LFILL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LINLIM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LINTER.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LMDER1.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LMDER.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LMPAR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LMPIX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LMSTR1.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LMSTR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LPCLOS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LPOPEN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LSERCH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LSORT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LSTHDR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MADDEX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAKOUT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPCLR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPCLS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPCOP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPCR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPIO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPMAX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPOPN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPSIZ.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPSNC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPWIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPXY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MATCH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MATVMU.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MCREAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MDESTR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MDISK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/METSCA.o
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB.27408
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/METSCD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MFINI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MINIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MINSK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MKYBUF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MLREOF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MOM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MOVIST.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MP2IMA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MP2SKY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MSGWRT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MSKIP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MULSDB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MWFBSM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/NAMEST.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/NBYPX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/NEWPOS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/NMATCC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/NMATCH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/NXTMAP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/OFMDIR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/OPACTY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/OPENCF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/OPEXT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/OSORT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/OVLIOR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/OVLROI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PASENC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PASWRD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PBCALC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PEAKFN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PERMAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PLNGET.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/POINI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/POWER2.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PRENAM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PRJMAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PRJMUL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PRTLIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PRTNAM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PSFORM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PTPARM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PUTCOL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PUTCRD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PUTKEY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/QRFAC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/QRSOLV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RANDIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RANDUM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RCOPY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RCOPYS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/REALOG.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/REAVRT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RECONV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/REFRMT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RELPOP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/REMKEY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/REQBAS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RESCAL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RESCSL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RFILL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RNGSET.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ROTFND.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RSORT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RSUM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RSWAP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RWUPDT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SATPRS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SAVHDR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SCALMM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SCREAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SCRNAM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SDDPTS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SELSTR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SETANT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SETBSC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SETDEF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SETDO3.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SETLOC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SETUP.o
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB.27408
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SETVIS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SHFCRP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SHFTXY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SHIFTP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SHINCP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SHISIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SHSORT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SKPBLK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SKPEXT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SKY2MP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SKYFRM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SLAEVP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SLBINI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SMBOX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SMGAUS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SMMWF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SNDY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SNRVAL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SNSMOO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SPFIL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/STCLOS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/STEPCH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/STLTOU.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/STOPEN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/STPUT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/STRLIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/STXT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBHDR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SWAPAX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SYMINV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/T2DHMS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABAN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABCOP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABERR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABFC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABINI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABIO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABKEY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABLIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABMRG.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABPAK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABPO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABWX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TAPIO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TEKFLS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TEKVEC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TFDHMS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TICCOR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TICINC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TICSTR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TIMDAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKCATL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKCHAR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKCLR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKCURS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKDVEC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKLAB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKSLIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKTICS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TODHMS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TOUCH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TPHEAD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TPTBSM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TSKBEG.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TSKEND.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TSKHLP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TVWIND.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TXTLEN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TXTMAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UCMPRS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UNPACK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UNSCR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UNSETG.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UNYBUF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVAPAS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVCONJ.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVCREA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVDISK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVINCS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVINIT.o
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB.27408
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVLIMT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVPGET.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVPREP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVPROT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVSETB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVSETZ.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVSIZE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVZERO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVZRSP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/VBOUT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/VERMAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/VHDRIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/VISCHK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WANTCH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WAWA2A.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WHOAMI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WINDF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WINDOW.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WORD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WRBLNK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WRIBOX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WRPLAN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WXINI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/XEULER.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/XTRFIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/XYPIX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/XYSHFT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/XYVAL.o
LIBR      : Randomize  /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB.27408
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB.27408
LIBR      : randomized.
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/A2WAWA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ACINI2.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ACINIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ACOUNT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AIPINI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ALIASA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ALIAS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ALLTAB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AMERGE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ANMAXA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ANSAME.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ANTDAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ANTFND.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ANTINI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AP2SIZ.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ATMFAZ.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AVGCHN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AVGCIF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AVGSMO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AXEFND.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/AXSTRN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/B2JPOS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BAKLDS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BATQ.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BESSJ1.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BLDSNM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BLDTNM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BLTGLE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BLTLIS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BOUNDS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BOXBSM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/BSCONV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATCLR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATDIR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATIME.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATINI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATIO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATKEY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATN2L.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CATOPN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CCINI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CCOPY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CFILL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CH2NUM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHAVRT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHBLNK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHCOMP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHCOPY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHECKL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHFILL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHKCHR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHLORU.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHLTOU.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHMATC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHNTIC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHPACK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHR2H.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHSTAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHTRIM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHUTOL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CHWMAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CLENUP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CMPCFL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/COMOFF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/COMPAR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/COORDD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/COORDT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/COPY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CORDDS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/COVAR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CRDSET.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CRDTRN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/CXFILL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DAT2JD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DATDAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DATEST.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DATFST.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DBINIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DECBIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DECONV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DELEXT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DFILL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DIE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DIETSK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DIRCOS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DIRDEC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DIRRA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DPCOPY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DPMPAR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DSORT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DTINIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DTTIME.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/DWRITE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ELIPSQ.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ENORM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EULROT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EVTHDR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EVTPOP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EVTRDY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EXTCOP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EXTHIS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EXTINI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EXTIO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/EXTREQ.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FCINI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FIELDF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILCLS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILCOP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILCR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILDES.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILIO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILNUM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILOPN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FILZCH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FITBM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FMATCH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FMAX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FNDCOL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FNDEXT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FNDX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FNDXY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FNDY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FPARSE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FRMT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FSERCH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FSWTCH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FUNBSM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FXHDEX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/FXSHFT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GALPOL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GAUSPS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETCOL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETCRD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETERR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETHDR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETHUT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETLG.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETNUM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETRLS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETSTR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETSYM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GETVIS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GRDFIX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GRDFLT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GREG.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GSCRED.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GTICNT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GTPARM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GTTELL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/GTWCRD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/H2CHR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/H2WAWA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HDRBUF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HDRINF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HDRWIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HENCO1.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HENCO2.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HENCO3.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HENCO4.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HENCOO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIAD80.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIADDN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIADD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HICLOS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HICOPY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HICREA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIINIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIIO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HILOCT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIMERG.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIOPEN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HIPLOT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HISCOP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/HITIME.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IAMOK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ICOPEN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IDWCRD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IFPC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IMA2MP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IMERGE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IMGERR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/INQFLT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/INQGEN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/INQINT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/INQSTR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/INTEDG.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IOSET.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IROUND.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ISCALE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ISHSRT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ISORT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ISTAB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ISUM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ITRIM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/IWPC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/JABER.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/JD2DAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/JNUT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/JPOLAR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/JTRIM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/JULDAY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/KEYCOP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/KTRIM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LABINI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LCOPY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LFILL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LINLIM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LINTER.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LMDER1.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LMDER.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LMPAR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LMPIX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LMSTR1.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LMSTR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LPCLOS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LPOPEN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LSERCH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LSORT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/LSTHDR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MADDEX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAKOUT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPCLR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPCLS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPCOP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPCR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPIO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPMAX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPOPN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPSIZ.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPSNC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPWIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MAPXY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MATCH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MATVMU.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MCREAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MDESTR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MDISK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/METSCA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/METSCD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MFINI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MINIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MINSK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MKYBUF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MLREOF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MOM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MOVIST.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MP2IMA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MP2SKY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MSGWRT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MSKIP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MULSDB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/MWFBSM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/NAMEST.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/NBYPX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/NEWPOS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/NMATCC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/NMATCH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/NXTMAP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/OFMDIR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/OPACTY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/OPENCF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/OPEXT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/OSORT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/OVLIOR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/OVLROI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PASENC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PASWRD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PBCALC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PEAKFN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PERMAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PLNGET.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/POINI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/POWER2.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PRENAM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PRJMAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PRJMUL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PRTLIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PRTNAM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PSFORM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PTPARM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PUTCOL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PUTCRD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/PUTKEY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/QRFAC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/QRSOLV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RANDIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RANDUM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RCOPY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RCOPYS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/REALOG.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/REAVRT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RECONV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/REFRMT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RELPOP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/REMKEY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/REQBAS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RESCAL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RESCSL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RFILL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RNGSET.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/ROTFND.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RSORT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RSUM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RSWAP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/RWUPDT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SATPRS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SAVHDR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SCALMM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SCREAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SCRNAM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SDDPTS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SELSTR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SETANT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SETBSC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SETDEF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SETDO3.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SETLOC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SETUP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SETVIS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SHFCRP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SHFTXY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SHIFTP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SHINCP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SHISIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SHSORT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SKPBLK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SKPEXT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SKY2MP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SKYFRM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SLAEVP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SLBINI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SMBOX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SMGAUS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SMMWF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SNDY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SNRVAL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SNSMOO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SPFIL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/STCLOS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/STEPCH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/STLTOU.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/STOPEN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/STPUT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/STRLIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/STXT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBHDR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SWAPAX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SYMINV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/T2DHMS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABAN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABCOP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABERR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABFC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABINI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABIO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABKEY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABLIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABMRG.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABPAK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABPO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TABWX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TAPIO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TEKFLS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TEKVEC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TFDHMS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TICCOR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TICINC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TICSTR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TIMDAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKCATL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKCHAR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKCLR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKCURS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKDVEC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKLAB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKSLIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TKTICS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TODHMS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TOUCH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TPHEAD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TPTBSM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TSKBEG.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TSKEND.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TSKHLP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TVWIND.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TXTLEN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/TXTMAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UCMPRS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UNPACK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UNSCR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UNSETG.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UNYBUF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVAPAS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVCONJ.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVCREA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVDISK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVINCS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVINIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVLIMT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVPGET.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVPREP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVPROT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVSETB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVSETZ.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVSIZE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVZERO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/UVZRSP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/VBOUT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/VERMAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/VHDRIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/VISCHK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WANTCH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WAWA2A.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WHOAMI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WINDF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WINDOW.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WORD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WRBLNK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WRIBOX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WRPLAN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/WXINI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/XEULER.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/XTRFIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/XYPIX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/XYSHFT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/XYVAL.o
LIBR      : Moved      /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB.27408
LIBR      : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB
INSTEP2   : End of     /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB
INSTEP2   : library creation.
INSTEP2   : Process    $APLOOP/...
INSTEP2   : subroutines.
MAKEAT    : Making     APLOOP.LIS
INSTEP2   : Begin      $APLOOP/...
INSTEP2   : compilations of
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/APDEVICE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/ARRAYDESC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/ARRAY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/ARRAYPNT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/ARRAYSTAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/BEAM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/CALEDIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/CLEAN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/CXIMAGE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/CXUTIL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/EDIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/FILENAME.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/FILESTATUS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/GENERIC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/HISTORY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/IMAGEDESC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/IMAGE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/IMAGEUTIL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/INPUT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/INTERPLATE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/OBJMNGR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/POSITION.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/PRINTER.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/TABLE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/TABLEUTIL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/TVDEVICE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/TVUTIL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/UTILITY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/UVDATA.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/UVDESC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/UVPHAS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/UVUTIL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/VECTOR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/SUB/OOP/VELOCITY.FOR
COMRPL    : Date       Fri Jul 18 17:02:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/APDEVICE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/APDEVICE.f
FC        : Date       Fri Jul 18 17:02:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APDEVICE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APDEVICE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/APDEVICE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/APDEVICE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/APDEVICE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/APDEVICE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/APDEVICE.FOR
COMRPL    : Date       Fri Jul 18 17:02:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/ARRAYDESC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ARRAYDESC.f
FC        : Date       Fri Jul 18 17:02:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ARRAYDESC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ARRAYDESC.f
/usr/local/aips/31DEC03/LINUX/PREP/ARRAYDESC.f: In subroutine `ardcop':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAYDESC.f:266: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAYDESC.f: In subroutine `ardscp':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAYDESC.f:338: warning: unused variable `thscls'
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ARRAYDESC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ARRAYDESC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ARRAYDESC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/ARRAYDESC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/ARRAYDESC.FOR
COMRPL    : Date       Fri Jul 18 17:02:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/ARRAY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f
FC        : Date       Fri Jul 18 17:02:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arread':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:740: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:740: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:740: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arrwri':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:1056: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:1056: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:1056: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arrclo':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:1392: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:1392: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:1392: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arropn':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:1683: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:1683: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:1683: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arrio':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:2252: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:2252: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:2252: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arrneg':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:2682: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:2682: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:2682: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arradd':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:2937: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:2937: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:2937: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arrsub':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:3222: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:3222: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:3222: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arrmul':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:3507: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:3507: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:3507: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arrdiv':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:3792: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:3792: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:3792: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arrpad':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:4078: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:4078: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:4078: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arrscl':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:4344: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:4344: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:4344: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arsset':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:4640: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:4640: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:4640: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arhist':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:4989: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:4989: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:4989: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arrcop':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:5353: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:5353: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:5353: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arrfil':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:5580: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:5580: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:5580: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arrsad':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:5791: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:5791: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:5791: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arrsmu':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:6053: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:6053: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:6053: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f: In subroutine `arrbsc':
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:6350: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:6350: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f:6350: warning: unused variable `mems'
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ARRAY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ARRAY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ARRAY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/ARRAY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/ARRAY.FOR
COMRPL    : Date       Fri Jul 18 17:02:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/ARRAYPNT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ARRAYPNT.f
FC        : Date       Fri Jul 18 17:02:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ARRAYPNT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ARRAYPNT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ARRAYPNT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ARRAYPNT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ARRAYPNT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/ARRAYPNT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/ARRAYPNT.FOR
COMRPL    : Date       Fri Jul 18 17:02:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/ARRAYSTAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ARRAYSTAT.f
FC        : Date       Fri Jul 18 17:02:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ARRAYSTAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ARRAYSTAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ARRAYSTAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ARRAYSTAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ARRAYSTAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/ARRAYSTAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/ARRAYSTAT.FOR
COMRPL    : Date       Fri Jul 18 17:02:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/BEAM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BEAM.f
FC        : Date       Fri Jul 18 17:02:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BEAM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BEAM.f
/usr/local/aips/31DEC03/LINUX/PREP/BEAM.f: In subroutine `bemcop':
/usr/local/aips/31DEC03/LINUX/PREP/BEAM.f:257: warning: unused variable `thscls'
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BEAM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BEAM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BEAM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/BEAM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/BEAM.FOR
COMRPL    : Date       Fri Jul 18 17:02:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/CALEDIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.f
FC        : Date       Fri Jul 18 17:02:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.f
/usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.f: In subroutine `secini':
/usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.f:339: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.f: In subroutine `secset':
/usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.f:786: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.f: In subroutine `secslt':
/usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.f:943: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.f:943: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.f: In subroutine `secsav':
/usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.f:1019: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.f:1019: warning: unused variable `mems'
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CALEDIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/CALEDIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/CALEDIT.FOR
COMRPL    : Date       Fri Jul 18 17:02:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/CLEAN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CLEAN.f
FC        : Date       Fri Jul 18 17:02:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CLEAN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CLEAN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CLEAN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CLEAN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CLEAN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/CLEAN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/CLEAN.FOR
COMRPL    : Date       Fri Jul 18 17:02:30 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/CXIMAGE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f
FC        : Date       Fri Jul 18 17:02:30 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f: In subroutine `cimcre':
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f:177: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f:177: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f: In subroutine `cimdes':
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f:306: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f:306: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f: In subroutine `cimopn':
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f:669: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f:669: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f: In subroutine `cimclo':
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f:776: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f:776: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f: In subroutine `cigetx':
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f:884: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f:884: warning: unused variable `base'
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f: In subroutine `ciputx':
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f:995: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f:995: warning: unused variable `base'
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CXIMAGE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/CXIMAGE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/CXIMAGE.FOR
COMRPL    : Date       Fri Jul 18 17:02:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/CXUTIL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CXUTIL.f
FC        : Date       Fri Jul 18 17:02:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CXUTIL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CXUTIL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CXUTIL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CXUTIL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CXUTIL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/CXUTIL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/CXUTIL.FOR
COMRPL    : Date       Fri Jul 18 17:02:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/EDIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/EDIT.f
FC        : Date       Fri Jul 18 17:02:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EDIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/EDIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/EDIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/EDIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/EDIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/EDIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/EDIT.FOR
COMRPL    : Date       Fri Jul 18 17:02:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/FILENAME.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FILENAME.f
FC        : Date       Fri Jul 18 17:02:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILENAME.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILENAME.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FILENAME.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FILENAME.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FILENAME.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/FILENAME.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/FILENAME.FOR
COMRPL    : Date       Fri Jul 18 17:02:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/FILESTATUS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FILESTATUS.f
FC        : Date       Fri Jul 18 17:02:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILESTATUS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FILESTATUS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FILESTATUS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FILESTATUS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FILESTATUS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/FILESTATUS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/FILESTATUS.FOR
COMRPL    : Date       Fri Jul 18 17:02:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/GENERIC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GENERIC.f
FC        : Date       Fri Jul 18 17:02:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GENERIC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GENERIC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GENERIC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GENERIC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GENERIC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/GENERIC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/GENERIC.FOR
COMRPL    : Date       Fri Jul 18 17:02:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/HISTORY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/HISTORY.f
FC        : Date       Fri Jul 18 17:02:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HISTORY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/HISTORY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/HISTORY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/HISTORY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/HISTORY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/HISTORY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/HISTORY.FOR
COMRPL    : Date       Fri Jul 18 17:02:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/IMAGEDESC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/IMAGEDESC.f
FC        : Date       Fri Jul 18 17:02:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMAGEDESC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMAGEDESC.f
/usr/local/aips/31DEC03/LINUX/PREP/IMAGEDESC.f: In subroutine `imdcop':
/usr/local/aips/31DEC03/LINUX/PREP/IMAGEDESC.f:282: warning: unused variable `thscls'
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/IMAGEDESC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/IMAGEDESC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/IMAGEDESC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/IMAGEDESC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/IMAGEDESC.FOR
COMRPL    : Date       Fri Jul 18 17:02:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/IMAGE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/IMAGE.f
FC        : Date       Fri Jul 18 17:02:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMAGE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMAGE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/IMAGE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/IMAGE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/IMAGE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/IMAGE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/IMAGE.FOR
COMRPL    : Date       Fri Jul 18 17:02:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/IMAGEUTIL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/IMAGEUTIL.f
FC        : Date       Fri Jul 18 17:02:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMAGEUTIL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMAGEUTIL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/IMAGEUTIL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/IMAGEUTIL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/IMAGEUTIL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/IMAGEUTIL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/IMAGEUTIL.FOR
COMRPL    : Date       Fri Jul 18 17:02:41 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/INPUT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/INPUT.f
FC        : Date       Fri Jul 18 17:02:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INPUT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INPUT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/INPUT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/INPUT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/INPUT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/INPUT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/INPUT.FOR
COMRPL    : Date       Fri Jul 18 17:02:42 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/INTERPLATE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/INTERPLATE.f
FC        : Date       Fri Jul 18 17:02:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INTERPLATE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INTERPLATE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/INTERPLATE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/INTERPLATE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/INTERPLATE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/INTERPLATE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/INTERPLATE.FOR
COMRPL    : Date       Fri Jul 18 17:02:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/OBJMNGR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/OBJMNGR.f
FC        : Date       Fri Jul 18 17:02:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OBJMNGR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OBJMNGR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/OBJMNGR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/OBJMNGR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/OBJMNGR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/OBJMNGR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/OBJMNGR.FOR
COMRPL    : Date       Fri Jul 18 17:02:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/POSITION.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/POSITION.f
FC        : Date       Fri Jul 18 17:02:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/POSITION.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/POSITION.f
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f: In subroutine `psncvt':
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f:356: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f:356: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f: In subroutine `psncv3':
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f:559: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f:559: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f: In subroutine `psnpix':
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f:880: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f:880: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f: In subroutine `psnval':
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f:1028: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f:1028: warning: unused variable `mems'
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f: In subroutine `psnang':
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f:1175: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/POSITION.f:1175: warning: unused variable `mems'
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/POSITION.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/POSITION.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/POSITION.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/POSITION.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/POSITION.FOR
COMRPL    : Date       Fri Jul 18 17:02:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/PRINTER.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PRINTER.f
FC        : Date       Fri Jul 18 17:02:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRINTER.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PRINTER.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PRINTER.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PRINTER.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PRINTER.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/PRINTER.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/PRINTER.FOR
COMRPL    : Date       Fri Jul 18 17:02:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/TABLE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TABLE.f
FC        : Date       Fri Jul 18 17:02:48 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABLE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABLE.f
/usr/local/aips/31DEC03/LINUX/PREP/TABLE.f: In subroutine `tblmem':
/usr/local/aips/31DEC03/LINUX/PREP/TABLE.f:3250: warning: unused variable `thscls'
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TABLE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TABLE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TABLE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/TABLE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/TABLE.FOR
COMRPL    : Date       Fri Jul 18 17:02:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/TABLEUTIL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TABLEUTIL.f
FC        : Date       Fri Jul 18 17:02:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABLEUTIL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TABLEUTIL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TABLEUTIL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TABLEUTIL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TABLEUTIL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/TABLEUTIL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/TABLEUTIL.FOR
COMRPL    : Date       Fri Jul 18 17:02:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/TVDEVICE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TVDEVICE.f
FC        : Date       Fri Jul 18 17:02:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVDEVICE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVDEVICE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TVDEVICE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TVDEVICE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TVDEVICE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/TVDEVICE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/TVDEVICE.FOR
COMRPL    : Date       Fri Jul 18 17:02:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/TVUTIL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TVUTIL.f
FC        : Date       Fri Jul 18 17:02:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVUTIL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TVUTIL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TVUTIL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TVUTIL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TVUTIL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/TVUTIL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/TVUTIL.FOR
COMRPL    : Date       Fri Jul 18 17:02:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/UTILITY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UTILITY.f
FC        : Date       Fri Jul 18 17:02:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UTILITY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UTILITY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UTILITY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UTILITY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UTILITY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/UTILITY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/UTILITY.FOR
COMRPL    : Date       Fri Jul 18 17:02:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/UVDATA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVDATA.f
FC        : Date       Fri Jul 18 17:02:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVDATA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVDATA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVDATA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVDATA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVDATA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/UVDATA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/UVDATA.FOR
COMRPL    : Date       Fri Jul 18 17:02:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/UVDESC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVDESC.f
FC        : Date       Fri Jul 18 17:03:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVDESC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVDESC.f
/usr/local/aips/31DEC03/LINUX/PREP/UVDESC.f: In subroutine `uvdcop':
/usr/local/aips/31DEC03/LINUX/PREP/UVDESC.f:499: warning: unused variable `thscls'
/usr/local/aips/31DEC03/LINUX/PREP/UVDESC.f: In subroutine `uvdscp':
/usr/local/aips/31DEC03/LINUX/PREP/UVDESC.f:638: warning: unused variable `thscls'
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVDESC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVDESC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVDESC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/UVDESC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/UVDESC.FOR
COMRPL    : Date       Fri Jul 18 17:03:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/UVPHAS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVPHAS.f
FC        : Date       Fri Jul 18 17:03:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVPHAS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVPHAS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVPHAS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVPHAS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVPHAS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/UVPHAS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/UVPHAS.FOR
COMRPL    : Date       Fri Jul 18 17:03:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/UVUTIL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVUTIL.f
FC        : Date       Fri Jul 18 17:03:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVUTIL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVUTIL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVUTIL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVUTIL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVUTIL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/UVUTIL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/UVUTIL.FOR
COMRPL    : Date       Fri Jul 18 17:03:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/VECTOR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/VECTOR.f
FC        : Date       Fri Jul 18 17:03:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VECTOR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VECTOR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/VECTOR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/VECTOR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/VECTOR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/VECTOR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/VECTOR.FOR
COMRPL    : Date       Fri Jul 18 17:03:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/SUB/OOP/VELOCITY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/VELOCITY.f
FC        : Date       Fri Jul 18 17:03:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VELOCITY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VELOCITY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/VELOCITY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/VELOCITY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/VELOCITY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/SUB/OOP/VELOCITY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLOOP.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/SUB/OOP/VELOCITY.FOR
INSTEP2   : End of     $APLOOP/...
INSTEP2   : compilations.
INSTEP2   : Begin      /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/SUBLIB
INSTEP2   : library creation.
LIBR      : Create new /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/SUBLIB
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/SUBLIB.2353
LIBR      : created
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/SUBLIB.2353
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/APDEVICE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/ARRAYDESC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/ARRAY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/ARRAYPNT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/ARRAYSTAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/BEAM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/CALEDIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/CLEAN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/CXIMAGE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/CXUTIL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/EDIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/FILENAME.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/FILESTATUS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/GENERIC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/HISTORY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/IMAGEDESC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/IMAGE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/IMAGEUTIL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/INPUT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/INTERPLATE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/OBJMNGR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/POSITION.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/PRINTER.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/TABLE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/TABLEUTIL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/TVDEVICE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/TVUTIL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/UTILITY.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/UVDATA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/UVDESC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/UVPHAS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/UVUTIL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/VECTOR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/VELOCITY.o
LIBR      : Randomize  /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/SUBLIB.2353
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/SUBLIB.2353
LIBR      : randomized.
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/APDEVICE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/ARRAYDESC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/ARRAY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/ARRAYPNT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/ARRAYSTAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/BEAM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/CALEDIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/CLEAN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/CXIMAGE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/CXUTIL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/EDIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/FILENAME.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/FILESTATUS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/GENERIC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/HISTORY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/IMAGEDESC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/IMAGE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/IMAGEUTIL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/INPUT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/INTERPLATE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/OBJMNGR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/POSITION.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/PRINTER.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/TABLE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/TABLEUTIL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/TVDEVICE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/TVUTIL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/UTILITY.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/UVDATA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/UVDESC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/UVPHAS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/UVUTIL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/VECTOR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/VELOCITY.o
LIBR      : Moved      /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/SUBLIB.2353
LIBR      : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/SUBLIB
INSTEP2   : End of     /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/SUBLIB
INSTEP2   : library creation.
INSTEP2   : Process    $APLGEN/...
INSTEP2   : subroutines.
MAKEAT    : Making     APLGEN.LIS
INSTEP2   : Begin      $APLGEN/...
INSTEP2   : compilations of
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABORS.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZACTV9.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBFLI2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCRDIR.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICC2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICO2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDKMID.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGMAI2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIGNAL.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIPAC2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLOCK.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZONLIN.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSHCMD.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSTRTP.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTRLO2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTCL2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTYI2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZXDRFP.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZXDRST.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZABOR2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZABORT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZACTV8.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZADDR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZAND.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZARGC2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZARGCL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZARGMC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZARGO2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZARGOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZARGS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZARGXF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZBFLIP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZBKLD1.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZBKLD2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZBKLD3.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZBKTP1.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZBKTP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZBKTP3.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZBYMOV.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZBYTF2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZBYTFL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZC8CL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZCLC8.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZCLOSE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZCMPR2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZCMPRS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZCPU.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZCREA2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZCREAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZCRLOG.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDACLS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDAOPN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDATE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDCHI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDCHIC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDCHIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDEAC2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDEACL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDEAMC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDEAO2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDEAOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDEAX2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDEAXF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDELA2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDELAY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDEST2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDESTR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDHPRL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDICCL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDICIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDICOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDIE2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDIE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDIR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDM2DL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDOPRT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZEHEX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZENDPG.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZEOR.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZERRO2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZERROR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZEXIS2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZEXIST.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZEXPN2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZEXPND.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZFI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZFIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZFORMF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZFRE2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZFREE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZFULLN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZGDATE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZGETCH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZGMAIL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZGNAME.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZGRLHI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZGRLTC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZGTBIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZGUEST.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZHEX10.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZHEX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZI16IL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZI32IL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZI8IL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZILI16.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZILI32.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZILI8.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZIPACK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZIVSO2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZIVSOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZKDUMP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZLASC2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZLASCL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZLASIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZLASOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZLPCL2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZLPCLS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZLPOP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZLPOPN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZLWIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZLWOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZM70C2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZM70CL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZM70M2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZM70MC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZM70O2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZM70OP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZM70X2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZM70XF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMCACL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMEMR2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMEMRY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMKTMP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMOUN2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMOUNR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMOUNT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMSGCL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMSGDK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMSGER.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMSGOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMSGWR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMSGXP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMSSRV.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMYVER.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZOINTD.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZOPEN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZOR.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZPARAL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZPATH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZPHFIL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZPHOLV.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZPRI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZPRIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZPRMPT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZPRPAS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZPTBIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZPUTCH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZR32RL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZR64RL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZR8P4.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRCLOS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRCLS2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRDMF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZREHEX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRENA2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRENAM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRHPRL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRLR32.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRLR64.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRM2RL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRMTAP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZROPEN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZROPN2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRRD2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRREAD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRWR2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRWRIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRXDW2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRXDWR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSACPT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSBIND.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSCHAR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSCLOS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSCONN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSCREA.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSETUP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSLISN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSREAD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSSSC2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSSSCL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSSSL2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSSSLK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSSSMC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSSSO2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSSSOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSSSX2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSSSXF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSTAI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSTAIP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSWRIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTAB.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTACT2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTACTQ.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTAP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTAPE.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTAPIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTAPR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTCLOS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTFILL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTIME.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTKBUF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTKCL2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTKCLS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTKFI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTKILL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTKOP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTKOPN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTKSRV.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTOPE2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTOPEN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPCL2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPCLD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPCLR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPCLS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPMI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPMID.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPMIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPMIR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPOP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPOPD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPOPN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPOPR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPWA2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPWAD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPWAR.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPWAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTQSP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTQSPY.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTREAD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTRLOG.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTTBUF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTTCLS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTTOP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTTOPN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTTYIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTVSRV.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTXCLS.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTXIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTXMA2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTXMAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTXOP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTXOPN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTXREN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTXZAP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZULIM.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZUVPAK.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZUVXPN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZV20C2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZV20CL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZV20MC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZV20O2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZV20OP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZV20X2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZV20XF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVERSN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVLBIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTPC2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTPC3.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTPGC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTPO2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTPO3.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTPRC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTPRO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTPRX.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTPX2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTPX3.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTVC2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTVC3.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTVCL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTVGC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTVO2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTVO3.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTVOP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTVRC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTVRO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTVX2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTVX3.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZVTVXF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZWAI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZWAIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZWHOMI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZWINC2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZWINC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZX8XL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZXHELP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZXLX8.FOR
COMRPL    : Date       Fri Jul 18 17:03:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABORS.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
AIPSCC    : Date       Fri Jul 18 17:03:15 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
/usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c:10:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_abors__
    5:#include <sys/types.h>
    6:#include <unistd.h>
    7:#include <stdio.h>
    8:#include <stdlib.h>
    9:#include <signal.h>
   10:#include <AIPSPROTO.H>
   12:static int num_calls = 0;      /* The number of active calls to
   13:                                  zabors.  Since zabors should not
   14:                                  be called recursively this should
   15:                                  be 0 or 1 */
   17:#if __STDC__
   18:   void zabors_(int isig)
   19:#else
   20:   void zabors_(isig)
   21:   int isig;
   22:#endif
   23:/*--------------------------------------------------------------------*/
   24:/*! does abort handling selected by ZABORT                            */
   25:/*# Z2 System                                                         */
   26:/*--------------------------------------------------------------------*/
   27:/*;  Copyright (C) 1995-1998                                          */
   28:/*;  Associated Universities, Inc. Washington DC, USA.                */
   29:/*;                                                                   */
   30:/*;  This program is free software; you can redistribute it and/or    */
   31:/*;  modify it under the terms of the GNU General Public License as   */
   32:/*;  published by the Free Software Foundation; either version 2 of   */
   33:/*;  the License, or (at your option) any later version.              */
   34:/*;                                                                   */
   35:/*;  This program is distributed in the hope that it will be useful,  */
   36:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   37:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   38:/*;  GNU General Public License for more details.                     */
   39:/*;                                                                   */
   40:/*;  You should have received a copy of the GNU General Public        */
   41:/*;  License along with this program; if not, write to the Free       */
   42:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   43:/*;  MA 02139, USA.                                                   */
   44:/*;                                                                   */
   45:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   46:/*;         Internet email: aipsmail at nrao.edu.                        */
   47:/*;         Postal address: AIPS Project Office                       */
   48:/*;                         National Radio Astronomy Observatory      */
   49:/*;                         520 Edgemont Road                         */
   50:/*;                         Charlottesville, VA 22903-2475 USA        */
   51:/*--------------------------------------------------------------------*/
   52:/*  Abort handler routine.  Error conditions that are being trapped   */
   53:/*  are defined in ZABORT.                                            */
   54:/*  Inputs:                                                           */
   55:/*     isig   I   Signal number (held in the low order 7 bits).       */
   56:/*  Generic UNIX version.                                             */
   57:/*--------------------------------------------------------------------*/
   58:{
   59:   char   msgbuf[80];
   60:   int    i, n3 = 3, n8 = 8;
   61:   pid_t  pid;
   62:/*--------------------------------------------------------------------*/
   63:                                        /* Die immediately if this is */
   64:                                        /* a recursive call           */
   65:   if (num_calls != 0) {
   66:                                        /* Get process id for kill(). */
   67:      pid = getpid ();
   68:                                        /* Reinstate default action   */
   69:                                        /* for illegal instructions.  */
   70:      zignal_ (SIGILL, SIG_DFL);
   71:                                        /* Commit suicide.            */
   72:      kill (pid, SIGILL);
   73:      }
   74:   else {
   75:      num_calls++;
   76:                                        /* Signal number held in low  */
   77:                                        /* order 7 bits.              */
   78:      i = isig & 0177;
   79:                                        /* if AIPS dismount tapes.    */
   80:      zstaip_ ( );
   81:                                        /* Make AIPS accounting entry.*/
   82:      acount_ (&n3);
   83:                                        /* Report signal received.    */
   84:      sprintf (msgbuf, "ZABORS: signal %d received", i);
   85:      zmsgwr_ (msgbuf, &n8);
   86:                                        /* Issue abort message.       */
   87:      sprintf (msgbuf, "ABORT!");
   88:      zmsgwr_ (msgbuf, &n8);
   89:                                        /* clear task id file         */
   90:      zdie_ ( ) ;
   91:                                        /* Just exit on some errors.  */
   92:      i = isig & 0177;
   93:      if (i < 4 || i == 15) {
   94:         exit(1);
   95:         }
   96:                                        /* On others, abort.          */
   97:      else {
   98:                                        /* Get process id for kill(). */
   99:         pid = getpid ();
  100:                                        /* Reinstate default action   */
  101:                                        /* for illegal instructions.  */
  102:         zignal_ (SIGILL, SIG_DFL);
  103:                                        /* Commit suicide.            */
  104:         kill (pid, SIGILL);
  105:         }
  107:      num_calls--;
  108:      }
  110:   return;
  111:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABORS.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZACTV9.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
AIPSCC    : Date       Fri Jul 18 17:03:15 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
/usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c:45:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    5:#include <unistd.h>
    6:                                       /* If <unistd.h> can not be   */
    7:                                       /* found you do not have a    */
    8:                                       /* POSIX.1 compliant system   */
    9:                                       /* and ZACTV9 requires local  */
   10:                                       /* development.               */
   11:#include <sys/wait.h>
   12:#include <sys/types.h>
   13:#include <sys/stat.h>
   14:#include <limits.h>
   15:#include <signal.h>
   16:#include <fcntl.h>
   17:#include <assert.h>
   18:#include <errno.h>
   19:#include <stdio.h>
   21:                                       /* We use our own prototypes   */
   22:                                       /* for string functions if we  */
   23:                                       /* are not using an ANSI C     */
   24:                                       /* compiler so that we don't   */
   25:                                       /* have to worry about the use */
   26:                                       /* of <strings.h> on older BSD */
   27:                                       /* systems.                    */
   28:#ifdef __STDC__
   29:#include <string.h>
   30:#else
   31:extern int strcmp();
   32:extern char *strcpy();
   33:extern int strlen();
   34:#endif
   36:                                       /* The malloc prototype may    */
   37:                                       /* also be stored in           */
   38:                                       /* unpredictable headers if    */
   39:                                       /* not using ANSI C.           */
   40:#ifdef __STDC__
   41:#include <stdlib.h>
   42:#else
   43:extern char *malloc();
   44:#endif
   45:#include <AIPSPROTO.H>
   47:#define PMODE (S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | S_IROTH | S_IWOTH)
   48:#define CMODE (O_WRONLY | O_CREAT | O_TRUNC | O_EXCL)
   50:extern int msg_fd;                    /* Message terminal file        */
   51:                                      /* descriptor (shared by all    */
   52:                                      /* AIPS processes in this       */
   53:                                      /* session) if messages are not */
   54:                                      /* directed to the controlling  */
   55:                                      /* terminal (-1 if they are)    */
   57:#if __STDC__
   58:   void zactv9_(int *flen, char fulnam[], int *plen, char cpname[],
   59:      int *idbg, pid_t *pid, int *syserr, int *ierr)
   60:#else
   61:   void zactv9_(flen, fulnam, plen, cpname, idbg, pid, syserr, ierr)
   62:   int *flen, *plen, *idbg, *pid, *syserr, *ierr;
   63:   char fulnam[], cpname[];
   64:#endif
   65:/*--------------------------------------------------------------------*/
   66:/*! starts requested load module under requested process name         */
   67:/*# Z2 System                                                         */
   68:/*--------------------------------------------------------------------*/
   69:/*;  Copyright (C) 1995, 1997, 2003                                   */
   70:/*;  Associated Universities, Inc. Washington DC, USA.                */
   71:/*;                                                                   */
   72:/*;  This program is free software; you can redistribute it and/or    */
   73:/*;  modify it under the terms of the GNU General Public License as   */
   74:/*;  published by the Free Software Foundation; either version 2 of   */
   75:/*;  the License, or (at your option) any later version.              */
   76:/*;                                                                   */
   77:/*;  This program is distributed in the hope that it will be useful,  */
   78:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   79:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   80:/*;  GNU General Public License for more details.                     */
   81:/*;                                                                   */
   82:/*;  You should have received a copy of the GNU General Public        */
   83:/*;  License along with this program; if not, write to the Free       */
   84:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   85:/*;  MA 02139, USA.                                                   */
   86:/*;                                                                   */
   87:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   88:/*;         Internet email: aipsmail at nrao.edu.                        */
   89:/*;         Postal address: AIPS Project Office                       */
   90:/*;                         National Radio Astronomy Observatory      */
   91:/*;                         520 Edgemont Road                         */
   92:/*;                         Charlottesville, VA 22903-2475 USA        */
   93:/*--------------------------------------------------------------------*/
   94:/*  ZACTV9 will execute the load module "fulnam" as a process/sub-    */
   95:/*  process called "cpname" which consists of the program name with a */
   96:/*  POPS number suffix x (e.g., AIPSx, BATERx, AIPSCx, AIPSBx, QMNGRx */
   97:/*  or <taskname>x).  AIPSx an BATERx are initiated as processes that */
   98:/*  replace the process that invokes ZACTV9 (i.e., without first      */
   99:/*  forking a subprocess).  This means that in the case of AIPSx and  */
  100:/*  BATERx, there is no return from ZACTV9.  The startup programs     */
  101:/*  ZSTRTA and ZSTRTB invoke ZACTV9 (via ZACTV8) as part of the       */
  102:/*  process of initiating an interative AIPS or BATER session.        */
  103:/*  ZACTV9 is only called by ZACTV8. Note that the AIPS daemon        */
  104:/*  DAIPx is treated exactly as AIPSx.                                */
  105:/*                                                                    */
  106:/*  Inputs:                                                           */
  107:/*     FLEN     I          Length in characters of "fulnam"           */
  108:/*     FULNAM   C*(flen)   Full path name of the required executable  */
  109:/*                         module                                     */
  110:/*     PLEN     I          Length in characters of "cpname"           */
  111:/*     CPNAME   C*(plen)   Desired process name (6 characters or      */
  112:/*                         less = program name + POPS number)         */
  113:/*     IDBG     I          1 => start in DEBUGger if possible         */
  114:/*                         0 => use no DEBUGger if possible           */
  115:/*                         Ignore on CPNAME='AIPSn','BATERn'          */
  116:/*  In/Out:                                                           */
  117:/*     PID      I(4)       Process identification information:        */
  118:/*                         In:  *(pid + 0) user number for systems    */
  119:/*                                         use it (= 0 otherwise and  */
  120:/*                                         on all AIPSB invocations)  */
  121:/*                         Out: *(pid + 1) process ID number from     */
  122:/*                                         "fork" or "vfork"          */
  123:/*                              *(pid + 2) not used                   */
  124:/*                              *(pid + 3) not used                   */
  125:/*  Output:                                                           */
  126:/*     SYSERR   I          System error code (i.e., errno) if error   */
  127:/*     IERR     I          Error return code: 0 => no error           */
  128:/*                             1 => error                             */
  129:/*  Generic UNIX version.                                             */
  130:/*  If the OS is does not comply with POSIX.1 then ZACTV9 will issue  */
  131:/*  a message and return an error code.                               */
  132:/*--------------------------------------------------------------------*/
  133:                                       /* If _POSIX_VERSION is not    */
  134:                                       /* defined then we do not have */
  135:                                       /* a POSIX.1 system.           */
  136:#ifndef _POSIX_VERSION
  137:{
  138:   printf("ZACTV9 REQUIRES LOCAL DEVELOPMENT\n");
  139:   *ierr = 1;
  140:   return;
  141:}
  142:/*--------------------------------------------------------------------*/
  143:#else
  144:{
  145:   char *pathname;                     /* pathname of executable.     */
  146:   char *dirname;                      /* directory name of           */
  147:   char procname[7];                   /* desired process name.       */
  148:   char rootname[6];                   /* root name of desired        */
  149:                                       /* process (ie. process name   */
  150:                                       /* without the POPS number.    */
  151:   char *debugger;                     /* pathname of debugger.       */
  152:   struct sigaction newaction;         /* Signal action for INT       */
  153:   struct sigaction saved;             /* Previous signal action for  */
  154:                                       /* INT                         */
  155:   char lockname[_POSIX_PATH_MAX];     /* Name of lock file           */
  156:   int  lockfile;                      /* lock file file descriptor   */
  157:   pid_t child;                        /* PID of child process        */
  158:   pid_t grandchild;                   /* PID of grandchild process   */
  159:   int p[2];                           /* File descriptors for pipe   */
  160:   int i, j, n8 = 8;
  161:   char msg[80];
  162:/*--------------------------------------------------------------------*/
  163:   *syserr = 0;
  164:   if (*plen > 6) {
  165:      *ierr = 2;
  166:      return;
  167:      }
  168:                                       /* Convert pathname of         */
  169:                                       /* executable to null-         */
  170:                                       /* terminated form:            */
  171:   pathname = malloc (*flen+1);
  172:   dirname = malloc (*flen+1);
  173:   for (i = 0; i != *flen && fulnam[i] != ' '; i++) {
  174:                                       /* Invariant: for all k,       */
  175:                                       /* 0 <= k < i,                 */
  176:                                       /* pathname[k] = fulnam[k] and */
  177:                                       /* dirname[k] = fulnam[k]      */
  178:      pathname[i] = fulnam[i];
  179:      dirname[i] = fulnam[i];
  180:      if (fulnam[i] == '/') j = i;
  181:      }
  182:   pathname[i] = '\0';
  183:   dirname[j] = '\0';
  185:                                       /* Convert desired process     */
  186:                                       /* name to null-terminated     */
  187:                                       /* form and save rootname:     */
  188:   for (i = 0; i != *plen && cpname[i] != ' '; i++) {
  189:                                       /* Invariant: for all j,       */
  190:                                       /* 0 <= j < i,                 */
  191:                                       /* procname[j] = cpname[j] and */
  192:                                       /* rootname[j] = cpname[j].    */
  193:      procname[i] = cpname[i];
  194:      rootname[i] = cpname[i];
  195:      }
  196:   procname[i] = '\0';
  197:   rootname[i-1] = '\0';
  199:                                       /* Extract the pathname of the */
  200:                                       /* debugger:                   */
  201:   debugger = NULL;
  202:   if (strcmp (rootname, "AIPS") == 0 ||
  203:       strcmp (rootname, "DAIP") == 0) {
  204:      if (getenv ("AIPSDBUGR") != NULL) {
  205:         debugger = malloc (strlen (getenv ("AIPSDBUGR")) + 1);
  206:         strcpy (debugger, getenv ("AIPSDBUGR"));
  207:         }
  208:      }
  209:   else if (strcmp (rootname, "BATER") == 0) {
  210:      if (getenv ("BATERDBUGR") != NULL) {
  211:         debugger = malloc (strlen (getenv ("BATERDBUGR")) + 1);
  212:         strcpy (debugger, getenv ("BATERDBUGR"));
  213:         }
  214:      }
  215:   else if (*idbg == 1) {
  216:      if (getenv ("DBUGR") != NULL) {
  217:         debugger = malloc (strlen (getenv ("DBUGR")) + 1);
  218:         strcpy (debugger, getenv ("DBUGR"));
  219:         }
  220:      }
  223:                                       /* Check that the executable   */
  224:                                       /* exists and that this        */
  225:                                       /* process can execute it.     */
  226:   if (access (pathname, F_OK) != 0) {
  227:      *syserr = errno;
  228:      *ierr = 1;
  229:      sprintf(msg, "ZACTV9: CANNOT FIND %s", pathname);
  230:      zmsgwr_ (msg, &n8);
  231:      if (errno >= 0) {
  232:         sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  233:         zmsgwr_ (msg, &n8);
  234:         }
  235:      return;
  236:      }
  237:   if (access (pathname, X_OK) != 0) {
  238:      *syserr = errno;
  239:      *ierr = 1;
  240:      sprintf(msg, "ZACTV9: NO EXECUTE PERMISSION FOR %s", pathname);
  241:      zmsgwr_ (msg, &n8);
  242:      if (errno >= 0) {
  243:         sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  244:         zmsgwr_ (msg, &n8);
  245:         }
  246:      return;
  247:      }
  249:   if (debugger != NULL) {
  250:                                       /* Debug mode startup.         */
  252:                                       /* Ignore interrupt signals    */
  253:      newaction.sa_handler = SIG_IGN;
  254:      sigemptyset(&newaction.sa_mask);
  255:      newaction.sa_flags =0;
  256:      if (sigaction (SIGINT, &newaction, &saved) == -1) {
  257:         *syserr = errno;
  258:         *ierr = 1;
  259:         sprintf(msg, "ZACTV9: CANNOT INSTALL SIGINT HANDLER");
  260:         zmsgwr_ (msg, &n8);
  261:         if (errno >= 0) {
  262:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  263:            zmsgwr_ (msg, &n8);
  264:            }
  265:         return;
  266:         }
  268:                                       /* Check that debugger exists  */
  269:                                       /* and is executable:          */
  270:      if (access (debugger, F_OK) == -1) {
  271:         *syserr = errno;
  272:         *ierr = 1;
  273:         sprintf(msg, "ZACTV9: CANNOT FIND %s", debugger);
  274:         zmsgwr_ (msg, &n8);
  275:         if (errno >= 0) {
  276:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  277:            zmsgwr_ (msg, &n8);
  278:            }
  279:         goto restore;
  280:         }
  281:      if (access (debugger, X_OK) == -1) {
  282:         *syserr = errno;
  283:         *ierr = 1;
  284:         sprintf("ZACTV9: NO EXECUTE PERMISSION FOR %s", debugger);
  285:         zmsgwr_ (msg, &n8);
  286:         if (errno >= 0) {
  287:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  288:            zmsgwr_ (msg, &n8);
  289:            }
  290:         goto restore;
  291:         }
  292:                                       /* We need to start the       */
  293:                                       /* program through a link     */
  294:                                       /* otherwise the POPS number  */
  295:                                       /* doesn't propagate through  */
  296:                                       /* the debugger and ZWHOMI    */
  297:                                       /* will fail                  */
  298:      if (chdir (dirname) == -1) {
  299:         *syserr = errno;
  300:         *ierr = 1;
  301:         sprintf(msg, "ZACTV9: CAN NOT CHANGE DIRECTORY TO %s",
  302:            dirname);
  303:         zmsgwr_ (msg, &n8);
  304:         if (errno >= 0) {
  305:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  306:            zmsgwr_ (msg, &n8);
  307:            }
  308:         goto restore;
  309:         }
  310:      unlink(procname);
  311:      if (link (pathname, procname) == -1) {
  312:         *syserr = errno;
  313:         *ierr = 1;
  314:         sprintf(msg, "ZACTV9: CAN NOT CREATE LINK TO %s", procname);
  315:         zmsgwr_ (msg, &n8);
  316:         if (errno >= 0) {
  317:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  318:            zmsgwr_ (msg, &n8);
  319:            }
  320:         goto restore;
  321:         }
  323:      if (strcmp (rootname, "AIPS") == 0 ||
  324:          strcmp (rootname, "BATER") == 0 ||
  325:          strcmp (rootname, "DAIP") == 0) {
  326:                                       /* Execute new program in this */
  327:                                       /* process:                    */
  329:         pid[1] = (int)getpid ();
  330:         sprintf (lockname, "/tmp/%s.%d", procname, pid[1]);
  332:                                       /* Create lock file:           */
  333:         if ((lockfile = open (lockname, CMODE, PMODE)) == -1) {
  334:            *syserr = errno;
  335:            *ierr = 1;
  336:            sprintf(msg, "ZACTV9: CANNOT CREATE LOCK FILE %s",
  337:               lockname);
  338:            zmsgwr_ (msg, &n8);
  339:            if (errno >= 0) {
  340:               sprintf (msg, "ERRNO = %d (%s)", errno,
  341:                  strerror(errno));
  342:               zmsgwr_ (msg, &n8);
  343:               }
  344:            goto restore;
  345:            }
  346:         close (lockfile);
  348:         if (execl (debugger, debugger, procname, NULL) == -1) {
  349:            *syserr = errno;
  350:            *ierr = 1;
  351:            sprintf(msg, "ZACTV9: CANNOT START DEBUGGER");
  352:            zmsgwr_ (msg, &n8);
  353:            if (errno >= 0) {
  354:               sprintf (msg, "ERRNO = %d (%s)", errno,
  355:                  strerror(errno));
  356:               zmsgwr_ (msg, &n8);
  357:               }
  358:            goto restore;
  359:            }
  360:         }
  361:      else {                           /* Not AIPS or BATER           */
  362:         if ((pid[1] = fork()) == 0) { /* Child process               */
  364:                                       /* Close all open file         */
  365:                                       /* descriptors except for      */
  366:                                       /* anything that might be the  */
  367:                                       /* message terminal:           */
  368:            for (i = 0; i != sysconf(_SC_OPEN_MAX); i++) {
  369:               if ((i != msg_fd) && (i > 2)) {
  370:                  close (i);
  371:                  }
  372:               }
  375:            if (execl (debugger, debugger, procname, NULL) == -1) {
  376:               sprintf(msg, "ZACTV9: CANNOT START %s", procname);
  377:               zmsgwr_ (msg, &n8);
  378:               if (errno >= 0) {
  379:                  sprintf (msg, "ERRNO = %d (%s)", errno,
  380:                     strerror(errno));
  381:                  zmsgwr_ (msg, &n8);
  382:                  }
  383:               exit (1);
  384:               }
  386:            exit (0);
  387:            }
  388:         else if (pid[1] == -1) {
  389:            *syserr = errno;
  390:            *ierr = 1;
  391:            sprintf(msg, "ZACTV9: CANNOT SPAWN CHILD PROCESS");
  392:            zmsgwr_ (msg, &n8);
  393:            if (errno >= 0) {
  394:               sprintf (msg, "ERRNO = %d (%s)", errno,
  395:                  strerror(errno));
  396:               zmsgwr_ (msg, &n8);
  397:               }
  398:            goto restore;
  399:            }
  400:         else {                        /* Still parent                */
  401:                                       /* Create lock file:           */
  402:               sprintf(lockname, "/tmp/%s.%d", procname, pid[1]);
  403:               zmsgwr_ (msg, &n8);
  404:               if ((lockfile = open (lockname, CMODE, PMODE)) == -1) {
  405:                  sprintf(msg, "ZACTV9: CANNOT CREATE LOCK FILE");
  406:                  zmsgwr_ (msg, &n8);
  407:                  if (errno >= 0) {
  408:                     sprintf (msg, "ERRNO = %d (%s)", errno,
  409:                        strerror(errno));
  410:                     zmsgwr_ (msg, &n8);
  411:                     }
  412:                  exit (1);
  413:                  }
  414:               close (lockfile);
  416:                                       /* Wait for child:             */
  417:            waitpid (pid[1], &i, 0);
  418:            }
  421:restore:
  422:         free (debugger);
  423:         unlink (procname);
  424:                                       /* Restore signal handling:    */
  425:         if (sigaction (SIGINT, &saved, &newaction) == -1) {
  426:            *syserr = errno;
  427:            *ierr = 1;
  428:            sprintf(msg, "ZACTV9: CANNOT RESTORE SIGNAL HANDLERS");
  429:            zmsgwr_ (msg, &n8);
  430:            if (errno >= 0) {
  431:               sprintf (msg, "ERRNO = %d (%s)", errno,
  432:                  strerror(errno));
  433:               zmsgwr_ (msg, &n8);
  434:               }
  435:            return;
  436:            }
  437:         }
  438:      }
  439:   else {                            /* Non-debug mode            */
  440:      if (strcmp (rootname, "AIPS") == 0 ||
  441:          strcmp (rootname, "BATER") == 0 ||
  442:          strcmp (rootname, "DAIP") == 0) {
  443:                                       /* Execute new program in this */
  444:                                       /* process:                    */
  446:         pid[1] = (int)getpid ();
  447:         sprintf(lockname, "/tmp/%s.%d", procname, pid[1]);
  449:                                       /* Create lock file:           */
  450:         if ((lockfile = open (lockname, CMODE, PMODE)) == -1) {
  451:            *syserr = errno;
  452:            *ierr = 1;
  453:            sprintf(msg, "ZACTV9: CANNOT CREATE LOCK FILE %s",
  454:               lockname);
  455:            zmsgwr_ (msg, &n8);
  456:            if (errno >= 0) {
  457:               sprintf (msg, "ERRNO = %d (%s)", errno,
  458:                  strerror(errno));
  459:               zmsgwr_ (msg, &n8);
  460:               }
  461:            return;
  462:            }
  463:         close (lockfile);
  465:         if (execl (pathname, procname, NULL) == -1) {
  466:            *syserr = errno;
  467:            *ierr = 1;
  468:            sprintf(msg, "ZACTV9: CANNOT START %s", procname);
  469:            zmsgwr_ (msg, &n8);
  470:            if (errno >= 0) {
  471:               sprintf (msg, "ERRNO = %d (%s)", errno,
  472:                  strerror(errno));
  473:               zmsgwr_ (msg, &n8);
  474:               }
  475:            return;
  476:            }
  477:         }
  478:      else {                           /* Not AIPS or BATER           */
  479:                                       /* Spawn new process as a      */
  480:                                       /* grandchild to prevent an    */
  481:                                       /* accumulation of zombies;    */
  482:                                       /* the pid of the grandchild   */
  483:                                       /* will be returned through a  */
  484:                                       /* pipe:                       */
  486:         if (pipe(p) == -1) {
  487:            *syserr = errno;
  488:            *ierr = 1;
  489:            sprintf(msg, "ZACTV9: CANNOT CREATE PIPE TO CHILD");
  490:            zmsgwr_ (msg, &n8);
  491:            if (errno >= 0) {
  492:               sprintf (msg, "ERRNO = %d (%s)", errno,
  493:                  strerror(errno));
  494:               zmsgwr_ (msg, &n8);
  495:               }
  496:            return;
  497:            }
  499:         if ((child = fork()) == 0) {  /* Child process               */
  500:            close(p[0]);
  502:                                       /* Close all open file         */
  503:                                       /* descriptors (apart from the */
  504:                                       /* pipe and anything that      */
  505:                                       /* might be the message        */
  506:                                       /* terminal):                  */
  507:            for (i = 0; i != sysconf(_SC_OPEN_MAX); i++) {
  508:               if ((i != p[1]) && (i != msg_fd) && (i > 2)) {
  509:                  close (i);
  510:                  }
  511:               }
  513:            if ((grandchild = fork()) == 0) {
  514:                                       /* Grandchild process          */
  516:                                       /* No need to close file       */
  517:                                       /* descriptors since they were */
  518:                                       /* already closed in the       */
  519:                                       /* immediate parent.           */
  521:               if (execl (pathname, procname, NULL) == -1) {
  522:                  sprintf(msg, "ZACTV9: CANNOT START %s", procname);
  523:                  zmsgwr_ (msg, &n8);
  524:                  if (errno >= 0) {
  525:                     sprintf (msg, "ERRNO = %d (%s)", errno,
  526:                        strerror(errno));
  527:                     zmsgwr_ (msg, &n8);
  528:                     }
  529:                  exit (1);
  530:                  }
  531:               }
  532:            else if (grandchild == -1) {
  533:               sprintf(msg, "ZACTV9: CANNOT SPAWN GRANDCHILD");
  534:               zmsgwr_ (msg, &n8);
  535:               if (errno >= 0) {
  536:                  sprintf (msg, "ERRNO = %d (%s)", errno,
  537:                     strerror(errno));
  538:                  zmsgwr_ (msg, &n8);
  539:                  }
  540:               exit (1);
  541:               }
  542:            else {                     /* Still child                 */
  543:                                       /* Create lock file:           */
  544:               sprintf(lockname, "/tmp/%s.%d", procname, grandchild);
  545:               if ((lockfile = open (lockname, CMODE, PMODE)) == -1) {
  546:                  sprintf(msg, "ZACTV9: CANNOT CREATE LOCK FILE");
  547:                  zmsgwr_ (msg, &n8);
  548:                  if (errno >= 0) {
  549:                     sprintf (msg, "ERRNO = %d (%s)", errno,
  550:                        strerror(errno));
  551:                     zmsgwr_ (msg, &n8);
  552:                     }
  553:                  exit (1);
  554:                  }
  555:               close (lockfile);
  557:                                       /* Return grandchild pid to    */
  558:                                       /* parent process:             */
  559:               if (write (p[1], &grandchild, sizeof(pid_t)) == -1) {
  560:                  sprintf(msg, "ZACTV9: CANNOT SEND PID TO PARENT");
  561:                  zmsgwr_ (msg, &n8);
  562:                  if (errno >= 0) {
  563:                     sprintf (msg, "ERRNO = %d (%s)", errno,
  564:                        strerror(errno));
  565:                     zmsgwr_ (msg, &n8);
  566:                     }
  567:                  exit (1);
  568:                  }
  569:               close (p[1]);
  571:               exit (0);
  572:               }
  573:            }
  574:         else if (child == -1) {
  575:            *syserr = errno;
  576:            *ierr = 1;
  577:            sprintf(msg, "ZACTV9: CANNOT SPAWN CHILD PROCESS");
  578:            zmsgwr_ (msg, &n8);
  579:            if (errno >= 0) {
  580:               sprintf (msg, "ERRNO = %d (%s)", errno,
  581:                  strerror(errno));
  582:               zmsgwr_ (msg, &n8);
  583:               }
  584:            return;
  585:            }
  586:         else {                        /* Still parent                */
  587:            close(p[1]);
  589:                                       /* Read grandchild pid         */
  590:            if (read (p[0], &grandchild, sizeof(pid_t)) == -1) {
  591:               *syserr = errno;
  592:               *ierr = 1;
  593:               sprintf(msg, "ZACTV9: CANNOT READ PID");
  594:               zmsgwr_ (msg, &n8);
  595:               if (errno >= 0) {
  596:                  sprintf (msg, "ERRNO = %d (%s)", errno,
  597:                     strerror(errno));
  598:                  zmsgwr_ (msg, &n8);
  599:                  }
  600:               return;
  601:               }
  602:            close(p[0]);
  603:            pid[1] = (int)grandchild;
  605:                                       /* Wait for child:             */
  606:            waitpid (child, &i, 0);
  607:            }
  608:         }
  609:      }
  610:   free (pathname);
  611:   free (dirname);
  612:   }
  614:#endif
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZACTV9.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBFLI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
AIPSCC    : Date       Fri Jul 18 17:03:17 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_bfli2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <stdlib.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zbfli2_(int *nb, int *nvals, int *bytflp, char inbuf[],
    9:      char outbuf[])
   10:#else
   11:   void zbfli2_(nb, nvals, bytflp, inbuf, outbuf)
   12:   char inbuf[], outbuf[];
   13:   int *nb, *nvals, *bytflp;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! swap 8-bit bytes & 16/32-bit words and move from inbuf to outbuf  */
   17:/*# Z2 Binary                                                         */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1998                                               */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Interchange the low order and high order bytes for all words in   */
   45:/*  the input buffer and puts results in output buffer (which may be  */
   46:/*  the same as the input buffer).  The routine is only called by     */
   47:/*  ZBFLIP and only if byte swapping is required on the host machine  */
   48:/*  (e.g., a VAX, PC).  Also does word swaps                          */
   49:/*  Inputs:                                                           */
   50:/*     nb       I      Number of bytes in word (2,4,8 supported)      */
   51:/*     nvals    I      Length of input buffer in nb-bit "words"       */
   52:/*     bytflp   I      Byte/words swapped indicator as set in ZDCHIN  */
   53:/*                        0 => neither are swapped                    */
   54:/*                        1 => byte swapped only                      */
   55:/*                        2 => word swapped only                      */
   56:/*                        3 => both byte and word swapped             */
   57:/*                        All are supported here                      */
   58:/*     inbuf    I(*)   input buffer                                   */
   59:/*  Output:                                                           */
   60:/*     outbuf   I(*)   output buffer containing swapped words         */
   61:/*                        (may be the same as the input buffer)       */
   62:/* Generic UNIX version                                               */
   63:/*--------------------------------------------------------------------*/
   64:{
   65:   int n8 = 8;
   66:   int flipcode;
   67:   register int j, k, i, m, n;
   68:   char temp[8], msgbuf[80];
   69:/*--------------------------------------------------------------------*/
   70:   flipcode = *bytflp;
   71:   m = *nb ;
   72:   if ((m != 2) && (m != 4) && (m != 8)) {
   73:      sprintf (msgbuf,
   74:         "ZBYTF2: INVALID VALUE FOR BYTES/VALUE = %d\n", m);
   75:      zmsgwr_ (msgbuf, &n8);
   76:      exit (8);
   77:      }
   78:   n = m / 2 ;
   79:                                        /* no flip, copy if needed    */
   80:   if (flipcode == 0) {
   81:      if (&inbuf[0] == &outbuf[0]) {
   82:	    ;
   83:	 }
   84:      else {
   85:         for (j = 0; j < *nvals; j++) {
   86:            k = m * j;
   87:            for (i = 0 ; i < m ; i++)
   88:               outbuf[k+i] = inbuf[k+i];
   89:            }
   90:         }
   91:      }
   92:                                        /* Swap bytes only.          */
   93:   else if (flipcode == 1) {
   94:      if (&inbuf[0] == &outbuf[0]) {
   95:         for (j = 0; j < *nvals; j++) {
   96:            k = m * j;
   97:            for (i = 0 ; i < n ; i++) {
   98:               temp[0] = inbuf[k];
   99:               temp[1] = inbuf[k+1];
  100:               outbuf[k+1] = temp[0];
  101:               outbuf[k] = temp[1];
  102:               k = k + 2;
  103:               }
  104:            }
  105:         }
  106:      else {
  107:         for (j = 0; j < *nvals; j++) {
  108:            k = m * j;
  109:            for (i = 0 ; i < n ; i++) {
  110:               outbuf[k+1] = inbuf[k];
  111:               outbuf[k] = inbuf[k+1];
  112:               k = k + 2;
  113:               }
  114:            }
  115:         }
  116:      }
  117:                                        /* Swap bytes & words        */
  118:   else if (flipcode == 3) {
  119:      if (&inbuf[0] == &outbuf[0]) {
  120:         for (j = 0; j < *nvals; j++) {
  121:            k = m * j;
  122:            for (i = 0 ; i < m ; i++)
  123:               temp[i] = inbuf[k+i];
  124:            for (i = 0 ; i < m ; i++)
  125:               outbuf[k+i] = temp[m-1-i];
  126:            }
  127:         }
  128:      else {
  129:         for (j = 0; j < *nvals; j++) {
  130:            k = m * j;
  131:            n = k + m - 1;
  132:            for (i = 0 ; i < m ; i++)
  133:               outbuf[k+i] = inbuf[n-i];
  134:            }
  135:         }
  136:      }
  137:                                        /* Swap words only.          */
  138:   else if (flipcode == 2) {
  139:      if (&inbuf[0] == &outbuf[0]) {
  140:         for (j = 0; j < *nvals; j++) {
  141:            k = m * j;
  142:            for (i = 0 ; i < m ; i++)
  143:               temp[i] = inbuf[k+i];
  144:            for (i = 0 ; i < m ; i=i+2) {
  145:               outbuf[k+1] = temp[m-1-i];
  146:               outbuf[k] = temp[m-2-i];
  147:               k = k + 2;
  148:               }
  149:            }
  150:         }
  151:      else {
  152:         for (j = 0; j < *nvals; j++) {
  153:            k = m * j;
  154:            for (i = 0 ; i < m ; i=i+2) {
  155:               outbuf[k+i+1] = inbuf[k+m-1-i];
  156:               outbuf[k+i] = inbuf[k+m-2-i];
  157:               }
  158:            }
  159:         }
  160:      }
  161:                                        /* Invalid "flipcode".        */
  162:   else {
  163:      sprintf (msgbuf,
  164:         "ZBYTF2: INVALID VALUE FOR BYTFLP = %d\n", flipcode);
  165:      zmsgwr_ (msgbuf, &n8);
  166:      exit (8);
  167:      }
  169:   return;
  170:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBFLI2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCRDIR.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZCRDIR.c
AIPSCC    : Date       Fri Jul 18 17:03:18 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCRDIR.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCRDIR.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZCRDIR.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZCRDIR.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZCRDIR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZCRDIR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCRDIR.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/UNIX/ZCRDIR.C
COMRPL    : Date       Fri Jul 18 17:03:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICC2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
AIPSCC    : Date       Fri Jul 18 17:03:18 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dicc2__
    2:#include <stdio.h>
    3:#include <stdlib.h>
    4:#include <AIPSPROTO.H>
    6:extern char *dic_filename;              /* Name of Dicomed file       */
    7:extern FILE *dic_file;                  /* Dicomed file stream        */
    8:extern int dic_spool;                   /* Non-zero if file should be */
    9:                                        /* spooled automatically      */
   10:extern int dic_called;                  /* Indicates whether a file   */
   11:                                        /* is open                    */
   13:#if __STDC__
   14:   void zdicc2_(char *fname, int *flen, int *iret)
   15:#else
   16:   void zdicc2_(fname, flen, iret)
   17:   char *fname;
   18:   int *flen, *iret;
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! Close a Dicomed image file and (optionally) spool it              */
   22:/*# Z                                                                 */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995, 1997                                         */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*   Close a Dicomed image file and, if no name was supplied by the   */
   50:/*   user, spool it to the film recorder and delete it.               */
   51:/*                                                                    */
   52:/*   Input:                                                           */
   53:/*      FNAME      C*(*)         Name under which to store file       */
   54:/*      FLEN       I             Number of characters in FNAME; if 0  */
   55:/*                               then file is spooled and deleted.    */
   56:/*                                                                    */
   57:/*   Output:                                                          */
   58:/*      IRET       I             Return status:                       */
   59:/*                                 0 -> success                       */
   60:/*                                                                    */
   61:/*   UNIX version (ignores LUN)                                       */
   62:/*--------------------------------------------------------------------*/
   63:{
   64:    char cmdline[256], file_name[256], msg[80] ;
   65:    int i, n8 = 8;
   66:/*--------------------------------------------------------------------*/
   68:    *iret = 0;
   69:    if (fclose(dic_file) != 0) {
   70:       sprintf (msg, "ZDICCL: ERROR CLOSING FILE\n");
   71:       zmsgwr_ (msg, &n8);
   72:       perror("ZDICCL:");
   73:       *iret = 1;
   74:       return;
   75:       }
   77:   for (i = 0; i < *flen; i++) {
   78:      file_name[i] = fname[i];
   79:      }
   80:   file_name[i] = '\0';
   81:                                        /* The real work is done in   */
   82:                                        /* the ZDICC2 shell script.   */
   83:   sprintf(cmdline, "ZDICC2 %s %s", dic_filename, file_name);
   84:   if (system(cmdline) != 0) {
   85:      sprintf (msg, "ZDICCL: ERROR SPOOLING FILE\n");
   86:      zmsgwr_ (msg, &n8);
   87:      perror("ZIDCCL:");
   88:      *iret = 2;
   89:      }
   90:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICC2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:19 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICO2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
AIPSCC    : Date       Fri Jul 18 17:03:19 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c:6:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dico2__
    2:#include <stdio.h>
    3:#include <time.h>
    4:#include <errno.h>
    5:#include <stdlib.h>
    6:#include <AIPSPROTO.H>
    8:char *dic_filename;                      /* File name (used by        */
    9:                                         /* ZDICCL).                  */
   10:                                         /* NOTE: storage must be     */
   11:                                         /* malloc'ed or segmentation */
   12:                                         /* violations will occur in  */
   13:                                         /* zdicc2_ under Sun OS.     */
   14:FILE* dic_file;                          /* File stream (used by      */
   15:                                         /* ZDICIO and ZDICCL)        */
   16:int dic_nrows;                           /* number of rows (used by   */
   17:                                         /* ZDICIO)                   */
   18:int dic_called = 0;                      /* Set to 1 when first       */
   19:                                         /* called.                   */
   20:static char *sizes[3] = {"35mm", "2x2", "4x5"};
   21:static char *types[3] = {"ColPos", "ColNeg", "B/W"};
   22:static char *mon[12] = {"Jan", "Feb", "Mar", "Apr", "May", "Jun",
   23:                        "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};
   25:#if __STDC__
   26:   void zdico2_(char *sysnam, int *slen, int *userno, int *flmsiz,
   27:      int *flmtyp, int *copies, int *bppix, int *width, int *height,
   28:      char *commnt, int *clen, int *iret)
   29:#else
   30:   void zdico2_(sysnam, slen, userno, flmsiz, flmtyp, copies, bppix,
   31:      width, height, commnt, clen, iret)
   32:   char *sysnam, *commnt;
   33:   int  *slen, *userno, *flmsiz, *flmtyp, *copies, *bppix, *width,
   34:      *height, *clen, *iret;
   35:#endif
   36:/*--------------------------------------------------------------------*/
   37:/*! Open a Dicomed image file and fill in the header                  */
   38:/*# Z2                                                                */
   39:/*--------------------------------------------------------------------*/
   40:/*;  Copyright (C) 1995, 1997                                         */
   41:/*;  Associated Universities, Inc. Washington DC, USA.                */
   42:/*;                                                                   */
   43:/*;  This program is free software; you can redistribute it and/or    */
   44:/*;  modify it under the terms of the GNU General Public License as   */
   45:/*;  published by the Free Software Foundation; either version 2 of   */
   46:/*;  the License, or (at your option) any later version.              */
   47:/*;                                                                   */
   48:/*;  This program is distributed in the hope that it will be useful,  */
   49:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   50:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   51:/*;  GNU General Public License for more details.                     */
   52:/*;                                                                   */
   53:/*;  You should have received a copy of the GNU General Public        */
   54:/*;  License along with this program; if not, write to the Free       */
   55:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   56:/*;  MA 02139, USA.                                                   */
   57:/*;                                                                   */
   58:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   59:/*;         Internet email: aipsmail at nrao.edu.                        */
   60:/*;         Postal address: AIPS Project Office                       */
   61:/*;                         National Radio Astronomy Observatory      */
   62:/*;                         520 Edgemont Road                         */
   63:/*;                         Charlottesville, VA 22903-2475 USA        */
   64:/*--------------------------------------------------------------------*/
   65:/*   Open a Dicomed image file and fill in the header.                */
   66:/*   Inputs:                                                          */
   67:/*      SYSNAM    C*(*)       System name.                            */
   68:/*      SLEN      I           Length of system name excluding         */
   69:/*                            trailing blanks.                        */
   70:/*      USERNO    I           AIPS user number.                       */
   71:/*      FLMSIZ    I           Film size: 0 -> 35mm                    */
   72:/*                                       1 -> 2"x2"                   */
   73:/*                                       2 -> 4"x5"                   */
   74:/*      FLMTYP    I           Film type: 0 -> colour positive         */
   75:/*                                       1 -> colour negative         */
   76:/*                                       2 -> B/W negative            */
   77:/*      COPIES    I           Number of copies to make.               */
   78:/*      BPPIX     I           Number of bits/pixel.                   */
   79:/*      WIDTH     I           Image width in pixels.                  */
   80:/*      HEIGHT    I           Image height in pixels.                 */
   81:/*      COMMNT    C*(*)       User's comment.                         */
   82:/*      CLEN      I           Length of user's comment excluding      */
   83:/*                            trailing blanks.                        */
   84:/*                                                                    */
   85:/*   Output:                                                          */
   86:/*      IRET      I           Return status: 0 -> success             */
   87:/*                                                                    */
   88:/*--------------------------------------------------------------------*/
   89:{
   90:    int i, n8 = 8;
   91:    time_t t;
   92:    struct tm *current_time;
   93:    char system[9], comment[49], msg[80];
   94:    char *start, *tptr;
   95:/*--------------------------------------------------------------------*/
   96:                                        /* Get creation time:         */
   97:    t = time(0);
   98:    current_time = localtime(&t);
   99:                                        /* Assume success:            */
  100:    *iret = 0;
  101:                                        /* Check that a Dicomed file  */
  102:                                        /* is not already open:       */
  103:    if (dic_called) {
  104:       sprintf (msg, "ZDICO2: A DICOMED FILE IS ALREADY OPEN\n");
  105:       zmsgwr_ (msg, &n8);
  106:       *iret = 1;
  107:       return;
  108:       }
  109:    else {
  110:       dic_called = 1;
  111:       }
  112:                                        /* Save useful information:   */
  113:    dic_nrows  = *height;
  114:    dic_filename = (char *)malloc(24);
  115:                                        /* This form of filename is   */
  116:                                        /* required by NRAO software  */
  117:    sprintf (dic_filename, "/tmp/%04d_%03d_%02d%02d%02d_V1", *userno,
  118:       current_time->tm_yday+1, current_time->tm_hour,
  119:       current_time->tm_min, current_time->tm_sec);
  121:                                        /* Convert strings to C form  */
  122:    for (i = 0; i < *slen && i < 8 && sysnam[i] != '.'; i++)  {
  123:       system[i] = sysnam[i];
  124:       }
  125:    system[i] = '\0';
  126:    for (i = 0; i < *clen && i < 48; i++) {
  127:       comment[i] = commnt[i];
  128:       }
  129:    comment[i] = '\0';
  130:                                       /* Open file:                  */
  131:    if ((dic_file = fopen(dic_filename, "w")) == 0) {
  132:       sprintf (msg, "ZDICO2: ERROR OPENING DICOMED FILE\n");
  133:       zmsgwr_ (msg, &n8);
  134:       perror("ZDICO2:");
  135:       *iret = errno;
  136:       return;
  137:       }
  138:                                       /* Extract file base name:     */
  139:    start = tptr = dic_filename;
  140:    while (*tptr != '\0') {
  141:       if (*(tptr++) == '/') start = tptr;
  142:       }
  144:                                       /* Write header:              */
  145:    errno = 0;
  146:    fprintf(dic_file, "Filename: %-18s", start);
  147:    fprintf(dic_file, "            ");
  148:    fprintf(dic_file, "Origin: %-8s       \n", system);
  149:    fprintf(dic_file, "Date: %02d-%3s-%02d     ",
  150:            current_time->tm_mday, mon[current_time->tm_mon],
  151:            current_time->tm_year);
  152:    fprintf(dic_file, "Time: %02d:%02d:%02d      ",
  153:            current_time->tm_hour, current_time->tm_min,
  154:            current_time->tm_sec);
  155:    fprintf(dic_file, "Userno: %4d           \n", *userno);
  156:    fprintf(dic_file, "Filmsize: %-4s      ", sizes[*flmsiz]);
  157:    fprintf(dic_file, "Filmtype: %-6s    ", types[*flmtyp]);
  158:    fprintf(dic_file, "Copies: %3d            \n", *copies);
  159:    fprintf(dic_file, "Bits/pixel: %2d      ", *bppix);
  160:    fprintf(dic_file, "Columns: %4d       ", *width);
  161:    fprintf(dic_file, "Rows: %4d             \n", *height);
  162:    fprintf(dic_file, "LUTs/pixelbyte: 0   ");
  163:    fprintf(dic_file, "Bits/LUTelement:  0 ");
  164:    fprintf(dic_file, "OFMelements:     0     \n");
  165:    fprintf(dic_file, "LUTpointer:     0   ");
  166:    fprintf(dic_file, "OFMpointer:     0   ");
  167:    fprintf(dic_file, "Datapointer:   512     \n");
  168:    fprintf(dic_file, "Usercomments: %-49s\n", comment);
  169:    fprintf(dic_file, "Recorded: %53s\n", " ");
  170:    if (errno != 0) {
  171:       sprintf (msg, "ZDICO2: ERROR WRITING HEADER\n");
  172:       zmsgwr_ (msg, &n8);
  173:       perror("ZDICO2:");
  174:       }
  176:   return;
  177:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICO2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDKMID.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
AIPSCC    : Date       Fri Jul 18 17:03:20 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dkmid__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <string.h>
    5:#include <errno.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zdkmid_(char *oper, int *blkno, int *fcb, char *buff,
   11:      int *nbytes, int *ierr)
   12:#else
   13:   void zdkmid_(oper, blkno, fcb, buff, nbytes, ierr)
   14:   char oper[], buff[];
   15:   int *fcb, *blkno, *nbytes, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read 2048 byte blocks of data from disk                           */
   19:/*# Z Tape                                                            */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 2002                                               */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Read nbytes of data from/ disk at FILLM block blkno               */
   47:/*                                                                    */
   48:/*  NOTE: This is for TAPIO type operations only, i.e., LRECL=22048   */
   49:/*        FTAB(FIND+5) = I   logical record number.                   */
   50:/*                                                                    */
   51:/*  Inputs:                                                           */
   52:/*     oper     C*4    Operation code "READ"                          */
   53:/*     blkno    I      Block number to read                           */
   54:/*     fcb      I(*)   File control block for open map disk file      */
   55:/*                     and buffer involved                            */
   56:/*     nbytes   I      Number of real bytes to be transferred         */
   57:/*  In/out:                                                           */
   58:/*     buff     I(*)   I/O buffer                                     */
   59:/*  Output:                                                           */
   60:/*     ierr     I      Error return code: 0 => no error               */
   61:/*                        2 => bad opcode                             */
   62:/*                        3 => I/O error (also see ZWAI2)             */
   63:/*                        4 => end of file (see ZWAI2)                */
   64:/*  "fcb" has syserr for ZTPWAD to return error                       */
   65:/*  Generic UNIX version.                                             */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:                                        /* Offsets to entries in the  */
   69:                                        /* file control blocks        */
   70:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr;
   71:   int fd, n7 = 7;
   72:   off_t firstbyte;
   73:   register int i;
   74:   char op[5], msgbuf[80];
   75:/*--------------------------------------------------------------------*/
   76:   *ierr = 0;
   77:                                        /* Form null terminated       */
   78:                                        /* opcode.                    */
   79:   for (i = 0; i < 4; i++)
   80:      op[i] = oper[i];
   81:   op[4] = '\0';
   82:                                        /* Get file descriptor from   */
   83:                                        /* the file control block as  */
   84:                                        /* stored there by ZDAOPN.    */
   85:   fd = *(fcb + Z_fcbfd);
   86:                                        /* Record byte request in the */
   87:                                        /* file control block.        */
   88:   *(fcb + Z_fcbreq) = *nbytes;
   89:                                        /* Also, zero error status &  */
   90:                                        /* transfer count entries.    */
   91:   *(fcb + Z_fcberr) = 0;
   92:   *(fcb + Z_fcbxfr) = 0;
   93:                                        /* Zero byte request just     */
   94:                                        /* initiates double buffered  */
   95:                                        /* I/O.                       */
   96:   if (*(fcb + Z_fcbreq) != 0) {
   97:                                        /* Only non-zero byte reqest  */
   98:                                        /* is 2048.                   */
   99:      i = *nbytes / 2048;
  100:      i = i * 2048;
  101:      if (*nbytes != i) {
  102:         *ierr = 2;
  103:         }
  104:      else {
  105:                                        /* Calculate the byte offset  */
  106:                                        /* (0-relative) in the file   */
  107:                                        /* that correspond to the     */
  108:                                        /* virtual block number.      */
  109:         firstbyte = (*blkno - 1);
  110:         firstbyte = firstbyte * 2048;
  111:                                        /* Set file pointer of the    */
  112:                                        /* file descriptor to the     */
  113:                                        /* absolute byte address      */
  114:                                        /* "firstbyte".               */
  115:         if (lseek (fd, firstbyte, 0) == -1) {
  116:            *(fcb + Z_fcberr) = errno;
  117:            sprintf (msgbuf,
  118:               "ZDKMID: LSEEK ERROR ON FILE DESCRIPTOR %d", fd);
  119:            zmsgwr_ (msgbuf, &n7);
  120:            sprintf (msgbuf,
  121:               "ZDKMID: POSITIONING FILE POINTER TO BYTE OFFSET %d",
  122:               firstbyte);
  123:            zmsgwr_ (msgbuf, &n7);
  124:            *ierr = 3;
  125:            }
  126:                                        /* Perform the I/O and record */
  127:                                        /* the # of bytes transferred */
  128:                                        /* in *(fcb + Z_fcbxfr).      */
  129:                                        /* Record the system error    */
  130:                                        /* code (if any) in           */
  131:                                        /* *(fcb + Z_fcberr).         */
  132:         else {
  133:            if (strcmp (op, "READ") == 0) {
  134:               if ((*(fcb + Z_fcbxfr) =
  135:                  read (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  136:                  *(fcb + Z_fcberr) = errno;
  137:                  *ierr = 3;
  138:                  }
  139:               }
  140:                                        /* Bad opcode.                */
  141:            else {
  142:               *ierr = 2;
  143:               }
  144:            }
  145:         }
  146:      }
  148:   return;
  149:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDKMID.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGMAI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
AIPSCC    : Date       Fri Jul 18 17:03:21 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c:8:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_gmai2__
    2:#define MAXCOM 256
    3:#include <unistd.h>
    4:#include <stdio.h>
    5:#include <stdlib.h>
    6:#include <errno.h>
    7:#include <string.h>
    8:#include <AIPSPROTO.H>
    9:#ifdef __STDC__
   10:#if __STDC__ == 1
   11:extern FILE *popen(const char *, const char *);
   12:extern int  pclose(FILE *);
   13:#endif
   14:#endif
   16:#if __STDC__
   17:   void zgmai2_(char *file, int *lfil, int *stype, int *ierr)
   18:#else
   19:   void zgmai2_(file, lfil, stype, ierr)
   20:   int *lfil, *stype, *ierr;
   21:   char file[];
   22:#endif
   23:/*--------------------------------------------------------------------*/
   24:/*! mail a file to aipsmail and delete it                             */
   25:/*# Z2 System                                                         */
   26:/*--------------------------------------------------------------------*/
   27:/*;  Copyright (C) 1995-1997, 2003                                    */
   28:/*;  Associated Universities, Inc. Washington DC, USA.                */
   29:/*;                                                                   */
   30:/*;  This program is free software; you can redistribute it and/or    */
   31:/*;  modify it under the terms of the GNU General Public License as   */
   32:/*;  published by the Free Software Foundation; either version 2 of   */
   33:/*;  the License, or (at your option) any later version.              */
   34:/*;                                                                   */
   35:/*;  This program is distributed in the hope that it will be useful,  */
   36:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   37:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   38:/*;  GNU General Public License for more details.                     */
   39:/*;                                                                   */
   40:/*;  You should have received a copy of the GNU General Public        */
   41:/*;  License along with this program; if not, write to the Free       */
   42:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   43:/*;  MA 02139, USA.                                                   */
   44:/*;                                                                   */
   45:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   46:/*;         Internet email: aipsmail at nrao.edu.                        */
   47:/*;         Postal address: AIPS Project Office                       */
   48:/*;                         National Radio Astronomy Observatory      */
   49:/*;                         520 Edgemont Road                         */
   50:/*;                         Charlottesville, VA 22903-2475 USA        */
   51:/*--------------------------------------------------------------------*/
   52:/*  Mails "file" to aipsmail at nrao.edu and then deletes it             */
   53:/*  Inputs:                                                           */
   54:/*     file     C*(*)   the fully expanded file name                  */
   55:/*     lfil     I       length of file                                */
   56:/*     stype    I       How to get subject line: 0 -> -s " "          */
   57:/*                         1 -> insert in file                        */
   58:/*  Output:                                                           */
   59:/*     ierr     I       error return: 0 means okay                    */
   60:/*                         1 input command too long                   */
   61:/*                         else = errno, the system error occurred    */
   62:/*  UNIX version uses with popen "rmail"                              */
   63:/*--------------------------------------------------------------------*/
   64:{
   65:   register int i, j;
   66:   char cmd[512], cfil[MAXCOM], msgbuf[80], outbuf[132];
   67:   int n7 = 7, n3 = 3;
   68:   FILE *zptr;
   69:   char *addr1 = "aipgripe at zia.aoc.nrao.edu";
   70:   char *addr2 = "daip at nrao.edu";
   71:/*--------------------------------------------------------------------*/
   72:   *ierr = 0;
   73:   if (*lfil >= MAXCOM)
   74:      *ierr = 1;
   75:                                        /*  make null-terminated      */
   76:   else {
   77:      j = 0;
   78:      for (i = 0; i < MAXCOM && i < *lfil; i++) {
   79:         cfil[i] = file[i];
   80:         if (cfil[i] != ' ') j = i;
   81:         }
   84:      cfil[j+1] = '\0';
   85:                                        /*  mail the file             */
   86:      if (*stype == 1)
   87:         sprintf (cmd,
   88:            "(echo \"Subject: aips_gripe\" ; cat %s ) | mail %s %s",
   89:            cfil, addr1, addr2);
   90:      else
   91:         sprintf (cmd, "mail -s \"aips_gripe\" %s %s < %s",
   92:            addr1, addr2, cfil);
   93:                                        /* Issue the shell command.  */
   94:      errno = 0;
   95:      if ((zptr = popen (cmd, "r")) == NULL ) {
   96:         *ierr = errno;
   97:         sprintf (msgbuf, "ZGMAI2: Cannot pipe command %s\n", cmd);
   98:         zmsgwr_ (msgbuf, &n7);
   99:         }
  100:      else {
  101:         while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
  102:            j = strlen(outbuf);
  103:            if (j > 64) j = 64;
  104:            strncpy (msgbuf, outbuf, j);
  105:            msgbuf[j] = '\0';
  106:            zmsgwr_ (msgbuf, &n3);
  107:            j = strlen(outbuf) - 64;
  108:            if (j > 0) {
  109:               strncpy (msgbuf, &outbuf[64], j);
  110:               msgbuf[j] = '\0';
  111:               zmsgwr_ (msgbuf, &n3);
  112:               }
  113:            }
  114:         *ierr = pclose(zptr);
  115:                                        /* AIX returns ECHILD here    */
  116:                                        /* because of the "sleep".    */
  117:         if ((*ierr != 0) && (errno != ECHILD)) {
  118:            *ierr = errno;
  119:            perror("ZGMAI2");
  120:            sprintf (msgbuf, "ZGMAI2: error %d from pclose()",
  121:               *ierr);
  122:            zmsgwr_ (msgbuf, &n7);
  123:            }
  124:                                         /* delete the file           */
  125:         else {
  126:            *ierr = errno = 0;
  127:            if (unlink (cfil) != 0) *ierr = errno;
  128:            }
  129:         }
  130:      }
  132:   return;
  133:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGMAI2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIGNAL.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
AIPSCC    : Date       Fri Jul 18 17:03:21 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
/usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c:10:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_ignal__
    5:#include <unistd.h>
    6:#include <stdio.h>
    7:#include <signal.h>
    8:#include <stdlib.h>
    9:#include <string.h>
   10:#include <AIPSPROTO.H>
   11:#if __STDC__
   12:   void (*zignal_ (int signo, void (*func)(int)))(int)
   13:#else
   14:   void (*zignal_ (signo, func))()
   15:   int signo;
   16:   void (*func)();
   17:#endif
   18:/*--------------------------------------------------------------------*/
   19:/*! establishes abort handling through call to sigaction              */
   20:/*# Z2 System                                                         */
   21:/*--------------------------------------------------------------------*/
   22:/*;  Copyright (C) 1995, 1997                                         */
   23:/*;  Associated Universities, Inc. Washington DC, USA.                */
   24:/*;                                                                   */
   25:/*;  This program is free software; you can redistribute it and/or    */
   26:/*;  modify it under the terms of the GNU General Public License as   */
   27:/*;  published by the Free Software Foundation; either version 2 of   */
   28:/*;  the License, or (at your option) any later version.              */
   29:/*;                                                                   */
   30:/*;  This program is distributed in the hope that it will be useful,  */
   31:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   32:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   33:/*;  GNU General Public License for more details.                     */
   34:/*;                                                                   */
   35:/*;  You should have received a copy of the GNU General Public        */
   36:/*;  License along with this program; if not, write to the Free       */
   37:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   38:/*;  MA 02139, USA.                                                   */
   39:/*;                                                                   */
   40:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   41:/*;         Internet email: aipsmail at nrao.edu.                        */
   42:/*;         Postal address: AIPS Project Office                       */
   43:/*;                         National Radio Astronomy Observatory      */
   44:/*;                         520 Edgemont Road                         */
   45:/*;                         Charlottesville, VA 22903-2475 USA        */
   46:/*--------------------------------------------------------------------*/
   47:/* reliable version of signal() using POSIX sigaction()               */
   48:/* from W. Richard Stevens "Advanced Programming in the UNIX Envir."  */
   49:/*  Inputs:                                                           */
   50:/*     signo   I   Signal number                                      */
   51:/*     func    F   Function to call: no return, arg int               */
   52:/*  Output:                                                           */
   53:/*     zignal_ F   Previous Function to call: no return, arg int      */
   54:/*  Generic UNIX version                                              */
   55:/*--------------------------------------------------------------------*/
   56:{
   57:   struct sigaction  act, oact;
   59:   act.sa_handler = func;
   60:   sigemptyset (&act.sa_mask);
   61:   act.sa_flags = 0;
   62:   if (signo == SIGALRM) {
   63:#ifdef SA_INTERRUPT
   64:      act.sa_flags |= SA_INTERRUPT;
   65:#endif
   66:      }
   67:   else {
   68:#ifdef SA_RESTART
   69:      act.sa_flags |= SA_RESTART;
   70:#endif
   71:      }
   73:   if (sigaction (signo, &act, &oact) < 0)
   74:      return (SIG_ERR);
   75:   else
   76:      return (oact.sa_handler);
   77:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIGNAL.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIPAC2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
AIPSCC    : Date       Fri Jul 18 17:03:22 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ipac2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <stdlib.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zipac2_(int *nvals, int *code, int *bytflp, int *np,
    9:      signed char sbuf[], signed char lbuf[])
   10:#else
   11:   void zipac2_(nvals, code, bytflp, np, sbuf, lbuf)
   12:   signed char sbuf[], lbuf[];
   13:   int *nvals, *code, *bytflp, *np;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! I32 <-> I16 w and w/o byte swap and move between sbuf and lbuf    */
   17:/*# Z2 Binary                                                         */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1998-1999                                          */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Change 16-bit integer buffer into 32-bit and vice versa with and  */
   45:/*  without byte swapping.                                            */
   46:/*  Inputs:                                                           */
   47:/*     nvals    I      Number of integers involved                    */
   48:/*     code     I      Operation code                                 */
   49:/*                        0 => S -> L: neither are swapped            */
   50:/*                        1 => S -> L: byte swapped only              */
   51:/*                        2 => S -> L: word swapped only              */
   52:/*                        3 => S -> L: both byte and word swapped     */
   53:/*                        4 => L -> S: neither are swapped            */
   54:/*                        5 => L -> S: byte swapped only              */
   55:/*                        6 => L -> S: word swapped only              */
   56:/*                        7 => L -> S: both byte and word swapped     */
   57:/*     bytflp   I      Local byte flip code                           */
   58:/*  Output:                                                           */
   59:/*     sbuf   I*2(*)   short int buffer                               */
   60:/*     lbuf   I*4(*)   long int buffer                                */
   61:/*                        (may be the same as the input buffer)       */
   62:/* Generic UNIX version                                               */
   63:/*--------------------------------------------------------------------*/
   64:{
   65:   register int j, k, i, m;
   66:   signed char temp[4], sign, plus, minus;
   67:/*--------------------------------------------------------------------*/
   68:   plus = 0x00;
   69:   minus = 0xff;
   70:   if (*code < 4 ) {
   71:      j = 2 * (*np + *nvals - 2);
   72:      k = 4 * (*nvals -1);
   73:      }
   74:   else {
   75:      j = 2 * (*np - 1);
   76:      k = 0;
   77:      }
   78:   m = 0;
   79:   if ((*bytflp == 1) || (*bytflp == 3)) m = 1;
   80:                                        /* no flip: S->L              */
   81:   if (*code == 0) {
   82:      for (i = 0; i < *nvals; i++) {
   83:         lbuf[k+2] = sbuf[j];
   84:         lbuf[k+3] = sbuf[j+1];
   85:         if (sbuf[j+m] < 0)
   86:            lbuf[k] = minus;
   87:         else
   88:            lbuf[k] = plus;
   89:         lbuf[k+1] = lbuf[k];
   90:         j -= 2;
   91:         k -= 4;
   92:         }
   93:      }
   94:                                        /* Swap bytes: S->L.          */
   95:   else if (*code == 1) {
   96:      for (i = 0; i < *nvals; i++) {
   97:         lbuf[k+3] = sbuf[j];
   98:         lbuf[k+2] = sbuf[j+1];
   99:         if (sbuf[j] < 0)
  100:            lbuf[k] = minus;
  101:         else
  102:            lbuf[k] = plus;
  103:         lbuf[k+i] = lbuf[k];
  104:         j -= 2;
  105:         k -= 4;
  106:         }
  107:      }
  108:                                        /* Swap words: S->L.          */
  109:   else if (*code == 2) {
  110:      for (i = 0; i < *nvals; i++) {
  111:         lbuf[k] = sbuf[j];
  112:         lbuf[k+1] = sbuf[j+1];
  113:         if (sbuf[j+m] < 0)
  114:            lbuf[k+2] = minus;
  115:         else
  116:            lbuf[k+2] = plus;
  117:         lbuf[k+3] = lbuf[k+2];
  118:         j -= 2;
  119:         k -= 4;
  120:         }
  121:      }
  122:                                        /* Swap both: S->L            */
  123:   else if (*code == 3) {
  124:      for (i = 0; i < *nvals; i++) {
  125:         temp[1] = sbuf[j];
  126:         temp[0] = sbuf[j+1];
  127:         lbuf[k+1] = temp[1];
  128:         lbuf[k] = temp[0];
  129:         if (temp[1] < 0)
  130:            lbuf[k+2] = minus;
  131:         else
  132:            lbuf[k+2] = plus;
  133:         lbuf[k+3] = lbuf[k+2];
  134:         j -= 2;
  135:         k -= 4;
  136:         }
  137:      }
  138:                                        /* no flip: L->S              */
  139:   else if (*code == 4) {
  140:      for (i = 0; i < *nvals; i++) {
  141:         sbuf[j] = lbuf[k+2];
  142:         sbuf[j+1] = lbuf[k+3];
  143:         j += 2;
  144:         k += 4;
  145:         }
  146:      }
  147:                                        /* byte flip: L->S            */
  148:   else if (*code == 5) {
  149:      for (i = 0; i < *nvals; i++) {
  150:         sbuf[j] = lbuf[k+3];
  151:         sbuf[j+1] = lbuf[k+2];
  152:         j += 2;
  153:         k += 4;
  154:         }
  155:      }
  156:                                        /* word flip: L->S            */
  157:   else if (*code == 6) {
  158:      for (i = 0; i < *nvals; i++) {
  159:         sbuf[j] = lbuf[k];
  160:         sbuf[j+1] = lbuf[k+1];
  161:         j += 2;
  162:         k += 4;
  163:         }
  164:      }
  165:                                        /* both flip: L->S            */
  166:   else if (*code == 7) {
  167:      for (i = 0; i < *nvals; i++) {
  168:         temp[0] = lbuf[k+1];
  169:         temp[1] = lbuf[k];
  170:         sbuf[j] = temp[0];
  171:         sbuf[j+1] = temp[1];
  172:         j += 2;
  173:         k += 4;
  174:         }
  175:      }
  177:   return;
  178:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIPAC2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:23 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLOCK.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
AIPSCC    : Date       Fri Jul 18 17:03:23 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:10:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:13: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c: In function `zlock_':
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:72: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:72: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:72: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:81: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_lock__
    5:#include <unistd.h>
    6:#include <stdio.h>
    7:#include <errno.h>
    8:#include <fcntl.h>                      /* For System V 2.0+ read and */
    9:                                        /* write locks.               */
   10:#include <AIPSPROTO.H>
   12:#if __STDC__
   13:   void zlock_(int *fd, char pname[MAXPNAME], int *excl, int *syserr,
   14:      int *ierr)
   15:#else
   16:   void zlock_(fd, pname, excl, syserr, ierr)
   17:   int *fd, *excl, *syserr, *ierr;
   18:   char pname[MAXPNAME];
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! apply a shared or exclusive lock to a disk file                   */
   22:/*# Z2 IO-basic                                                       */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995, 1997-1998                                    */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*  Open (if necessary) and apply either a shared or exclusive lock   */
   50:/*  a file.  If an error occurs, files are NOT closed.                */
   51:/*  Inputs:                                                           */
   52:/*     pname    C*48   Physical file name                             */
   53:/*     excl     I      Lock type indicator: 0 => shared               */
   54:/*                                          1 => exclusive            */
   55:/*  In/out:                                                           */
   56:/*     fd       I      File descriptor (if -1, open the file as well  */
   57:/*                        as apply the requested lock; return the     */
   58:/*                        file descriptor)                            */
   59:/*  Output:                                                           */
   60:/*     syserr   I      System error code                              */
   61:/*     ierr     I      Error return code: 0 => no error               */
   62:/*                        1 => device not found (fd = -1)             */
   63:/*                        2 => file not found (fd = -1)               */
   64:/*                        3 => open error (fd = -1)                   */
   65:/*                        4 => exclusive use denied                   */
   66:/*                        6 => other lock error                       */
   67:/*  Bell UNIX version; requires Posix fcntl                           */
   68:/*--------------------------------------------------------------------*/
   69:{
   70:   int llen, xlen, xlnb, jerr;
   71:   register int i, j;
   72:   char pathname[MAXAPATH];
   73:   struct flock lock;
   74:/*--------------------------------------------------------------------*/
   75:   *ierr = 0;
   76:   *syserr = 0;
   77:                                        /* If *fd = -1, we need to    */
   78:                                        /* open the file first.       */
   79:   if (*fd == -1) {
   80:                                        /* Translate path name        */
   81:      llen = MAXPNAME;
   82:      xlen = MAXAPATH;
   83:      zpath_ (&llen, pname, &xlen, pathname, &xlnb, &jerr);
   84:      if (jerr != 0) {
   85:         *ierr = 1;
   86:         goto exit;
   87:         }
   88:      else {
   89:         pathname[xlnb] = '\0';
   90:                                        /* Open the disk file         */
   91:                                        /* read/write (= 2)           */
   92:         if ((*fd = open (pathname, O_RDWR)) == -1) {
   93:            *syserr = errno;
   94:                                        /* File doesn't exist.        */
   95:            if (errno == ENOENT)
   96:               *ierr = 2;
   97:                                        /* Some other open error.     */
   98:            else
   99:               *ierr = 3;
  100:            perror ("ZLOCK");
  101:            printf ("ZLOCK: Pathname %s\n",pathname);
  102:            goto exit;
  103:            }
  104:         }
  105:      }
  106:                                        /* Apply non-blocking lock.   */
  107:   lock.l_whence = SEEK_SET;
  108:   lock.l_start = 0;
  109:   lock.l_len = 0;
  110:                                        /* Exclusive lock.            */
  111:   if (*excl == 1) {
  112:      lock.l_type = F_WRLCK;
  113:      }
  114:   else {                               /* Shared lock                */
  115:      lock.l_type = F_RDLCK;
  116:      }
  118:   if ( fcntl (*fd, F_SETLK, &lock) == -1 ) {
  119:      *syserr = errno;
  120:      if ( errno == EACCES || errno == EAGAIN ) {
  121:         *ierr = 4;
  122:         }
  123:      else {                            /* Some other error           */
  124:         perror ("ZLOCK");
  125:         *ierr = 6;
  126:         }
  127:      }
  129:exit:
  130:   return;
  131:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLOCK.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:23 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZONLIN.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZONLIN.c
AIPSCC    : Date       Fri Jul 18 17:03:24 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZONLIN.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZONLIN.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZONLIN.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZONLIN.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZONLIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZONLIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/UNIX/ZONLIN.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/UNIX/ZONLIN.C
COMRPL    : Date       Fri Jul 18 17:03:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSHCMD.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSHCMD.c
AIPSCC    : Date       Fri Jul 18 17:03:24 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSHCMD.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSHCMD.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSHCMD.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZSHCMD.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSHCMD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSHCMD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSHCMD.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/UNIX/ZSHCMD.C
COMRPL    : Date       Fri Jul 18 17:03:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSTRTP.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
AIPSCC    : Date       Fri Jul 18 17:03:25 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:6:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c: In function `zstrtp_':
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:61: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:61: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:61: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:61: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_strtp__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <stdlib.h>
    5:#include <errno.h>
    6:#include <AIPSPROTO.H>
    8:#if __STDC__
    9:   void zstrtp_(int *mypops, int *myprio, int *ierr)
   10:#else
   11:   void zstrtp_(mypops, myprio, ierr)
   12:   int *mypops, *myprio, *ierr;
   13:#endif
   14:/*--------------------------------------------------------------------*/
   15:/*! set the process execution priority based on POPS number           */
   16:/*# System                                                            */
   17:/*--------------------------------------------------------------------*/
   18:/*;  Copyright (C) 1995, 1997, 2000                                   */
   19:/*;  Associated Universities, Inc. Washington DC, USA.                */
   20:/*;                                                                   */
   21:/*;  This program is free software; you can redistribute it and/or    */
   22:/*;  modify it under the terms of the GNU General Public License as   */
   23:/*;  published by the Free Software Foundation; either version 2 of   */
   24:/*;  the License, or (at your option) any later version.              */
   25:/*;                                                                   */
   26:/*;  This program is distributed in the hope that it will be useful,  */
   27:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   28:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   29:/*;  GNU General Public License for more details.                     */
   30:/*;                                                                   */
   31:/*;  You should have received a copy of the GNU General Public        */
   32:/*;  License along with this program; if not, write to the Free       */
   33:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   34:/*;  MA 02139, USA.                                                   */
   35:/*;                                                                   */
   36:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   37:/*;         Internet email: aipsmail at nrao.edu.                        */
   38:/*;         Postal address: AIPS Project Office                       */
   39:/*;                         National Radio Astronomy Observatory      */
   40:/*;                         520 Edgemont Road                         */
   41:/*;                         Charlottesville, VA 22903-2475 USA        */
   42:/*--------------------------------------------------------------------*/
   43:/*  Set the execution priority of this process based on its POPS #.   */
   44:/*  Inputs:                                                           */
   45:/*     mypops   I   POPS # of current process                         */
   46:/*  Output:                                                           */
   47:/*     myprio   I   Execution priority (default = 0)                  */
   48:/*     ierr     I   Error return code: 0 => no error                  */
   49:/*                     1 => error                                     */
   50:/*  Generic UNIX version (uses "nice").                               */
   51:/*  Currently used only by Convex-local ZSTRTA                        */
   52:/*--------------------------------------------------------------------*/
   53:{
   54:#if __STDC__
   55:   pid_t pid;
   56:   uid_t uid;
   57:#else
   58:   int pid, uid ;
   59:#endif
   60:   int  prio, llen, xlen, xlnb, jerr;
   61:   char lognam[MAXPNAME], xlated[MAXAPATH];
   62:/*--------------------------------------------------------------------*/
   63:   *ierr = 0;
   64:                                        /* Default priority to 0.     */
   65:   prio = 0;
   66:   *myprio = 0;
   67:                                        /* Form the name of the       */
   68:                                        /* priority logical (i.e.,    */
   69:                                        /* environment variable) for  */
   70:                                        /* "*mypops" and attempt to   */
   71:                                        /* translate it.              */
   72:   llen = MAXPNAME;
   73:   sprintf (lognam, "PRIO%x", *mypops);
   74:   xlen = MAXAPATH;
   75:   ztrlo2_ (&llen, lognam, &xlen, xlated, &xlnb, &jerr);
   76:                                        /* If defined, extract the    */
   77:                                        /* priority from the          */
   78:                                        /* translated character value */
   79:                                        /* as an integer value.       */
   80:   if (jerr == 0) sscanf (xlated, "%d", &prio);
   81:                                        /* Get current process id.    */
   82:   if ((pid = getpid ()) == -1) {
   83:      *ierr = 1;
   84:      perror ("ZSTRTP: getpid");
   85:      }
   86:                                        /* Set execution priority.    */
   87:                                        /* NOTE: Increasing priority  */
   88:                                        /* requires super-user        */
   89:                                        /* priviledge.                */
   90:   else if (nice (prio) == -1) {
   91:      *ierr = 1;
   92:      perror("ZSTRTP: nice");
   93:      }
   94:   else {
   95:       *myprio = prio;
   96:      }
   97:                                        /* Get current, real user id. */
   98:   if ((uid = getuid ()) == -1) {
   99:      perror ("ZSTRTP: getuid");
  100:                                        /* Self destruct.             */
  101:      abort ();
  102:      }
  103:                                        /* Set the effective user id  */
  104:                                        /* to the real user id.       */
  105:   else if (seteuid (uid) == -1) {
  106:      perror ("ZSTRTP: seteuid");
  107:                                        /* Self destruct.             */
  108:      abort ();
  109:      }
  111:   return;
  112:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSTRTP.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTRLO2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
AIPSCC    : Date       Fri Jul 18 17:03:26 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:5:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c: In function `ztrlo2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:60: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:60: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:60: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:60: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_trlo2__
    2:#include <stdlib.h>
    3:#include <ctype.h>
    4:#include <stdio.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void ztrlo2_(int *llen, char *lognam, int *xlen, char *xlated,
    9:      int *xlnb, int *ierr)
   10:#else
   11:   void ztrlo2_(llen, lognam, xlen, xlated, xlnb, ierr)
   12:   int *llen, *xlen, *xlnb, *ierr;
   13:   char lognam[], xlated[];
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! translate a logical name                                          */
   17:/*# System Z2                                                         */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1995, 1997, 2000                                   */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Translate a logical name (i.e., environment variable).            */
   45:/*  NOTE: This routine is ONLY for use by other Z-routines.           */
   46:/*  Inputs:                                                           */
   47:/*     llen     I          Length of "lognam" (1-relative)            */
   48:/*     lognam   H*(llen)   Logical name (must be null, blank or colon */
   49:/*                         terminated)                                */
   50:/*     xlen     I          Length of "xlated" (1-relative)            */
   51:/*  Output:                                                           */
   52:/*     xlated   H*(xlen)   Translation (blank filled)                 */
   53:/*     xlnb     I          Position of last non-blank in "xlated"     */
   54:/*                         (1-relative)                               */
   55:/*     ierr     I          Error return code: 0 => no error           */
   56:/*                             1 => error                             */
   57:/*  Generic UNIX version - uses "getenv"                              */
   58:/*--------------------------------------------------------------------*/
   59:{
   60:   char envvar[MAXPNAME+1], envval[MAXAPATH+1];
   61:   register int i;
   62:/*--------------------------------------------------------------------*/
   63:   *ierr = 0;
   64:                                        /* Form null terminated       */
   65:                                        /* logical name (i.e.,        */
   66:                                        /* environment variable).     */
   67:                                        /* Terminate on non-          */
   68:                                        /* alphanumeric character.    */
   69:   for (i = 0; i < *llen && i < MAXPNAME && (isalpha (lognam[i]) ||
   70:      isdigit (lognam[i]) || lognam[i] == '_'); i++)
   71:      envvar[i] = lognam[i];
   72:   envvar[i] = '\0';
   73:                                        /* Get value of environment   */
   74:                                        /* variable (if any).         */
   75:   *xlnb = 0;
   76:   envval[0] = '\0';
   77:   if (getenv (envvar) == 0)
   78:      *ierr = 1;
   79:   else {
   80:      sprintf (envval, "%s", getenv (envvar));
   81:      if (envval[0] == '\0')
   82:         *ierr = 1;
   83:      else {
   84:                                        /* Copy translation (up to    */
   85:                                        /* first null) into "xlated". */
   86:         for (i = 0; i < *xlen && i < MAXAPATH && envval[i] != '\0'; i++)
   87:            xlated[i] = envval[i];
   88:                                        /* 1-relative position of     */
   89:                                        /* last non-blank in "xlated".*/
   90:         *xlnb = i;
   91:                                        /* Blank fill remainder of    */
   92:                                        /* "xlated".                  */
   93:         for (i = *xlnb; i < *xlen ; i++)
   94:            xlated[i] = ' ';
   95:         }
   96:      }
   98:   return;
   99:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTRLO2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTCL2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
AIPSCC    : Date       Fri Jul 18 17:03:26 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ttcl2__
    2:#include <unistd.h>
    3:#include <errno.h>
    4:#include <string.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zttcl2_(int *fcb, int *ierr)
    9:#else
   10:   void zttcl2_(fcb, ierr)
   11:   int *fcb, *ierr;
   12:#endif
   13:/*--------------------------------------------------------------------*/
   14:/*! close a Message window                                            */
   15:/*# Graphics                                                          */
   16:/*--------------------------------------------------------------------*/
   17:/*;  Copyright (C) 1995, 1997                                         */
   18:/*;  Associated Universities, Inc. Washington DC, USA.                */
   19:/*;                                                                   */
   20:/*;  This program is free software; you can redistribute it and/or    */
   21:/*;  modify it under the terms of the GNU General Public License as   */
   22:/*;  published by the Free Software Foundation; either version 2 of   */
   23:/*;  the License, or (at your option) any later version.              */
   24:/*;                                                                   */
   25:/*;  This program is distributed in the hope that it will be useful,  */
   26:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   27:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   28:/*;  GNU General Public License for more details.                     */
   29:/*;                                                                   */
   30:/*;  You should have received a copy of the GNU General Public        */
   31:/*;  License along with this program; if not, write to the Free       */
   32:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   33:/*;  MA 02139, USA.                                                   */
   34:/*;                                                                   */
   35:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   36:/*;         Internet email: aipsmail at nrao.edu.                        */
   37:/*;         Postal address: AIPS Project Office                       */
   38:/*;                         National Radio Astronomy Observatory      */
   39:/*;                         520 Edgemont Road                         */
   40:/*;                         Charlottesville, VA 22903-2475 USA        */
   41:/*--------------------------------------------------------------------*/
   42:/*  Close a Message window.                                           */
   43:/*  Inputs:                                                           */
   44:/*     fcb    I(*)   File control block for opened MSGSRV device      */
   45:/*  Output:                                                           */
   46:/*     ierr   I      Error return code: 0 => ok                       */
   47:/*                      1 => error                                    */
   48:/*  Generic UNIX version.                                             */
   49:/*  Contains code that will reset TTDEV to TTDEV00 if there is an     */
   50:/*  error in the close on the socket.                                 */
   51:/*--------------------------------------------------------------------*/
   52:{
   53:                                        /* Offsets to entries in the  */
   54:                                        /* file control blocks        */
   55:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   56:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4, Z_nfcber, Z_nfcbfd;
   57:                                        /* flag from ZTTOP2 for speed */
   58:   extern int remembered;
   59:   int fd, llen, tlen, jerr;
   60:   char lnam[6], tlnam[8];
   61:/*--------------------------------------------------------------------*/
   62:   *ierr = 0;
   63:   *(fcb + Z_nfcber) = 0;
   64:                                        /* Get file descriptor from   */
   65:                                        /* the file control block as  */
   66:                                        /* stored there by ZTTOP2.    */
   67:   fd = *(fcb + Z_nfcbfd);
   68:                                        /* Close Socket to MSGSERVER. */
   69:   if (close (fd) == -1) {
   70:      *(fcb + Z_nfcber) = errno;
   71:      *ierr = 1;
   72:                                        /* is this even necessary?    */
   73:      remembered = 0;
   74:      strcpy (lnam, "TTDEV");
   75:      strcpy (tlnam, "TTDEV00");
   76:      llen = strlen(lnam);
   77:      tlen = strlen(tlnam);
   78:      zcrlog_ (&llen, lnam, &tlen, tlnam, &jerr);
   79:      }
   80:   *(fcb + Z_nfcbfd) = 0;
   82:   return;
   83:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTCL2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTYI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
AIPSCC    : Date       Fri Jul 18 17:03:27 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ttyio__
    2:#include <unistd.h>
    3:#include <string.h>
    4:#include <stdio.h>
    5:#include <errno.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zttyi2_(char *oper, int *fcb, char *buff, int *nbytes,
   11:                int *ierr)
   12:#else
   13:   void zttyi2_(oper, fcb, buff, nbytes, ierr)
   14:   char oper[], buff[];
   15:   int *fcb, *nbytes, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read/write from/to a Terminal device                              */
   19:/*# Graphics                                                          */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 1997                                         */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Read/write "nbytes" of data from/to a message server socket.      */
   47:/*                                                                    */
   48:/*  Inputs:                                                           */
   49:/*     oper     C*4    Operation code "READ" (unsupported) or "WRIT"  */
   50:/*     fcb      I(*)   File control block for opened message terminal */
   51:/*     buff     I(*)   I/O buffer                                     */
   52:/*     nbytes   I      Number of 8-bit bytes to be transferred        */
   53:/*  Output:                                                           */
   54:/*     ierr     I      Error return code: 0 => no error               */
   55:/*                        2 => bad opcode                             */
   56:/*                        3 => I/O error                              */
   57:/*                        4 => end of file                            */
   58:/*                        5 => error reading handshake from socket    */
   59:/*                        6 => handshake did not say "OK"             */
   60:/*  Generic UNIX version.                                             */
   61:/*--------------------------------------------------------------------*/
   62:{
   63:                                        /* Offsets to entries in the  */
   64:                                        /* file control blocks        */
   65:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   66:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4, Z_nfcbfd, Z_nfcber;
   68:   extern int remembered;
   69:   int fd, ndone, nread, llen, tlen, jerr;
   70:   register int i;
   71:   char op[5], lognam[6], tname[8], ok[3];
   72:/*--------------------------------------------------------------------*/
   73:   *ierr = 0;
   74:                                        /* Form null terminated       */
   75:                                        /* opcode.                    */
   76:   for (i = 0; i < 4; i++)
   77:      op[i] = oper[i];
   78:   op[4] = '\0';
   79:                                        /* Get file descriptor from   */
   80:                                        /* the file control block as  */
   81:                                        /* stored there by ZTKOP2.    */
   82:   fd = *(fcb + Z_nfcbfd);
   83:                                        /* Also, zero error status    */
   84:   *(fcb + Z_nfcber) = 0;
   85:                                        /* Perform the I/O and record */
   86:                                        /* the system error code (if  */
   87:                                        /* any) in *(fcb + Z_nfcber). */
   88:   if (strcmp (op, "READ") == 0) {
   89:                                        /* This code never used, and  */
   90:                                        /* CERTAINLY never tested!    */
   91:      if ((ndone=read (fd, buff, *nbytes)) == -1) {
   92:         *(fcb + Z_nfcber) = errno;
   93:         *ierr = 3;
   94:         }
   95:      }
   96:   else if (strcmp (op, "WRIT") == 0) {
   97:                                        /* write to message server    */
   98:      if ((ndone=write (fd, buff, *nbytes)) == -1) {
   99:         *(fcb + Z_nfcber) = errno;
  100:         *ierr = 3;
  101:	 perror ("ZTTYI2: write to msgserver");
  102:         }
  103:      else {
  104:                                        /* Read the "OK" back         */
  105:	 ndone = 2;
  106:	 if (( nread = read (fd, ok, ndone)) == -1) {
  107:	    *ierr = 5;
  108:	    fprintf (stderr, "ZTTYI2: socket from msgserver closed!\n");
  109:            }
  110:	 else if (nread == 0) {
  111:	    *ierr = 5;
  112:	    fprintf (stderr, "ZTTYI2: msgserver sent back NULL!\n");
  113:            }
  114:	 else if (nread != 2) {
  115:	    *ierr = 5;
  116:	    fprintf (stderr, "ZTTYI2: msgserver sent %d bytes != 2\n",
  117:		     nread);
  118:            }
  119:	 else {
  120:	    if (strncmp (ok, "OK", 2) != 0) {
  121:	       *ierr = 6;
  122:	       fprintf (stderr,
  123:			"ZTTYI2: unexpected msgserver text %s\n", ok);
  124:	       }
  125:            }
  126:         }
  127:      if (*ierr != 0) {
  128:                                        /* problems, forget msgserver */
  129:                                        /* but print possibly lost msg */
  130:         fprintf (stderr, "ZTTYI2: Problem with MSGSRV communication\n");
  131:	 fprintf (stderr, "ZTTYI2: %s\n",
  132:		  "Messages will continue here instead; next may be a repeat");
  133:         fprintf (stderr, "%s\n", buff);
  134:	 remembered = 0;
  135:	 llen=5;
  136:	 strcpy (lognam, "TTDEV");
  137:	 tlen=7;
  138:	 strcpy (tname, "TTDEV00");
  139:	 zcrlog_ (&llen, lognam, &tlen, tname, &jerr);
  140:	 if (jerr != 0) {
  141:	    fprintf (stderr,
  142:		     "ZTTYI2: (info) problem writing to msgserver\n");
  143:	    fprintf (stderr,
  144:		     "ZTTYI2: (info) failed to reset message device\n");
  145:            }
  146:         }
  147:      }
  148:                                        /* Bad opcode.                */
  149:   else {
  150:      *ierr = 2;
  151:      return;
  152:      }
  153:                                        /* End of file?               */
  154:   if (ndone == 0)
  155:      *ierr = 4;
  157:   return;
  158:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTYI2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZXDRFP.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZXDRFP.c
AIPSCC    : Date       Fri Jul 18 17:03:28 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZXDRFP.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZXDRFP.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZXDRFP.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZXDRFP.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZXDRFP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZXDRFP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/UNIX/ZXDRFP.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/UNIX/ZXDRFP.C
COMRPL    : Date       Fri Jul 18 17:03:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZXDRST.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZXDRST.c
AIPSCC    : Date       Fri Jul 18 17:03:29 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZXDRST.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZXDRST.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZXDRST.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZXDRST.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZXDRST.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZXDRST.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/UNIX/ZXDRST.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/UNIX/ZXDRST.C
COMRPL    : Date       Fri Jul 18 17:03:29 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABOR2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZABOR2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABOR2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
AIPSCC    : Date       Fri Jul 18 17:03:30 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c:7:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c: In function `zabor2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c:102: error: `zabors_' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c:102: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c:102: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_abor2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <signal.h>
    5:#include <stdlib.h>
    6:#include <string.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zabor2_(char tsknam[], int *isalon, int *action)
   11:#else
   12:   zabor2_(tsknam, isalon, action)
   13:   char tsknam[];
   14:   int *isalon, *action;
   15:#endif
   16:/*--------------------------------------------------------------------*/
   17:/*! establishes or carries out (when appropriate) abort handling      */
   18:/*# Z2 System                                                         */
   19:/*--------------------------------------------------------------------*/
   20:/*;  Copyright (C) 1995, 1998                                         */
   21:/*;  Associated Universities, Inc. Washington DC, USA.                */
   22:/*;                                                                   */
   23:/*;  This program is free software; you can redistribute it and/or    */
   24:/*;  modify it under the terms of the GNU General Public License as   */
   25:/*;  published by the Free Software Foundation; either version 2 of   */
   26:/*;  the License, or (at your option) any later version.              */
   27:/*;                                                                   */
   28:/*;  This program is distributed in the hope that it will be useful,  */
   29:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   30:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   31:/*;  GNU General Public License for more details.                     */
   32:/*;                                                                   */
   33:/*;  You should have received a copy of the GNU General Public        */
   34:/*;  License along with this program; if not, write to the Free       */
   35:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   36:/*;  MA 02139, USA.                                                   */
   37:/*;                                                                   */
   38:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   39:/*;         Internet email: aipsmail at nrao.edu.                        */
   40:/*;         Postal address: AIPS Project Office                       */
   41:/*;                         National Radio Astronomy Observatory      */
   42:/*;                         520 Edgemont Road                         */
   43:/*;                         Charlottesville, VA 22903-2475 USA        */
   44:/*--------------------------------------------------------------------*/
   45:/*--------------------------------------------------------------------*/
   46:/*  ZABORT will take one of two actions depending on the value of     */
   47:/*  "action".  If "action" is zero, it establishes abort handling     */
   48:/*  to clean up for programs in the event of an ABORTASK or otherwise */
   49:/*  fatal signal.  Hangup, interrupt (except for AIPS or BATER) and   */
   50:/*  quit are ignored.  If running under the control of a debugger, it */
   51:/*  simply returns (to avoid affecting the debugger signal handling). */
   52:/*  If "action" is non-zero, it will issue an illegal instruction in  */
   53:/*  order to induce the abort handler.  This is mostly to get a       */
   54:/*  traceback for debugging purposes (e.g., when an invalid argument  */
   55:/*  to a subroutine is detected).                                     */
   56:/*                                                                    */
   57:/*  Inputs:                                                           */
   58:/*     tsknam   C*6   Program name                                    */
   59:/*     isalon   I     1 => stand-alone program, else a task           */
   60:/*     action   I     Action indicator code:                          */
   61:/*                       0 => establish abort handling                */
   62:/*                       1 => invoke an illegal instruction           */
   63:/*  Output:                                                           */
   64:/*     none                                                           */
   65:/*  Generic UNIX version (your system may have different/more         */
   66:/*  signals).                                                         */
   67:/*--------------------------------------------------------------------*/
   68:{
   69:   char prog[7];
   70:   register int i;
   71:/*--------------------------------------------------------------------*/
   72:                                        /* Abort?                     */
   73:   if (*action == 1)
   74:      abort ();
   75:                                        /* Else establish handler     */
   77:                                        /* Form null terminated       */
   78:                                        /* program name.              */
   79:   strncpy (prog, tsknam, 7);
   80:                                        /* If we are running in debug */
   81:                                        /* mode, don't disturb signal */
   82:                                        /* processing.                */
   83:   if (strcmp (prog, "ZSTRTA") == 0 || strcmp (prog, "AIPS") == 0) {
   84:      if (getenv ("AIPSDBUGR") != NULL)
   85:         return;
   86:      }
   87:   else if (strcmp (prog, "ZSTRTB") == 0 ||
   88:      strcmp (prog, "BATER") == 0) {
   89:      if (getenv ("BATERDBUGR") != NULL)
   90:         return;
   91:      }
   92:                                        /* ppid > 1 => dbgr           */
   93:   else if ((getenv ("DBUGR") != NULL) && (getppid () > 1))
   94:      return;
   95:                                        /* Your system may have more  */
   96:                                        /* or different signals.  See */
   97:                                        /* signal(3) and              */
   98:                                        /* "/usr/include/signal.h".   */
   99:   if (*isalon == 1 ||
  100:      getenv ("STANDALONE") != 0) {     /* if AIPS, BATER or          */
  101:                                        /* standalone, catch:         */
  102:      zignal_ (SIGINT, zabors_);        /* interrupt                  */
  103:      zignal_ (SIGHUP, zabors_);        /* hangup                     */
  104:      }
  105:   else {                               /* otherwise, ignore:         */
  106:      zignal_ (SIGINT, SIG_IGN);        /* interrupt                  */
  107:      zignal_ (SIGHUP, SIG_IGN);        /* hangup                     */
  108:      }
  109:   zignal_ (SIGQUIT, SIG_IGN);          /* quit (ignore)              */
  110:   zignal_ (SIGILL, zabors_);           /* illegal instruction        */
  111:#ifdef SIGTRAP
  112:   zignal_ (SIGTRAP, zabors_);          /* trace trap                 */
  113:#endif
  114:#ifdef SIGABRT
  115:   zignal_ (SIGABRT, zabors_);          /* abort (IOT) instruction    */
  116:#else
  117:   zignal_ (SIGIOT, zabors_);           /* abort (IOT) instruction    */
  118:#endif
  119:#ifdef SIGEMT
  120:   zignal_ (SIGEMT, zabors_);           /* EMT instruction            */
  121:#endif
  122:   zignal_ (SIGFPE, zabors_);           /* floating-point exception   */
  123:   zignal_ (SIGKILL, SIG_DFL);          /* kill: can't catch or ignore*/
  124:#ifdef SIGBUS
  125:   zignal_ (SIGBUS, zabors_);           /* bus error                  */
  126:#endif
  127:   zignal_ (SIGSEGV, zabors_);          /* segmentation violation     */
  128:#ifdef SIGSYS
  129:   zignal_ (SIGSYS, zabors_);           /* bad argument to system call*/
  130:#endif
  131:   zignal_ (SIGPIPE, zabors_);          /* write on a pipe with no one*/
  132:                                        /*    to read it              */
  133:   zignal_ (SIGTERM, zabors_);          /* software termination       */
  134:                                        /*    (e.g., "ABORTASK")      */
  135:   zignal_ (SIGUSR1, zabors_);          /* user defined signal 1      */
  136:   zignal_ (SIGUSR2, zabors_);          /* user defined signal 2      */
  138:   zignal_ (SIGALRM, zabors_);          /* alarm clock                */
  140:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZABOR2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:30 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZABORT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZABORT.f
FC        : Date       Fri Jul 18 17:03:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZABORT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZABORT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZABORT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZABORT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZABORT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZABORT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZABORT.FOR
COMRPL    : Date       Fri Jul 18 17:03:31 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZACTV8.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZACTV8.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZACTV8.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZACTV8.f
FC        : Date       Fri Jul 18 17:03:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZACTV8.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZACTV8.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZACTV8.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZACTV8.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZACTV8.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZACTV8.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZACTV8.FOR
COMRPL    : Date       Fri Jul 18 17:03:32 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZADDR.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZADDR.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZADDR.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZADDR.c
AIPSCC    : Date       Fri Jul 18 17:03:32 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZADDR.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZADDR.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZADDR.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZADDR.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZADDR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZADDR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZADDR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZADDR.FOR
COMRPL    : Date       Fri Jul 18 17:03:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZAND.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZAND.c
AIPSCC    : Date       Fri Jul 18 17:03:33 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZAND.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZAND.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZAND.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZAND.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZAND.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZAND.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZAND.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZAND.C
COMRPL    : Date       Fri Jul 18 17:03:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZARGC2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZARGC2.f
FC        : Date       Fri Jul 18 17:03:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZARGC2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZARGC2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZARGC2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZARGC2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZARGC2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZARGC2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZARGC2.FOR
COMRPL    : Date       Fri Jul 18 17:03:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZARGCL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZARGCL.f
FC        : Date       Fri Jul 18 17:03:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZARGCL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZARGCL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZARGCL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZARGCL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZARGCL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZARGCL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZARGCL.FOR
COMRPL    : Date       Fri Jul 18 17:03:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZARGMC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZARGMC.f
FC        : Date       Fri Jul 18 17:03:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZARGMC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZARGMC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZARGMC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZARGMC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZARGMC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZARGMC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZARGMC.FOR
COMRPL    : Date       Fri Jul 18 17:03:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZARGO2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZARGO2.f
FC        : Date       Fri Jul 18 17:03:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZARGO2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZARGO2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZARGO2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZARGO2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZARGO2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZARGO2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZARGO2.FOR
COMRPL    : Date       Fri Jul 18 17:03:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZARGOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZARGOP.f
FC        : Date       Fri Jul 18 17:03:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZARGOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZARGOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZARGOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZARGOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZARGOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZARGOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZARGOP.FOR
COMRPL    : Date       Fri Jul 18 17:03:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZARGS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZARGS.f
FC        : Date       Fri Jul 18 17:03:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZARGS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZARGS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZARGS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZARGS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZARGS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZARGS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZARGS.FOR
COMRPL    : Date       Fri Jul 18 17:03:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZARGXF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZARGXF.f
FC        : Date       Fri Jul 18 17:03:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZARGXF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZARGXF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZARGXF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZARGXF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZARGXF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZARGXF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZARGXF.FOR
COMRPL    : Date       Fri Jul 18 17:03:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZBFLIP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBFLIP.f
FC        : Date       Fri Jul 18 17:03:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBFLIP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBFLIP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBFLIP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZBFLIP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZBFLIP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZBFLIP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZBFLIP.FOR
COMRPL    : Date       Fri Jul 18 17:03:41 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBKLD1.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZBKLD1.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBKLD1.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD1.f
FC        : Date       Fri Jul 18 17:03:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD1.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD1.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD1.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD1.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD1.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZBKLD1.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZBKLD1.FOR
COMRPL    : Date       Fri Jul 18 17:03:42 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBKLD2.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZBKLD2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBKLD2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD2.f
FC        : Date       Fri Jul 18 17:03:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZBKLD2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZBKLD2.FOR
COMRPL    : Date       Fri Jul 18 17:03:43 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBKLD3.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZBKLD3.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBKLD3.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD3.f
FC        : Date       Fri Jul 18 17:03:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD3.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD3.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD3.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD3.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZBKLD3.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZBKLD3.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZBKLD3.FOR
COMRPL    : Date       Fri Jul 18 17:03:44 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBKTP1.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZBKTP1.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBKTP1.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP1.f
FC        : Date       Fri Jul 18 17:03:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP1.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP1.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP1.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP1.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP1.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZBKTP1.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZBKTP1.FOR
COMRPL    : Date       Fri Jul 18 17:03:45 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBKTP2.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZBKTP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBKTP2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP2.f
FC        : Date       Fri Jul 18 17:03:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZBKTP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZBKTP2.FOR
COMRPL    : Date       Fri Jul 18 17:03:46 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBKTP3.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZBKTP3.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBKTP3.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP3.f
FC        : Date       Fri Jul 18 17:03:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP3.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP3.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP3.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP3.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZBKTP3.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZBKTP3.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZBKTP3.FOR
COMRPL    : Date       Fri Jul 18 17:03:47 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBYMOV.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZBYMOV.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBYMOV.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBYMOV.c
AIPSCC    : Date       Fri Jul 18 17:03:47 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZBYMOV.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZBYMOV.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBYMOV.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZBYMOV.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZBYMOV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZBYMOV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZBYMOV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZBYMOV.FOR
COMRPL    : Date       Fri Jul 18 17:03:47 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBYTF2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZBYTF2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBYTF2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
AIPSCC    : Date       Fri Jul 18 17:03:48 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_bytf2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <stdlib.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zbytf2_(int *nwords, int *bytflp, int *nbitwd, char inbuf[],
    9:      char outbuf[])
   10:#else
   11:   void zbytf2_(nwords, bytflp, nbitwd, inbuf, outbuf)
   12:   char inbuf[], outbuf[];
   13:   int *nwords, *bytflp, *nbitwd;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! swap low and high order 8-bit bytes and move from inbuf to outbuf */
   17:/*# Z2 Binary                                                         */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1995-1997                                          */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Interchange the low order and high order bytes for all words in   */
   45:/*  the input buffer and puts results in output buffer (which may be  */
   46:/*  the same as the input buffer).  The routine is only called by     */
   47:/*  ZBYTFL and only if byte swapping is required on the host machine  */
   48:/*  (e.g., a VAX).                                                    */
   49:/*  Inputs:                                                           */
   50:/*     nwords   I       Length of input buffer in 16-bit "words"      */
   51:/*     bytflp   I       Byte/words swapped indicator as set in ZDCHIN */
   52:/*                        1 => byte swapped only                      */
   53:/*                        2 => word swapped only                      */
   54:/*                        3 => both byte and word swapped             */
   55:/*     nbitwd   I       Number of bits per integer                    */
   56:/*     inbuf    I*2(*)  input buffer                                  */
   57:/*  Output:                                                           */
   58:/*     outbuf   I*2(*)  output buffer containing swapped words        */
   59:/*                        (may be the same as the input buffer)       */
   60:/* Generic UNIX version (only performs byte-swapping at present;  it  */
   61:/* may be possible to use the UNIX library function "swab" for this   */
   62:/* it's not clear from the documentation if inbuf and outbuf can be   */
   63:/* the same).                                                         */
   64:/* This will probably do bad things if the arrays overlap but don't   */
   65:/* start at the same place.                                           */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:   int n8 = 8;
   69:   int flipcode;
   70:   register int j, k;
   71:   char temp[2], msgbuf[80];
   72:/*--------------------------------------------------------------------*/
   73:   flipcode = *bytflp;
   74:                                        /* Swap bytes only.  If      */
   75:                                        /* inbuf is the same as      */
   76:                                        /* outbuf, use temporary     */
   77:                                        /* storage.                  */
   78:   if ((flipcode == 1) || (flipcode == 3)) {
   79:      if (&inbuf[0] == &outbuf[0]) {
   80:         for (j = 0; j < *nwords; j++) {
   81:            k = 2 * j;
   82:            temp[0] = inbuf[k];
   83:            temp[1] = inbuf[k+1];
   84:            outbuf[k] = temp[1];
   85:            outbuf[k+1] = temp[0];
   86:            }
   87:         }
   88:      else {
   89:         for (j = 0; j < *nwords; j++) {
   90:            k = 2 * j;
   91:            outbuf[k+1] = inbuf[k];
   92:            outbuf[k] = inbuf[k+1];
   93:            }
   94:         }
   95:      }
   96:   else if ((flipcode == 2) || (flipcode == 0)) {
   97:      if (&inbuf[0] == &outbuf[0]) {
   98:	    ;
   99:	 }
  100:      else {
  101:         for (j = 0; j < *nwords; j++) {
  102:            k = 2 * j;
  103:            outbuf[k+1] = inbuf[k+1];
  104:            outbuf[k] = inbuf[k];
  105:            }
  106:         }
  107:      }
  108:   else {
  109:                                        /* Invalid "flipcode".        */
  110:      sprintf (msgbuf,
  111:         "ZBYTF2: INVALID VALUE FOR BYTFLP = %d\n", flipcode);
  112:      zmsgwr_ (msgbuf, &n8);
  113:      exit (8);
  114:      }
  116:   return;
  117:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZBYTF2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:48 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZBYTFL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBYTFL.f
FC        : Date       Fri Jul 18 17:03:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBYTFL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZBYTFL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBYTFL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZBYTFL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZBYTFL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZBYTFL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZBYTFL.FOR
COMRPL    : Date       Fri Jul 18 17:03:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZC8CL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZC8CL.f
FC        : Date       Fri Jul 18 17:03:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZC8CL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZC8CL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZC8CL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZC8CL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZC8CL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZC8CL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZC8CL.FOR
COMRPL    : Date       Fri Jul 18 17:03:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZCLC8.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZCLC8.f
FC        : Date       Fri Jul 18 17:03:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZCLC8.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZCLC8.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZCLC8.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZCLC8.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZCLC8.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZCLC8.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZCLC8.FOR
COMRPL    : Date       Fri Jul 18 17:03:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZCLOSE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZCLOSE.f
FC        : Date       Fri Jul 18 17:03:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZCLOSE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZCLOSE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZCLOSE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZCLOSE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZCLOSE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZCLOSE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZCLOSE.FOR
COMRPL    : Date       Fri Jul 18 17:03:52 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCMPR2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZCMPR2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCMPR2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
AIPSCC    : Date       Fri Jul 18 17:03:52 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c:7:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c:10: error: `MAXPNAME' undeclared here (not in a function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_cmpr2__
    2:#include <unistd.h>
    3:#include <sys/types.h>
    4:#include <errno.h>
    5:#include <sys/stat.h>
    6:#include <string.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zcmpr2_(int *fcb, char pname[MAXPNAME], int *nblocks, int *map,
   11:      int *syserr, int *ierr)
   12:#else
   13:   void zcmpr2_(fcb, pname, nblocks, map, syserr, ierr)
   14:   int *fcb, *nblocks, *map, *syserr, *ierr;
   15:   char pname[MAXPNAME];
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! truncate a disk file, returning blocks to the system              */
   19:/*# IO-basic                                                          */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 1997                                         */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/* Truncates a disk file.  It is assumed that the file is open.       */
   47:/* Inputs:                                                            */
   48:/*    fcb     I(*)   File descriptor from FTAB file control block     */
   49:/*    pname   C*48   File name                                        */
   50:/*    map     I      I/O type: 0 => non-map (single buffered)         */
   51:/*                             1 => map (double buffered)             */
   52:/* In/Output:                                                         */
   53:/*    nblocks I      Desired size in 256-integer blocks               */
   54:/* Output:                                                            */
   55:/*    ierr    I      Error code: 0 = success                          */
   56:/*                      1 = file name translation fails               */
   57:/*                      2 = error occurred                            */
   58:/*                      3 = temporary file not deleted                */
   59:/* semi-standard (SVR4 and BSD 4.3) function ftruncate used           */
   60:/*--------------------------------------------------------------------*/
   61:{
   62:                                        /* number bytes per AIPS byte */
   63:   extern int  Z_fcbfd, Z_fcbsiz, Z_fcberr, Z_mfcb, Z_nbpab ;
   64:   off_t nbytes, lastiob;
   65:   int fd;
   66:   struct stat fstatbuf;
   67:/*--------------------------------------------------------------------*/
   68:   *ierr = 0;
   69:   *syserr = 0;
   70:   nbytes = *nblocks;
   71:   nbytes = nbytes * 512 * Z_nbpab;
   72:   fd = *(fcb + Z_fcbfd);
   73:                                        /* Truncate file to "nbytes". */
   74:   if (ftruncate (*fcb, nbytes) == -1) {
   75:      *ierr = 2;
   76:      *syserr = errno;
   77:      }
   78:                                        /* Squirrel away file size    */
   79:   else if (fstat (fd, &fstatbuf) == -1) {
   80:      *(fcb + Z_fcberr) = errno;
   81:      *ierr = 6;
   82:      }
   83:   else {
   84:      lastiob = -100;
   85:      *nblocks = fstatbuf.st_size / 512 / Z_nbpab ;
   86:      memcpy ((fcb+Z_fcbsiz), &fstatbuf.st_size, sizeof(off_t)) ;
   87:      memcpy ((fcb+Z_fcbsiz+2), &lastiob, sizeof(off_t)) ;
   88:      if (*map == 1) {
   89:         memcpy ((fcb+Z_mfcb+Z_fcbsiz), &fstatbuf.st_size, sizeof(off_t)) ;
   90:         memcpy ((fcb+Z_mfcb+Z_fcbsiz+2), &lastiob, sizeof(off_t)) ;
   91:         }
   92:      }
   94:   return;
   95:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZCMPR2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZCMPRS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZCMPRS.f
FC        : Date       Fri Jul 18 17:03:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZCMPRS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZCMPRS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZCMPRS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZCMPRS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZCMPRS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZCMPRS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZCMPRS.FOR
COMRPL    : Date       Fri Jul 18 17:03:53 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZCPU.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZCPU.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZCPU.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZCPU.c
AIPSCC    : Date       Fri Jul 18 17:03:53 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCPU.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCPU.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZCPU.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZCPU.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZCPU.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZCPU.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZCPU.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZCPU.FOR
COMRPL    : Date       Fri Jul 18 17:03:54 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCREA2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZCREA2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCREA2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
AIPSCC    : Date       Fri Jul 18 17:03:54 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:10:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:17: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c: In function `zcrea2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:78: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:78: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:78: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:78: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_crea2__
    2:#include <unistd.h>
    3:#include <sys/types.h>
    4:#include <sys/stat.h>
    5:#include <stdio.h>
    6:#include <fcntl.h>
    7:#include <string.h>
    8:#include <errno.h>
    9:#include <stdlib.h>
   10:#include <AIPSPROTO.H>
   12:#define BUFSIZE 65536                   /* Buffer size for space      */
   13:                                        /* reservation process.       */
   14:#define PMODE (S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | S_IROTH | S_IWOTH)
   16:#if __STDC__
   17:   void zcrea2_(char pname[MAXPNAME], int *ablocks, int *asize,
   18:      int *syserr, int *ierr)
   19:#else
   20:   void zcrea2_(pname, ablocks, asize, syserr, ierr)
   21:   char pname[MAXPNAME];
   22:   int *ablocks, *asize, *syserr, *ierr;
   23:#endif
   24:/*--------------------------------------------------------------------*/
   25:/*! create the specified disk file                                    */
   26:/*# Z2 IO-basic                                                       */
   27:/*--------------------------------------------------------------------*/
   28:/*;  Copyright (C) 1995-1997, 2000, 2002                              */
   29:/*;  Associated Universities, Inc. Washington DC, USA.                */
   30:/*;                                                                   */
   31:/*;  This program is free software; you can redistribute it and/or    */
   32:/*;  modify it under the terms of the GNU General Public License as   */
   33:/*;  published by the Free Software Foundation; either version 2 of   */
   34:/*;  the License, or (at your option) any later version.              */
   35:/*;                                                                   */
   36:/*;  This program is distributed in the hope that it will be useful,  */
   37:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   38:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   39:/*;  GNU General Public License for more details.                     */
   40:/*;                                                                   */
   41:/*;  You should have received a copy of the GNU General Public        */
   42:/*;  License along with this program; if not, write to the Free       */
   43:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   44:/*;  MA 02139, USA.                                                   */
   45:/*;                                                                   */
   46:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   47:/*;         Internet email: aipsmail at nrao.edu.                        */
   48:/*;         Postal address: AIPS Project Office                       */
   49:/*;                         National Radio Astronomy Observatory      */
   50:/*;                         520 Edgemont Road                         */
   51:/*;                         Charlottesville, VA 22903-2475 USA        */
   52:/*--------------------------------------------------------------------*/
   53:/*  Create a disk file of the specified name and size with read/write */
   54:/*  permission.                                                       */
   55:/*  Inputs:                                                           */
   56:/*     pname    C*48   Physical file name (MAXPNAME characters)       */
   57:/*     ablocks  I      Requested size of file in AIPS-blocks          */
   58:/*                        (256 local integers)                        */
   59:/*  Output:                                                           */
   60:/*     asize    I      Actual size of file created in AIPS-blocks     */
   61:/*     syserr   I      System error code                              */
   62:/*     ierr     I      Error return code: 0 => no error               */
   63:/*                        1 => file already exists                    */
   64:/*                        2 => volume not found                       */
   65:/*                        3 => insufficient space                     */
   66:/*                        4 => other                                  */
   67:/*  Bell UNIX version (attempts atomic file creations).               */
   68:/*--------------------------------------------------------------------*/
   69:{
   70:                                        /* # bytes per AIPS-byte      */
   71:   extern int Z_nbpab;
   72:   int llen, xlen, xlnb, jerr, fd, tries, lockfd, tdelay,
   73:      iexcl = 1, n6 = 6, n8 = 8;
   74:   int chunks, rest, xfer;
   75:   off_t bytes;
   76:   register int i, j, k;
   77:   float delay = 2.0;
   78:   char lognam[MAXPNAME], xlated[MAXAPATH], filename[MAXPNAME],
   79:      lname[MAXPNAME], lockname[MAXAPATH], pathname[MAXAPATH], msgbuf[80];
   80:   char *buff = NULL;
   81:   struct stat statbuf;
   82:/*--------------------------------------------------------------------*/
   83:   *asize = 0;
   84:   *syserr = 0;
   85:   *ierr = 0;
   86:                                        /* Extract logical device.    */
   87:   for (i = 0; i < MAXPNAME && pname[i] != ':'; i++)
   88:      lognam[i] = pname[i];
   89:   lognam[i] = '\0';
   91:                                        /* Extract filename.          */
   92:   j = 0;
   93:   for (i = i+1; i < MAXPNAME && pname[i] != ' '; i++) {
   94:      filename[j] = pname[i];
   95:      j++;
   96:      }
   97:   filename[j] = '\0';
   98:                                        /* Convert number of AIPS-    */
   99:                                        /* blocks requested to bytes  */
  100:   bytes = *ablocks * Z_nbpab;
  101:   bytes = bytes * 512;
  102:                                        /* Translate logical device   */
  103:                                        /* name and null terminate.   */
  104:   llen = MAXPNAME;
  105:   xlen = MAXAPATH;
  106:   ztrlo2_ (&llen, lognam, &xlen, xlated, &xlnb, &jerr);
  107:   if (jerr != 0) {
  108:      *ierr = 2;
  109:      sprintf (msgbuf, "ZCREA2: TROUBLE TRANSLATING LOGICAL = %s",
  110:         lognam);
  111:      zmsgwr_ (msgbuf, &n6);
  112:      }
  113:   else if (bytes <= 0) {
  114:      *ierr = 3;
  115:      sprintf (msgbuf, "ZCREA2: BYTES OVERFLOW ? = %d", bytes);
  116:      zmsgwr_ (msgbuf, &n6);
  117:      }
  118:   else {
  119:      xlated[xlnb] = '\0';
  120:                                        /* Build full path name of    */
  121:                                        /* the file to be created.    */
  122:      sprintf (pathname, "%s/%s", xlated, filename);
  123:                                         /* "Stat" full path name.    */
  124:      if (stat (pathname, &statbuf) == 0) {
  125:                                        /* File already exists. Get   */
  126:                                        /* its actual size in AIPS-   */
  127:                                        /* bytes.                     */
  128:         *ierr = 1;
  129:         *asize = statbuf.st_size / Z_nbpab / 512;
  130:         }
  131:      else {
  132:                                        /* Build physical file name   */
  133:                                        /* of space lock file.        */
  134:         sprintf (lname, "%s:SPACE", lognam);
  135:                                        /* Build full path name to    */
  136:                                        /* space lock file.           */
  137:         sprintf (lockname, "%s/SPACE", xlated);
  138:                                        /* Open space lock file.      */
  139:         if ((lockfd = open (lockname, 2)) == -1) {
  140:            *syserr = errno;
  141:                                        /* If space lock file doesn't */
  142:                                        /* exist, create it.          */
  143:            if (errno == ENOENT) {
  144:               if ((lockfd =
  145:                  open (lockname, O_CREAT | O_EXCL | O_WRONLY, PMODE))
  146:                  == -1) {
  147:                  *ierr = 4;
  148:                  sprintf (msgbuf,
  149:                  "ZCREA2: ERROR CREATING SPACE LOCK FILE = %s", lname);
  150:                  zmsgwr_ (msgbuf, &n8);
  151:                  }
  152:               }
  153:                                        /* Some other open error.     */
  154:            else {
  155:               *ierr = 4;
  156:               sprintf (msgbuf,
  157:                  "ZCREA2: ERROR OPENING SPACE LOCK FILE = %s", lname);
  158:               zmsgwr_ (msgbuf, &n8);
  159:               }
  160:            }
  161:         }
  162:                                        /* If no error so far,        */
  163:                                        /* continue.                  */
  164:      if (*ierr == 0) {
  165:                                        /* Apply non-blocking lock to */
  166:                                        /* space lock file.  This is  */
  167:                                        /* an attempt to force AIPS   */
  168:                                        /* file creations to be       */
  169:                                        /* atomic.  If it fails, we   */
  170:                                        /* try to create the file     */
  171:                                        /* anyway.                    */
  172:         tries = 0;
  173:         tdelay = 0;
  174:lock:
  175:         zlock_ (&lockfd, lname, &iexcl, syserr, &jerr);
  176:         tries = tries + 1;
  177:         if (jerr == 4) {
  178:                                        /* Space lock file is busy.   */
  179:                                        /* Wait and try again up to   */
  180:                                        /* 30 times at 2 second       */
  181:                                        /* intervals.                 */
  182:            if (tries <= 30) {
  183:               zdelay_ (&delay, &jerr);
  184:               tdelay = tdelay + delay;
  185:               goto lock;
  186:               }
  187:            tries = tries - 1;
  188:            sprintf (msgbuf, "ZCREA2: SPACE LOCK FILE = %s", lname);
  189:            zmsgwr_ (msgbuf, &n8);
  190:            sprintf (msgbuf,
  191:               "ZCREA2: STILL BUSY AFTER %d TRIES IN %d SECONDS",
  192:               tries, tdelay);
  193:            zmsgwr_ (msgbuf, &n8);
  194:            sprintf (msgbuf,
  195:               "ZCREA2: A STOPPED PROCESS MAY HAVE IT MONOPOLIZED");
  196:            zmsgwr_ (msgbuf, &n8);
  197:            sprintf (msgbuf, "ZCREA2: NOTIFY THE AIPS SYSTEM MANAGER");
  198:            zmsgwr_ (msgbuf, &n8);
  199:            sprintf (msgbuf,
  200:               "ZCREA2: PERFORMING NON-ATOMIC FILE CREATION INSTEAD");
  201:            zmsgwr_ (msgbuf, &n8);
  202:            }
  203:                                        /* Some other error locking   */
  204:                                        /* space lock file.           */
  205:         else if (jerr != 0) {
  206:            *ierr = 4;
  207:            sprintf (msgbuf,
  208:               "ZCREA2: ERROR LOCKING SPACE LOCK FILE = %s", lname);
  209:            zmsgwr_ (msgbuf, &n8);
  210:            sprintf (msgbuf,
  211:               "ZCREA2: PERFORMING NON-ATOMIC FILE CREATION INSTEAD");
  212:            zmsgwr_ (msgbuf, &n8);
  213:            }
  214:                                        /* Build full path name of    */
  215:                                        /* the file to be created.    */
  216:         sprintf (pathname, "%s/%s", xlated, filename);
  217:                                        /* Create the file.           */
  218:         if ((fd = open
  219:            (pathname, O_CREAT | O_EXCL | O_WRONLY, PMODE)) == -1) {
  220:                                        /* File already exists.       */
  221:            if (errno == EEXIST) {
  222:               *ierr = 1;
  223:               }
  224:            else {
  225:               *syserr = errno;
  226:               *ierr = 4;
  227:               sprintf (msgbuf, "ZCREA2: CREATE ERROR = %d", errno);
  228:               zmsgwr_ (msgbuf, &n6);
  229:               }
  230:            }
  231:                                        /* Apply non-blocking lock.   */
  232:         else {
  233:            zlock_ (&fd, pname, &iexcl, syserr, &jerr);
  234:                                        /* Allocate memory for a      */
  235:                                        /* temporary I/O buffer.      */
  236:            if ((buff = (char *) malloc (BUFSIZE)) == NULL) {
  237:               *syserr = errno;
  238:               *ierr = 4;
  239:               sprintf (msgbuf, "ZCREA2: MEMORY ALLOCATION ERROR = %d", errno);
  240:               zmsgwr_ (msgbuf, &n6);
  241:               }
  242:            else {
  243:               memset (buff, 0, BUFSIZE);
  244:                                        /* Convert number of AIPS-    */
  245:                                        /* blocks requested to bytes  */
  246:               bytes = *ablocks * Z_nbpab;
  247:               bytes = bytes * 512;
  248:                                        /* Calculate the number of    */
  249:                                        /* BUFSIZE byte chunks this   */
  250:                                        /* represents plus remainder  */
  251:                                        /* (for the sake of speed,    */
  252:                                        /* disk space is reserved by  */
  253:                                        /* writing the file in        */
  254:                                        /* BUFSIZE chunks, then the   */
  255:                                        /* remainder).                */
  256:               chunks = bytes / BUFSIZE;
  257:               rest = bytes % BUFSIZE;
  258:                                        /* Reserve the disk space by  */
  259:                                        /* writing the entire file.   */
  260:                                        /* We can't just write the    */
  261:                                        /* last byte since this would */
  262:                                        /* leave a "hole".  That is,  */
  263:                                        /* "stat" would return the    */
  264:                                        /* desired file size, but     */
  265:                                        /* only one block would       */
  266:                                        /* actually be allocated.     */
  267:                                        /* UNIX really should have a  */
  268:                                        /* function for this (just    */
  269:                                        /* something that would mark  */
  270:                                        /* the blocks as in use).     */
  271:               bytes = 0;
  272:               xfer = 0;
  273:               for (i = 0; i < chunks && *ierr == 0; i++) {
  274:                  if ((xfer = write (fd, buff, BUFSIZE)) == -1) {
  275:                     *syserr = errno;
  276:                     *ierr = 4;
  277:                     sprintf (msgbuf, "ZCREA2: WRITE ERROR = %d", errno);
  278:                     zmsgwr_ (msgbuf, &n6);
  279:                     }
  280:                                        /* Increment space reserved.  */
  281:                  else {
  282:                     bytes = bytes + xfer;
  283:                                        /* Presume insufficient space */
  284:                     if (xfer != BUFSIZE) {
  285:                        *ierr = 3;
  286:                        }
  287:                     }
  288:                  }
  289:                                        /* If no error so far, write  */
  290:                                        /* the "rest" (if any).       */
  291:               if (*ierr == 0 && rest > 0) {
  292:                  if ((xfer = write (fd, buff, rest)) == -1) {
  293:                     *syserr = errno;
  294:                     *ierr = 4;
  295:                     sprintf (msgbuf, "ZCREA2: WRITE ERROR = %d", errno);
  296:                     zmsgwr_ (msgbuf, &n6);
  297:                     }
  298:                                        /* Increment space reserved.  */
  299:                  else {
  300:                     bytes = bytes + xfer;
  301:                                        /* Presume insufficient space */
  302:                     if (xfer != rest) {
  303:                        *ierr = 3;
  304:                        }
  305:                     }
  306:                  }
  307:                                        /* Free up the memory of the  */
  308:                                        /* temporary I/O buffer.      */
  309:               free (buff);
  310:               }
  311:                                        /* Convert the final 8-bit    */
  312:                                        /* byte file size to          */
  313:                                        /* AIPS-blocks for return     */
  314:            *asize = bytes / Z_nbpab / 512;
  315:                                        /* Close the file.            */
  316:            if (close (fd) == -1) {
  317:               *syserr = errno;
  318:               *ierr = 4;
  319:               sprintf (msgbuf, "ZCREA2: CLOSE ERROR = %d", errno);
  320:               zmsgwr_ (msgbuf, &n6);
  321:               }
  322:                                        /* Did we get what we asked   */
  323:                                        /* for?                       */
  324:                                        /* Presume insufficient space */
  325:            else if (*asize != *ablocks) {
  326:               *ierr = 3;
  327:               }
  328:                                        /* Any errors.                */
  329:            if (*ierr != 0) {
  330:                                        /* Delete the file.           */
  331:               if (unlink (pathname) == -1) {
  332:                  *syserr = errno;
  333:                  *ierr = 4;
  334:                  sprintf (msgbuf, "ZCREA2: DELETE ERROR = %d", errno);
  335:                  zmsgwr_ (msgbuf, &n6);
  336:                  }
  337:               }
  338:            }
  339:                                        /* Close space lock file.     */
  340:         if (close (lockfd) == -1) {
  341:            *syserr = errno;
  342:            *ierr = 4;
  343:            sprintf (msgbuf, "ZCREA2: CLOSE ERROR ON %s", lname);
  344:            zmsgwr_ (msgbuf, &n6);
  345:            }
  346:         }
  347:      }
  349:   return;
  350:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZCREA2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZCREAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZCREAT.f
FC        : Date       Fri Jul 18 17:03:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZCREAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZCREAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZCREAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZCREAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZCREAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZCREAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZCREAT.FOR
COMRPL    : Date       Fri Jul 18 17:03:56 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCRLOG.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZCRLOG.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCRLOG.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZCRLOG.c
AIPSCC    : Date       Fri Jul 18 17:03:56 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCRLOG.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCRLOG.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZCRLOG.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZCRLOG.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZCRLOG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZCRLOG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZCRLOG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZCRLOG.FOR
COMRPL    : Date       Fri Jul 18 17:03:57 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDACLS.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDACLS.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDACLS.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDACLS.c
AIPSCC    : Date       Fri Jul 18 17:03:57 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDACLS.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDACLS.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDACLS.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZDACLS.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDACLS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDACLS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDACLS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDACLS.FOR
COMRPL    : Date       Fri Jul 18 17:03:57 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDAOPN.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDAOPN.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDAOPN.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
AIPSCC    : Date       Fri Jul 18 17:03:58 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:11:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:14: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c: In function `zdaopn_':
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:78: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:78: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:78: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:83: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_daopn__
    5:#include <unistd.h>
    6:#include <fcntl.h>
    7:#include <string.h>
    8:#include <errno.h>
    9:#include <sys/types.h>
   10:#include <sys/stat.h>
   11:#include <AIPSPROTO.H>
   13:#if __STDC__
   14:   void zdaopn_(int *fcb, char pname[MAXPNAME],int * map, int *excl,
   15:      int *ierr)
   16:#else
   17:   void zdaopn_(fcb, pname, map, excl, ierr)
   18:   int *fcb, *map, *excl, *ierr ;
   19:   char pname[MAXPNAME] ;
   20:#endif
   21:/*--------------------------------------------------------------------*/
   22:/*! open the specified disk file                                      */
   23:/*# Z2 IO-basic                                                       */
   24:/*--------------------------------------------------------------------*/
   25:/*;  Copyright (C) 1995, 1997                                         */
   26:/*;  Associated Universities, Inc. Washington DC, USA.                */
   27:/*;                                                                   */
   28:/*;  This program is free software; you can redistribute it and/or    */
   29:/*;  modify it under the terms of the GNU General Public License as   */
   30:/*;  published by the Free Software Foundation; either version 2 of   */
   31:/*;  the License, or (at your option) any later version.              */
   32:/*;                                                                   */
   33:/*;  This program is distributed in the hope that it will be useful,  */
   34:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   35:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   36:/*;  GNU General Public License for more details.                     */
   37:/*;                                                                   */
   38:/*;  You should have received a copy of the GNU General Public        */
   39:/*;  License along with this program; if not, write to the Free       */
   40:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   41:/*;  MA 02139, USA.                                                   */
   42:/*;                                                                   */
   43:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   44:/*;         Internet email: aipsmail at nrao.edu.                        */
   45:/*;         Postal address: AIPS Project Office                       */
   46:/*;                         National Radio Astronomy Observatory      */
   47:/*;                         520 Edgemont Road                         */
   48:/*;                         Charlottesville, VA 22903-2475 USA        */
   49:/*--------------------------------------------------------------------*/
   50:/*  Opens a disk file for map (double buffered) or non-map (single    */
   51:/*  buffered) I/O and shared or exclusive use.                        */
   52:/*  Inputs:                                                           */
   53:/*     pname   H*48   Physical file name (H for Macro, C, ...')        */
   54:/*     map     I      I/O type: 0 => non-map (single buffered)        */
   55:/*                              1 => map (double buffered)            */
   56:/*     excl    I      Usage mode indicator: 0 => shared               */
   57:/*                                          1 => exclusive            */
   58:/*  Output:                                                           */
   59:/*     fcb     I(*)   File control block for disk file involved       */
   60:/*     ierr    I      Error return code: 0 => no error                */
   61:/*                       2 => file not found                          */
   62:/*                       3 => volume/logical not found                */
   63:/*                       4 => exclusive use requested but not ok      */
   64:/*                       6 => other open error                        */
   65:/*  Generic UNIX version (synchronous I/O only).                      */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:                                        /* Offsets to entries in the  */
   69:                                        /* file control blocks        */
   70:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   71:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   72:                                        /* # of FTAB elements per map */
   73:                                        /* file control block         */
   74:   extern int Z_mfcb;
   75:   int llen, xlen, xlnb, jerr, syserr, fd, dupfd;
   76:   off_t lastiob;
   77:   register int i, j;
   78:   char pathname[MAXAPATH];
   79:   struct stat fstatbuf;
   80:/*--------------------------------------------------------------------*/
   81:   *ierr = 0 ;
   82:                                        /* get full file name         */
   83:   llen = MAXPNAME;
   84:   xlen = MAXAPATH;
   85:   zpath_(&llen, pname, &xlen, pathname, &xlnb, &jerr) ;
   86:   if (jerr != 0) {
   87:      *ierr = 3;
   88:      }
   89:   else {
   90:      pathname[xlnb] = '\0';
   91:                                        /* Open the disk file         */
   92:                                        /* read/write.                */
   93:      fd = open (pathname, O_RDWR);
   94:                                        /* try read only              */
   95:      if ((fd == -1) && (errno == EACCES) && (*excl == 0))
   96:         fd = open (pathname, O_RDONLY);
   97:      if (fd == -1) {
   98:         *(fcb + Z_fcberr) = errno;
   99:                                        /* File doesn't exist.        */
  100:         if (errno == ENOENT)
  101:            *ierr = 2;
  102:                                        /* Some other open error.     */
  103:         else
  104:            *ierr = 6;
  105:         }
  106:      else {
  107:         *(fcb + Z_fcbfd) = fd;
  108:                                        /* Apply non-blocking lock.   */
  109:         zlock_ (&fd, pname, excl, &syserr, ierr);
  110:         if (*ierr != 0) {
  111:            *(fcb + Z_fcberr) = syserr;
  112:            close (fd);
  113:            }
  114:                                        /* Squirrel away file size    */
  115:         else if (fstat (fd, &fstatbuf) == -1) {
  116:            *(fcb + Z_fcberr) = errno;
  117:            *ierr = 6;
  118:            close (fd);
  119:            }
  120:         else {
  121:            lastiob = -100;
  122:            memcpy ((fcb+Z_fcbsiz), &fstatbuf.st_size, sizeof(off_t)) ;
  123:            memcpy ((fcb+Z_fcbsiz+2), &lastiob, sizeof(off_t)) ;
  124:                                        /* If opened for double       */
  125:                                        /* buffered I/O, duplicate    */
  126:                                        /* 1st buffer file control    */
  127:                                        /* block entries in 2nd       */
  128:                                        /* buffer control block.      */
  129:            if (*map == 1) {
  130:                                        /* Get duplicate file         */
  131:                                        /* descriptor for 2nd buffer  */
  132:                                        /* (this is only necessary    */
  133:                                        /* for I/O wait servicing).   */
  134:               if ((dupfd = dup(fd)) == -1) {
  135:                  *(fcb + Z_mfcb + Z_fcberr) = errno;
  136:                  close (fd);
  137:                  *ierr = 6;
  138:                  }
  139:               else {
  140:                  *(fcb + Z_mfcb + Z_fcbfd) = dupfd;
  141:                                        /* Copy file size info.       */
  142:                  memcpy ((fcb+Z_mfcb+Z_fcbsiz), &fstatbuf.st_size,
  143:                      sizeof(off_t)) ;
  144:                  memcpy ((fcb+Z_mfcb+Z_fcbsiz+2), &lastiob,
  145:                      sizeof(off_t)) ;
  146:                                        /* Enable asynchronous mode   */
  147:                                        /* for both buffers here (not */
  148:                                        /* implemented this version)  */
  149:                  }
  150:               }
  151:            }
  152:         }
  153:      }
  154:                                        /* Exit.                      */
  155:   return;
  156:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDAOPN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:03:58 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDATE.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDATE.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDATE.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDATE.c
AIPSCC    : Date       Fri Jul 18 17:03:58 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDATE.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDATE.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDATE.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZDATE.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDATE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDATE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDATE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDATE.FOR
COMRPL    : Date       Fri Jul 18 17:03:59 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZDCHI2.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDCHI2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZDCHI2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDCHI2.f
FC        : Date       Fri Jul 18 17:03:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDCHI2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDCHI2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDCHI2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDCHI2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDCHI2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDCHI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDCHI2.FOR
COMRPL    : Date       Fri Jul 18 17:04:00 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDCHIC.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDCHIC.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDCHIC.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDCHIC.c
AIPSCC    : Date       Fri Jul 18 17:04:00 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDCHIC.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDCHIC.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDCHIC.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZDCHIC.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDCHIC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDCHIC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDCHIC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDCHIC.FOR
COMRPL    : Date       Fri Jul 18 17:04:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZDCHIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDCHIN.f
FC        : Date       Fri Jul 18 17:04:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDCHIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDCHIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDCHIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDCHIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDCHIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDCHIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDCHIN.FOR
COMRPL    : Date       Fri Jul 18 17:04:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZDEAC2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDEAC2.f
FC        : Date       Fri Jul 18 17:04:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEAC2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEAC2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDEAC2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDEAC2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDEAC2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDEAC2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDEAC2.FOR
COMRPL    : Date       Fri Jul 18 17:04:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZDEACL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDEACL.f
FC        : Date       Fri Jul 18 17:04:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEACL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEACL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDEACL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDEACL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDEACL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDEACL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDEACL.FOR
COMRPL    : Date       Fri Jul 18 17:04:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZDEAMC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDEAMC.f
FC        : Date       Fri Jul 18 17:04:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEAMC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEAMC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDEAMC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDEAMC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDEAMC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDEAMC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDEAMC.FOR
COMRPL    : Date       Fri Jul 18 17:04:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZDEAO2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDEAO2.f
FC        : Date       Fri Jul 18 17:04:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEAO2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEAO2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDEAO2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDEAO2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDEAO2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDEAO2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDEAO2.FOR
COMRPL    : Date       Fri Jul 18 17:04:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZDEAOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDEAOP.f
FC        : Date       Fri Jul 18 17:04:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEAOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEAOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDEAOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDEAOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDEAOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDEAOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDEAOP.FOR
COMRPL    : Date       Fri Jul 18 17:04:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZDEAX2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDEAX2.f
FC        : Date       Fri Jul 18 17:04:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEAX2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEAX2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDEAX2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDEAX2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDEAX2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDEAX2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDEAX2.FOR
COMRPL    : Date       Fri Jul 18 17:04:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZDEAXF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDEAXF.f
FC        : Date       Fri Jul 18 17:04:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEAXF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEAXF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDEAXF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDEAXF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDEAXF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDEAXF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDEAXF.FOR
COMRPL    : Date       Fri Jul 18 17:04:08 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZDELA2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDELA2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZDELA2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDELA2.c
AIPSCC    : Date       Fri Jul 18 17:04:08 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDELA2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDELA2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDELA2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZDELA2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDELA2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDELA2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDELA2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDELA2.FOR
COMRPL    : Date       Fri Jul 18 17:04:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZDELAY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDELAY.f
FC        : Date       Fri Jul 18 17:04:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDELAY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDELAY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDELAY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDELAY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDELAY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDELAY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDELAY.FOR
COMRPL    : Date       Fri Jul 18 17:04:09 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDEST2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDEST2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDEST2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
AIPSCC    : Date       Fri Jul 18 17:04:10 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:6:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:9: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c: In function `zdest2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:59: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:59: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:59: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:63: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dest2__
    2:#include <unistd.h>
    3:#include <fcntl.h>
    4:#include <stdio.h>
    5:#include <errno.h>
    6:#include <AIPSPROTO.H>
    8:#if __STDC__
    9:   void zdest2_(char pname[MAXPNAME], int *syserr, int *ierr)
   10:#else
   11:   void zdest2_(pname, syserr, ierr)
   12:   char pname[MAXPNAME];
   13:   int *syserr, *ierr;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! delete a disk file                                                */
   17:/*# IO-basic                                                          */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1995, 1997                                         */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Destroy (i.e., delete) a file.  The file should already be closed */
   45:/*  Inputs:                                                           */
   46:/*     pname   H*48   Physical file name (H for Macro...              */
   47:/*  Output:                                                           */
   48:/*     syserr  I      System-level error code (for ZERROR)            */
   49:/*     ierr    I      Error return code: 0 => no error                */
   50:/*                       1 => file not found (no message)             */
   51:/*                       2 => device not found                        */
   52:/*                       3 => file in use                             */
   53:/*                       4 => other                                   */
   54:/*  Generic UNIX version.                                             */
   55:/*--------------------------------------------------------------------*/
   56:{
   57:   register int i, j;
   58:   int llen, xlen, xlnb, jerr, lockfd = -99, excl = 1 ;
   59:   char pathname[MAXAPATH];
   60:/*--------------------------------------------------------------------*/
   61:   *ierr = 0;
   62:                                        /* Translate name             */
   63:   llen = MAXPNAME;
   64:   xlen = MAXAPATH;
   65:   zpath_ (&llen, pname, &xlen, pathname, &xlnb, &jerr);
   66:   if (jerr != 0) {
   67:      *ierr = 2;
   68:      }
   69:   else {
   70:      pathname[xlnb] = '\0';
   71:                                        /* Open the disk file         */
   72:                                        /* read/write.                */
   73:      if ((lockfd = open (pathname, 2)) == -1) {
   74:                                        /* File doesn't exist.        */
   75:         if (errno == ENOENT)
   76:            *ierr = 1;
   77:                                        /* Some other open error.     */
   78:         else {
   79:            *syserr = errno;
   80:            *ierr = 4;
   81:            }
   82:         }
   83:                                        /* Apply non-blocking         */
   84:                                        /* exclusive lock.            */
   85:      else {
   86:         zlock_ (&lockfd, pname, &excl, syserr, ierr);
   87:         if (*ierr != 0) {
   88:                                        /* File in use.               */
   89:            if (*ierr == 4) {
   90:               *ierr = 3;
   91:               }
   92:                                        /* Other file locking error.  */
   93:            else {
   94:               *ierr = 4;
   95:               }
   96:            }
   97:         else if ( unlink (pathname) != 0) {
   98:            *syserr = errno;
   99:            *ierr = 4;
  100:            }
  101:                                        /* Close and unlock file.     */
  102:         close (lockfd);
  103:         }
  104:      }
  105:                                        /* Exit.                      */
  106:   return;
  107:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDEST2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:04:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZDESTR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDESTR.f
FC        : Date       Fri Jul 18 17:04:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDESTR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDESTR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDESTR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDESTR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDESTR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDESTR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDESTR.FOR
COMRPL    : Date       Fri Jul 18 17:04:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZDHPRL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDHPRL.f
FC        : Date       Fri Jul 18 17:04:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDHPRL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDHPRL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDHPRL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDHPRL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDHPRL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDHPRL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDHPRL.FOR
COMRPL    : Date       Fri Jul 18 17:04:12 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICCL.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDICCL.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICCL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDICCL.f
FC        : Date       Fri Jul 18 17:04:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICCL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICCL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDICCL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDICCL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDICCL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDICCL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDICCL.FOR
COMRPL    : Date       Fri Jul 18 17:04:13 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICIO.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDICIO.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICIO.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
AIPSCC    : Date       Fri Jul 18 17:04:13 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dicio__
    2:#include <stdlib.h>
    3:#include <stdio.h>
    4:#include <errno.h>
    5:#include <AIPSPROTO.H>
    7:extern FILE *dic_file;                   /* Output file               */
    8:extern int dic_nrows;
    9:static unsigned char buff [4096 * 3];    /* Dimension should be       */
   10:                                         /* 3*MAXROW where MAXROW is  */
   11:                                         /* defined in the local      */
   12:                                         /* include for TVDIC.        */
   14:#if __STDC__
   15:   void zdicio_(int *lun, int *flmtyp, int *rownum, int *red,
   16:      int *green, int *blue, int *rowlen, int *iret)
   17:#else
   18:   void zdicio_(lun, flmtyp, rownum, red, green, blue, rowlen, iret)
   19:   int *lun, *flmtyp, *rownum, *red, *green, *blue, *rowlen, *iret;
   20:#endif
   21:/*--------------------------------------------------------------------*/
   22:/*! Write an image row to a Dicomed image file.                       */
   23:/*# Z                                                                 */
   24:/*--------------------------------------------------------------------*/
   25:/*;  Copyright (C) 1995, 1997                                         */
   26:/*;  Associated Universities, Inc. Washington DC, USA.                */
   27:/*;                                                                   */
   28:/*;  This program is free software; you can redistribute it and/or    */
   29:/*;  modify it under the terms of the GNU General Public License as   */
   30:/*;  published by the Free Software Foundation; either version 2 of   */
   31:/*;  the License, or (at your option) any later version.              */
   32:/*;                                                                   */
   33:/*;  This program is distributed in the hope that it will be useful,  */
   34:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   35:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   36:/*;  GNU General Public License for more details.                     */
   37:/*;                                                                   */
   38:/*;  You should have received a copy of the GNU General Public        */
   39:/*;  License along with this program; if not, write to the Free       */
   40:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   41:/*;  MA 02139, USA.                                                   */
   42:/*;                                                                   */
   43:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   44:/*;         Internet email: aipsmail at nrao.edu.                        */
   45:/*;         Postal address: AIPS Project Office                       */
   46:/*;                         National Radio Astronomy Observatory      */
   47:/*;                         520 Edgemont Road                         */
   48:/*;                         Charlottesville, VA 22903-2475 USA        */
   49:/*--------------------------------------------------------------------*/
   50:/*   Write an image row to a Dicomed image file.  If the filmtype is  */
   51:/*   B/W (FLMTYP = 2) then only the red channel is written.           */
   52:/*                                                                    */
   53:/*   Inputs:                                                          */
   54:/*      LUN        I            Logical unit number of image file     */
   55:/*      FLMTYP     I            Filmtype: 0 -> colour positive        */
   56:/*                                        1 -> colour negative        */
   57:/*                                        2 -> B/W negative           */
   58:/*      ROWNUM     I            Number of row to write.  Bottom row   */
   59:/*                              is ROWNUM 1.                          */
   60:/*      RED        I(*)         Red values (0-255)                    */
   61:/*      GREEN      I(*)         Green values (0-255)                  */
   62:/*      BLUE       I(*)         Blue values (0-255)                   */
   63:/*      WIDTH      I            Number of pixels in row (> 0)         */
   64:/*                                                                    */
   65:/*   Output:                                                          */
   66:/*      IRET       I            Return status:                        */
   67:/*                                 0 -> success.                      */
   68:/*                                                                    */
   69:/*  Generic UNIX version Ignores LUN.                                 */
   70:/*--------------------------------------------------------------------*/
   71:{
   72:    long int offset;
   73:    int i, n8 = 8;
   74:    char msg[80];
   75:    size_t nitems;
   76:/*--------------------------------------------------------------------*/
   78:    *iret = 0;
   80:    nitems = *rowlen;
   81:    if (*flmtyp == 2) {                  /* Black and white           */
   82:       offset = 512 + *rowlen * (dic_nrows - *rownum);
   83:       if (fseek(dic_file, offset, 0) != 0) {
   84:          sprintf (msg, "ZDICIO: ERROR WRITING ROW %d\n", rownum);
   85:          zmsgwr_ (msg, &n8);
   86:          perror ("ZDICIO:");
   87:          *iret = errno;
   88:          return;
   89:          }
   90:       for (i = 0; i < *rowlen; i++) {
   91:          buff[i] = (unsigned char)red[i];
   92:          }
   93:       if (fwrite(buff, sizeof(char), nitems, dic_file) < nitems) {
   94:          sprintf (msg, "ZDICIO: ERROR WRITING ROW %d\n", rownum);
   95:          zmsgwr_ (msg, &n8);
   96:          perror ("ZDICIO:");
   97:          *iret = errno;
   98:          return;
   99:          }
  100:       }
  101:    else {                              /* Colour                     */
  102:       offset = 512 + 3 * *rowlen * (dic_nrows - *rownum);
  103:       if (fseek(dic_file, offset, 0) != 0) {
  104:          sprintf (msg, "ZDICIO: ERROR WRITING ROW %d\n", rownum);
  105:          zmsgwr_ (msg, &n8);
  106:          perror ("ZDICIO:");
  107:          *iret = errno;
  108:          return;
  109:          }
  110:       for (i = 0; i < *rowlen; i++) {
  111:          buff[3*i] = (unsigned char)red[i];
  112:          buff[3*i+1] = (unsigned char)green[i];
  113:          buff[3*i+2] = (unsigned char)blue[i];
  114:          }
  115:       nitems = nitems * 3;
  116:       if (fwrite(buff, sizeof(char), nitems, dic_file) < nitems) {
  117:          sprintf (msg, "ZDICIO: ERROR WRITING ROW %d\n", rownum);
  118:          zmsgwr_ (msg, &n8);
  119:          perror ("ZDICIO:");
  120:          *iret = errno;
  121:          return;
  122:          }
  123:       }
  125:   return;
  126:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDICIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:04:14 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICOP.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDICOP.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDICOP.f
FC        : Date       Fri Jul 18 17:04:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDICOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDICOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDICOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDICOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDICOP.FOR
COMRPL    : Date       Fri Jul 18 17:04:15 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDIE2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDIE2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDIE2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
AIPSCC    : Date       Fri Jul 18 17:04:15 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
AIPSCC    : ends with fatal error(s)!

    1:#include <unistd.h>
    2:#include <sys/types.h>
    3:#include <stdio.h>
    4:#include <AIPSPROTO.H>
    5:#if __STDC__
    6:   void zdie2_(char cpname[])
    7:#else
    8:   void zdie2_(cpname)
    9:   char cpname[];
   10:#endif
   11:/*--------------------------------------------------------------------*/
   12:/*! closes a task at system level: delete /tmp/<task><npops>.<pid>    */
   13:/*# Z2 System                                                         */
   14:/*--------------------------------------------------------------------*/
   15:/*;  Copyright (C) 1995, 1997                                         */
   16:/*;  Associated Universities, Inc. Washington DC, USA.                */
   17:/*;                                                                   */
   18:/*;  This program is free software; you can redistribute it and/or    */
   19:/*;  modify it under the terms of the GNU General Public License as   */
   20:/*;  published by the Free Software Foundation; either version 2 of   */
   21:/*;  the License, or (at your option) any later version.              */
   22:/*;                                                                   */
   23:/*;  This program is distributed in the hope that it will be useful,  */
   24:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   25:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   26:/*;  GNU General Public License for more details.                     */
   27:/*;                                                                   */
   28:/*;  You should have received a copy of the GNU General Public        */
   29:/*;  License along with this program; if not, write to the Free       */
   30:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   31:/*;  MA 02139, USA.                                                   */
   32:/*;                                                                   */
   33:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   34:/*;         Internet email: aipsmail at nrao.edu.                        */
   35:/*;         Postal address: AIPS Project Office                       */
   36:/*;                         National Radio Astronomy Observatory      */
   37:/*;                         520 Edgemont Road                         */
   38:/*;                         Charlottesville, VA 22903-2475 USA        */
   39:/*--------------------------------------------------------------------*/
   40:/*   closes a task at system level: delete /tmp/<task><npops>.<pid>   */
   41:/*   Inputs:                                                          */
   42:/*      CPNAME   C(6)   Actual task name including pops number        */
   43:/*--------------------------------------------------------------------*/
   44:{
   45:   int i;
   46:   char procname[7];                   /* desired process name.       */
   47:   char lockname[24]             ;     /* Name of lock file           */
   48:   pid_t mypid;                        /* PID of this process         */
   49:/*--------------------------------------------------------------------*/
   50:                                       /* copy process name           */
   51:   for (i = 0; i != 6 && cpname[i] != ' '; i++) {
   52:      procname[i] = cpname[i];
   53:      }
   54:   procname[i] = '\0';
   55:                                       /* get process id number       */
   56:   mypid = getpid ();
   57:                                       /* make file name              */
   58:   sprintf (lockname, "/tmp/%s.%d", procname, mypid);
   59:                                       /* delete file                 */
   60:   unlink (lockname);
   61:                                       /* copy process name           */
   62:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDIE2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:04:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZDIE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDIE.f
FC        : Date       Fri Jul 18 17:04:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDIE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDIE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDIE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDIE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDIE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDIE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDIE.FOR
COMRPL    : Date       Fri Jul 18 17:04:16 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDIR.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDIR.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDIR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDIR.f
FC        : Date       Fri Jul 18 17:04:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDIR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDIR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDIR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDIR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDIR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDIR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDIR.FOR
COMRPL    : Date       Fri Jul 18 17:04:17 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDM2DL.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDM2DL.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDM2DL.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
AIPSCC    : Date       Fri Jul 18 17:04:17 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dm2dl__
    2:#include <stdlib.h>
    3:#include <stdio.h>
    4:#include <AIPSPROTO.H>
    6:#if __STDC__
    7:   void zdm2dl_(int *nwords, double *inbuf, double *outbuf)
    8:#else
    9:   void zdm2dl_(nwords, inbuf, outbuf)
   10:   int *nwords;
   11:   double *inbuf, *outbuf;
   12:#endif
   13:/*--------------------------------------------------------------------*/
   14:/*! convert ModComp R*6(padded) and R*8 into local double precision   */
   15:/*# Z Binary                                                          */
   16:/*--------------------------------------------------------------------*/
   17:/*;  Copyright (C) 1995, 1997                                         */
   18:/*;  Associated Universities, Inc. Washington DC, USA.                */
   19:/*;                                                                   */
   20:/*;  This program is free software; you can redistribute it and/or    */
   21:/*;  modify it under the terms of the GNU General Public License as   */
   22:/*;  published by the Free Software Foundation; either version 2 of   */
   23:/*;  the License, or (at your option) any later version.              */
   24:/*;                                                                   */
   25:/*;  This program is distributed in the hope that it will be useful,  */
   26:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   27:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   28:/*;  GNU General Public License for more details.                     */
   29:/*;                                                                   */
   30:/*;  You should have received a copy of the GNU General Public        */
   31:/*;  License along with this program; if not, write to the Free       */
   32:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   33:/*;  MA 02139, USA.                                                   */
   34:/*;                                                                   */
   35:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   36:/*;         Internet email: aipsmail at nrao.edu.                        */
   37:/*;         Postal address: AIPS Project Office                       */
   38:/*;                         National Radio Astronomy Observatory      */
   39:/*;                         520 Edgemont Road                         */
   40:/*;                         Charlottesville, VA 22903-2475 USA        */
   41:/*--------------------------------------------------------------------*/
   42:/*  Convert Modcomp R*6 (zero padded to R*8) or R*8 data into local   */
   43:/*  double precision                                                  */
   44:/*  Inputs:                                                           */
   45:/*     nwords   I        Length of the input buffer in words          */
   46:/*     inbuf    R*8(*)   Input buffer containing Modcomp R*6          */
   47:/*                          (zero padded to R*8) or R*8 data          */
   48:/*  Output:                                                           */
   49:/*     outbuf   R*8(*)   Output buffer containing local R*8 data      */
   50:/*  Notes:                                                            */
   51:/*  (1) The INBUF should have its bytes flipped by a call to ZBYTFL   */
   52:/*      which will leave the values split between 2 local integers.   */
   53:/*      Do not call ZI32IL which may swith 16-bit words, or ZI16Il    */
   54:/*      which will expand each 16-bit part to 32-bits.                */
   55:/*  (2) First 32 bits:                                                */
   56:/*        Expects, after word flip on VMS only, a sign bit in bit 31  */
   57:/*        (1=>negative), bits 22:30 are the  exponent biased by 512,  */
   58:/*        bits 0:21 are the normalized fraction.  Negative values are */
   59:/*        obtained by 2's complement of the whole word.               */
   60:/*      Second 32 bits:                                               */
   61:/*        Just extended precision bits.                               */
   62:/*  (3) Should work inplace.                                          */
   63:/*  Generic UNIX version (currently only handles IEEE and VAX G       */
   64:/*  floating-point formats and where Z_nwdpdp is 2).                  */
   65:/*--------------------------------------------------------------------*/
   66:{
   67:                                        /* Host floating-point format */
   68:   extern int Z_nwdpdp, Z_dpfrmt, Z_bytflp;
   69:                                        /* Local variables.           */
   70:   double *pin, *pout;
   71:   int test, n10 = 10;
   72:   short int sitemp;
   73:   unsigned int sign, exponent, mantissa, temp, templo, bits, xsign;
   74:   register int i;
   75:   char msgbuf[80];
   76:   union u_tag {
   77:      double r8;
   78:      unsigned u4[2];
   79:      short int u2[4];
   80:   } what;
   81:/*--------------------------------------------------------------------*/
   82:                                        /* Will this routine work     */
   83:                                        /* for host floating point    */
   84:                                        /* formats and relative       */
   85:                                        /* sizes?                     */
   86:   if ((Z_nwdpdp == 2) && (Z_dpfrmt == 1 || Z_dpfrmt == 3)) {
   87:      pin = inbuf;
   88:      pout = outbuf;
   89:                                        /* Conversion loop.           */
   90:      for (i = 0; i < *nwords; i++) {
   91:                                        /* Get Modcomp value.         */
   92:         what.r8 = *pin++;
   93:                                        /* swap words if needed       */
   94:         if (Z_bytflp > 1) {
   95:            sitemp = what.u2[0];
   96:            what.u2[0] = what.u2[1];
   97:            what.u2[1] = sitemp;
   98:            sitemp = what.u2[2];
   99:            what.u2[2] = what.u2[3];
  100:            what.u2[3] = sitemp;
  101:            }
  102:                                        /* Get hi as unsigned int.    */
  103:         temp = what.u4[0];
  104:                                        /* Mask out sign bit.         */
  105:         xsign = 0x80000000;
  106:         sign = xsign & temp;
  107:                                        /* If negative, 2's           */
  108:                                        /* complement the whole word. */
  109:         if (sign != 0) {
  110:            templo = what.u4[1];
  111:            what.u4[1] = ~templo + 1;
  112:            temp = (~temp);
  113:                                        /* If msb of lo word are      */
  114:                                        /* unchanged, add 1 to high   */
  115:                                        /* word.                      */
  116:            if ((templo & 0x80000000) == (what.u4[1] & 0x80000000))
  117:               temp = temp + 1;
  118:            }
  119:                                        /* Correct for exponent bias  */
  120:                                        /* and trap for 0.            */
  121:         switch (Z_dpfrmt) {
  123:            case 1:
  124:                                        /* IEEE (bias = 766?).        */
  125:               test = ((0x7fc00000 & temp) >> 22) + 766;
  126:               if (test == 766) test = 0;
  127:               break;
  129:            case 3:
  130:                                        /* VAX G (bias = 768).        */
  131:               test = ((0x7fc00000 & temp) >> 22) + 768;
  132:               if (test == 768) test = 0;
  133:               break;
  134:            }
  136:         exponent = test << 20;
  137:         mantissa = (0x001fffff & temp);
  138:                                        /* Move lsb to next word.     */
  139:         bits = (mantissa & 0x1) << 31;
  140:                                        /* Shift high mantissa.       */
  141:         mantissa = mantissa >> 1;
  142:                                        /* Shift low mantissa.        */
  143:         what.u4[1] = what.u4[1] >> 1;
  144:                                        /* Lsb from hi word.          */
  145:         what.u4[1] = what.u4[1] | bits;
  146:         what.u4[0] = sign | exponent | mantissa;
  147:                                        /* swap words if needed       */
  148:         if (Z_bytflp > 1) {
  149:            sitemp = what.u2[0];
  150:            what.u2[0] = what.u2[2];
  151:            what.u2[2] = sitemp;
  152:            sitemp = what.u2[1];
  153:            what.u2[1] = what.u2[3];
  154:            what.u2[3] = sitemp;
  155:            }
  156:                                        /* Store result.              */
  157:         *pout++ = what.r8;
  158:         }
  159:      }
  160:   else {
  161:                                        /* This routine won't work.   */
  162:      sprintf (msgbuf,
  163:         "ZDM2DL: THIS ROUTINE REQUIRES LOCAL DEVELOPMENT");
  164:      zmsgwr_ (msgbuf, &n10);
  165:      abort ();
  166:      }
  167:                                     /* Exit.                      */
  168:   return;
  169:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDM2DL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:04:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZDOPRT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDOPRT.f
FC        : Date       Fri Jul 18 17:04:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDOPRT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZDOPRT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDOPRT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZDOPRT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZDOPRT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZDOPRT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZDOPRT.FOR
COMRPL    : Date       Fri Jul 18 17:04:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZEHEX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZEHEX.f
FC        : Date       Fri Jul 18 17:04:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZEHEX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZEHEX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZEHEX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZEHEX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZEHEX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZEHEX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZEHEX.FOR
COMRPL    : Date       Fri Jul 18 17:04:19 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZENDPG.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZENDPG.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZENDPG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZENDPG.f
FC        : Date       Fri Jul 18 17:04:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZENDPG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZENDPG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZENDPG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZENDPG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZENDPG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZENDPG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZENDPG.FOR
COMRPL    : Date       Fri Jul 18 17:04:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZEOR.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZEOR.c
AIPSCC    : Date       Fri Jul 18 17:04:20 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZEOR.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZEOR.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZEOR.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZEOR.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZEOR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZEOR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZEOR.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZEOR.C
COMRPL    : Date       Fri Jul 18 17:04:20 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZERRO2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZERRO2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZERRO2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZERRO2.c
AIPSCC    : Date       Fri Jul 18 17:04:21 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZERRO2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZERRO2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZERRO2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZERRO2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZERRO2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZERRO2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZERRO2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZERRO2.FOR
COMRPL    : Date       Fri Jul 18 17:04:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZERROR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZERROR.f
FC        : Date       Fri Jul 18 17:04:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZERROR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZERROR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZERROR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZERROR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZERROR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZERROR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZERROR.FOR
COMRPL    : Date       Fri Jul 18 17:04:22 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZEXIS2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZEXIS2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZEXIS2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
AIPSCC    : Date       Fri Jul 18 17:04:22 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:6:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c: In function `zexis2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:61: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:61: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:61: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:68: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_exis2__
    2:#include <stdio.h>
    3:#include <errno.h>
    4:#include <sys/types.h>
    5:#include <sys/stat.h>
    6:#include <AIPSPROTO.H>
    8:#if __STDC__
    9:   void zexis2_(char *pname, int *isize, int *syserr, int *ierr)
   10:#else
   11:   void zexis2_(pname, isize, syserr, ierr)
   12:   char pname[];
   13:   int *isize, *syserr, *ierr;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! return size of disk file and if  it exists                        */
   17:/*# IO=basic                                                          */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1995, 1997                                         */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Determine the existence of a file and its size in AIPS-bytes      */
   45:/*  (1/2 of a local integer).                                         */
   46:/*  Inputs:                                                           */
   47:/*     pname   C*48   Physical file name                              */
   48:/*  Output:                                                           */
   49:/*     size    I      File size 256-int blocks (if exists, else 0)    */
   50:/*     syserr  I      System error code                               */
   51:/*     ierr    I      Error return code: 0 => file exists             */
   52:/*                       1 => file does not exist                     */
   53:/*                       2 => inputs error                            */
   54:/*                       3 => other error                             */
   55:/*  Generic UNIX version.                                             */
   56:/*--------------------------------------------------------------------*/
   57:{
   58:                                        /* # bytes per AIPS-byte      */
   59:   extern int Z_nbpab;
   60:   int llen, xlen, xlnb, jerr ;
   61:   char pathname[MAXAPATH] ;
   62:   struct stat statbuf;
   63:/*--------------------------------------------------------------------*/
   64:   *ierr = 0;
   65:   *syserr = 0;
   66:                                        /* Translate logical device   */
   67:                                        /* name and null terminate.   */
   68:   llen = MAXPNAME;
   69:   xlen = MAXAPATH;
   70:   zpath_ (&llen, pname, &xlen, pathname, &xlnb, &jerr);
   71:   if (jerr != 0) {
   72:      *ierr = 2;
   73:      }
   74:   else {
   75:      pathname[xlnb] = '\0';
   76:                                        /* "Stat" full path name.     */
   77:      if (stat (pathname, &statbuf) == -1) {
   78:         *isize = 0;
   79:         *syserr = errno ;
   80:                                        /* File doesn't exist.        */
   81:         if (errno == ENOENT)
   82:            *ierr = 1;
   83:                                        /* Some other "stat" error.   */
   84:         else
   85:            *ierr = 3;
   86:         }
   87:      else
   88:         *isize = statbuf.st_size / Z_nbpab / 512;
   89:      }
   91:   return;
   92:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZEXIS2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:04:23 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZEXIST.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZEXIST.f
FC        : Date       Fri Jul 18 17:04:23 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZEXIST.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZEXIST.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZEXIST.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZEXIST.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZEXIST.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZEXIST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZEXIST.FOR
COMRPL    : Date       Fri Jul 18 17:04:23 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZEXPN2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZEXPN2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZEXPN2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZEXPN2.c
AIPSCC    : Date       Fri Jul 18 17:04:24 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZEXPN2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZEXPN2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZEXPN2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZEXPN2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZEXPN2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZEXPN2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZEXPN2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZEXPN2.FOR
COMRPL    : Date       Fri Jul 18 17:04:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZEXPND.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZEXPND.f
FC        : Date       Fri Jul 18 17:04:24 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZEXPND.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZEXPND.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZEXPND.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZEXPND.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZEXPND.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZEXPND.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZEXPND.FOR
COMRPL    : Date       Fri Jul 18 17:04:25 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZFI2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZFI2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZFI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
AIPSCC    : Date       Fri Jul 18 17:04:25 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_fi2__
    2:#include <unistd.h>
    3:#include <errno.h>
    4:#include <string.h>
    5:#include <stdio.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zfi2_(char *oper, int *fcb, char *buff, int *nrec, char *msgbuf,
   11:      int *ierr)
   12:#else
   13:   void zfi2_(oper, fcb, buff, nrec, msgbuf, ierr)
   14:   char oper[], buff[], msgbuf[];
   15:   int *fcb, *nrec, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read/write one 256-integer record from/to a non-map disk file     */
   19:/*# IO-basic                                                          */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995-1997, 1999                                    */
   22:/*;  Associated Universities, Inc. Washington DC, USA                 */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Transfer one 256 local integer record between an I/O buffer and   */
   47:/*  disk starting at random access record "nrec" using "non-map" I/O  */
   48:/*  (i.e., single buffered, synchronous I/O).                         */
   49:/*  Inputs:                                                           */
   50:/*     oper   C*4    Operation code "READ" or "WRIT"                  */
   51:/*     fcb    I(*)   File control block for opened non-map disk file  */
   52:/*     nrec   I      Disk record number (1-relative, units of         */
   53:/*                   256-integer records)                             */
   54:/*  In/out:                                                           */
   55:/*     buff   I(256) I/O buffer                                       */
   56:/*  Output:                                                           */
   57:/*     msgbuf C*80   extra error message (null terminated)            */
   58:/*     ierr   I      Error return code: 0 => no error                 */
   59:/*                      2 => bad opcode                               */
   60:/*                      3 => I/O error                                */
   61:/*                      4 => end of file                              */
   62:/*                   1000 + n => read only n (< 256) words)           */
   63:/*  Generic UNIX version.                                             */
   64:/*--------------------------------------------------------------------*/
   65:{
   66:                                        /* Offsets to entries in the  */
   67:                                        /* file control blocks        */
   68:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   69:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   70:                                        /* # of bytes per word        */
   71:   extern int Z_nbpwd;
   72:   off_t firstbyte, lastbyte, sizebytes, checkbytes, lastiob;
   73:   int fd, n1 = 1;
   74:   register int i;
   75:   char op[5];
   76:/*--------------------------------------------------------------------*/
   77:                                        /* Form null terminated       */
   78:                                        /* opcode.                    */
   79:   for (i = 0; i < 4; i++)
   80:      op[i] = oper[i];
   81:   op[4] = '\0';
   82:                                        /* Assume success.            */
   83:   msgbuf[0] = '\0';
   84:   *ierr = 0;
   85:                                        /* Get file descriptor from   */
   86:                                        /* the file control block as  */
   87:                                        /* stored there by ZDAOPN.    */
   88:   fd = *(fcb + Z_fcbfd);
   89:                                        /* Record byte request in the */
   90:                                        /* file control block (always */
   91:                                        /* one 256 local integer      */
   92:                                        /* record).                   */
   93:   *(fcb + Z_fcbreq) = 256 * Z_nbpwd;
   94:                                        /* Also, zero error status &  */
   95:                                        /* transfer count entries.    */
   96:   *(fcb + Z_fcberr) = 0;
   97:   *(fcb + Z_fcbxfr) = 0;
   98:                                        /* Calculate the byte offsets */
   99:                                        /* (0-relative) in the file   */
  100:                                        /* that correspond to the     */
  101:                                        /* requested record.          */
  102:   firstbyte = *nrec - 1;
  103:   firstbyte = (firstbyte * 256) * Z_nbpwd;
  104:   lastbyte = *(fcb + Z_fcbreq) + firstbyte - 1;
  105:                                        /* Unpack the file size in    */
  106:                                        /* bytes from the file        */
  107:                                        /* control block (as packed   */
  108:                                        /* there in ZDAOPN) and make  */
  109:                                        /* sure that "lastbyte" is    */
  110:                                        /* not beyond the end of the  */
  111:                                        /* file.                      */
  112:   memcpy (&sizebytes, (fcb + Z_fcbsiz), sizeof(off_t)) ;
  113:   memcpy (&lastiob, (fcb + Z_fcbsiz + 2), sizeof(off_t)) ;
  114:   checkbytes = lastbyte;
  115:   if (strcmp (op, "READ") == 0) checkbytes = firstbyte;
  116:                                        /* test beyond EOF remember   */
  117:                                        /* size is 1-rel              */
  118:   if (checkbytes >= sizebytes) {
  119:                                        /* This is NOT illegal under  */
  120:                                        /* UNIX but IS under AIPS     */
  121:                                        /* standards, so fake it.     */
  122:      *(fcb + Z_fcberr) = EINVAL;
  123:      *(fcb + Z_fcbxfr) = -1;
  124:      *ierr = 3;
  125:      if (sizeof(long) < sizeof(off_t))
  126:         sprintf (msgbuf,
  127:         "ZFI2: REQUEST FOR BYTES %lld THRU = %lld BEYOND EOF = %lld",
  128:         firstbyte + 1, lastbyte + 1, sizebytes);
  129:      else
  130:         sprintf (msgbuf,
  131:         "ZFI2: REQUEST FOR BYTES %d THRU = %d BEYOND EOF = %d",
  132:         firstbyte + 1, lastbyte + 1, sizebytes);
  133:      }
  134:                                        /* Set file pointer of the    */
  135:                                        /* file descriptor to the     */
  136:                                        /* absolute byte address      */
  137:                                        /* "firstbyte".               */
  138:   else {
  139:      if (firstbyte != lastiob+1) {
  140:         if (lseek (fd, firstbyte, 0) == -1) {
  141:            *(fcb + Z_fcberr) = errno;
  142:            *ierr = 3;
  143:            sprintf (msgbuf,
  144:               "ZFI2: LSEEK ERROR ON FILE DESCRIPTOR %d TO POSITION %d",
  145:               fd, firstbyte);
  146:            }
  147:         }
  148:                                        /* Perform the I/O and record */
  149:                                        /* the # of bytes transferred */
  150:                                        /* in *(fcb + Z_fcbxfr).      */
  151:                                        /* Record the system error    */
  152:                                        /* code (if any) in           */
  153:                                        /* *(fcb + Z_fcberr).         */
  154:      if (*ierr == 0) {
  155:         if (strcmp (op, "READ") == 0) {
  156:            if (lastbyte >= sizebytes)
  157:               *(fcb + Z_fcbreq) = sizebytes - firstbyte;
  158:            if ((*(fcb + Z_fcbxfr) =
  159:               read (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  160:               *(fcb + Z_fcberr) = errno;
  161:               *ierr = 3;
  162:               }
  163:            }
  164:         else if (strcmp (op, "WRIT") == 0) {
  165:            if ((*(fcb + Z_fcbxfr) =
  166:               write (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  167:               *(fcb + Z_fcberr) = errno;
  168:               *ierr = 3;
  169:               }
  170:            }
  171:                                        /* Bad opcode.                */
  172:         else {
  173:            *ierr = 2;
  174:            return;
  175:            }
  176:         }
  177:      }
  178:                                        /* End of file?               */
  179:   if (*(fcb + Z_fcbxfr) == 0)
  180:      *ierr = 4;
  181:                                        /* Partial read?              */
  182:   if ((*ierr == 0) && (*(fcb + Z_fcbxfr) != 256 * Z_nbpwd))
  183:      *ierr = *(fcb + Z_fcbxfr) / Z_nbpwd + 1000;
  184:   if (*ierr == 0)
  185:      memcpy ((fcb + Z_fcbsiz + 2), &lastbyte, sizeof(off_t)) ;
  187:                                        /* Exit.                      */
  188:   return;
  189:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZFI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:04:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZFIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZFIO.f
FC        : Date       Fri Jul 18 17:04:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZFIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZFIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZFIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZFIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZFIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZFIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZFIO.FOR
COMRPL    : Date       Fri Jul 18 17:04:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZFORMF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZFORMF.f
FC        : Date       Fri Jul 18 17:04:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZFORMF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZFORMF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZFORMF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZFORMF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZFORMF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZFORMF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZFORMF.FOR
COMRPL    : Date       Fri Jul 18 17:04:27 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZFRE2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZFRE2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZFRE2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZFRE2.c
AIPSCC    : Date       Fri Jul 18 17:04:27 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZFRE2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZFRE2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZFRE2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZFRE2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZFRE2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZFRE2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZFRE2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZFRE2.FOR
COMRPL    : Date       Fri Jul 18 17:04:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZFREE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZFREE.f
FC        : Date       Fri Jul 18 17:04:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZFREE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZFREE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZFREE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZFREE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZFREE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZFREE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZFREE.FOR
COMRPL    : Date       Fri Jul 18 17:04:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZFULLN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZFULLN.f
FC        : Date       Fri Jul 18 17:04:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZFULLN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZFULLN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZFULLN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZFULLN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZFULLN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZFULLN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZFULLN.FOR
COMRPL    : Date       Fri Jul 18 17:04:30 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGDATE.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZGDATE.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGDATE.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGDATE.c
AIPSCC    : Date       Fri Jul 18 17:04:30 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGDATE.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGDATE.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGDATE.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZGDATE.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZGDATE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZGDATE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZGDATE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZGDATE.FOR
COMRPL    : Date       Fri Jul 18 17:04:30 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGETCH.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZGETCH.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGETCH.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGETCH.c
AIPSCC    : Date       Fri Jul 18 17:04:31 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGETCH.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGETCH.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGETCH.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZGETCH.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZGETCH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZGETCH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZGETCH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZGETCH.FOR
COMRPL    : Date       Fri Jul 18 17:04:31 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGMAIL.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZGMAIL.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGMAIL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGMAIL.f
FC        : Date       Fri Jul 18 17:04:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZGMAIL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZGMAIL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGMAIL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZGMAIL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZGMAIL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZGMAIL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZGMAIL.FOR
COMRPL    : Date       Fri Jul 18 17:04:32 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGNAME.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZGNAME.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGNAME.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGNAME.f
FC        : Date       Fri Jul 18 17:04:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZGNAME.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZGNAME.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGNAME.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZGNAME.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZGNAME.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZGNAME.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZGNAME.FOR
COMRPL    : Date       Fri Jul 18 17:04:33 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZGRLHI.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZGRLHI.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZGRLHI.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
AIPSCC    : Date       Fri Jul 18 17:04:33 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:4:31: NOTST/GNU/history.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:7:32: NOTST/GNU/readline.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:8:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:11: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c: In function `zgrlhi_':
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:64: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:64: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:64: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:67: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:84: error: `rl_readline_name' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:90: error: `history_length' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_grlhi__
    2:#include <stdio.h>
    3:#include <stdlib.h>
    4:#include <NOTST/GNU/history.h>
    6:#define HAVE_STRING_H
    7:#include <NOTST/GNU/readline.h>
    8:#include <AIPSPROTO.H>
   10:#if __STDC__
   11:   void zgrlhi_(int *opcode, char phname[MAXPNAME], int *ierr)
   12:#else
   13:   zgrlhi_(opcode, phname, ierr)
   14:   int *opcode;
   15:   char phname[MAXPNAME];
   16:   int *ierr;
   17:#endif
   18:/*--------------------------------------------------------------------*/
   19:/*! set up use of GNU readline library for POPS command line          */
   20:/*# Terminal                                                          */
   21:/*--------------------------------------------------------------------*/
   22:/*;  Copyright (C) 1995                                               */
   23:/*;  Associated Universities, Inc. Washington DC, USA.                */
   24:/*;                                                                   */
   25:/*;  This program is free software; you can redistribute it and/or    */
   26:/*;  modify it under the terms of the GNU General Public License as   */
   27:/*;  published by the Free Software Foundation; either version 2 of   */
   28:/*;  the License, or (at your option) any later version.              */
   29:/*;                                                                   */
   30:/*;  This program is distributed in the hope that it will be useful,  */
   31:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   32:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   33:/*;  GNU General Public License for more details.                     */
   34:/*;                                                                   */
   35:/*;  You should have received a copy of the GNU General Public        */
   36:/*;  License along with this program; if not, write to the Free       */
   37:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   38:/*;  MA 02139, USA.                                                   */
   39:/*;                                                                   */
   40:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   41:/*;         Internet email: aipsmail at nrao.edu.                        */
   42:/*;         Postal address: AIPS Project Office                       */
   43:/*;                         National Radio Astronomy Observatory      */
   44:/*;                         520 Edgemont Road                         */
   45:/*;                         Charlottesville, VA 22903-2475 USA        */
   46:/*--------------------------------------------------------------------*/
   47:/* ZGRLHI initializes the GNU readline library for AIPS, unless       */
   48:/* disabled by starting AIPS with the "norl" option.                  */
   49:/*                                                                    */
   50:/* Input:                                                             */
   51:/*    OPCODE I      1 => open, 2 => close                             */
   52:/*    PHNAME C*48   Physical filename                                 */
   53:/* Output:                                                            */
   54:/*    IERR   I      Error return code: 0 => ok                        */
   55:/*                     <other> => error or disabled                   */
   56:/*                                                                    */
   57:/* Generic UNIX version for OS's implementing GNU's libreadline       */
   58:/*                                                                    */
   59:/* JAU 26 Jul 95: Jeff Uphoff, NRAO.                                  */
   60:/* JAU 29 Aug 95: Jeff Uphoff, NRAO.  Added "norl" disable option.    */
   61:/* JAU 22 Sep 95: Jeff Uphoff, NRAO.  Zapped TAB kill; done elsewhere */
   62:/*--------------------------------------------------------------------*/
   63:{
   64:   char histfile[MAXAPATH];
   65:   char xlated[MAXAPATH];
   66:   char *rlenv = NULL;
   67:   int llen = MAXPNAME;
   68:   int xlen = MAXAPATH;
   69:   int xlnb;
   70:/*--------------------------------------------------------------------*/
   71:   *ierr = 0;
   73:                                        /* Check if readline disabled */
   74:   if (((rlenv = getenv ("READLINE")) != NULL) &&
   75:       !strcmp (rlenv, "NO")) {         /* If so, skip the rest.      */
   76:      *ierr = 1;
   77:      return;
   78:   }
   80:   if (*opcode == 1) {                  /* OPEN history.              */
   82:      using_history ();                 /* Initialize some variables. */
   84:      rl_readline_name = "AIPS";        /* For ~/.inputrc branching.  */
   86:      rl_read_init_file (NULL);         /* Reread to get any AIPS-    */
   87:                                        /* specific options/bindings. */
   88:                                        /* (Ignore any errors...)     */
   90:      if (history_length > 1)           /* Must be a restart...       */
   91:         return;                        /* Don't reread file.         */
   93:                                        /* Translate logical to path. */
   94:      zpath_ (&llen, phname, &xlen, xlated, &xlnb, ierr);
   95:      if (*ierr)
   96:         return;
   98:      sprintf (histfile, "%.*s", xlnb, xlated);
   99:                                        /* Skip first history entry   */
  100:                                        /* to prevent a long list of  */
  101:                                        /* user numbers at top.       */
  102:      *ierr = read_history_range (histfile, 1, -1);
  103:      return;
  104:   }
  106:   if (*opcode == 2) {                  /* CLOS (close) history.      */
  108:                                        /* Translate logical to path. */
  109:      zpath_ (&llen, phname, &xlen, xlated, &xlnb, ierr);
  110:      if (*ierr)
  111:         return;
  113:      sprintf (histfile, "%.*s", xlnb, xlated);
  114:                                        /* Write out this session's   */
  115:                                        /* (and possibly previous     */
  116:                                        /* sessions') history.        */
  117:      if (*ierr = write_history (histfile))
  118:         return;
  120:                                        /* Trim the saved history     */
  121:                                        /* file to 500 lines.         */
  122:      *ierr = history_truncate_file (histfile, 500);
  123:      return;
  124:   }
  126:   *ierr = 1;                           /* zgrlhi() improperly called */
  127:   return;
  128:}
  130:/*
  131: * Local Variables:
  132: * c-basic-offset: 3
  133: * comment-column: 40
  134: * indent-tabs-mode: nil
  135: * End:
  136: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZGRLHI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:04:33 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZGRLTC.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZGRLTC.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZGRLTC.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
AIPSCC    : Date       Fri Jul 18 17:04:33 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:9:32: NOTST/GNU/readline.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:10:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:11:28: NOTST/GNU/TABS.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c: In function `zgrltc_':
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:74: error: `LISTBUFLEN' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:74: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:74: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:75: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:92: error: `HLPLISTFILE' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:122: error: `rl_attempted_completion_function' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:122: error: `CPPFunction' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:122: error: parse error before ')' token
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:124: error: `rl_completion_entry_function' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:124: error: `Function' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:124: error: parse error before ')' token
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:125: error: `rl_completer_quote_characters' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:126: error: `rl_complete' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c: In function `zgrltc_acf':
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:155: error: `rl_line_buffer' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:162: warning: return makes pointer from integer without a cast
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_grltc__
    2:#include <ctype.h>
    3:#include <errno.h>
    4:#include <stdio.h>
    5:#include <stdlib.h>
    6:#include <string.h>
    8:#define HAVE_STRING_H
    9:#include <NOTST/GNU/readline.h>
   10:#include <AIPSPROTO.H>
   11:#include <NOTST/GNU/TABS.H>
   13:static char **te_list = (char **)NULL;
   14:static char *zgrltc_cm ();
   15:static char *zgrltc_dup ();
   16:static char **zgrltc_acf ();
   17:static int quoted;
   18:static int tasks_ok;
   21:#if __STDC__
   22:   void zgrltc_ (int *ierr)
   23:#else
   24:   void zgrltc_ (ierr)
   25:   int *ierr;
   26:#endif
   27:/*--------------------------------------------------------------------*/
   28:/*! inizializes completion list for TAB-key completion of commands    */
   29:/*# Terminal                                                          */
   30:/*--------------------------------------------------------------------*/
   31:/*;  Copyright (C) 1995-1996, 2003                                    */
   32:/*;  Associated Universities, Inc. Washington DC, USA.                */
   33:/*;                                                                   */
   34:/*;  This program is free software; you can redistribute it and/or    */
   35:/*;  modify it under the terms of the GNU General Public License as   */
   36:/*;  published by the Free Software Foundation; either version 2 of   */
   37:/*;  the License, or (at your option) any later version.              */
   38:/*;                                                                   */
   39:/*;  This program is distributed in the hope that it will be useful,  */
   40:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   41:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   42:/*;  GNU General Public License for more details.                     */
   43:/*;                                                                   */
   44:/*;  You should have received a copy of the GNU General Public        */
   45:/*;  License along with this program; if not, write to the Free       */
   46:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   47:/*;  MA 02139, USA.                                                   */
   48:/*;                                                                   */
   49:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   50:/*;         Internet email: aipsmail at nrao.edu.                        */
   51:/*;         Postal address: AIPS Project Office                       */
   52:/*;                         National Radio Astronomy Observatory      */
   53:/*;                         520 Edgemont Road                         */
   54:/*;                         Charlottesville, VA 22903-2475 USA        */
   55:/*--------------------------------------------------------------------*/
   56:/* ZGRLTC initializes the list(s) used for TAB-completion of commands */
   57:/* and sets appropriate "hooks" in the GNU readline library for its   */
   58:/* use.  If AIPS is started with the "norl" option, this feature is   */
   59:/* disabled.                                                          */
   60:/*                                                                    */
   61:/* Input:                                                             */
   62:/*    None.                                                           */
   63:/* Output:                                                            */
   64:/*    IERR   I      Error return code: 0 => ok                        */
   65:/*                     <other> => error or disabled                   */
   66:/*                                                                    */
   67:/* Generic UNIX version for OS's implementing GNU's libreadline       */
   68:/*                                                                    */
   69:/* JAU 21 Sep 95: Jeff Uphoff, NRAO.                                  */
   70:/* JAU 25 Sep 95: Jeff Uphoff, NRAO.  Made smarter about quoted arg's */
   71:/* JAU 23 Feb 96: Jeff Uphoff, NRAO.  strdup() cleanup, dynamic list. */
   72:/*--------------------------------------------------------------------*/
   73:{
   74:   char buf[LISTBUFLEN];
   75:   char file[MAXAPATH];
   76:   char *envp = NULL;
   77:   int i = 0;
   78:   FILE *fp;
   79:/*--------------------------------------------------------------------*/
   80:   *ierr = 1;                           /* Assume abject failure.     */
   82:                                        /* Check if readline disabled */
   83:   if (((envp = getenv ("READLINE")) != NULL) &&
   84:       !strcmp (envp, "NO"))
   85:      return;                           /* If so, skip the rest.      */
   87:                                        /* Check for help file dir.   */
   88:   if ((envp = getenv ("AIPS_VERSION")) == NULL)
   89:      return;                           /* None defined?  Give up...  */
   91:                                        /* Build filename for list.   */
   92:   sprintf (file, "%s/HELP/%s", envp, HLPLISTFILE);
   93:                                        /* Open completion list file. */
   94:   if ((fp = fopen (file, "r")) == NULL)
   95:      return;                           /* Argh!  Run to mama...      */
   97:                                        /* Do initial malloc--not all */
   98:                                        /* OS's need this, but some   */
   99:                                        /* do for the later reallocs. */
  100:   if (!(te_list = (char **)malloc (sizeof (char *)))) {
  101:      perror ("ZGRLTC: malloc failed");
  102:      exit (errno);
  103:   }
  104:                                        /* Read file, build list.     */
  105:   while (fgets (buf, LISTBUFLEN, fp) != NULL) {
  106:      if (!(te_list = (char **)realloc (te_list,
  107:                                        sizeof (char *) * (i + 1)))) {
  108:         perror ("ZGRLTC: realloc failed");
  109:         exit (errno);
  110:      }
  111:      te_list[i++] = zgrltc_dup (strtok (buf, "\n"));
  112:   }
  113:   fclose (fp);
  114:                                        /* Terminate list. Thanx HP.  */
  115:   if (!(te_list = (char **)realloc (te_list,
  116:                                     sizeof (char *) * (i + 1)))) {
  117:      perror ("ZGRLTC: terminating realloc failed");
  118:      exit (errno);
  119:   }
  120:   te_list[i] = 0;
  121:                                        /* Set completion function.   */
  122:   rl_attempted_completion_function = (CPPFunction *)zgrltc_acf;
  123:                                        /* Block filename completions */
  124:   rl_completion_entry_function = (Function *)zgrltc_cm;
  125:   rl_completer_quote_characters = "'"; /* Quoted strings are special */
  126:   rl_bind_key ('\t', rl_complete);     /* Set default completion key */
  127:   rl_read_init_file (NULL);            /* For key-binding overrides. */
  128:   *ierr = 0;                           /* All is well.               */
  129:}
  130:/*--------------------------------------------------------------------*/
  133:#if __STDC__
  134:   static char **zgrltc_acf (char *user_txt, int start, int end)
  135:#else
  136:   static char **zgrltc_acf (user_txt, start, end)
  137:   char *user_txt;
  138:   int start, end;
  139:#endif
  140:/*--------------------------------------------------------------------*/
  141:/*! Performs TAB-key completion of commands                           */
  142:/*# Terminal                                                          */
  143:/*--------------------------------------------------------------------*/
  144:/* ZGRLTC_ACF is used *internally* to perform TAB-key completions.    */
  145:/*                                                                    */
  146:/* Input and output are determined by the GNU readline library's      */
  147:/* internal functionality.                                            */
  148:/*--------------------------------------------------------------------*/
  149:{
  150:   int i;
  151:/*--------------------------------------------------------------------*/
  152:   tasks_ok = 0;                        /* Assume first arg.          */
  154:   for (i = 0; i < start; i++)          /* Check for non-whitespace.  */
  155:      if (rl_line_buffer[i] != ' ' && rl_line_buffer[i] != '\'') {
  156:         tasks_ok = 1;                  /* Found some, tasks now OK.  */
  157:         break;
  158:      }
  159:                                        /* Check for quoted arg.      */
  160:   quoted = start && rl_line_buffer[start - 1] == '\'' ? 1 : 0;
  161:                                        /* Call GNU-RL and start work */
  162:   return (completion_matches (user_txt, zgrltc_cm));
  163:}
  164:/*--------------------------------------------------------------------*/
  167:#if __STDC__
  168:   static char *zgrltc_cm (char *user_txt, int state)
  169:#else
  170:   static char *zgrltc_cm (user_txt, state)
  171:   char *user_txt;
  172:   int state;
  173:#endif
  174:/*--------------------------------------------------------------------*/
  175:/*! Generates matches for TAB-key completion of commands              */
  176:/*# Terminal                                                          */
  177:/*--------------------------------------------------------------------*/
  178:/* ZGRLTC_CM is used *internally* to generate matches for TAB-key     */
  179:/* completions.                                                       */
  180:/*                                                                    */
  181:/* Input and output are determined by the GNU readline library's      */
  182:/* internal functionality.                                            */
  183:/*--------------------------------------------------------------------*/
  184:{
  185:   static int len, list_index;          /* Sticky across calls.       */
  186:   int i;
  187:/*--------------------------------------------------------------------*/
  188:   if (!state) {                        /* Check for new completion.  */
  189:      list_index = 0;                   /* Yes?  Reset list index.    */
  190:      len = strlen (user_txt);          /* Count our pennies.         */
  192:      if (!quoted)                      /* Check for quoted arg.      */
  193:         for (i = 0; i < len; i++)      /* No?  Then lowercase it.    */
  194:            user_txt[i] = tolower (user_txt[i]);
  195:   }
  197:   while (te_list[list_index]) {        /* Walk the list.             */
  199:                                        /* Tasks are prefixed with    */
  200:                                        /* '-' in the completion list */
  201:                                        /* found in HLPLISTFILE.      */
  203:                                        /* Check if task.             */
  204:      if (te_list[list_index][0] == '-') {
  206:                                        /* Now check for match and    */
  207:                                        /* whether tasks are allowed. */
  208:         if (!strncmp (&te_list[list_index][1], user_txt, len) &&
  209:             tasks_ok)
  210:            return (zgrltc_dup (&te_list[list_index++][1]));
  212:      } else {                          /* Not a task.                */
  213:         if (!strncmp (te_list[list_index], user_txt, len))
  214:            return (zgrltc_dup (te_list[list_index++]));
  215:      }
  216:      ++list_index;
  217:   }
  218:   return ((char *)NULL);               /* No matches, or end of list */
  219:}
  220:/*--------------------------------------------------------------------*/
  223:#if __STDC__
  224:   static char *zgrltc_dup (const char *todup)
  225:#else
  226:   static char *zgrltc_dup (todup)
  227:   char *todup;
  228:#endif
  229:/*--------------------------------------------------------------------*/
  230:/*! Does string duplication for TAB-key completion of commands        */
  231:/*# Terminal                                                          */
  232:/*--------------------------------------------------------------------*/
  233:/* ZGRLTC_DUP is used *internally* to emulate the SVID/BSD strdup(3)  */
  234:/* library function.                                                  */
  235:/*                                                                    */
  236:/* Input and output are determined by the GNU readline library's      */
  237:/* internal functionality requrements.                                */
  238:/*--------------------------------------------------------------------*/
  239:{
  240:   char *duped;
  241:/*--------------------------------------------------------------------*/
  242:   if (!(duped = (char *)malloc (strlen (todup) + 1))) {
  243:      perror ("ZGRLTC: zgrltc_dup() malloc failed");
  244:      exit (errno);                     /* Cancel Christmas!          */
  245:   }
  246:   return (strcpy (duped, todup));
  247:}
  248:/*--------------------------------------------------------------------*/
  250:/*
  251: * Local Variables:
  252: * c-basic-offset: 3
  253: * comment-column: 40
  254: * indent-tabs-mode: nil
  255: * End:
  256: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZGRLTC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:04:34 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGTBIT.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZGTBIT.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGTBIT.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGTBIT.c
AIPSCC    : Date       Fri Jul 18 17:04:34 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGTBIT.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGTBIT.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGTBIT.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZGTBIT.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZGTBIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZGTBIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZGTBIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZGTBIT.FOR
COMRPL    : Date       Fri Jul 18 17:04:34 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGUEST.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZGUEST.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGUEST.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
AIPSCC    : Date       Fri Jul 18 17:04:35 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
/usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
AIPSCC    : ends with fatal error(s)!

    1:#include <unistd.h>
    2:#include <sys/types.h>
    3:#include <fcntl.h>
    4:#include <stdio.h>
    5:#include <errno.h>
    6:#include <sys/stat.h>
    7:#include <AIPSPROTO.H>
    9:#define PMODE (S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | S_IROTH | S_IWOTH)
   10:#define CMODE (O_WRONLY | O_CREAT | O_TRUNC | O_EXCL)
   12:#if __STDC__
   13:   void zguest_(int *create, int *nmax, int *nfil)
   14:#else
   15:   void zguest_(create, nmax, nfil)
   16:   int *create, *nmax, *nfil;
   17:#endif
   18:/*--------------------------------------------------------------------*/
   19:/*! creates/deletes lock files for guest TV assignments /tmp/GUESTVn  */
   20:/*# Z2 System                                                         */
   21:/*--------------------------------------------------------------------*/
   22:/*;  Copyright (C) 1995-1997                                          */
   23:/*;  Associated Universities, Inc. Washington DC, USA.                */
   24:/*;                                                                   */
   25:/*;  This program is free software; you can redistribute it and/or    */
   26:/*;  modify it under the terms of the GNU General Public License as   */
   27:/*;  published by the Free Software Foundation; either version 2 of   */
   28:/*;  the License, or (at your option) any later version.              */
   29:/*;                                                                   */
   30:/*;  This program is distributed in the hope that it will be useful,  */
   31:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   32:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   33:/*;  GNU General Public License for more details.                     */
   34:/*;                                                                   */
   35:/*;  You should have received a copy of the GNU General Public        */
   36:/*;  License along with this program; if not, write to the Free       */
   37:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   38:/*;  MA 02139, USA.                                                   */
   39:/*;                                                                   */
   40:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   41:/*;         Internet email: aipsmail at nrao.edu.                        */
   42:/*;         Postal address: AIPS Project Office                       */
   43:/*;                         National Radio Astronomy Observatory      */
   44:/*;                         520 Edgemont Road                         */
   45:/*;                         Charlottesville, VA 22903-2475 USA        */
   46:/*--------------------------------------------------------------------*/
   47:/*   creates/deletes lock files for guest TV assignments /tmp/GUESTVn */
   48:/*   Inputs:                                                          */
   49:/*      CREATE   I   1 -> create, 0 -> delete                         */
   50:/*      NMAX     I   on create: largest NFIL allowed                  */
   51:/*   In/Out:                                                          */
   52:/*      NFIL     I   file number to delete, file number created       */
   53:/*--------------------------------------------------------------------*/
   54:{
   55:   int i;
   56:   int  lockfile;                      /* lock file file descriptor   */
   57:   char filename[14];                  /* desired file name.          */
   58:/* static char zhex[36] = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;    */
   59:   char *zhex = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;
   60:   char ahex[2] ;
   61:/*--------------------------------------------------------------------*/
   62:                                       /* create                      */
   63:   ahex[1] = '\0';
   64:   if (*create > 0) {
   65:      *nfil = 0;
   66:      for (i = 1; i <= *nmax; i++) {
   67:         ahex[0] = zhex[i];
   68:         sprintf (filename, "/tmp/GUESTV%s", ahex);
   69:                                       /* Create lock file:           */
   70:         if ((lockfile = open (filename, CMODE, PMODE)) == -1) {
   71:            if (errno != EEXIST) i = *nmax + 1;
   72:            }
   73:         else {
   74:            close (lockfile);
   75:            *nfil = i;
   76:            i = *nmax + 1 ;
   77:            }
   78:         }
   79:      }
   80:                                       /* destroy                     */
   81:   else {
   82:      ahex[0] = zhex[*nfil];
   83:      sprintf (filename, "/tmp/GUESTV%s", ahex);
   84:                                       /* delete file                 */
   85:      unlink (filename);
   86:      }
   87:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZGUEST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:04:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZHEX10.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZHEX10.f
FC        : Date       Fri Jul 18 17:04:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZHEX10.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZHEX10.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZHEX10.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZHEX10.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZHEX10.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZHEX10.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZHEX10.FOR
COMRPL    : Date       Fri Jul 18 17:04:36 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZHEX.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZHEX.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZHEX.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZHEX.c
AIPSCC    : Date       Fri Jul 18 17:04:36 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZHEX.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZHEX.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZHEX.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZHEX.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZHEX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZHEX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZHEX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZHEX.FOR
COMRPL    : Date       Fri Jul 18 17:04:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZI16IL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZI16IL.f
FC        : Date       Fri Jul 18 17:04:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZI16IL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZI16IL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZI16IL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZI16IL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZI16IL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZI16IL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZI16IL.FOR
COMRPL    : Date       Fri Jul 18 17:04:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZI32IL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZI32IL.f
FC        : Date       Fri Jul 18 17:04:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZI32IL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZI32IL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZI32IL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZI32IL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZI32IL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZI32IL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZI32IL.FOR
COMRPL    : Date       Fri Jul 18 17:04:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZI8IL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZI8IL.f
FC        : Date       Fri Jul 18 17:04:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZI8IL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZI8IL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZI8IL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZI8IL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZI8IL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZI8IL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZI8IL.FOR
COMRPL    : Date       Fri Jul 18 17:04:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZILI16.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZILI16.f
FC        : Date       Fri Jul 18 17:04:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZILI16.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZILI16.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZILI16.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZILI16.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZILI16.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZILI16.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZILI16.FOR
COMRPL    : Date       Fri Jul 18 17:04:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZILI32.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZILI32.f
FC        : Date       Fri Jul 18 17:04:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZILI32.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZILI32.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZILI32.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZILI32.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZILI32.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZILI32.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZILI32.FOR
COMRPL    : Date       Fri Jul 18 17:04:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZILI8.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZILI8.f
FC        : Date       Fri Jul 18 17:04:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZILI8.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZILI8.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZILI8.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZILI8.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZILI8.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZILI8.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZILI8.FOR
COMRPL    : Date       Fri Jul 18 17:04:41 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZIPACK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZIPACK.f
FC        : Date       Fri Jul 18 17:04:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZIPACK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZIPACK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZIPACK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZIPACK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZIPACK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZIPACK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZIPACK.FOR
COMRPL    : Date       Fri Jul 18 17:04:42 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZIVSO2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZIVSO2.f
FC        : Date       Fri Jul 18 17:04:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZIVSO2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZIVSO2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZIVSO2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZIVSO2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZIVSO2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZIVSO2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZIVSO2.FOR
COMRPL    : Date       Fri Jul 18 17:04:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZIVSOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZIVSOP.f
FC        : Date       Fri Jul 18 17:04:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZIVSOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZIVSOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZIVSOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZIVSOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZIVSOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZIVSOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZIVSOP.FOR
COMRPL    : Date       Fri Jul 18 17:04:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZKDUMP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZKDUMP.f
FC        : Date       Fri Jul 18 17:04:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZKDUMP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZKDUMP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZKDUMP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZKDUMP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZKDUMP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZKDUMP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZKDUMP.FOR
COMRPL    : Date       Fri Jul 18 17:04:44 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLASC2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZLASC2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLASC2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
AIPSCC    : Date       Fri Jul 18 17:04:45 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:8:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:13: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c: In function `zlasc2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:70: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:70: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:70: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_lasc2__
    2:#define _XOPEN_SOURCE                      /* Needed for popen/pclose */
    3:#include <unistd.h>
    4:#include <stdlib.h>
    5:#include <stdio.h>
    6:#include <errno.h>
    7:#include <string.h>
    8:#include <AIPSPROTO.H>
   10:#define ZL2_DELAY 10                        /* delay min 10 sec       */
   12:#if __STDC__
   13:   void zlasc2_(int *flen, char filnam[MAXAPATH], int *delfil,
   14:      int *syserr)
   15:#else
   16:   void zlasc2_(flen, filnam, delfil, syserr)
   17:   char filnam[MAXAPATH];
   18:   int *flen, *delfil, *syserr;
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! spool a graphics file to the appropriate printer and delete it    */
   22:/*# Z2 Printer Plot-util                                              */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995-1997                                          */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*  Spool a laser plotter file for printing/plotting, then delete it  */
   50:/*  Inputs:                                                           */
   51:/*     flen     I       Length of "filnam" in characters              */
   52:/*     filnam   C*(*)   Full path name of the file to be queued       */
   53:/*     delfil   I       Disposition indicator code:                   */
   54:/*                         0 => keep after printing                   */
   55:/*                         1 => delete after printing                 */
   56:/*  Output:                                                           */
   57:/*     syserr   I          System error code (0 okay)                 */
   58:/*  Generic UNIX version (invokes a shell script called ZLASCL)       */
   59:/*                                                                    */
   60:/*  The delete-after-printing option will shed a process to delete    */
   61:/*  the file after a small delay.  If the print command in the ZLASCL */
   62:/*  shell script causes a symbolic link to be made to the file, and   */
   63:/*  the spooler is backed up, it is possible that the file will be    */
   64:/*  deleted here before being printed.  Not all spooling programs     */
   65:/*  (e.g. lp on System V) have an option for deleting after printing. */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:   int n7 = 7, n3 = 3, zlpid, idel;
   69:   register int i, j;
   70:   char cmd[256], pathname[MAXAPATH], msgbuf[80], outbuf[132];
   71:   FILE *zptr;
   72:/*--------------------------------------------------------------------*/
   73:   *syserr = 0;
   74:                                        /* Form null terminated path  */
   75:                                        /* name.                      */
   76:   for (i = 0; i < MAXAPATH && i < *flen && filnam[i] != ' '; i++)
   77:      pathname[i] = filnam[i];
   78:   pathname[i] = '\0';
   79:                                        /* Does file exist?           */
   80:   if (access (pathname, 0) == -1) {
   81:      *syserr = errno;
   82:      }
   83:                                        /* Use shell script ZLASCL to */
   84:                                        /* do the actual printing.    */
   85:   else {
   86:      sprintf (cmd, "ZLASCL %s", pathname);
   87:                                        /* Issue the shell command.   */
   88:      errno = 0;
   89:      if ((zptr = popen (cmd, "r")) == NULL ) {
   90:         *syserr = errno;
   91:         sprintf (msgbuf, "ZLASC2: Cannot pipe command %s\n", cmd);
   92:         zmsgwr_ (msgbuf, &n7);
   93:         }
   94:      else {
   95:         while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
   96:            j = strlen(outbuf);
   97:            if (j > 64) j = 64;
   98:            strncpy (msgbuf, outbuf, j);
   99:            msgbuf[j] = '\0';
  100:            zmsgwr_ (msgbuf, &n3);
  101:            j = strlen(outbuf) - 64;
  102:            if (j > 0) {
  103:               strncpy (msgbuf, &outbuf[64], j);
  104:               msgbuf[j] = '\0';
  105:               zmsgwr_ (msgbuf, &n3);
  106:               }
  107:            }
  108:         *syserr = pclose(zptr);
  109:                                        /* AIX returns ECHILD here    */
  110:                                        /* because of the "sleep".    */
  111:         if ((*syserr != 0) && (errno != ECHILD)) {
  112:            *syserr = errno;
  113:            perror("ZLASC2");
  114:            sprintf (msgbuf, "ZLASC2: ignoring error %d from pclose()",
  115:                     *syserr);
  116:            zmsgwr_ (msgbuf, &n3);
  117:            }
  118:         *syserr = errno = 0;
  119:         }
  120:                                        /* Delete the file.           */
  121:      if ((*delfil > 0) && (*syserr == 0)) {
  122:         idel = ZL2_DELAY;
  123:         if (*delfil > idel) idel = *delfil;
  124:         sprintf (cmd,
  125:            "((sleep %d; rm -f %s\n)&) >/dev/null 2>/dev/null",
  126:            idel, pathname);
  127:         if ((zptr = popen (cmd, "r")) == NULL ) {
  128:            *syserr = errno;
  129:            sprintf (msgbuf, "ZLASC2: Will NOT delete file %s\n", cmd);
  130:            zmsgwr_ (msgbuf, &n7);
  131:            sprintf (msgbuf, "ZLASC2: (because 'popen' failed)\n");
  132:            zmsgwr_ (msgbuf, &n7);
  133:            }
  134:         else {
  135: 	    while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
  136:	       j = strlen(outbuf);
  137:	       if (j > 64) j = 64;
  138:	       strncpy (msgbuf, outbuf, j);
  139:	       msgbuf[j] = '\0';
  140:	       zmsgwr_ (msgbuf, &n3);
  141:	       j = strlen(outbuf) - 64;
  142:	       if (j > 0) {
  143:		  strncpy (msgbuf, &outbuf[64], j);
  144:		  msgbuf[j] = '\0';
  145:		  zmsgwr_ (msgbuf, &n3);
  146:                  }
  147:               }
  148:            *syserr = pclose(zptr);
  149:                                        /* AIX returns ECHILD here    */
  150:                                        /* because of the "sleep".    */
  151:            if ((*syserr != 0) && (errno != ECHILD)) {
  152:               *syserr = errno;
  153:               perror("ZLASC2");
  154:               sprintf (msgbuf,
  155:                        "ZLASC2: ignoring error %d from 2nd pclose()",
  156:                        *syserr);
  157:               zmsgwr_ (msgbuf, &n3);
  158:               }
  159:            *syserr = errno = 0;
  160:                                        /* give a message     */
  161:            sprintf (msgbuf,
  162:                     "a child process will delete %s in %d seconds",
  163:                     pathname, idel);
  164:            zmsgwr_ (msgbuf, &n3);
  165:            }
  166:         }
  167:      }
  168:   return;
  169:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZLASC2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:04:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZLASCL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLASCL.f
FC        : Date       Fri Jul 18 17:04:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLASCL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLASCL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLASCL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZLASCL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZLASCL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZLASCL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZLASCL.FOR
COMRPL    : Date       Fri Jul 18 17:04:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZLASIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLASIO.f
FC        : Date       Fri Jul 18 17:04:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLASIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLASIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLASIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZLASIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZLASIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZLASIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZLASIO.FOR
COMRPL    : Date       Fri Jul 18 17:04:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZLASOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLASOP.f
FC        : Date       Fri Jul 18 17:04:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLASOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLASOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLASOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZLASOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZLASOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZLASOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZLASOP.FOR
COMRPL    : Date       Fri Jul 18 17:04:48 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLPCL2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZLPCL2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLPCL2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
AIPSCC    : Date       Fri Jul 18 17:04:48 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:8:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:13: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c: In function `zlpcl2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:73: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:73: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:73: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_lpcl2__
    2:#define _XOPEN_SOURCE                      /* Needed for popen/pclose */
    3:#include <unistd.h>
    4:#include <stdlib.h>
    5:#include <stdio.h>
    6:#include <errno.h>
    7:#include <string.h>
    8:#include <AIPSPROTO.H>
   10:#define ZL2_DELAY 10                        /* delay min 10 seconds   */
   12:#if __STDC__
   13:   void zlpcl2_(int *llen, char lprfil[MAXAPATH], int *delfil,
   14:      int *prtmax, int *syserr, int *ierr)
   15:#else
   16:   void zlpcl2_(llen, lprfil, delfil, prtmax, syserr, ierr)
   17:   int *llen, *delfil, *prtmax, *syserr, *ierr;
   18:   char lprfil[MAXAPATH];
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! spool a text file to the appropriate printer and delete it        */
   22:/*# Z2 Printer                                                        */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995-1997                                          */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*  Spool a line printer file to a printer, then delete it            */
   50:/*  Inputs:                                                           */
   51:/*     llen     I       Length of "lprfil" in characters              */
   52:/*     lprfil   C*(*)   Name of the line printer file to queue        */
   53:/*     delfil   I       Disposition indicator code:                   */
   54:/*                         0 => keep after printing                   */
   55:/*                         >0 => delete after delfil seconds          */
   56:/*     prtmax   I       Length of a line printer page                 */
   57:/*  Output:                                                           */
   58:/*     syserr   I       System error code                             */
   59:/*     ierr     I       Error return code: 0 => no error              */
   60:/*                         1 => error                                 */
   61:/*  Generic UNIX version  - invokes a shell script called ZLPCL2      */
   62:/*                                                                    */
   63:/*  The delete-after-printing option will shed a process to delete    */
   64:/*  the file after a small delay.  If the print command in the ZLASCL */
   65:/*  shell script causes a symbolic link to be made to the file, and   */
   66:/*  the spooler is backed up, it is possible that the file will be    */
   67:/*  deleted here before being printed.  Not all spooling programs     */
   68:/*  (e.g. lp on System V) have an option for deleting after printing. */
   69:/*--------------------------------------------------------------------*/
   70:{
   71:   int n7 = 7, n3 = 3, zlpid, idel;
   72:   register int i, j;
   73:   char cmd[256], pathname[MAXAPATH], msgbuf[80], outbuf[132];
   74:   FILE *zptr;
   75:/*--------------------------------------------------------------------*/
   76:   *ierr = 0;
   77:                                        /* Form null terminated path  */
   78:                                        /* name.                      */
   79:   for (i = 0; i < MAXAPATH && i < *llen && lprfil[i] != ' '; i++)
   80:      pathname[i] = lprfil[i];
   81:   pathname[i] = '\0';
   82:                                        /* Does file exist?           */
   83:   if (access (pathname, 0) == -1) {
   84:      *syserr = errno;
   85:      *ierr = 1;
   86:      }
   87:                                        /* Use shell script ZLPCL2 to */
   88:                                        /* do the actual printing.    */
   89:   else {
   90:      sprintf(cmd, "ZLPCL2 %s %d", pathname, *prtmax);
   91:                                        /* Issue the shell command.   */
   92:      errno = 0;
   93:      if ((zptr = popen (cmd, "r")) == NULL ) {
   94:         *ierr = 1;
   95:         *syserr = errno;
   96:         sprintf (msgbuf, "ZLPCL2: Cannot pipe command %s", cmd);
   97:         zmsgwr_ (msgbuf, &n7);
   98:         }
   99:      else {
  100:         while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
  101:            j = strlen(outbuf);
  102:            if (j > 64) j = 64;
  103:            strncpy (msgbuf, outbuf, j);
  104:            msgbuf[j] = '\0';
  105:            zmsgwr_ (msgbuf, &n3);
  106:            j = strlen(outbuf) - 64;
  107:            if (j > 0) {
  108:               strncpy (msgbuf, &outbuf[64], j);
  109:               msgbuf[j] = '\0';
  110:               zmsgwr_ (msgbuf, &n3);
  111:               }
  112:            }
  113:         *syserr = pclose(zptr);
  114:                                        /* AIX returns ECHILD here    */
  115:                                        /* because of the "sleep".    */
  116:         if ((*syserr != 0) && (errno != ECHILD)) {
  117:            *syserr = errno;
  118:            perror("ZLPCL2");
  119:            sprintf (msgbuf, "ZLPCL2: ignoring error %d from pclose()",
  120:                     *syserr);
  121:            zmsgwr_ (msgbuf, &n3);
  122:            *syserr = 0;
  123:            }
  124:         }
  125:                                        /* Delete the file.           */
  126:      if ((*delfil > 0) && (*ierr == 0)) {
  127:         idel = ZL2_DELAY;
  128:         if (*delfil > idel) idel = *delfil;
  129:         sprintf (cmd,
  130:             "((sleep %d; rm -f %s)&) >/dev/null 2>/dev/null",
  131:             idel, pathname);
  132:         if ((zptr = popen (cmd, "r")) == NULL ) {
  133:            *ierr = 1;
  134:            *syserr = errno;
  135:            sprintf (msgbuf, "ZLPCL2: Will NOT delete file %s", cmd);
  136:            zmsgwr_ (msgbuf, &n7);
  137:            sprintf (msgbuf, "ZLPCL2: (because 'popen' failed)");
  138:            zmsgwr_ (msgbuf, &n7);
  139:            }
  140:         else {
  141:	    while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
  142:	       j = strlen(outbuf);
  143:	       if (j > 64) j = 64;
  144:	       strncpy (msgbuf, outbuf, j);
  145:	       msgbuf[j] = '\0';
  146:	       zmsgwr_ (msgbuf, &n3);
  147:	       j = strlen(outbuf) - 64;
  148:	       if (j > 0) {
  149:		  strncpy (msgbuf, &outbuf[64], j);
  150:		  msgbuf[j] = '\0';
  151:		  zmsgwr_ (msgbuf, &n3);
  152:                  }
  153:               }
  154:            *syserr = pclose(zptr);
  155:            *ierr = 0;
  156:                                        /* give a message     */
  157:            sprintf (msgbuf,
  158:               "a child process will delete %s in %d seconds",
  159:               pathname, idel);
  160:            zmsgwr_ (msgbuf, &n3);
  161:            }
  162:         }
  163:      }
  164:   return;
  165:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZLPCL2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:04:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZLPCLS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLPCLS.f
FC        : Date       Fri Jul 18 17:04:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLPCLS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLPCLS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLPCLS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZLPCLS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZLPCLS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZLPCLS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZLPCLS.FOR
COMRPL    : Date       Fri Jul 18 17:04:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZLPOP2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLPOP2.f
FC        : Date       Fri Jul 18 17:04:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLPOP2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLPOP2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLPOP2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZLPOP2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZLPOP2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZLPOP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZLPOP2.FOR
COMRPL    : Date       Fri Jul 18 17:04:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZLPOPN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLPOPN.f
FC        : Date       Fri Jul 18 17:04:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLPOPN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLPOPN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLPOPN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZLPOPN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZLPOPN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZLPOPN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZLPOPN.FOR
COMRPL    : Date       Fri Jul 18 17:04:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZLWIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLWIO.f
FC        : Date       Fri Jul 18 17:04:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLWIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLWIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLWIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZLWIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZLWIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZLWIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZLWIO.FOR
COMRPL    : Date       Fri Jul 18 17:04:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZLWOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLWOP.f
FC        : Date       Fri Jul 18 17:04:52 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLWOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZLWOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLWOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZLWOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZLWOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZLWOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZLWOP.FOR
COMRPL    : Date       Fri Jul 18 17:04:53 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZM70C2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZM70C2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZM70C2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZM70C2.c
AIPSCC    : Date       Fri Jul 18 17:04:53 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70C2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70C2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZM70C2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZM70C2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZM70C2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZM70C2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZM70C2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZM70C2.FOR
COMRPL    : Date       Fri Jul 18 17:04:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZM70CL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZM70CL.f
FC        : Date       Fri Jul 18 17:04:54 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70CL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70CL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZM70CL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZM70CL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZM70CL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZM70CL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZM70CL.FOR
COMRPL    : Date       Fri Jul 18 17:04:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZM70M2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZM70M2.f
FC        : Date       Fri Jul 18 17:04:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70M2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70M2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZM70M2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZM70M2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZM70M2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZM70M2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZM70M2.FOR
COMRPL    : Date       Fri Jul 18 17:04:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZM70MC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZM70MC.f
FC        : Date       Fri Jul 18 17:04:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70MC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70MC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZM70MC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZM70MC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZM70MC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZM70MC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZM70MC.FOR
COMRPL    : Date       Fri Jul 18 17:04:56 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZM70O2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZM70O2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZM70O2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
AIPSCC    : Date       Fri Jul 18 17:04:57 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:5:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:8: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c: In function `zm70o2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:63: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:63: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:63: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:63: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_m70o2__
    2:#include <stdio.h>
    3:#include <fcntl.h>
    4:#include <errno.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zm70o2_(int *fcb, char pname[MAXPNAME], int *ierr)
    9:#else
   10:   void zm70o2_(fcb, pname, ierr)
   11:   int *fcb, *ierr ;
   12:   char pname[MAXPNAME] ;
   13:#endif
   14:/*--------------------------------------------------------------------*/
   15:/*! open an IIS Model 70/75 device                                    */
   16:/*# TV-IO                                                             */
   17:/*--------------------------------------------------------------------*/
   18:/*;  Copyright (C) 1995, 1997, 2000                                   */
   19:/*;  Associated Universities, Inc. Washington DC, USA.                */
   20:/*;                                                                   */
   21:/*;  This program is free software; you can redistribute it and/or    */
   22:/*;  modify it under the terms of the GNU General Public License as   */
   23:/*;  published by the Free Software Foundation; either version 2 of   */
   24:/*;  the License, or (at your option) any later version.              */
   25:/*;                                                                   */
   26:/*;  This program is distributed in the hope that it will be useful,  */
   27:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   28:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   29:/*;  GNU General Public License for more details.                     */
   30:/*;                                                                   */
   31:/*;  You should have received a copy of the GNU General Public        */
   32:/*;  License along with this program; if not, write to the Free       */
   33:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   34:/*;  MA 02139, USA.                                                   */
   35:/*;                                                                   */
   36:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   37:/*;         Internet email: aipsmail at nrao.edu.                        */
   38:/*;         Postal address: AIPS Project Office                       */
   39:/*;                         National Radio Astronomy Observatory      */
   40:/*;                         520 Edgemont Road                         */
   41:/*;                         Charlottesville, VA 22903-2475 USA        */
   42:/*--------------------------------------------------------------------*/
   43:/*  Open an IIS model 70 TV device for non-map,(single buffered) I/O. */
   44:/*                                                                    */
   45:/*  Inputs:                                                           */
   46:/*     pname   C*48   Physical file name (e.g., "TVDEV1: ")           */
   47:/*  Output:                                                           */
   48:/*     fcb     I(*)   File control block for opened TV device         */
   49:/*     ierr    I      Error return code: 0 => no error                */
   50:/*                       2 => no such logical device                  */
   51:/*                       3 => invalid device name                     */
   52:/*                       6 => other open error                        */
   53:/*  Generic UNIX version.                                             */
   54:/*--------------------------------------------------------------------*/
   55:{
   56:                                        /* Offsets to entries in the  */
   57:                                        /* file control blocks        */
   58:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   59:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   61:   int llen, xlen, xlnb, jerr;
   62:   register int i;
   63:   char lognam[MAXPNAME], pathname[MAXAPATH] ;
   64:/*--------------------------------------------------------------------*/
   65:   *ierr = 0;
   66:                                        /* Extract logical device     */
   67:                                        /* name.                      */
   68:   for (i = 0; i < MAXPNAME && pname[i] != ':'; i++)
   69:      lognam[i] = pname[i];
   70:   lognam[i] = '\0';
   71:                                        /* Translate logical device   */
   72:                                        /* name and null terminate.   */
   73:   llen = MAXPNAME;
   74:   xlen = MAXAPATH;
   75:   ztrlo2_(&llen, lognam, &xlen, pathname, &xlnb, &jerr);
   76:   if (jerr != 0) {
   77:      *ierr = 2;
   78:      }
   79:   else {
   80:      pathname[xlnb] = '\0';
   81:                                        /* Open the TV device         */
   82:                                        /* read/write.                */
   83:      if ((*(fcb + Z_fcbfd) = open (pathname, 2)) == -1) {
   84:         *(fcb + Z_fcberr) = errno;
   85:                                        /* Device doesn't exist.      */
   86:         if (errno == ENOENT)
   87:            *ierr = 3;
   88:                                        /* Some other open error.     */
   89:         else
   90:            *ierr = 6;
   91:         }
   92:      }
   94:   return;
   95:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZM70O2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:04:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZM70OP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZM70OP.f
FC        : Date       Fri Jul 18 17:04:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70OP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70OP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZM70OP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZM70OP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZM70OP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZM70OP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZM70OP.FOR
COMRPL    : Date       Fri Jul 18 17:04:58 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZM70X2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZM70X2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZM70X2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
AIPSCC    : Date       Fri Jul 18 17:04:58 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c:6:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_m70x2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <string.h>
    5:#include <errno.h>
    6:#include <AIPSPROTO.H>
    8:#define  NONE 0                         /* Have not yet done r/w      */
    9:#define  READ 1
   10:#define  WRITE 2
   11:#define  ILLEGAL 3
   12:static char *op_names[] = {"NONE","READ","WRITE","ILLEGAL"};
   13:#define MAX_BAD 5                       /* Maximum number of bad xfers*/
   14:                                        /* that we lie about and say  */
   15:                                        /* succeeds.                  */
   17:#define DEBUG_LEVEL 1                   /* 1 for debugging info, 2 for*/
   18:                                        /* Copious output, 0 for none */
   19:                                        /* Undef should generate dead */
   20:                                        /* code for the compiler to   */
   21:                                        /* take out.                  */
   23:                                        /* For debugging use an int   */
   24:                                        /* to set the level so we can */
   25:                                        /* change it on the fly with a*/
   26:                                        /* debugger.                  */
   27:#ifdef DEBUG_LEVEL
   28:static int debug = DEBUG_LEVEL;
   29:#define DEBUG if (debug) printf
   30:#define LOG if (debug>1) printf
   31:#else
   32:#define DEBUG if (0) printf
   33:#define LOG if (0) printf
   34:#endif /* DEBUG_LEVEL */
   36:#if __STDC__
   37:   void zm70x2_(char *oper, int *fcb, char *buff, int *nbytes,
   38:      int *ierr)
   39:#else
   40:   void zm70x2_(oper, fcb, buff, nbytes, ierr)
   41:   char oper[], buff[];
   42:   int *fcb, *nbytes, *ierr;
   43:#endif
   44:/*--------------------------------------------------------------------*/
   45:/*! read/write from/to IIS Model 70/75 device                         */
   46:/*# TV-IO                                                             */
   47:/*--------------------------------------------------------------------*/
   48:/*;  Copyright (C) 1995, 1997                                         */
   49:/*;  Associated Universities, Inc. Washington DC, USA.                */
   50:/*;                                                                   */
   51:/*;  This program is free software; you can redistribute it and/or    */
   52:/*;  modify it under the terms of the GNU General Public License as   */
   53:/*;  published by the Free Software Foundation; either version 2 of   */
   54:/*;  the License, or (at your option) any later version.              */
   55:/*;                                                                   */
   56:/*;  This program is distributed in the hope that it will be useful,  */
   57:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   58:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   59:/*;  GNU General Public License for more details.                     */
   60:/*;                                                                   */
   61:/*;  You should have received a copy of the GNU General Public        */
   62:/*;  License along with this program; if not, write to the Free       */
   63:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   64:/*;  MA 02139, USA.                                                   */
   65:/*;                                                                   */
   66:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   67:/*;         Internet email: aipsmail at nrao.edu.                        */
   68:/*;         Postal address: AIPS Project Office                       */
   69:/*;                         National Radio Astronomy Observatory      */
   70:/*;                         520 Edgemont Road                         */
   71:/*;                         Charlottesville, VA 22903-2475 USA        */
   72:/*--------------------------------------------------------------------*/
   73:/*  Transfer "nbytes" of data between an IIS Model 70 TV device.      */
   74:/*  Inputs:                                                           */
   75:/*     oper     C*4    Operation code "READ" or "WRIT"                */
   76:/*     fcb      I(*)   File control block for opened TV device        */
   77:/*     nbytes   I      Number of 8-bit bytes to be transferred        */
   78:/*  In/out:                                                           */
   79:/*     buff     I(*)   I/O buffer                                     */
   80:/*  Output:                                                           */
   81:/*     ierr     I*2    Error return code: 0 => no error               */
   82:/*                        2 => bad opcode                             */
   83:/*                        3 => I/O error                              */
   84:/*                        4 => end of file                            */
   85:/*  Generic UNIX version - assumes 'read' and 'write' will be okay    */
   86:/*--------------------------------------------------------------------*/
   87:{
   88:                                        /* Offsets to entries in the  */
   89:                                        /* file control blocks        */
   90:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   91:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   93:   int fd;
   94:   register int i;
   95:   char op[5];
   96:   static int last_op = NONE;           /* Keep track of statistics   */
   97:   static int call_number = 0;
   98:   static int n_bad = 0;
   99:   int call_type;
  100:/*--------------------------------------------------------------------*/
  101:   call_number++;
  102:   *ierr = 0;
  103:                                        /* Form null terminated       */
  104:                                        /* opcode.                    */
  105:   for (i = 0; i < 4; i++)
  106:      op[i] = oper[i];
  107:   op[4] = '\0';
  108:                                        /* Get file descriptor from   */
  109:                                        /* the file control block as  */
  110:                                        /* stored there by ZM70O2.    */
  111:   fd = *(fcb + Z_fcbfd);
  112:                                        /* Record byte request in the */
  113:                                        /* file control block.        */
  114:   *(fcb + Z_fcbreq) = *nbytes;
  115:                                        /* Also, zero error status &  */
  116:                                        /* transfer count entries.    */
  117:   *(fcb + Z_fcberr) = 0;
  118:   *(fcb + Z_fcbxfr) = 0;
  119:   LOG ("ZM70X2 enter: call=%d op=%s last=%s nbytes=%d\n",
  120:      call_number, op, op_names[last_op], *nbytes);
  121:                                        /* Zero byte request okay.    */
  122:                                        /* Just return.               */
  123:   if (n_bad && *nbytes < 16) {
  124:      n_bad++;
  125:      DEBUG("ZM70X2: *nbytes=%d, THROW AWAY, nbad=%d\n",*nbytes,n_bad);
  126:      return;
  127:      }
  128:   if (*(fcb + Z_fcbreq) != 0) {
  129:      if (*nbytes == 0)
  130:         DEBUG ("ZM70X2 0 byte return: call=%d\n", call_number);
  131:                                        /* Perform the I/O and record */
  132:                                        /* the # of bytes transferred */
  133:                                        /* in *(fcb + Z_fcbxfr).      */
  134:                                        /* Record the system error    */
  135:                                        /* code (if any) in           */
  136:                                        /* *(fcb + Z_fcberr).         */
  137:      if (strcmp (op, "READ") == 0) {
  138:         call_type = READ;
  139:         if ((*(fcb + Z_fcbxfr) = read (fd, buff, *(fcb + Z_fcbreq)))
  140:            != *nbytes) {
  141:           DEBUG("ZM70X2 read: FAILS call=%d op=%s last=%s nbytes=%d transferred = %d",
  142:              call_number, op, op_names[last_op], *nbytes, *(fcb + Z_fcbxfr));
  143:            n_bad++;
  144:            *(fcb + Z_fcberr) = errno;
  145:            *ierr = 3;
  146:            }
  147:         }
  148:      else if (strcmp (op, "WRIT") == 0) {
  149:         call_type = WRITE;
  150:         if ((*(fcb + Z_fcbxfr) = write (fd, buff, *(fcb + Z_fcbreq)))
  151:            != *nbytes) {
  152:            DEBUG("ZM70X2 write: FAILS call=%d op=%s last=%s nbytes=%d transferred = %d",
  153:               call_number, op, op_names[last_op], *nbytes, *(fcb + Z_fcbxfr));
  154:            n_bad++;
  155:            *(fcb + Z_fcberr) = errno;
  156:            *ierr = 3;
  157:            }
  158:         }
  159:                                        /* Bad opcode.                */
  160:      else {
  161:         *ierr = 2;
  162:         last_op = ILLEGAL;
  163:         DEBUG("ZM70X2 leave: FAILS call=%d, ILLEGAL opcode\n",call_number);
  164:         return;
  165:         }
  166:                                        /* End of file?               */
  167:      if (*(fcb + Z_fcbxfr) == 0)
  168:         *ierr = 4;
  169:      }
  170:   if (*ierr == 0) {
  171:      n_bad = 0;
  172:      }
  173:   else if (n_bad < MAX_BAD) {
  174:      DEBUG("ZM70X2: LIE - turn FAIL into succeed, n_bad=%d\n, try MC",n_bad);
  175:      *(fcb + Z_fcberr) = 0;
  176:      *ierr = 0;
  177:      zm70m2_(fcb, ierr);
  178:      if (*ierr) {
  179:         DEBUG("ZM70X2: Master CLEAR FAILS\n");
  180:         }
  181:      }
  182:   last_op = call_type;
  183:   LOG("ZM70X2 leave: normal, call=%d, ierr=%d\n",call_number,*ierr);
  185:   return;
  186:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZM70X2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:04:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZM70XF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZM70XF.f
FC        : Date       Fri Jul 18 17:04:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70XF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70XF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZM70XF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZM70XF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZM70XF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZM70XF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZM70XF.FOR
COMRPL    : Date       Fri Jul 18 17:04:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZMCACL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMCACL.f
FC        : Date       Fri Jul 18 17:05:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMCACL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMCACL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMCACL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZMCACL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZMCACL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZMCACL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZMCACL.FOR
COMRPL    : Date       Fri Jul 18 17:05:00 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMEMR2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZMEMR2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMEMR2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMEMR2.c
AIPSCC    : Date       Fri Jul 18 17:05:00 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMEMR2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMEMR2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMEMR2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZMEMR2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZMEMR2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZMEMR2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZMEMR2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZMEMR2.FOR
COMRPL    : Date       Fri Jul 18 17:05:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZMEMRY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMEMRY.f
FC        : Date       Fri Jul 18 17:05:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMEMRY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMEMRY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMEMRY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZMEMRY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZMEMRY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZMEMRY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZMEMRY.FOR
COMRPL    : Date       Fri Jul 18 17:05:02 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMI2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZMI2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
AIPSCC    : Date       Fri Jul 18 17:05:02 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_mi2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <string.h>
    5:#include <errno.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zmi2_(char *oper, int *fcb, char *buff, int *nblock,
   11:      int *nbytes, int *ierr)
   12:#else
   13:   void zmi2_(oper, fcb, buff, nblock, nbytes, ierr)
   14:   char oper[], buff[];
   15:   int *fcb, *nblock, *nbytes, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read/write large blocks of data from/to disk, quick return        */
   19:/*# IO-basic                                                          */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 1997-1999                                    */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Read/write "nbytes" of data from/to disk starting at virtual      */
   47:/*  block "nblock" using "map" I/O (i.e., double buffered,            */
   48:/*  asynchronous I/O).  Block sizes are determined by the value       */
   49:/*  assigned to NBPS as AIPS-bytes in ZDCHIN which is converted to    */
   50:/*  bytes in ZDCHI2 and assigned to Z_nbps.                           */
   51:/*  Inputs:                                                           */
   52:/*     oper     C*4    Operation code "READ" or "WRIT"                */
   53:/*     fcb      I(*)   File control block for open map disk file      */
   54:/*                     and buffer involved                            */
   55:/*     nblock   I      Virtual starting block (1-relative)            */
   56:/*     nbytes   I      Number of AIPS-bytes (1/2 of a local integer)  */
   57:/*                     to be transferred                              */
   58:/*  In/out:                                                           */
   59:/*     buff     I(*)   I/O buffer                                     */
   60:/*  Output:                                                           */
   61:/*     ierr     I      Error return code: 0 => no error               */
   62:/*                        2 => bad opcode                             */
   63:/*                        3 => I/O error (also see ZWAI2)             */
   64:/*                        4 => end of file (see ZWAI2)                */
   65:/*  Generic UNIX version.                                             */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:                                        /* Offsets to entries in the  */
   69:                                        /* file control blocks        */
   70:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   71:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   72:                                        /* # of bytes per AIPS-byte   */
   73:   extern int Z_nbpab;
   74:                                        /* # of bytes per disk sector */
   75:   extern int Z_nbps;
   76:   int fd, n7 = 7;
   77:   off_t firstbyte, lastbyte, sizebytes, lastiob;
   78:   register int i;
   79:   char op[5], msgbuf[80];
   80:/*--------------------------------------------------------------------*/
   81:   *ierr = 0;
   82:                                        /* Form null terminated       */
   83:                                        /* opcode.                    */
   84:   for (i = 0; i < 4; i++)
   85:      op[i] = oper[i];
   86:   op[4] = '\0';
   87:                                        /* Get file descriptor from   */
   88:                                        /* the file control block as  */
   89:                                        /* stored there by ZDAOPN.    */
   90:   fd = *(fcb + Z_fcbfd);
   91:                                        /* Record byte request in the */
   92:                                        /* file control block.        */
   93:   *(fcb + Z_fcbreq) = *nbytes * Z_nbpab;
   94:                                        /* Also, zero error status &  */
   95:                                        /* transfer count entries.    */
   96:   *(fcb + Z_fcberr) = 0;
   97:   *(fcb + Z_fcbxfr) = 0;
   98:                                        /* Zero byte request just     */
   99:                                        /* initiates double buffered  */
  100:                                        /* I/O.                       */
  101:   if (*(fcb + Z_fcbreq) != 0) {
  102:                                        /* Calculate the byte offsets */
  103:                                        /* (0-relative) in the file   */
  104:                                        /* that correspond to the     */
  105:                                        /* I/O request.               */
  106:      firstbyte = (*nblock - 1);
  107:      firstbyte = firstbyte * Z_nbps;
  108:      lastbyte = *(fcb + Z_fcbreq) + firstbyte - 1;
  109:                                        /* Unpack the file size in    */
  110:                                        /* bytes from the file        */
  111:                                        /* control block (as packed   */
  112:                                        /* there in ZDAOPN) and make  */
  113:                                        /* sure that "lastbyte" is    */
  114:                                        /* not beyond the end of the  */
  115:                                        /* file.                      */
  116:      memcpy (&sizebytes, (fcb + Z_fcbsiz), sizeof(off_t)) ;
  117:      memcpy (&lastiob, (fcb + Z_fcbsiz + 2), sizeof(off_t)) ;
  118:      if ((lastbyte + 1) > sizebytes) {
  119:                                        /* This is NOT illegal under  */
  120:                                        /* UNIX but IS under AIPS     */
  121:                                        /* design standards, so fake  */
  122:                                        /* it.                        */
  123:         *(fcb + Z_fcberr) = EINVAL;
  124:         *(fcb + Z_fcbxfr) = -1;
  125:         *ierr = 3;
  126:         if (sizeof(long) < sizeof(off_t))
  127:            sprintf (msgbuf,
  128:            "ZMI2: REQUEST FOR BYTES %lld THRU = %lld BEYOND EOF = %lld",
  129:            firstbyte + 1, lastbyte + 1, sizebytes);
  130:         else
  131:            sprintf (msgbuf,
  132:            "ZMI2: REQUEST FOR BYTES %d THRU = %d BEYOND EOF = %d",
  133:            firstbyte + 1, lastbyte + 1, sizebytes);
  134:         zmsgwr_ (msgbuf, &n7);
  135:         }
  136:                                        /* Set file pointer of the    */
  137:                                        /* file descriptor to the     */
  138:                                        /* absolute byte address      */
  139:                                        /* "firstbyte".               */
  140:      else {
  141:         if (firstbyte != lastiob+1) {
  142:            if (lseek (fd, firstbyte, 0) == -1) {
  143:               *(fcb + Z_fcberr) = errno;
  144:               sprintf (msgbuf,
  145:               "ZMI2: LSEEK ERROR ON FILE DESCRIPTOR %d TO POSITION %d",
  146:                  fd, firstbyte);
  147:               zmsgwr_ (msgbuf, &n7);
  148:               *ierr = 3;
  149:               }
  150:            }
  151:                                        /* Perform the I/O and record */
  152:                                        /* the # of bytes transferred */
  153:                                        /* in *(fcb + Z_fcbxfr).      */
  154:                                        /* Record the system error    */
  155:                                        /* code (if any) in           */
  156:                                        /* *(fcb + Z_fcberr).         */
  157:         if (*ierr == 0) {
  158:            if (strcmp (op, "READ") == 0) {
  159:               if ((*(fcb + Z_fcbxfr) =
  160:                  read (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  161:                  *(fcb + Z_fcberr) = errno;
  162:                  *ierr = 3;
  163:                  }
  164:               }
  165:            else if (strcmp (op, "WRIT") == 0) {
  166:               if ((*(fcb + Z_fcbxfr) =
  167:                  write (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  168:                  *(fcb + Z_fcberr) = errno;
  169:                  *ierr = 3;
  170:                  }
  171:               }
  172:                                        /* Bad opcode.                */
  173:            else {
  174:               *ierr = 2;
  175:               }
  176:            }
  177:         }
  179:      if (*ierr == 0)
  180:         memcpy ((fcb + Z_fcbsiz + 2), &lastbyte, sizeof(off_t)) ;
  181:      }
  183:   return;
  184:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZMI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:05:02 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMIO.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZMIO.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMIO.f
FC        : Date       Fri Jul 18 17:05:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZMIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZMIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZMIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZMIO.FOR
COMRPL    : Date       Fri Jul 18 17:05:03 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMKTMP.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZMKTMP.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMKTMP.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
AIPSCC    : Date       Fri Jul 18 17:05:03 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:9:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:12: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c: In function `zmktmp_':
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:64: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:64: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:64: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_mktmp__
    2:#include <unistd.h>
    3:#include <sys/types.h>
    4:#include <errno.h>
    5:#include <stdio.h>
    6:#include <stdlib.h>
    7:#include <ctype.h>
    8:#include <string.h>
    9:#include <AIPSPROTO.H>
   11:#if __STDC__
   12:   void zmktmp_(int *flen, char filnam[MAXAPATH], int *ierr)
   13:#else
   14:   void zmktmp_(flen, filnam, ierr)
   15:   int *flen, *ierr;
   16:   char filnam[MAXAPATH];
   17:#endif
   18:/*--------------------------------------------------------------------*/
   19:/*! convert a "temporary" file name into a unique name                */
   20:/*# IO-basic                                                          */
   21:/*--------------------------------------------------------------------*/
   22:/*;  Copyright (C) 1995, 1997                                         */
   23:/*;  Associated Universities, Inc. Washington DC, USA.                */
   24:/*;                                                                   */
   25:/*;  This program is free software; you can redistribute it and/or    */
   26:/*;  modify it under the terms of the GNU General Public License as   */
   27:/*;  published by the Free Software Foundation; either version 2 of   */
   28:/*;  the License, or (at your option) any later version.              */
   29:/*;                                                                   */
   30:/*;  This program is distributed in the hope that it will be useful,  */
   31:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   32:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   33:/*;  GNU General Public License for more details.                     */
   34:/*;                                                                   */
   35:/*;  You should have received a copy of the GNU General Public        */
   36:/*;  License along with this program; if not, write to the Free       */
   37:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   38:/*;  MA 02139, USA.                                                   */
   39:/*;                                                                   */
   40:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   41:/*;         Internet email: aipsmail at nrao.edu.                        */
   42:/*;         Postal address: AIPS Project Office                       */
   43:/*;                         National Radio Astronomy Observatory      */
   44:/*;                         520 Edgemont Road                         */
   45:/*;                         Charlottesville, VA 22903-2475 USA        */
   46:/*--------------------------------------------------------------------*/
   47:/*  Form a unique, fully qualified, temporary file name.              */
   48:/*  Inputs:                                                           */
   49:/*     flen     I       Length of "filnam"                            */
   50:/*  In/Out:                                                           */
   51:/*     filnam   C*(*)   File name with the extension .XXXXXX, (e.g.,  */
   52:/*                      "ZXLPRT.XXXXXX").  The extension will be      */
   53:/*                      transformed by 'mktemp' to make "filnam" a    */
   54:/*                      unique file name.                             */
   55:/*  Output:                                                           */
   56:/*     ierr     I       Error return code: 0 => no error              */
   57:/*                         1 => inputs wrong                          */
   58:/*                         2 => filenames used up                     */
   59:/*                         3 => filnam too short                      */
   60:/*                         3 => I/O error on access to file           */
   61:/*  Generic UNIX version.                                             */
   62:/*--------------------------------------------------------------------*/
   63:{
   64:   char tmpnam[MAXAPATH+1], cwd[MAXAPATH+1], *pp;
   65:   register int i, j;
   66:   size_t tlen ;
   67:   pid_t  pid ;
   68:   char   cid[10] ;
   69:/*--------------------------------------------------------------------*/
   70:   *ierr = 0;
   71:                                        /* Form null-terminated file  */
   72:                                        /* name template out of input;*/
   73:                                        /* Test for "filnam" given as */
   74:                                        /* pathname at same time.     */
   75:   j = 0;
   76:   for (i = 0; i<*flen && filnam[i] != ' ' && filnam[i] != '\0'; i++) {
   77:      tmpnam[i] = filnam[i];
   78:                                        /* Is this a pathname?        */
   79:      if (tmpnam[i] == '/') j = 1;
   80:      }
   81:   tmpnam[i] = '\0';
   82:                                        /* If not already a pathname, */
   83:                                        /* make it one.               */
   84:   if (j == 0) {
   85:                                        /* Get current working        */
   86:                                        /* directory.                 */
   87:      tlen = MAXAPATH+1;
   88:      pp = getcwd (cwd, tlen);
   89:                                        /* Fill in directory name.    */
   90:      for (i = 0; i < *flen && i < MAXAPATH && cwd[i] != ' ' &&
   91:         cwd[i] != '\0' && cwd[i] != '\n'; i++)
   92:         filnam[i] = cwd[i];
   93:                                        /* Append "/" and file name.  */
   94:      filnam[i] = '/';
   95:      i = i + 1;
   96:      for (j = 0; j < MAXAPATH && i+j < *flen && tmpnam[j] != ' ' &&
   97:         tmpnam[j] != '\0'; j++)
   98:         filnam[i+j] = tmpnam[j];
   99:      filnam[i+j] = '\0';
  100:      }
  101:                                        /* Just copy pathname "tmpnam"*/
  102:                                        /* to "filnam".               */
  103:   else {
  104:      sprintf (filnam, "%s", tmpnam);
  105:      }
  106:                                        /* Get unique file name.      */
  107:   tlen = strlen (filnam) ;
  108:   if (tlen < 6)
  109:      *ierr = 3;
  111:   else {
  112:      pid = getpid ( );
  113:      sprintf (cid, "%010d", pid);
  114:      for (i = 1; i < 6; i++) {
  115:         if ((filnam[tlen-i] = cid[10-i]) == ' ')
  116:            filnam[tlen-i] = '0';
  117:         }
  118:      filnam[tlen-6] = 'a';
  120:      *ierr = 2;
  121:      for (i=0; i < 26; i++) {
  122:          errno = 0;
  123:          if (access (filnam, F_OK) != 0) {
  124:             if (errno == ENOENT)
  125:                *ierr = 0;
  126:             else
  127:                *ierr = 4;
  128:             break;
  129:             }
  130:          filnam[tlen-6]++ ;
  131:          }
  132:      }
  133:                                        /* blank fill                 */
  134:   for (i = 1; i < *flen && filnam[i] != '\0'; i++) {
  135:      j = i ;
  136:      }
  137:   for (i = j + 1; i < *flen; i++) {
  138:      filnam[i] = ' ' ;
  139:      }
  141:   return;
  142:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZMKTMP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:05:04 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZMOUN2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZMOUN2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZMOUN2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
AIPSCC    : Date       Fri Jul 18 17:05:04 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c:26:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c: In function `zmoun2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c:97: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c:97: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c:97: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_moun2__
    3:#define MT_Debug 0                      /* debug message control      */
    5:                                        /* Must not claim POSIX_SOURCE*/
    6:                                        /* types.h would not define   */
    7:                                        /* things needed in mtio.h    */
    8:#ifdef _POSIX_SOURCE
    9:#undef _POSIX_SOURCE
   10:#endif
   12:#include <unistd.h>
   13:#include <stdlib.h>
   14:#include <sys/types.h>
   15:#include <sys/ioctl.h>
   16:#include <sys/mtio.h>
   17:#include <errno.h>
   18:#include <fcntl.h>
   19:#include <stdio.h>
   20:#include <sys/file.h>
   21:#include <string.h>
   22:                                        /* Useful macros              */
   23:#ifndef min
   24:#define min(a,b) ((a)<(b)?(a):(b))
   25:#endif
   26:#include <AIPSPROTO.H>
   27:                                        /* For patch use (15OCT96).   */
   28:#ifndef MAXEHEX
   29:#define MAXEHEX 36
   30:#endif
   32:#if __STDC__
   33:   void zmoun2_(int *mount, int *idrive, int *idens, int *ntaped,
   34:      int *npops, int *nuser, char *msg, int *syserr, int *ierr)
   35:#else
   36:   zmoun2_(mount, idrive, idens, ntaped, npops, nuser, msg, syserr, ierr)
   37:   int *mount, *idrive, *idens, *ntaped, *npops, *nuser, *syserr, *ierr;
   38:   char msg[];
   39:#endif
   40:/*--------------------------------------------------------------------*/
   41:/*! mount or dismount magnetic tape device - lowest level Z           */
   42:/*# Tape Z2                                                           */
   43:/*--------------------------------------------------------------------*/
   44:/*;  Copyright (C) 1995, 1997, 1999-2000                              */
   45:/*;  Associated Universities, Inc. Washington DC, USA.                */
   46:/*;                                                                   */
   47:/*;  This program is free software; you can redistribute it and/or    */
   48:/*;  modify it under the terms of the GNU General Public License as   */
   49:/*;  published by the Free Software Foundation; either version 2 of   */
   50:/*;  the License, or (at your option) any later version.              */
   51:/*;                                                                   */
   52:/*;  This program is distributed in the hope that it will be useful,  */
   53:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   54:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   55:/*;  GNU General Public License for more details.                     */
   56:/*;                                                                   */
   57:/*;  You should have received a copy of the GNU General Public        */
   58:/*;  License along with this program; if not, write to the Free       */
   59:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   60:/*;  MA 02139, USA.                                                   */
   61:/*;                                                                   */
   62:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   63:/*;         Internet email: aipsmail at nrao.edu.                        */
   64:/*;         Postal address: AIPS Project Office                       */
   65:/*;                         National Radio Astronomy Observatory      */
   66:/*;                         520 Edgemont Road                         */
   67:/*;                         Charlottesville, VA 22903-2475 USA        */
   68:/*--------------------------------------------------------------------*/
   69:/*  Issue a software tape mount or dismount requests.                 */
   70:/*  Inputs:                                                           */
   71:/*     mount    I      Operation indicator code:                      */
   72:/*                        1 => mount                                  */
   73:/*                        0 => dismount                               */
   74:/*     idrive   I      Drive number                                   */
   75:/*     idens    I      Density                                        */
   76:/*     ntaped   I      Number of tape drives                          */
   77:/*     npops    I      Pops number                                    */
   78:/*     nuser    I      User AIPS number                               */
   79:/*  Output:                                                           */
   80:/*     msg      C*80   Error or mount type message buffer             */
   81:/*     syserr   I      System error code: 0 => no error               */
   82:/*     ierr     I      Error return code: 0 => no error               */
   83:/*                        1 => error                                  */
   84:/*                        2 => device doesn't exist                   */
   85:/*                        3 => i/o error to device                    */
   86:/*                        4 => device already allocated               */
   87:/*                        6 => other device open errors               */
   88:/*                                                                    */
   89:/*  JAU 97/Feb/01: Linux DAT and Exabyte version.                     */
   90:/*  Modified to set/restore tape block size--needed for Exabytes.     */
   91:/*--------------------------------------------------------------------*/
   92:{
   93:   static int fd;
   94:   int    jerr, llen, xlen, xlnb, tfd, density, ir;
   95:   struct mtop top;
   96:   struct mtget stat;
   97:   char   command[40], da00[5], lockfile[MAXAPATH+7], tape[7],
   98:          xlated[MAXAPATH], densities[4];
   99:   struct flock lock;
  100:                                        /* Gleaned from mt.c in the */
  101:                                        /* mt-st-0.4 distribution.  */
  102:   struct {
  103:      int code;
  104:      char *name;
  105:   } density_tbl[] = {
  106:                                        /* Not a comprehensive list; */
  107:                                        /* only types AIPS knows it */
  108:                                        /* can use.  Needs more info.*/
  109:      {0x13, "DDS"},
  110:      {0x14, "EXB-8200"},
  111:      {0x15, "EXB-8500"},
  112:      {0x24, "DDS-2"},
  113:      {140, "EXB-8505 compressed"},
  114:      {144, "EXB-8205 compressed"},
  115:      {-1, NULL}
  116:   };
  117:   static int blocksize_detected[MAXEHEX];
  118:/*--------------------------------------------------------------------*/
  119:   *ierr = 0;
  120:   *syserr = 0;
  121:   errno = 0;
  122:   sprintf (msg, "   ");
  123:   sprintf (tape, "TAPE%x", *idrive);
  124:   densities[0] = 'l';
  125:   densities[1] = 'm';
  126:   densities[2] = 'h';
  127:   densities[3] = 'h';
  128:                                        /* Form the lock file name    */
  129:   llen = 5;
  130:   xlen = MAXAPATH;
  131:   sprintf (da00, "DA00");
  132:   ztrlo2_ (&llen, da00, &xlen, xlated, &xlnb, &jerr);
  133:   if (jerr != 0) {
  134:      sprintf (msg, "ZMOUN2: Couldn't translate logical %s", da00);
  135:      *ierr = 1;
  136:      goto exit;
  137:      }
  138:   xlated[xlnb] = '\0';
  139:   sprintf (lockfile, "%s/%s.lock", xlated, tape);
  140:                                        /* Translate logical TAPEn    */
  141:   sprintf (tape, "AMT0%x", *idrive);
  142:   llen = 5;
  143:   xlen = MAXAPATH;
  144:   ztrlo2_ (&llen, tape, &xlen, xlated, &xlnb, &jerr);
  145:   if (jerr != 0) {
  146:      sprintf (msg, "ZMOUN2: Couldn't translate logical %s", tape);
  147:      *ierr = 1;
  148:      goto exit;
  149:      }
  150:   xlated[xlnb] = '\0';
  151:                                        /* MOUNT                      */
  152:   if (*mount == 1) {
  153:                                        /* Create/open the lock file  */
  154:      if ((fd = open (lockfile, O_RDWR | O_CREAT, 0666)) == -1) {
  155:         sprintf (msg, "ZMOUN2: Couldn't open lock file %s", lockfile);
  156:         *syserr = errno;
  157:         *ierr = 1;
  158:         goto exit;
  159:         }
  160:#if MT_Debug
  161:      fprintf (stderr, "ZMOUN2: opened lock file %s\n", lockfile);
  162:#endif
  163:                                        /* Try to put a lock on it    */
  164:                                        /* Apply non-blocking lock.   */
  165:      lock.l_whence = SEEK_SET;
  166:      lock.l_start = 0;
  167:      lock.l_len = 0;
  168:                                        /* Exclusive lock.            */
  169:      lock.l_type = F_WRLCK;
  170:      if ((ir = fcntl (fd, F_SETLK, &lock)) == -1) {
  171:         if ((errno == EACCES) || (errno == EAGAIN)) {
  172:            sprintf (msg,
  173:               "(POSIX lock) Tape %d is currently in use.", *idrive);
  174:            *ierr = 4;
  175:            }
  176:         else {
  177:                                        /* Some other error           */
  178:            sprintf (msg, "ZMOUN2: POSIX lockfile error %d", errno);
  179:            *ierr = 1;
  180:            *syserr = errno;
  181:            }
  182:         goto cleanup;
  183:         }
  184:#if MT_Debug
  185:      else {
  186:         fprintf (stderr,
  187:                  "ZMOUN2: POSIX fcntl return = %d errno = %d\n",
  188:                  ir, errno);
  189:         }
  190:#endif
  191:                                        /* open root device name      */
  192:      if ((strncmp(xlated, "on-line", 7) == 0) ||
  193:         (strncmp(xlated, "ON-LINE", 7)) == 0) {
  194:         sprintf (msg, "Mounted on-line tape device");
  195:         }
  196:      else {
  197:         tfd = open (xlated, O_RDONLY | O_NONBLOCK) ;
  198:         if (tfd == -1) {
  199:                                        /* Device doesn't exist.      */
  200:            if (errno == ENOENT)
  201:               *ierr = 2;
  202:                                        /* Some other open error.     */
  203:            else
  204:               *ierr = 6;
  205:            *syserr = errno;
  206:            sprintf (msg, "ZMOUN2: Couldn't open tape device %s",
  207:               xlated);
  208:            goto cleanup;
  209:            }
  210:                                        /* Need to perform a no-op on */
  211:                                        /* device in order to get its */
  212:                                        /* status.  Close if error! */
  213:         top.mt_count = 1;
  214:         top.mt_op = MTNOP;
  215:         if (ioctl(tfd,MTIOCTOP,&top) != 0) {
  216:            *ierr = 3;
  217:            sprintf(msg,
  218:               "ZMOUN2: error performing null op on tape drive");
  219:	    close(tfd);
  220:            goto cleanup;
  221:            }
  222:         if (ioctl(tfd,MTIOCGET,&stat) != 0) {
  223:            *ierr = 3;
  224:            sprintf(msg, "ZMOUN2: error getting drive status");
  225:	    close(tfd);
  226:            goto cleanup;
  227:            }
  228:                                        /* AIPS density code */
  229:         density = 0;
  230:         if (*idens == 800) density = 1;
  231:         if (*idens == 1600) density = 2;
  232:         if (*idens == 6250) density = 3;
  233:         if (*idens == 22500) density = 4;
  234:                                        /* Only allow density changes */
  235:                                        /* for appropriate devices */
  236:         switch (stat.mt_type) {
  237:            case MT_ISDDS1 :
  238:               density = 0;
  239:               sprintf (msg, "Mounted on standard DAT tape");
  240:               break;
  241:            case MT_ISDDS2 :
  242:               density = 0;
  243:               sprintf (msg,
  244:                        "Mounted on PARTITIONED DAT tape?  Good Luck!");
  245:               break;
  246:            case MT_ISSCSI1 :
  247:               density = 0;
  248:               sprintf (msg, "Mounted on ANSI SCSI 1 tape");
  249:               break;
  250:            case MT_ISSCSI2 :
  251:               density = 0;
  252:               sprintf (msg, "Mounted on ANSI SCSI 2 tape");
  253:               break;
  254:            default :
  255:               density = 0;
  256:               sprintf (msg, "Mounted SCSI tape device type %x, a ????",
  257:                  stat.mt_type);
  258:               break;
  259:            }
  260:                                        /* If it's a SCSI 1 or SCSI 2 */
  261:                                        /* tape drive, let's find out */
  262:                                        /* and display more info. */
  263:                                        /* Also, save current block */
  264:                                        /* size, set it to zero for */
  265:                                        /* the session, and restore */
  266:                                        /* the old value on dismount. */
  267:                                        /* This routine was also */
  268:                                        /* inspired by Linux's */
  269:                                        /* mt-st-0.4 distribution. */
  270:         if (stat.mt_type == MT_ISSCSI1 || stat.mt_type == MT_ISSCSI2) {
  271:            int density_detected =
  272:              (stat.mt_dsreg & MT_ST_DENSITY_MASK) >>
  273:               MT_ST_DENSITY_SHIFT;
  274:            if (blocksize_detected[*idrive] =
  275:                ((stat.mt_dsreg & MT_ST_BLKSIZE_MASK) >>
  276:                 MT_ST_BLKSIZE_SHIFT)) {
  277:#if MT_Debug
  278:               fprintf (stderr,
  279:                        "ZMOUN2: Tape blksiz detected: %d, drive %d\n",
  280:                        blocksize_detected[*idrive], *idrive);
  281:#endif
  282:               top.mt_op = MTSETBLK;
  283:               top.mt_count = 0;
  284:               if (ioctl (tfd, MTIOCTOP, &top) != 0) {
  285:                  *ierr = 3;
  286:                  sprintf (msg,
  287:                           "ZMOUN2: error setting tape blksiz to 0");
  288:		  close(tfd);
  289:                  goto cleanup;
  290:               }
  291:            }
  292:            if (density_detected) {
  293:               int density_counter = 0;
  294:               for (density_counter;
  295:                    density_tbl[density_counter].code >= 0;
  296:                    density_counter++) {
  297:                  if (density_tbl[density_counter].code ==
  298:                      density_detected) {
  299:                     /* Watch buffer length! */
  300:                     strcat (msg, " (");
  301:                     strcat (msg, density_tbl[density_counter].name);
  302:                     strcat (msg, ")");
  303:                     break;
  304:                  }
  305:               }
  306:            }
  307:         }
  308:         close (tfd);
  309:                                        /* reset logical              */
  310:         if (density) {
  311:            xlated[xlnb-1] = densities[density-1];
  312:            zcrlog_(&llen, tape, &xlnb, xlated, &jerr);
  313:            if (jerr != 0) {
  314:               sprintf (msg,
  315:                  "ZMOUN2: Couldn't create logical %s", xlated);
  316:               *ierr = 1;
  317:               goto cleanup;
  318:               }
  319:            }
  320:         }
  321:      }
  322:                                        /* DISMOUNT                   */
  323:   else {
  324:                                        /* Take the Exabyte offline */
  325:      if ((strncmp(xlated, "on-line", 7) != 0) &&
  326:         (strncmp(xlated, "ON-LINE", 7)) != 0) {
  327:         tfd = open (xlated, O_RDONLY | O_NONBLOCK) ;
  328:         if (tfd == -1) {
  329:                                        /* Device doesn't exist.      */
  330:            if (errno == ENOENT)
  331:               *ierr = 2;
  332:                                        /* Some other open error.     */
  333:            else
  334:               *ierr = 6;
  335:            *syserr = errno;
  336:            sprintf (msg, "ZMOUN2: Couldn't open tape device %s",
  337:               xlated);
  338:            goto cleanup;
  339:            }
  340:                                        /* Now set the tape blocksize */
  341:                                        /* back the way we found it   */
  342:         if (blocksize_detected[*idrive]) {
  343:#if MT_Debug
  344:            fprintf (stderr, "ZMOUN2: %s %d, drive %d.\n",
  345:                     "Resetting tape block size back to",
  346:                     blocksize_detected[*idrive], *idrive);
  347:#endif
  348:            top.mt_op = MTSETBLK;
  349:            top.mt_count = blocksize_detected[*idrive];
  350:                                        /* Failure is non-fatal, but */
  351:                                        /* warn if debugging. */
  352:#if MT_Debug
  353:            if (ioctl (tfd, MTIOCTOP, &top) != 0) {
  354:               fprintf (stderr, "ZMOUN2: %s %d, drive %d!\n",
  355:                        "warning resetting block size back to",
  356:                        blocksize_detected[*idrive], *idrive);
  357:            }
  358:#else
  359:            ioctl (tfd, MTIOCTOP, &top);
  360:#endif
  361:         }
  362:         top.mt_count = 1;
  363:#if MT_Debug
  364:                                        /* Don't eject the tape when */
  365:                                        /* debugging--it's annoying! */
  366:         top.mt_op = MTREW;
  367:         fprintf (stderr, "ZMOUN2: debug, won't spit the tape out!\n");
  368:#else
  369:         top.mt_op = MTOFFL;
  370:#endif
  371:         if (ioctl(tfd,MTIOCTOP,&top) != 0) {
  372:            *ierr = 3;
  373:            sprintf(msg,
  374:                    "ZMOUN2: error rewinding/unloading tape drive");
  375:            }
  376:         close (tfd) ;
  377:         }
  378:cleanup:
  379:                                        /* Release the lock file      */
  380:      unlink (lockfile);
  381:      close (fd);
  382:      }
  384:exit:
  385:   return;
  386:}
  388:/*
  389: * Local Variables:
  390: * c-basic-offset: 3
  391: * comment-column: 40
  392: * indent-tabs-mode: nil
  393: * End:
  394: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZMOUN2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:05:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZMOUNR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMOUNR.f
FC        : Date       Fri Jul 18 17:05:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMOUNR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMOUNR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMOUNR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZMOUNR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZMOUNR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZMOUNR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZMOUNR.FOR
COMRPL    : Date       Fri Jul 18 17:05:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZMOUNT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMOUNT.f
FC        : Date       Fri Jul 18 17:05:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMOUNT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMOUNT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMOUNT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZMOUNT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZMOUNT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZMOUNT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZMOUNT.FOR
COMRPL    : Date       Fri Jul 18 17:05:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZMSGCL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMSGCL.f
FC        : Date       Fri Jul 18 17:05:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMSGCL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMSGCL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMSGCL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZMSGCL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZMSGCL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZMSGCL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZMSGCL.FOR
COMRPL    : Date       Fri Jul 18 17:05:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZMSGDK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMSGDK.f
FC        : Date       Fri Jul 18 17:05:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMSGDK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMSGDK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMSGDK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZMSGDK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZMSGDK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZMSGDK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZMSGDK.FOR
COMRPL    : Date       Fri Jul 18 17:05:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZMSGER.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMSGER.f
FC        : Date       Fri Jul 18 17:05:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMSGER.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMSGER.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMSGER.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZMSGER.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZMSGER.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZMSGER.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZMSGER.FOR
COMRPL    : Date       Fri Jul 18 17:05:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZMSGOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMSGOP.f
FC        : Date       Fri Jul 18 17:05:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMSGOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMSGOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMSGOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZMSGOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZMSGOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZMSGOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZMSGOP.FOR
COMRPL    : Date       Fri Jul 18 17:05:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZMSGWR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMSGWR.f
FC        : Date       Fri Jul 18 17:05:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMSGWR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMSGWR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMSGWR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZMSGWR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZMSGWR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZMSGWR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZMSGWR.FOR
COMRPL    : Date       Fri Jul 18 17:05:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZMSGXP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMSGXP.f
FC        : Date       Fri Jul 18 17:05:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMSGXP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMSGXP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMSGXP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZMSGXP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZMSGXP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZMSGXP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZMSGXP.FOR
COMRPL    : Date       Fri Jul 18 17:05:12 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMSSRV.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZMSSRV.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMSSRV.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMSSRV.c
AIPSCC    : Date       Fri Jul 18 17:05:12 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMSSRV.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMSSRV.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMSSRV.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZMSSRV.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZMSSRV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZMSSRV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZMSSRV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZMSSRV.FOR
COMRPL    : Date       Fri Jul 18 17:05:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZMYVER.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMYVER.f
FC        : Date       Fri Jul 18 17:05:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMYVER.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZMYVER.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMYVER.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZMYVER.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZMYVER.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZMYVER.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZMYVER.FOR
COMRPL    : Date       Fri Jul 18 17:05:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZOINTD.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZOINTD.c
AIPSCC    : Date       Fri Jul 18 17:05:14 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZOINTD.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZOINTD.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZOINTD.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZOINTD.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZOINTD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZOINTD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZOINTD.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZOINTD.C
COMRPL    : Date       Fri Jul 18 17:05:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZOPEN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZOPEN.f
FC        : Date       Fri Jul 18 17:05:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZOPEN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZOPEN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZOPEN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZOPEN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZOPEN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZOPEN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZOPEN.FOR
COMRPL    : Date       Fri Jul 18 17:05:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZOR.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZOR.c
AIPSCC    : Date       Fri Jul 18 17:05:16 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZOR.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZOR.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZOR.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZOR.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZOR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZOR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZOR.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZOR.C
COMRPL    : Date       Fri Jul 18 17:05:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZPARAL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZPARAL.f
FC        : Date       Fri Jul 18 17:05:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZPARAL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZPARAL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZPARAL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZPARAL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZPARAL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZPARAL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZPARAL.FOR
COMRPL    : Date       Fri Jul 18 17:05:17 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZPATH.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZPATH.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZPATH.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
AIPSCC    : Date       Fri Jul 18 17:05:18 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c:3:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c: In function `zpath_':
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c:62: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c:62: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c:62: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_path__
    2:#include <stdio.h>
    3:#include <AIPSPROTO.H>
    5:#if __STDC__
    6:   void zpath_(int *llen, char *logfil, int *flen, char *fulnam,
    7:      int *fact, int *ierr)
    8:#else
    9:   void zpath_(llen, logfil, flen, fulnam, fact, ierr)
   10:   int *llen, *flen, *fact, *ierr;
   11:   char logfil[], fulnam[];
   12:#endif
   13:/*--------------------------------------------------------------------*/
   14:/*! convert a file name 'Logical:file' to full path name              */
   15:/*# IO-basic                                                          */
   16:/*--------------------------------------------------------------------*/
   17:/*;  Copyright (C) 1995, 1997, 2000, 2002                             */
   18:/*;  Associated Universities, Inc. Washington DC, USA.                */
   19:/*;                                                                   */
   20:/*;  This program is free software; you can redistribute it and/or    */
   21:/*;  modify it under the terms of the GNU General Public License as   */
   22:/*;  published by the Free Software Foundation; either version 2 of   */
   23:/*;  the License, or (at your option) any later version.              */
   24:/*;                                                                   */
   25:/*;  This program is distributed in the hope that it will be useful,  */
   26:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   27:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   28:/*;  GNU General Public License for more details.                     */
   29:/*;                                                                   */
   30:/*;  You should have received a copy of the GNU General Public        */
   31:/*;  License along with this program; if not, write to the Free       */
   32:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   33:/*;  MA 02139, USA.                                                   */
   34:/*;                                                                   */
   35:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   36:/*;         Internet email: aipsmail at nrao.edu.                        */
   37:/*;         Postal address: AIPS Project Office                       */
   38:/*;                         National Radio Astronomy Observatory      */
   39:/*;                         520 Edgemont Road                         */
   40:/*;                         Charlottesville, VA 22903-2475 USA        */
   41:/*--------------------------------------------------------------------*/
   42:/*  Translate a file specifcation of the form "logical:file" to a     */
   43:/*  full path name.  "/..." absolute path name is also allowed.       */
   44:/*  Inputs:                                                           */
   45:/*     llen     I          Length of "logfil" (1-relative)            */
   46:/*     logfil   C*(*)      File specification (may contain a valid,   */
   47:/*                         colon terminated logicalvariable)          */
   48:/*     flen     I          Length of "fulnam" (1-relative)            */
   49:/*  Output:                                                           */
   50:/*     fulnam   C*(flen)   Full path name (blank filled)              */
   51:/*     fact     I          Position of last non-blank in "fulnam"     */
   52:/*                         (1-relative)                               */
   53:/*     ierr     I          Error return code: 0 => no error           */
   54:/*                             1 => improper combination of inputs    */
   55:/*                             2 => no translation for "logical"      */
   56:/*                             3 => "fulnam" too short                */
   57:/*                             4 => logical name required             */
   58:/*  Generic UNIX version  - "logical" => environment variable is      */
   59:/*  required by UNIX (IERR = 4 otherwise).                            */
   60:/*--------------------------------------------------------------------*/
   61:{
   62:   char envvar[MAXAPATH+1], xlated[MAXAPATH+1], filename[MAXAPATH+1],
   63:      pathname[MAXAPATH+1];
   64:   int elen, xlen, xlnb, jerr;
   65:   register int i, j;
   66:/*--------------------------------------------------------------------*/
   67:   *ierr = 0;
   68:                                        /* Extract logical.           */
   69:   for (i = 0; logfil[i] != ':' && i < *llen && i < MAXAPATH; i++)
   70:      envvar[i] = logfil[i];
   71:   envvar[i] = '\0';
   72:   if (logfil[i] != ':') {
   73:      elen = 0;
   74:      i = -1;
   75:      }
   76:   else
   77:      elen = i;
   78:                                        /* Extract filename.          */
   79:   j = 0;
   80:   for (i = i+1; i < *llen && logfil[i] != ' '; i++) {
   81:      filename[j] = logfil[i];
   82:      j++;
   83:      }
   84:   filename[j] = '\0';
   85:                                        /* Check for no file name     */
   86:   if (j == 0)
   87:     *ierr = 4;
   88:                                        /* no logical                 */
   89:   else if (elen == 0) {
   90:                                        /* Copy full path name to     */
   91:                                        /* "fulnam".                  */
   92:      for (i = 0; i < *flen && filename[i] != '\0'; i++)
   93:         fulnam[i] = filename[i];
   94:                                        /* Record actual full file    */
   95:                                        /* name length in characters  */
   96:                                        /* (1-relative).              */
   97:      *fact = i;
   98:                                        /* Fill remainder of "fulnam" */
   99:                                        /* with blanks.               */
  100:      for (i = i; i < *flen; i++)
  101:         fulnam[i] = ' ';
  102:      }
  103:                                        /* Translate logical and null */
  104:                                        /* terminate.                 */
  105:   else {
  106:      xlen = MAXAPATH + 1;
  107:      ztrlo2_ (&elen, envvar, &xlen, xlated, &xlnb, &jerr);
  108:      if (jerr != 0) {
  109:         *ierr = 2;
  110:         }
  111:      else {
  112:         xlated[xlnb] = '\0';
  113:                                        /* Build full path name.      */
  114:         sprintf (pathname, "%s/%s", xlated, filename);
  115:                                        /* Copy full path name to     */
  116:                                        /* "fulnam".                  */
  117:         for (i = 0; i < *flen && pathname[i] != '\0'; i++)
  118:            fulnam[i] = pathname[i];
  119:                                        /* Record actual full file    */
  120:                                        /* name length in characters  */
  121:                                        /* (1-relative).              */
  122:         *fact = i;
  123:                                        /* Fill remainder of "fulnam" */
  124:                                        /* with blanks.               */
  125:         for (i = i; i < *flen; i++)
  126:            fulnam[i] = ' ';
  127:         }
  128:      }
  130:   return;
  131:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZPATH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:05:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZPHFIL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZPHFIL.f
FC        : Date       Fri Jul 18 17:05:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZPHFIL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZPHFIL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZPHFIL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZPHFIL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZPHFIL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZPHFIL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZPHFIL.FOR
COMRPL    : Date       Fri Jul 18 17:05:19 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZPHOLV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZPHOLV.f
FC        : Date       Fri Jul 18 17:05:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZPHOLV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZPHOLV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZPHOLV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZPHOLV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZPHOLV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZPHOLV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZPHOLV.FOR
COMRPL    : Date       Fri Jul 18 17:05:20 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZPRI2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZPRI2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZPRI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZPRI2.c
AIPSCC    : Date       Fri Jul 18 17:05:20 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPRI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPRI2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZPRI2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZPRI2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZPRI2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZPRI2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZPRI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZPRI2.FOR
COMRPL    : Date       Fri Jul 18 17:05:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZPRIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZPRIO.f
FC        : Date       Fri Jul 18 17:05:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZPRIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZPRIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZPRIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZPRIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZPRIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZPRIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZPRIO.FOR
COMRPL    : Date       Fri Jul 18 17:05:22 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZPRMPT.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZPRMPT.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZPRMPT.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
AIPSCC    : Date       Fri Jul 18 17:05:22 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c:7:31: NOTST/GNU/history.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c:10:32: NOTST/GNU/readline.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c:11:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c: In function `zprmpt_':
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c:133: warning: assignment makes pointer from integer without a cast
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_prmpt__
    2:#include <errno.h>
    3:#include <signal.h>
    4:#include <stdio.h>
    5:#include <stdlib.h>
    6:#include <unistd.h>
    7:#include <NOTST/GNU/history.h>
    9:#define HAVE_STRING_H                   /* Needed inside readline.h   */
   10:#include <NOTST/GNU/readline.h>
   11:#include <AIPSPROTO.H>
   13:                                        /* Local signal-handler.      */
   14:#if __STDC__
   15:   static void zprmpt_sigs(int sig)
   16:#else
   17:   static void zprmpt_sigs(sig)
   18:   int sig;
   19:#endif
   20:{
   21:   extern int _rl_meta_flag;
   22:   extern int kill ();                  /* Arg...some OS's...really!  */
   23:   extern void rl_prep_terminal ();
   25:   kill (getpid (), SIGTSTP);
   26:   rl_prep_terminal (_rl_meta_flag);
   27:}
   29:#if __STDC__
   30:   void zprmpt_(char ipc[1], char buff[80], int *ierr)
   31:#else
   32:   void zprmpt_(ipc, buff, ierr)
   33:   char ipc[1], buff[80];
   34:   int *ierr;
   35:#endif
   36:/*--------------------------------------------------------------------*/
   37:/*! prompt user and read 80 characters from CRT screen                */
   38:/*# Terminal                                                          */
   39:/*--------------------------------------------------------------------*/
   40:/*;  Copyright (C) 1995-1997, 2003                                    */
   41:/*;  Associated Universities, Inc. Washington DC, USA.                */
   42:/*;                                                                   */
   43:/*;  This program is free software; you can redistribute it and/or    */
   44:/*;  modify it under the terms of the GNU General Public License as   */
   45:/*;  published by the Free Software Foundation; either version 2 of   */
   46:/*;  the License, or (at your option) any later version.              */
   47:/*;                                                                   */
   48:/*;  This program is distributed in the hope that it will be useful,  */
   49:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   50:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   51:/*;  GNU General Public License for more details.                     */
   52:/*;                                                                   */
   53:/*;  You should have received a copy of the GNU General Public        */
   54:/*;  License along with this program; if not, write to the Free       */
   55:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   56:/*;  MA 02139, USA.                                                   */
   57:/*;                                                                   */
   58:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   59:/*;         Internet email: aipsmail at nrao.edu.                        */
   60:/*;         Postal address: AIPS Project Office                       */
   61:/*;                         National Radio Astronomy Observatory      */
   62:/*;                         520 Edgemont Road                         */
   63:/*;                         Charlottesville, VA 22903-2475 USA        */
   64:/*--------------------------------------------------------------------*/
   65:/* ZPRMPT prompts user on CRT screen and reads a line of user input   */
   66:/* via the GNU readline (+history) library.  The input line is placed */
   67:/* in a buffer and either truncated to 80 characters or space-padded  */
   68:/* to 80 characters prior to return.  Non-empty lines are added to a  */
   69:/* history list for possible later access/reuse via the               */
   70:/* history-manipulation key-bindings (a la Bash/Ksh/Emacs--or even    */
   71:/* vi).  If the user is not on an interactive tty, say by giving AIPS */
   72:/* input via a shell-script "here document," then the old             */
   73:/* (non-readline) behavior is used and the input line is not added to */
   74:/* the history.  Use of the readline library can be disabled by       */
   75:/* starting AIPS with the "norl" option.                              */
   76:/*                                                                    */
   77:/* Input:                                                             */
   78:/*    IPC    C*1    prompt character                                  */
   79:/* Output:                                                            */
   80:/*    BUFF   C*80   line of user input.                               */
   81:/*    IERR   I      Error return code: 0 => ok                        */
   82:/*                     1 => read/write error (not implemented/set)    */
   83:/*                                                                    */
   84:/* UNIX GNU-readline version (with terminal-reset signal-handler).    */
   85:/*                                                                    */
   86:/* JAU 26 Jul 95: Jeff Uphoff, NRAO.  Added GNU readline support.     */
   87:/* JAU 29 Aug 95: Jeff Uphoff, NRAO.  Overhaul of several portions.   */
   88:/* JAU 22 Sep 95: Jeff Uphoff, NRAO.  Added check for userno prompt.  */
   89:/* JAU 25 Jun 97: Jeff Uphoff, NRAO.  Fix prompt bug.                 */
   90:/*--------------------------------------------------------------------*/
   91:{
   92:   char *rlenv = NULL;
   93:   char *temp = NULL;
   94:   register int i, ttyp;
   95:/*--------------------------------------------------------------------*/
   96:   *ierr = 0;
   98:   buff[0] = '\0';                      /* Initialize buffer.         */
  100:                                        /* Check if readline disabled */
  101:   if (!(ttyp = isatty (0)) ||          /* or if not interactive tty. */
  102:         (((rlenv = getenv ("READLINE")) != NULL) &&
  103:         !strcmp (rlenv, "NO"))) {
  105:      char pc = ipc[0];                 /* OK, fall back to old       */
  106:                                        /* prompting and input-       */
  107:                                        /* handling behavior.         */
  108:      if(!(temp = (char *)malloc (81))) {
  109:         perror ("ZPRMPT: malloc failed");
  110:         exit (errno);                  /* This is *very* bad!        */
  111:      }
  112:      putchar (pc);                     /* Display prompt.            */
  114:                                        /* Use old input method.      */
  115:      if (fgets (temp, 81, stdin) == NULL) {
  116:         free (temp);
  117:         temp = NULL;
  118:      }
  119:      ttyp = 0;                         /* We'll fake this for later. */
  121:   } else {                             /* Use GNU readline for input */
  122:      char prompt[2];
  124:      if (ipc[0] == '?')                /* Check if userno. prompt.   */
  125:         rl_bind_key ('\t', NULL);      /* If so, disable TAB's.      */
  127:      zignal_ (SIGTTIN, zprmpt_sigs);   /* All of these signal-       */
  128:      zignal_ (SIGTTOU, zprmpt_sigs);   /* handling shenanigans are   */
  129:                                        /* due to general insanity.   */
  131:      prompt[0] = ipc[0];               /* Ensure prompt sanity.      */
  132:      prompt[1] = '\0';
  133:      temp = readline (prompt);         /* Use readline to prompt     */
  134:                                        /* user and return pointer    */
  135:                                        /* to line of user input.     */
  136:                                        /* readline() does the        */
  137:                                        /* malloc() for us, but we    */
  138:                                        /* must free() the pointer.   */
  140:      zignal_ (SIGTTIN, SIG_DFL);       /* More fun with signals.     */
  141:      zignal_ (SIGTTOU, SIG_DFL);
  142:   }
  144:   if (temp == NULL)                    /* NULL pointer means EOF at  */
  145:      sprintf (buff, "EXIT");           /* *beginning* of user input. */
  147:   else {                               /* Non-NULL means good input. */
  149:      if (*temp && ttyp)                /* If not blank (and          */
  150:         add_history (temp);            /* interactive), put in hist. */
  151:                                        /* unless readline disabled   */
  152:                                        /* (the reason for "faking"   */
  153:                                        /* ttyp = 0 earlier).         */
  155:                                        /* readline() strips the new- */
  156:                                        /* line for us.  We need to   */
  157:                                        /* find the first null and    */
  158:                                        /* then pad the output buffer */
  159:                                        /* with trailing spaces.      */
  160:                                        /* The 80-column limit is     */
  161:                                        /* historical...              */
  162:      for (i = 0; i < 80 && temp[i] != '\0'; i++)
  163:         buff[i] = temp[i];             /* Copy up to first null.     */
  164:      for (i = i; i < 80; i++)
  165:         buff[i] = ' ';                 /* Pad remainder with spaces. */
  166:      if (temp)
  167:         free (temp);                   /* Free the readline pointer. */
  168:   }
  169:   return;
  170:}
  172:/*
  173: * Local Variables:
  174: * c-basic-offset: 3
  175: * comment-column: 40
  176: * indent-tabs-mode: nil
  177: * End:
  178: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZPRMPT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:05:22 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZPRPAS.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZPRPAS.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZPRPAS.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZPRPAS.c
AIPSCC    : Date       Fri Jul 18 17:05:23 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPRPAS.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPRPAS.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZPRPAS.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZPRPAS.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZPRPAS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZPRPAS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZPRPAS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZPRPAS.FOR
COMRPL    : Date       Fri Jul 18 17:05:23 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZPTBIT.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZPTBIT.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZPTBIT.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZPTBIT.c
AIPSCC    : Date       Fri Jul 18 17:05:24 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPTBIT.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPTBIT.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZPTBIT.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZPTBIT.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZPTBIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZPTBIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZPTBIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZPTBIT.FOR
COMRPL    : Date       Fri Jul 18 17:05:24 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZPUTCH.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZPUTCH.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZPUTCH.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZPUTCH.c
AIPSCC    : Date       Fri Jul 18 17:05:24 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPUTCH.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPUTCH.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZPUTCH.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZPUTCH.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZPUTCH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZPUTCH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZPUTCH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZPUTCH.FOR
COMRPL    : Date       Fri Jul 18 17:05:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZR32RL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZR32RL.f
FC        : Date       Fri Jul 18 17:05:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZR32RL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZR32RL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZR32RL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZR32RL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZR32RL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZR32RL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZR32RL.FOR
COMRPL    : Date       Fri Jul 18 17:05:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZR64RL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZR64RL.f
FC        : Date       Fri Jul 18 17:05:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZR64RL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZR64RL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZR64RL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZR64RL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZR64RL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZR64RL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZR64RL.FOR
COMRPL    : Date       Fri Jul 18 17:05:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZR8P4.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZR8P4.f
FC        : Date       Fri Jul 18 17:05:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZR8P4.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZR8P4.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZR8P4.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZR8P4.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZR8P4.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZR8P4.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZR8P4.FOR
COMRPL    : Date       Fri Jul 18 17:05:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZRCLOS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRCLOS.f
FC        : Date       Fri Jul 18 17:05:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRCLOS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRCLOS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRCLOS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZRCLOS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZRCLOS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZRCLOS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZRCLOS.FOR
COMRPL    : Date       Fri Jul 18 17:05:28 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRCLS2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZRCLS2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRCLS2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRCLS2.c
AIPSCC    : Date       Fri Jul 18 17:05:28 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRCLS2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRCLS2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRCLS2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZRCLS2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZRCLS2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZRCLS2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZRCLS2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZRCLS2.FOR
COMRPL    : Date       Fri Jul 18 17:05:29 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRDMF.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZRDMF.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRDMF.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
AIPSCC    : Date       Fri Jul 18 17:05:29 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
/usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c:3:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_rdmf__
    2:#include <stdio.h>
    3:#include <AIPSPROTO.H>
    5:#if __STDC__
    6:   void zrdmf_(int *nwords, unsigned char *inbuf, int *outbuf, int *flag)
    7:#else
    8:   void zrdmf_(nwords, inbuf, outbuf, flag)
    9:   int *nwords, *outbuf, *flag;
   10:   unsigned char *inbuf;
   11:#endif
   12:/*--------------------------------------------------------------------*/
   13:/*! convert DEC (36 bits in 40) magtape format to 2 local integers    */
   14:/*# Binary                                                            */
   15:/*--------------------------------------------------------------------*/
   16:/*;  Copyright (C) 1995, 1997                                         */
   17:/*;  Associated Universities, Inc. Washington DC, USA.                */
   18:/*;                                                                   */
   19:/*;  This program is free software; you can redistribute it and/or    */
   20:/*;  modify it under the terms of the GNU General Public License as   */
   21:/*;  published by the Free Software Foundation; either version 2 of   */
   22:/*;  the License, or (at your option) any later version.              */
   23:/*;                                                                   */
   24:/*;  This program is distributed in the hope that it will be useful,  */
   25:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   26:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   27:/*;  GNU General Public License for more details.                     */
   28:/*;                                                                   */
   29:/*;  You should have received a copy of the GNU General Public        */
   30:/*;  License along with this program; if not, write to the Free       */
   31:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   32:/*;  MA 02139, USA.                                                   */
   33:/*;                                                                   */
   34:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   35:/*;         Internet email: aipsmail at nrao.edu.                        */
   36:/*;         Postal address: AIPS Project Office                       */
   37:/*;                         National Radio Astronomy Observatory      */
   38:/*;                         520 Edgemont Road                         */
   39:/*;                         Charlottesville, VA 22903-2475 USA        */
   40:/*--------------------------------------------------------------------*/
   41:/*  Convert data packed in DEC-Magtape format (DMF) to 2 local        */
   42:/*  32-bit integers                                                   */
   43:/*                                                                    */
   44:/*  The DMF format is:                                                */
   45:/*                                                                    */
   46:/*     Track    1    2    3    4    5    6    7    8                  */
   47:/*     Byte                                                           */
   48:/*       1      F0   F1   F2   F3   F4   F5   F6   F7                 */
   49:/*       2      F8   F9  F10  F11  F12  F13  F14  F15                 */
   50:/*       3      F16  F17  R0   R1   R2   R3   R4   R5                 */
   51:/*       4      R6   R7   R8   R9  R10  R11  R12  R13                 */
   52:/*       5       0    0    0    0  R14  R15  R16  R17                 */
   53:/*                                                                    */
   54:/*  where Rn refers to the right halfword, Fn to the left halfword.   */
   55:/*                                                                    */
   56:/*  Since the purpose of this routine is to read Modcomp tapes        */
   57:/*  written with this peculiar format, F16, F17, R16 and R17 (the     */
   58:/*  high order bits) are zero for VLA data, but are used for the      */
   59:/*  word count.                                                       */
   60:/*                                                                    */
   61:/*  The first word (5 bytes) of a tape block contains the word count  */
   62:/*  of the block.  The word count is a 16-bit twos-complement integer */
   63:/*  comprised of bits R2-R17.  All other words are treated as pairs   */
   64:/*  of 16-bit, twos-complement integers comprising bits F0-F15 and    */
   65:/*  R0-R15.                                                           */
   66:/*                                                                    */
   67:/*  Input data is assumed to be packed into 1 1/4 integers and output */
   68:/*  data will be returned in a pair of local integers per DEC-10      */
   69:/*  word.  The first integer of each pair corresponds to the left     */
   70:/*  DEC-10 halfword (zero for the word count) and the second to the   */
   71:/*  right halfword.  The sign of each half-word is preserved on       */
   72:/*  expansion to a local integer.                                     */
   73:/*                                                                    */
   74:/*  Inputs:                                                           */
   75:/*     nwords   I      Length of the input buffer in DEC-10 words     */
   76:/*     inbuf    I(*)   Input buffer containing DMF format data        */
   77:/*     flag     I      If > 0, the first word word is the beginning of*/
   78:/*                     a tape block                                   */
   79:/*  Output:                                                           */
   80:/*     outbuf   I(*)   Output buffer containing two local integers per*/
   81:/*                     input DEC-10 word                              */
   82:/*  Generic UNIX version - only for 32-bit twos-complement local      */
   83:/*  integers; have to live with this since the tape contains mixed    */
   84:/*  binary data).                                                     */
   85:/*--------------------------------------------------------------------*/
   86:{
   87:                                        /* # of bits per word         */
   88:   extern int Z_nbitwd;
   89:   int loop, n, *pout, n8 = 8;
   90:   unsigned char *pin;
   91:   char msgbuf[80];
   92:   union u_tag {
   93:      unsigned char bword[4];
   94:      int lword;
   95:   } what;
   96:/*--------------------------------------------------------------------*/
   97:                                        /* This version only good for */
   98:                                        /* 32-bit local integers.     */
   99:   if (Z_nbitwd != 32) {
  100:      sprintf (msgbuf,
  101:         "ZRDMF: THIS VERSION ONLY GOOD FOR 32-BIT LOCAL INTEGERS");
  102:      zmsgwr_ (msgbuf, &n8);
  103:      }
  104:   else {
  105:                                        /* Initialize loop counter    */
  106:                                        /* pointers.                  */
  107:      n = *nwords;
  108:      pin = inbuf;
  109:      pout = outbuf;
  110:                                        /* Special treatment for      */
  111:                                        /* first word in tape block   */
  112:      if (*flag > 0) {
  113:	                                /* First half                 */
  114:	 pin +=2;
  115:	 *pout++ = 0;
  116:	                                /* Second half                */
  117:	 what.bword[2] = *pin++ << 4;
  118:	 what.bword[2] |= *pin >> 4;
  119:	 what.bword[3] = *pin++ << 4;
  120:	 what.bword[3] |= *pin++;
  121:	                                /* Sign extension             */
  122:	 if (what.bword[2] & 0x80)
  123:	    what.bword[0] = what.bword[1] = 0xff;
  124:	 else
  125:	    what.bword[0] = what.bword[1] = 0x00;
  126:	 *pout++ = what.lword;
  127:	 n--;
  128:         }
  129:                                        /* Loop over values.          */
  130:      for (loop = 0; loop < n; loop++) {
  131:                                        /* First half.                */
  132:         what.bword[2] = *pin++;
  133:         what.bword[3] = *pin++;
  134:                                        /* Sign extension             */
  135:	 if (what.bword[2] & 0x80)
  136:	    what.bword[0] = what.bword[1] = 0xff;
  137:	 else
  138:	    what.bword[0] = what.bword[1] = 0x00;
  139:         *pout++ = what.lword;
  140:                                        /* Second half.               */
  141:         what.bword[2] = *pin++ << 2;
  142:	 what.bword[2] |= *pin >> 6;
  143:         what.bword[3] = *pin++ << 2;
  144:	 what.bword[3] |= *pin++ >> 2;
  145:         if (what.bword[2] & 0x80)
  146:	    what.bword[0] = what.bword[1] = 0xff;
  147:	 else
  148:	    what.bword[0] = what.bword[1] = 0x00;
  149:         *pout++ = what.lword;
  150:         }
  151:      }
  152:                                        /* Exit.                      */
  153:   return;
  154:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZRDMF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:05:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZREHEX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZREHEX.f
FC        : Date       Fri Jul 18 17:05:30 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZREHEX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZREHEX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZREHEX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZREHEX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZREHEX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZREHEX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZREHEX.FOR
COMRPL    : Date       Fri Jul 18 17:05:30 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRENA2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZRENA2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRENA2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
AIPSCC    : Date       Fri Jul 18 17:05:30 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:6:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:9: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:9: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c: In function `zrena2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:62: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:62: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:62: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:67: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_rena2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <fcntl.h>
    5:#include <errno.h>
    6:#include <AIPSPROTO.H>
    8:#if __STDC__
    9:   void zrena2_(char oldnam[MAXPNAME], char newnam[MAXPNAME],
   10:      int *syserr, int *ierr)
   11:#else
   12:   void zrena2_(oldnam, newnam, syserr, ierr)
   13:   char oldnam[MAXPNAME], newnam[MAXPNAME];
   14:   int *syserr, *ierr;
   15:#endif
   16:/*--------------------------------------------------------------------*/
   17:/*! rename a file                                                     */
   18:/*# IO-basic                                                          */
   19:/*--------------------------------------------------------------------*/
   20:/*;  Copyright (C) 1995, 1997                                         */
   21:/*;  Associated Universities, Inc. Washington DC, USA.                */
   22:/*;                                                                   */
   23:/*;  This program is free software; you can redistribute it and/or    */
   24:/*;  modify it under the terms of the GNU General Public License as   */
   25:/*;  published by the Free Software Foundation; either version 2 of   */
   26:/*;  the License, or (at your option) any later version.              */
   27:/*;                                                                   */
   28:/*;  This program is distributed in the hope that it will be useful,  */
   29:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   30:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   31:/*;  GNU General Public License for more details.                     */
   32:/*;                                                                   */
   33:/*;  You should have received a copy of the GNU General Public        */
   34:/*;  License along with this program; if not, write to the Free       */
   35:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   36:/*;  MA 02139, USA.                                                   */
   37:/*;                                                                   */
   38:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   39:/*;         Internet email: aipsmail at nrao.edu.                        */
   40:/*;         Postal address: AIPS Project Office                       */
   41:/*;                         National Radio Astronomy Observatory      */
   42:/*;                         520 Edgemont Road                         */
   43:/*;                         Charlottesville, VA 22903-2475 USA        */
   44:/*--------------------------------------------------------------------*/
   45:/*  Renames a file.                                                   */
   46:/*  Inputs:                                                           */
   47:/*     oldnam   C*48   Old physical file name                         */
   48:/*     newnam   C*48   New physical file name                         */
   49:/*  Output:                                                           */
   50:/*     syserr   I      System error code                              */
   51:/*     ierr     I      Error return code: 0 => no error               */
   52:/*                        2 => old file not found                     */
   53:/*                        3 => device not found                       */
   54:/*                        4 => old file busy                          */
   55:/*                        6 => new name already exists                */
   56:/*                        7 => other                                  */
   57:/*  Generic UNIX version.                                             */
   58:/*--------------------------------------------------------------------*/
   59:{
   60:   register int i, j;
   61:   int llen, xlen, xlnb, jerr, lockfd = -99, excl = 1;
   62:   char oldpathname[MAXAPATH], newpathname[MAXAPATH];
   63:/*--------------------------------------------------------------------*/
   64:   *ierr = 0;
   65:   *syserr = 0;
   66:                                        /* Build full old path name.  */
   67:   llen = MAXPNAME;
   68:   xlen = MAXAPATH;
   69:   zpath_ (&llen, oldnam, &xlen, oldpathname, &xlnb, &jerr);
   70:   if (jerr != 0) {
   71:      *ierr = 3;
   72:      }
   73:   else {
   74:      oldpathname[xlnb] = '\0';
   75:      if ((lockfd = open (oldpathname, 2)) == -1) {
   76:                                        /* Old path name doesn't exist*/
   77:         if (errno == ENOENT)
   78:            *ierr = 2;
   79:                                        /* Some other open error.     */
   80:         else {
   81:           *syserr = errno;
   82:            *ierr = 7;
   83:            }
   84:         }
   85:                                        /* Apply non-blocking         */
   86:                                        /* exclusive lock to old      */
   87:                                        /* pathname.                  */
   88:      else {
   89:         zlock_ (&lockfd, oldnam, &excl, syserr, ierr);
   90:         if (*ierr != 0) {
   91:            if (*ierr != 4) *ierr = 7;
   92:            }
   93:                                        /* Build new full path name   */
   94:         else {
   95:            llen = MAXPNAME;
   96:            xlen = MAXAPATH;
   97:            zpath_ (&llen, newnam, &xlen, newpathname, &xlnb, &jerr);
   98:            if (jerr != 0) {
   99:               *ierr = 3;
  100:               }
  101:            else {
  102:               newpathname[xlnb] = '\0';
  103:                                        /* Test path name existence.  */
  104:               if (access (newpathname, 0) == 0) {
  105:                  *ierr = 6;
  106:                  }
  107:                                        /* Rename by forming link of  */
  108:                                        /* new to old path name, then */
  109:                                        /* unlink old path name.      */
  110:               else {
  111:                  if (link (oldpathname, newpathname) != 0) {
  112:                    *syserr = errno;
  113:                     *ierr = 7;
  114:                     }
  115:                  else if (unlink (oldpathname) != 0) {
  116:                    *syserr = errno;
  117:                     *ierr = 7;
  118:                     }
  119:                  }
  120:               }
  121:            }
  122:                                        /* Close and unlock file.     */
  123:         close (lockfd);
  124:         }
  125:      }
  127:   return;
  128:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZRENA2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:05:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZRENAM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRENAM.f
FC        : Date       Fri Jul 18 17:05:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRENAM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRENAM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRENAM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZRENAM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZRENAM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZRENAM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZRENAM.FOR
COMRPL    : Date       Fri Jul 18 17:05:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZRHPRL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRHPRL.f
FC        : Date       Fri Jul 18 17:05:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRHPRL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRHPRL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRHPRL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZRHPRL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZRHPRL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZRHPRL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZRHPRL.FOR
COMRPL    : Date       Fri Jul 18 17:05:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZRLR32.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRLR32.f
FC        : Date       Fri Jul 18 17:05:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRLR32.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRLR32.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRLR32.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZRLR32.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZRLR32.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZRLR32.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZRLR32.FOR
COMRPL    : Date       Fri Jul 18 17:05:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZRLR64.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRLR64.f
FC        : Date       Fri Jul 18 17:05:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRLR64.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRLR64.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRLR64.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZRLR64.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZRLR64.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZRLR64.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZRLR64.FOR
COMRPL    : Date       Fri Jul 18 17:05:34 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRM2RL.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZRM2RL.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRM2RL.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
AIPSCC    : Date       Fri Jul 18 17:05:34 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
/usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_rm2rl__
    2:#include <stdio.h>
    3:#include <stdlib.h>
    4:#include <AIPSPROTO.H>
    6:#if __STDC__
    7:   void zrm2rl_(int *nwords, float *inbuf, float *outbuf)
    8:#else
    9:   void zrm2rl_(nwords, inbuf, outbuf)
   10:   int *nwords;
   11:   float *inbuf, *outbuf;
   12:#endif
   13:/*--------------------------------------------------------------------*/
   14:/*! convert ModComp single precision floating to local                */
   15:/*# Binary                                                            */
   16:/*--------------------------------------------------------------------*/
   17:/*;  Copyright (C) 1995, 1997                                         */
   18:/*;  Associated Universities, Inc. Washington DC, USA.                */
   19:/*;                                                                   */
   20:/*;  This program is free software; you can redistribute it and/or    */
   21:/*;  modify it under the terms of the GNU General Public License as   */
   22:/*;  published by the Free Software Foundation; either version 2 of   */
   23:/*;  the License, or (at your option) any later version.              */
   24:/*;                                                                   */
   25:/*;  This program is distributed in the hope that it will be useful,  */
   26:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   27:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   28:/*;  GNU General Public License for more details.                     */
   29:/*;                                                                   */
   30:/*;  You should have received a copy of the GNU General Public        */
   31:/*;  License along with this program; if not, write to the Free       */
   32:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   33:/*;  MA 02139, USA.                                                   */
   34:/*;                                                                   */
   35:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   36:/*;         Internet email: aipsmail at nrao.edu.                        */
   37:/*;         Postal address: AIPS Project Office                       */
   38:/*;                         National Radio Astronomy Observatory      */
   39:/*;                         520 Edgemont Road                         */
   40:/*;                         Charlottesville, VA 22903-2475 USA        */
   41:/*--------------------------------------------------------------------*/
   42:/*  Convert Modcomp single precision floating point data into local   */
   43:/*  single precision floating point.                                  */
   44:/*  Inputs:                                                           */
   45:/*     nwords   I   Length of the input buffer in words               */
   46:/*     inbuf    R   Input buffer containing Modcomp R*4 data          */
   47:/*  Output:                                                           */
   48:/*     outbuf   R   Output buffer containing local REAL data          */
   49:/*                                                                    */
   50:/*  Notes:                                                            */
   51:/*                                                                    */
   52:/*     Before call, input buffer should have its bytes flipped via    */
   53:/*     ZI32IL which will leave the values in one 32-bit integer       */
   54:/*                                                                    */
   55:/*     Expects, after word flip, sign bit in bit 31 (1=>negative),    */
   56:/*     bits 22:30 are the  exponent biased by 256(?), bits 0:21 are   */
   57:/*     the normalized fraction.  Negative values are obtained by 2's  */
   58:/*     complement of the whole word.                                  */
   59:/*                                                                    */
   60:/*     Should work inplace.                                           */
   61:/*                                                                    */
   62:/*  Generic UNIX version (currently only handles IEEE and VAX F       */
   63:/*  floating-point formats).                                          */
   64:/*--------------------------------------------------------------------*/
   65:{
   66:                                        /* Host single precision      */
   67:                                        /* floating-point format      */
   68:   extern int Z_spfrmt, Z_bytflp;
   69:   float *pin, *pout;
   70:   int test, n10 = 10;
   71:   unsigned sign, exponent, mantissa, temp;
   72:   register int i;
   73:   short int sitemp;
   74:   char msgbuf[80];
   75:   union u_tag {
   76:      float r4;
   77:      unsigned u4;
   78:      short int u2[2];
   79:   } what;
   80:/*--------------------------------------------------------------------*/
   81:                                        /* routine works IEEE, VAX F  */
   82:   if (Z_spfrmt == 1 || Z_spfrmt == 2) {
   83:      pin = inbuf;
   84:      pout = outbuf;
   85:                                        /* Conversion loop.           */
   86:      for (i = 0; i < *nwords; i++) {
   87:                                        /* Get Modcomp value.         */
   88:         what.r4 = *pin++;
   89:                                        /* swap words if needed       */
   90:         if (Z_bytflp > 1) {
   91:            sitemp = what.u2[0];
   92:            what.u2[0] = what.u2[1];
   93:            what.u2[1] = sitemp;
   94:            }
   95:                                        /* Get as unsigned int.       */
   96:         temp = what.u4;
   97:                                        /* Mask out sign bit.         */
   98:         sign = 0x80000000 & temp;
   99:                                        /* If negative, 2's           */
  100:                                        /* complement the whole word. */
  101:         if (sign == 0x80000000) temp = (~temp) + 1;
  102:                                        /* Correct for exponent bias. */
  103:         switch (Z_spfrmt) {
  104:                                        /* IEEE (bias = -130?).       */
  105:            case 1:
  106:               test = ((0x7fc00000 & temp) >> 22) - 130;
  107:               break;
  108:                                        /* VAX F (bias = -128).       */
  109:            case 2:
  110:               test = ((0x7fc00000 & temp) >> 22) - 128;
  111:               break;
  112:            }
  114:         exponent = test << 23;
  115:         mantissa = (0x001fffff & temp) << 2;
  116:         what.u4 = sign | exponent | mantissa;
  117:                                        /* Overflow.                  */
  118:         if (test > 255)
  119:            what.u4 = ~0x0;
  120:                                        /* Underflow.                 */
  121:         else if (test < 1)
  122:            what.u4 = 0;
  123:                                        /* Store result.              */
  124:         *pout++ = what.r4;
  125:         }
  126:      }
  127:                                        /* This routine won't work.   */
  128:   else {
  129:      sprintf (msgbuf,
  130:         "ZRM2RL: THIS ROUTINE REQUIRES LOCAL DEVELOPMENT");
  131:      zmsgwr_ (msgbuf, &n10);
  132:      abort ();
  133:      }
  135:   return;
  136:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZRM2RL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:05:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZRMTAP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRMTAP.f
FC        : Date       Fri Jul 18 17:05:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRMTAP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRMTAP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRMTAP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZRMTAP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZRMTAP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZRMTAP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZRMTAP.FOR
COMRPL    : Date       Fri Jul 18 17:05:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZROPEN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZROPEN.f
FC        : Date       Fri Jul 18 17:05:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZROPEN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZROPEN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZROPEN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZROPEN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZROPEN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZROPEN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZROPEN.FOR
COMRPL    : Date       Fri Jul 18 17:05:37 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZROPN2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZROPN2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZROPN2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZROPN2.c
AIPSCC    : Date       Fri Jul 18 17:05:37 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZROPN2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZROPN2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZROPN2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZROPN2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZROPN2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZROPN2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZROPN2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZROPN2.FOR
COMRPL    : Date       Fri Jul 18 17:05:37 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRRD2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZRRD2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRRD2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRRD2.c
AIPSCC    : Date       Fri Jul 18 17:05:38 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRRD2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRRD2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRRD2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZRRD2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZRRD2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZRRD2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZRRD2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZRRD2.FOR
COMRPL    : Date       Fri Jul 18 17:05:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZRREAD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRREAD.f
FC        : Date       Fri Jul 18 17:05:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRREAD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRREAD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRREAD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZRREAD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZRREAD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZRREAD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZRREAD.FOR
COMRPL    : Date       Fri Jul 18 17:05:39 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRWR2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZRWR2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRWR2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRWR2.c
AIPSCC    : Date       Fri Jul 18 17:05:39 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRWR2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRWR2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRWR2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZRWR2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZRWR2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZRWR2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZRWR2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZRWR2.FOR
COMRPL    : Date       Fri Jul 18 17:05:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZRWRIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRWRIT.f
FC        : Date       Fri Jul 18 17:05:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRWRIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRWRIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRWRIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZRWRIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZRWRIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZRWRIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZRWRIT.FOR
COMRPL    : Date       Fri Jul 18 17:05:40 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRXDW2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZRXDW2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRXDW2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRXDW2.c
AIPSCC    : Date       Fri Jul 18 17:05:41 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRXDW2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRXDW2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRXDW2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZRXDW2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZRXDW2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZRXDW2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZRXDW2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZRXDW2.FOR
COMRPL    : Date       Fri Jul 18 17:05:41 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZRXDWR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRXDWR.f
FC        : Date       Fri Jul 18 17:05:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRXDWR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZRXDWR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRXDWR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZRXDWR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZRXDWR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZRXDWR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZRXDWR.FOR
COMRPL    : Date       Fri Jul 18 17:05:42 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSACPT.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSACPT.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSACPT.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSACPT.c
AIPSCC    : Date       Fri Jul 18 17:05:42 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSACPT.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSACPT.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSACPT.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZSACPT.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSACPT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSACPT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSACPT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSACPT.FOR
COMRPL    : Date       Fri Jul 18 17:05:42 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSBIND.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSBIND.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSBIND.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSBIND.c
AIPSCC    : Date       Fri Jul 18 17:05:43 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSBIND.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSBIND.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSBIND.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZSBIND.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSBIND.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSBIND.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSBIND.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSBIND.FOR
COMRPL    : Date       Fri Jul 18 17:05:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZSCHAR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSCHAR.f
FC        : Date       Fri Jul 18 17:05:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSCHAR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSCHAR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSCHAR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSCHAR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSCHAR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSCHAR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSCHAR.FOR
COMRPL    : Date       Fri Jul 18 17:05:44 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSCLOS.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSCLOS.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSCLOS.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSCLOS.c
AIPSCC    : Date       Fri Jul 18 17:05:44 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSCLOS.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSCLOS.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSCLOS.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZSCLOS.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSCLOS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSCLOS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSCLOS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSCLOS.FOR
COMRPL    : Date       Fri Jul 18 17:05:45 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSCONN.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSCONN.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSCONN.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSCONN.c
AIPSCC    : Date       Fri Jul 18 17:05:45 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSCONN.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSCONN.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSCONN.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZSCONN.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSCONN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSCONN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSCONN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSCONN.FOR
COMRPL    : Date       Fri Jul 18 17:05:45 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSCREA.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSCREA.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSCREA.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSCREA.c
AIPSCC    : Date       Fri Jul 18 17:05:46 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSCREA.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSCREA.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSCREA.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZSCREA.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSCREA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSCREA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSCREA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSCREA.FOR
COMRPL    : Date       Fri Jul 18 17:05:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZSETUP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSETUP.f
FC        : Date       Fri Jul 18 17:05:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSETUP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSETUP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSETUP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSETUP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSETUP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSETUP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSETUP.FOR
COMRPL    : Date       Fri Jul 18 17:05:47 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSLISN.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSLISN.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSLISN.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSLISN.c
AIPSCC    : Date       Fri Jul 18 17:05:47 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSLISN.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSLISN.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSLISN.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZSLISN.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSLISN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSLISN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSLISN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSLISN.FOR
COMRPL    : Date       Fri Jul 18 17:05:47 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSREAD.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSREAD.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSREAD.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSREAD.c
AIPSCC    : Date       Fri Jul 18 17:05:48 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSREAD.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSREAD.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSREAD.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZSREAD.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSREAD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSREAD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSREAD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSREAD.FOR
COMRPL    : Date       Fri Jul 18 17:05:48 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSC2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSSSC2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSC2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSSSC2.c
AIPSCC    : Date       Fri Jul 18 17:05:48 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSC2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSC2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSSSC2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZSSSC2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSSSC2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSSSC2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSSSC2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSSSC2.FOR
COMRPL    : Date       Fri Jul 18 17:05:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZSSSCL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSSSCL.f
FC        : Date       Fri Jul 18 17:05:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSCL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSCL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSSSCL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSSSCL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSSSCL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSSSCL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSSSCL.FOR
COMRPL    : Date       Fri Jul 18 17:05:50 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSL2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSSSL2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSL2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
AIPSCC    : Date       Fri Jul 18 17:05:50 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c:16:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_sssl2__
    2:#include <unistd.h>
    3:#include <stdlib.h>
    4:#include <stdio.h>
    5:#include <string.h>
    7:#include <errno.h>
    8:#include <sys/types.h>
    9:#include <sys/socket.h>
   10:#include <sys/un.h>
   11:#include <netinet/in.h>
   12:#include <netdb.h>
   13:#include <sys/stat.h>
   14:#include <string.h>
   15:#include <ctype.h>
   16:#include <AIPSPROTO.H>
   18:int TVLremember=0;
   19:struct sockaddr_un TVL_sock_un;
   20:struct sockaddr_in TVL_sock_in;
   22:#if __STDC__
   23:   void zsssl2_ (int *fcb, char pname[48], int *lock, int *ierr)
   24:#else
   25:   void zsssl2_ (fcb, pname, lock, ierr)
   26:   int *fcb, *lock, *ierr;
   27:   char pname[48];
   28:#endif
   29:/*--------------------------------------------------------------------*/
   30:/*! Lock/unlock SUN-Screen-Server device                              */
   31:/*# TV-IO                                                             */
   32:/*--------------------------------------------------------------------*/
   33:/*;  Copyright (C) 1997, 1999                                         */
   34:/*;  Associated Universities, Inc. Washington DC, USA.                */
   35:/*;  Eric W. Greisen                                                  */
   36:/*;                                                                   */
   37:/*;  This program is free software; you can redistribute it and/or    */
   38:/*;  modify it under the terms of the GNU General Public License as   */
   39:/*;  published by the Free Software Foundation; either version 2 of   */
   40:/*;  the License, or (at your option) any later version.              */
   41:/*;                                                                   */
   42:/*;  This program is distributed in the hope that it will be useful,  */
   43:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   44:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   45:/*;  GNU General Public License for more details.                     */
   46:/*;                                                                   */
   47:/*;  You should have received a copy of the GNU General Public        */
   48:/*;  License along with this program; if not, write to the Free       */
   49:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   50:/*;  MA 02139, USA.                                                   */
   51:/*;                                                                   */
   52:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   53:/*;         Internet email: aipsmail at nrao.edu.                        */
   54:/*;         Postal address: AIPS Project Office                       */
   55:/*;                         National Radio Astronomy Observatory      */
   56:/*;                         520 Edgemont Road                         */
   57:/*;                         Charlottesville, VA 22903-2475 USA        */
   58:/*--------------------------------------------------------------------*/
   59:/*  Assign an i/o channel for TVlock device, send lock/unlock command */
   60:/*  and then deassign the channel.  Uses BSD sockets                  */
   61:/*  Inputs:                                                           */
   62:/*     pname  C*48  'logical' name of TV device. Contains a pathname  */
   63:/*                  for Unix domain sockets or a name of the form     */
   64:/*                  sssin:machine_name for Internet domain sockets.   */
   65:/*                  Must begin with the string "TVDEV".               */
   66:/*  Outputs:                                                          */
   67:/*     fcb    I(*)  File descriptor (part of FTAB).                   */
   68:/*     ierr   I     Error code: 0 => success                          */
   69:/*                     1 => failure                                   */
   70:/*                     2 => invalid device name                       */
   71:/*                     3 => I/O error                                 */
   72:/*                     4 => Locked by someone else                    */
   73:/*  SUN - Berkeley 4.2 UNIX version.                                  */
   74:/*--------------------------------------------------------------------*/
   75:{
   76:                                        /* Offsets to entries in the  */
   77:                                        /* file control blocks        */
   78:   extern int Z_fcbfd, Z_fcberr;
   80:   char *device, shvar[10], data[3];
   81:   int i, optlen, mbytes, lbytes, s, isspec;
   82:   char *machine_in;
   83:   struct servent *sp;
   84:   struct hostent *hp;
   85:/*--------------------------------------------------------------------*/
   86:   *ierr = 0;
   87:   errno = 0;
   88:                                        /* Extract logical device name*/
   89:   for (i=0; i < 10 && pname[i] != ':' && pname[i] != '\0'; i++)
   90:      shvar[i] = pname[i];
   91:   shvar[i] = '\0';
   92:                                        /* Value for TVDEVn/TVLCKn    */
   93:   if (TVLremember == 0) {
   94:      if (strncmp(shvar,"TVDEV",5) == 0) {
   95:                                        /* definition                 */
   96:         if ((device = getenv(shvar)) == NULL) {
   97:            fprintf(stderr, "ZSSSL2: NO SUCH DEVICE = %s\n",shvar);
   98:            *ierr = 2;
   99:            }
  100:         }
  101:      else {
  102:         fprintf(stderr, "ZSSSL2: NO SUCH DEVICE = %s\n",shvar);
  103:         *ierr = 2;
  104:         }
  105:      }
  106:   if (*ierr == 0) {
  107:      if (TVLremember == 0) {
  108:         isspec = 2;
  109:         if (strncmp(device,"sssin",5) == 0) isspec = 1;
  110:                                        /* open socket, INET domain   */
  111:         if (isspec == 1) {
  112:           if ((machine_in = strchr (device,':')) == NULL) {
  113:              fprintf(stderr,
  114:                "ZSSSL2: NO REMOTE MACHINE SPECIFIED IN %s\n",shvar);
  115:               *ierr = 2;
  116:               goto exit;
  117:               }
  118:            else {
  119:               machine_in++;
  120:                                        /* malformed names go here    */
  121:               if (!isalnum(*machine_in)) {
  122:                  fprintf(stderr, "ZSSSL2: MALFORMED NAME = %s\n",
  123:                     machine_in);
  124:                  *ierr = 2;
  125:                  }
  126:               else if ((hp = gethostbyname(machine_in)) == NULL) {
  127:                  fprintf(stderr,"ZSSSL2: %s: UNKNOWN HOST\n",
  128:                     machine_in);
  129:                  *ierr = 2;
  130:                  }
  131:               else if ((sp = getservbyname("ssslock","tcp")) == NULL) {
  132:                  fprintf(stderr,"ZSSSL2: tcp/ssslock NOT A SERVICE\n");
  133:                  *ierr = 2;
  134:                  }
  135:               else {
  136:                  memset ((char *)&TVL_sock_in, 0, sizeof(TVL_sock_in));
  137:                  memcpy ((char *)&TVL_sock_in.sin_addr,
  138:                     (char *)hp->h_addr, hp->h_length);
  139:                  TVL_sock_in.sin_family = hp->h_addrtype;
  140:                  TVL_sock_in.sin_port = sp->s_port;
  141:                  }
  142:               }
  143:            }
  144:                                        /* UNIX domain   */
  145:         else {
  146:            if ((device = getenv(getenv("TVLOK"))) == NULL) {
  147:                                        /* undefined                  */
  148:               fprintf(stderr, "ZSSSL2: NO SUCH DEVICE = TVLOK\n");
  149:               *ierr = 2;
  150:               }
  151:            TVL_sock_un.sun_family = AF_UNIX;
  152:            strcpy(TVL_sock_un.sun_path, device);
  153:            }
  154:         TVLremember = isspec;
  155:         }
  156:      }
  157:                                        /* open socket                */
  158:   if (*ierr == 0) {
  159:                                        /* INET domain                */
  160:      if (TVLremember == 1) {
  161:         if ((s = (int)socket(TVL_sock_in.sin_family, SOCK_STREAM, 0))
  162:            < 0) {
  163:            perror("ZSSSL2 socket (INET)");
  164:            *ierr = 1;
  165:             }
  166:         else if (connect(s, (struct sockaddr *) &TVL_sock_in,
  167:            sizeof(TVL_sock_in)) < 0){
  168:            perror("ZSSSL2 connect (INET)");
  169:            *ierr = 1;
  170:            *(fcb + Z_fcberr) = errno;
  171:            close (s);
  172:            *(fcb + Z_fcbfd) = 0;
  173:            }
  174:         else {
  175:            *(fcb + Z_fcbfd) = s;
  176:            *(fcb + Z_fcberr) = 0;
  177:            }
  178:         }
  179:                                        /* UNIX domain                */
  180:      else {
  181:         if ((s = (int)socket(AF_UNIX, SOCK_STREAM, 0)) < 0) {
  182:            perror("ZSSSL2 socket (UNIX)");
  183:            *ierr = 1;
  184:            }
  185:         else if (connect((s), (struct sockaddr *) &TVL_sock_un,
  186:            (sizeof(TVL_sock_un.sun_path)
  187:            +sizeof(TVL_sock_un.sun_family))) < 0) {
  188:            perror("ZSSSL2 connect (UNIX)");
  189:            *ierr = 1;
  190:            *(fcb + Z_fcberr) = errno;
  191:            close(s);
  192:            *(fcb + Z_fcbfd) = 0;
  193:            }
  194:         else {
  195:            *(fcb + Z_fcbfd) = s;
  196:            *(fcb + Z_fcberr) = 0;
  197:            }
  198:         }
  199:      }
  200:                                        /* send data                  */
  201:   if (*ierr == 0) {
  202:      data[0] = '1';
  203:      if (*lock > 0)
  204:         data[1] = 'L';
  205:      else
  206:         data[1] = 'U';
  207:      data[2] = '\0';
  209:      lbytes = 2;
  210:      if ((mbytes = write (s, data, lbytes)) != lbytes) {
  211:         perror("ZSSSL2 write data");
  212:         *ierr = 3;
  213:         *(fcb + Z_fcberr) = errno;
  214:         }
  215:                                        /* answer                     */
  216:      else if ((mbytes = read (s, data, lbytes)) != lbytes) {
  217:         perror("ZSSSL2 read answer");
  218:         *ierr = 3;
  219:         *(fcb + Z_fcberr) = errno;
  220:         }
  221:      if ((*lock > 0) && (data[0] == 'N')) *ierr = 4;
  222:      if (close(s) != 0) {
  223:         perror("ZSSSL2 close socket");
  224:         *ierr = 3;
  225:         *(fcb + Z_fcberr) = errno;
  226:         }
  227:      }
  228:                                        /* system error in FTAB      */
  229:exit:
  230:   if (*ierr != 0) TVLremember = 0;
  232:   return;
  233:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZSSSL2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:05:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZSSSLK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSSSLK.f
FC        : Date       Fri Jul 18 17:05:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSLK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSLK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSSSLK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSSSLK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSSSLK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSSSLK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSSSLK.FOR
COMRPL    : Date       Fri Jul 18 17:05:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZSSSMC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSSSMC.f
FC        : Date       Fri Jul 18 17:05:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSMC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSMC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSSSMC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSSSMC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSSSMC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSSSMC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSSSMC.FOR
COMRPL    : Date       Fri Jul 18 17:05:52 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSO2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSSSO2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSO2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
AIPSCC    : Date       Fri Jul 18 17:05:52 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c:16:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ssso2__
    2:#include <unistd.h>
    3:#include <stdlib.h>
    4:#include <stdio.h>
    5:#include <string.h>
    7:#include <errno.h>
    8:#include <sys/types.h>
    9:#include <sys/socket.h>
   10:#include <sys/un.h>
   11:#include <netinet/in.h>
   12:#include <netdb.h>
   13:#include <sys/stat.h>
   14:#include <string.h>
   15:#include <ctype.h>
   16:#include <AIPSPROTO.H>
   18:   int Z_sndbufs, Z_rcvbufs, Z_sndinis, Z_rcvinis;
   20:int SSSremember=0;
   21:struct sockaddr_un SSS_sock_un;
   22:struct sockaddr_in SSS_sock_in;
   24:int buffered;
   25:#define PACKSIZE (4096/sizeof(short int)+6)
   26:   short int packet_int[PACKSIZE];
   27:   int pack_offset;
   28:#define TRUE 1
   30:#define NUMOP 83       /* Largest opcode                              */
   31:int bufferop[NUMOP+1]; /* bufferop[OPCODE] >0 --> no status return    */
   32:                       /* if buffered                                 */
   33:#define OPEN    11     /* Opens the XAS connection                    */
   34:#define CLOSE   12     /* Close the XAS, allows new connections       */
   35:#define INTGT   13     /* Interrogate: get XAS major parameters       */
   36:#define WINDO   14     /* Read, write the X window size               */
   37:#define INIT    15     /* init the TV                                 */
   38:#define VIEW    16     /* Do/hold screen updates                      */
   39:#define PSAVE   17     /* save DTVC.INC parameters                    */
   40:#define XDIE    18     /* close down XAS and lock servers             */
   41:#define IMWRT   21     /* Write image line to some channel            */
   42:#define IMRD    22     /* Read image line from some channel           */
   43:#define FILL    23     /* fill area in some or all channels           */
   44:#define CLEAR   24     /* Clear some or all channels                  */
   45:#define VECT    25     /* connect two points with line                */
   46:#define CHARS   26     /* write character string                      */
   47:#define CATIN   31     /* Init image catalog                          */
   48:#define CATRD   32     /* Read image catalog                          */
   49:#define CATWR   33     /* Write image catalog                         */
   50:#define CATOV   34     /* Use image catalog - covered?                */
   51:#define CATFI   35     /* Find from image catalog                     */
   52:#define WLUT    41     /* Write LUT to a channel.                     */
   53:#define RLUT    42     /* Read LUT to a channel.                      */
   54:#define WOFM    43     /* Write OFM.                                  */
   55:#define ROFM    44     /* Read OFM.                                   */
   56:#define GRAPH   45     /* On/off graphics channel(s)                  */
   57:#define SPLOT   46     /* On/off image channels(s) - obsolete         */
   58:#define SPLIT   47     /* On/off image channels(s)                    */
   59:#define WGRFX   51     /* Write graphics/cursor colours               */
   60:#define RGRFX   52     /* Read  graphics/cursor colours               */
   61:#define RCURS   61     /* Read the cursor position.                   */
   62:#define RBUTT   62     /* Read the status of the buttons              */
   63:#define WCURS   63     /* Write the cursor position.                  */
   64:#define RCURB   64     /* Read the cursor position and buttons        */
   65:#define WZSCR   83     /* Write zoom/scroll to XAS using ULC          */
   67:#if __STDC__
   68:   void zssso2_ (int *fcb, char pname[48], int *ierr)
   69:#else
   70:   void zssso2_ (fcb, pname, ierr)
   71:   int *fcb, *ierr;
   72:   char pname[48];
   73:#endif
   74:/*--------------------------------------------------------------------*/
   75:/*! Open SUN-Screen-Server device, set-up any buffer                  */
   76:/*# TV-IO                                                             */
   77:/*--------------------------------------------------------------------*/
   78:/*;  Copyright (C) 1995-1999                                          */
   79:/*;  Associated Universities, Inc. Washington DC, USA.                */
   80:/*;                                                                   */
   81:/*;  This program is free software; you can redistribute it and/or    */
   82:/*;  modify it under the terms of the GNU General Public License as   */
   83:/*;  published by the Free Software Foundation; either version 2 of   */
   84:/*;  the License, or (at your option) any later version.              */
   85:/*;                                                                   */
   86:/*;  This program is distributed in the hope that it will be useful,  */
   87:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   88:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   89:/*;  GNU General Public License for more details.                     */
   90:/*;                                                                   */
   91:/*;  You should have received a copy of the GNU General Public        */
   92:/*;  License along with this program; if not, write to the Free       */
   93:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   94:/*;  MA 02139, USA.                                                   */
   95:/*;                                                                   */
   96:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   97:/*;         Internet email: aipsmail at nrao.edu.                        */
   98:/*;         Postal address: AIPS Project Office                       */
   99:/*;                         National Radio Astronomy Observatory      */
  100:/*;                         520 Edgemont Road                         */
  101:/*;                         Charlottesville, VA 22903-2475 USA        */
  102:/*--------------------------------------------------------------------*/
  103:/*  Assign an i/o channel (i.e., open) for SSS TV device.  Uses BSD   */
  104:/*  internet or UNIX sockets                                          */
  105:/*  Inputs:                                                           */
  106:/*     pname  C*48  'logical' name of TV device. Contains a pathname  */
  107:/*                  for Unix domain sockets or a name of the form     */
  108:/*                  sssin:machine_name for Internet domain sockets.   */
  109:/*                  Must begin with the string "TVDEV".               */
  110:/*  Outputs:                                                          */
  111:/*     fcb    I(*)  File descriptor (part of FTAB).                   */
  112:/*     ierr   I     Error code: 0 => success                          */
  113:/*                     1 => failure                                   */
  114:/*                     2 => invalid device name                       */
  115:/*  SUN - Berkeley 4.2 UNIX version.                                  */
  116:/*--------------------------------------------------------------------*/
  117:{
  118:                                        /* Offsets to entries in the  */
  119:                                        /* file control blocks        */
  120:   extern int Z_fcbfd, Z_fcberr;
  122:   char *device, shvar[10];
  123:   int i, optlen, s, isspec;
  124:   char *machine_in;
  125:   struct servent *sp;
  126:   struct hostent *hp;
  127:/*--------------------------------------------------------------------*/
  128:   *ierr = 0;
  129:   errno = 0;
  130:   buffered = 0;
  131:   pack_offset = 0;
  132:                                        /* Extract logical device name*/
  133:   for (i=0; i < 10 && pname[i] != ':' && pname[i] != '\0'; i++)
  134:      shvar[i] = pname[i];
  135:   shvar[i] = '\0';
  136:                                        /* Get value for TVDEVn       */
  137:   if (SSSremember == 0) {
  138:      if (strncmp(shvar,"TVDEV",5) == 0) {
  139:         if ((device = getenv(shvar)) == NULL) {
  140:                                        /* undefined                  */
  141:            fprintf(stderr, "ZSSSO2: NO SUCH DEVICE = %s\n",shvar);
  142:            *ierr = 2;
  143:            }
  144:         }
  145:      else {
  146:         fprintf(stderr, "ZSSSO2: NO SUCH DEVICE = %s\n",shvar);
  147:         *ierr = 2;
  148:         }
  149:      }
  150:   if (*ierr == 0) {
  151:      if (SSSremember == 0) {
  152:         isspec = 2;
  153:         if (strncmp(device,"sssin",5) == 0) isspec = 1;
  154:                                        /* open socket, INET domain   */
  155:                                        /* open socket, INET domain   */
  156:         if (strncmp(device,"sssinb",6) == 0) buffered = 1;
  157:         if (isspec == 1) {
  158:            if (( machine_in = strchr (device,':')) == NULL) {
  159:               fprintf(stderr,
  160:                  "ZSSSO2: NO REMOTE MACHINE SPECIFIED IN %s\n", shvar);
  161:               *ierr = 2;
  162:               }
  163:            else {
  164:               machine_in++;
  165:                                        /* malformed names go here    */
  166:               if (!isalnum(*machine_in)) {
  167:                  fprintf(stderr, "ZSSSO2: MALFORMED NAME = %s\n",
  168:                     machine_in);
  169:                  *ierr = 2;
  170:                  }
  171:               else if ((sp = getservbyname("sssin","tcp")) == NULL) {
  172:                  fprintf(stderr,"ZSSSO2: tcp/sssin NOT A SERVICE\n");
  173:                  *ierr = 2;
  174:                  }
  175:               else if (( hp = gethostbyname(machine_in)) == NULL) {
  176:                  fprintf(stderr,"ZSSSO2: %s: UNKNOWN HOST\n",
  177:                     machine_in);
  178:                  *ierr = 2;
  179:                  }
  180:               else {
  181:                  memset ((char *)&SSS_sock_in, 0, sizeof(SSS_sock_in));
  182:                  memcpy ((char *)&SSS_sock_in.sin_addr,
  183:                     (char *)hp->h_addr, hp->h_length);
  184:                  SSS_sock_in.sin_family = hp->h_addrtype;
  185:                  SSS_sock_in.sin_port = sp->s_port;
  186:                  }
  187:               }
  188:            }
  189:                                        /* UNIX domain   */
  190:         else {
  191:            SSS_sock_un.sun_family = AF_UNIX;
  192:            strcpy(SSS_sock_un.sun_path, device);
  193:            }
  194:         SSSremember = isspec;
  195:         }
  196:      }
  197:                                        /* open socket                */
  198:   if (*ierr == 0) {
  199:                                        /* INET domain                */
  200:      if (SSSremember == 1) {
  201:         if ((s = (int)socket(AF_INET, SOCK_STREAM, 0)) < 0) {
  202:            perror("ZSSSO2 socket (INET)");
  203:            *ierr = 1;
  204:            }
  205:         else if (connect(s, (struct sockaddr *) &SSS_sock_in,
  206:            sizeof(SSS_sock_in)) < 0){
  207:            perror("ZSSSO2 connect (INET)");
  208:            *ierr = 1;
  209:            *(fcb + Z_fcberr) = errno;
  210:            close (s);
  211:            *(fcb + Z_fcbfd) = 0;
  212:            }
  213:         else {
  214:            *(fcb + Z_fcbfd) = s;
  215:            *(fcb + Z_fcberr) = 0;
  216:            }
  217:         }
  218:                                        /* UNIX domain                */
  219:      else {
  220:         if ((s = (int)socket(AF_UNIX, SOCK_STREAM, 0)) < 0) {
  221:            perror("ZSSSO2 socket (UNIX)");
  222:            *ierr = 1;
  223:            }
  224:         else if (connect(s, (struct sockaddr *) &SSS_sock_un,
  225:            (sizeof(SSS_sock_un.sun_path)
  226:            +sizeof(SSS_sock_un.sun_family))) < 0) {
  227:            perror("ZSSSO2 connect (UNIX)");
  228:            *ierr = 1;
  229:            *(fcb + Z_fcberr) = errno;
  230:            close(s);
  231:            *(fcb + Z_fcbfd) = 0;
  232:            }
  233:         else {
  234:            *(fcb + Z_fcbfd) = s;
  235:            *(fcb + Z_fcberr) = 0;
  236:            }
  237:         }
  238:      }
  239:                                        /* send data                  */
  240:   if (*ierr == 0) {
  241:      optlen = sizeof (Z_sndbufs);
  242:      if (getsockopt (*fcb, SOL_SOCKET, SO_SNDBUF, (char *) &Z_sndbufs,
  243:         &optlen) < 0) {
  244:         perror("ZSSSO2 SO_SNDBUF get");
  245:         Z_sndbufs = 4096;
  246:         }
  247:      optlen = sizeof (Z_rcvbufs);
  248:      if (getsockopt (*fcb, SOL_SOCKET, SO_RCVBUF, (char *) &Z_rcvbufs,
  249:         &optlen) < 0) {
  250:         perror("ZSSSO2 SO_RCVBUF get");
  251:         Z_rcvbufs = 4096;
  252:         }
  253:      Z_sndinis = Z_sndbufs;
  254:      Z_rcvinis = Z_rcvbufs;
  255:   }
  256:                                        /* system error in FTAB      */
  257:exit:
  258:   if (*ierr != 0) SSSremember = 0;
  259:   if (!buffered) {
  260:      for (i=0; i<(NUMOP+1); i++) bufferop[i]=0;
  261:      }
  262:   else {
  263:      for (i=0; i<(NUMOP+1); i++) bufferop[i]=0;
  264:      bufferop[INIT]=TRUE;
  265:      bufferop[FILL]=TRUE;
  266:      bufferop[CLEAR]=TRUE;
  267:      bufferop[VECT]=TRUE;
  268:      bufferop[PSAVE]=TRUE;
  269:      bufferop[CHARS]=TRUE;
  270:      bufferop[VIEW]=TRUE;
  271:      bufferop[IMWRT]=TRUE;
  272:      bufferop[WLUT]=TRUE;
  273:      bufferop[WOFM]=TRUE;
  274:      bufferop[WCURS]=TRUE;
  275:      bufferop[GRAPH]=TRUE;
  276:      bufferop[SPLOT]=TRUE;
  277:      bufferop[SPLIT]=TRUE;
  278:      bufferop[WGRFX]=TRUE;
  279:      bufferop[WZSCR]=TRUE;
  280:      bufferop[CATIN]=TRUE;
  281:      bufferop[CATWR]=TRUE;
  282:      }
  284:   return;
  285:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZSSSO2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:05:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZSSSOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSSSOP.f
FC        : Date       Fri Jul 18 17:05:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSSSOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSSSOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSSSOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSSSOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSSSOP.FOR
COMRPL    : Date       Fri Jul 18 17:05:54 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSX2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSSSX2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSX2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSSSX2.c
AIPSCC    : Date       Fri Jul 18 17:05:54 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSX2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSX2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSSSX2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZSSSX2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSSSX2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSSSX2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSSSX2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSSSX2.FOR
COMRPL    : Date       Fri Jul 18 17:05:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZSSSXF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSSSXF.f
FC        : Date       Fri Jul 18 17:05:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSXF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSXF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSSSXF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSSSXF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSSSXF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSSSXF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSSSXF.FOR
COMRPL    : Date       Fri Jul 18 17:05:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZSTAI2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSTAI2.f
FC        : Date       Fri Jul 18 17:05:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSTAI2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSTAI2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSTAI2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSTAI2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSTAI2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSTAI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSTAI2.FOR
COMRPL    : Date       Fri Jul 18 17:05:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZSTAIP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSTAIP.f
FC        : Date       Fri Jul 18 17:05:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSTAIP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZSTAIP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSTAIP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSTAIP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSTAIP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSTAIP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSTAIP.FOR
COMRPL    : Date       Fri Jul 18 17:05:57 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSWRIT.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSWRIT.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSWRIT.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSWRIT.c
AIPSCC    : Date       Fri Jul 18 17:05:57 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSWRIT.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSWRIT.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSWRIT.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZSWRIT.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZSWRIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZSWRIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZSWRIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZSWRIT.FOR
COMRPL    : Date       Fri Jul 18 17:05:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTAB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTAB.f
FC        : Date       Fri Jul 18 17:05:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTAB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTAB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTAB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTAB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTAB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTAB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTAB.FOR
COMRPL    : Date       Fri Jul 18 17:05:58 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTACT2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTACT2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTACT2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTACT2.c
AIPSCC    : Date       Fri Jul 18 17:05:58 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTACT2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTACT2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTACT2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZTACT2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTACT2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTACT2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTACT2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTACT2.FOR
COMRPL    : Date       Fri Jul 18 17:05:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTACTQ.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTACTQ.f
FC        : Date       Fri Jul 18 17:05:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTACTQ.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTACTQ.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTACTQ.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTACTQ.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTACTQ.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTACTQ.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTACTQ.FOR
COMRPL    : Date       Fri Jul 18 17:06:00 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZTAP2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTAP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZTAP2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
AIPSCC    : Date       Fri Jul 18 17:06:00 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c:19:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tap2__
    2:                                        /* Must not claim POSIX_SOURCE*/
    3:                                        /* types.h would not define   */
    4:                                        /* things needed in mtio.h    */
    5:#ifdef _POSIX_SOURCE
    6:#undef _POSIX_SOURCE
    7:#endif
    9:#define MT_Debug 0                      /* debug message control      */
   12:#include <unistd.h>
   13:#include <sys/types.h>
   14:#include <string.h>
   15:#include <stdio.h>
   16:#include <sys/ioctl.h>
   17:#include <sys/mtio.h>
   18:#include <errno.h>
   19:#include <AIPSPROTO.H>
   21:#if __STDC__
   22:   void ztap2_(char opr[4], int *count, int *fcb, int *ierr)
   23:#else
   24:   ztap2_(opr, count, fcb, ierr)
   25:   int *count, *fcb, *ierr;
   26:   char opr[4];
   27:#endif
   28:/*--------------------------------------------------------------------*/
   29:/*! tape movements as called by ZTAPE                                 */
   30:/*# Tape                                                              */
   31:/*--------------------------------------------------------------------*/
   32:/*;  Copyright (C) 1995, 1996                                         */
   33:/*;  Associated Universities, Inc. Washington DC, USA.                */
   34:/*;                                                                   */
   35:/*;  This program is free software; you can redistribute it and/or    */
   36:/*;  modify it under the terms of the GNU General Public License as   */
   37:/*;  published by the Free Software Foundation; either version 2 of   */
   38:/*;  the License, or (at your option) any later version.              */
   39:/*;                                                                   */
   40:/*;  This program is distributed in the hope that it will be useful,  */
   41:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   42:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   43:/*;  GNU General Public License for more details.                     */
   44:/*;                                                                   */
   45:/*;  You should have received a copy of the GNU General Public        */
   46:/*;  License along with this program; if not, write to the Free       */
   47:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   48:/*;  MA 02139, USA.                                                   */
   49:/*;                                                                   */
   50:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   51:/*;         Internet email: aipsmail at nrao.edu.                        */
   52:/*;         Postal address: AIPS Project Office                       */
   53:/*;                         National Radio Astronomy Observatory      */
   54:/*;                         520 Edgemont Road                         */
   55:/*;                         Charlottesville, VA 22903-2475 USA        */
   56:/*--------------------------------------------------------------------*/
   57:/*--------------------------------------------------------------------*/
   58:/*  Performs standard tape manipulating functions.                    */
   59:/*                                                                    */
   60:/* Inputs:                                                            */
   61:/*    opr    C*4   Operation to be performed:                         */
   62:/*                 'REWI' = rewind tape                               */
   63:/*                 'ADVF' = advance file                              */
   64:/*                 'BAKF' = backspace file                            */
   65:/*                 'ADVR' = advance record                            */
   66:/*                 'BAKR' = backspace record                          */
   67:/*                 'WEOF' = write end of file                         */
   68:/*                 'BEGW' = mark to begin write                       */
   69:/*                 'AEOI' = advance to end-of-medium                  */
   70:/*  In/out:                                                           */
   71:/*    count  I     Number of times to do operation                    */
   72:/*    fcb    I(*)  File descriptor from FTAB file control block       */
   73:/*  Output:                                                           */
   74:/*    ierr   I     Error code: 0 = success                            */
   75:/*                    2 = input specification error                   */
   76:/*                    3 = i/o error                                   */
   77:/*                    4 = tape mark encountered                       */
   78:/*                    5 = tape at load point                          */
   79:/*                    6 = tape at physical end                        */
   80:/*  Linux version                                                     */
   81:/*                                                                    */
   82:/* JAU 17 May 96: Jeff Uphoff, NRAO.  Fixed (some) for newer kernels. */
   83:/*--------------------------------------------------------------------*/
   84:{
   85:   extern int Z_fcbfd;
   86:   struct mtop top;
   87:   struct mtget stat;
   88:   char   op[5], record[32768];
   89:   long   filenumb;
   90:   int    i, jc, nr, status, wasatbot ;
   91:/*--------------------------------------------------------------------*/
   92:   errno = 0;
   93:   for(i = 0; i < 4; i++)
   94:      op[i] = opr[i];
   95:   op[4] = '\0';
   96:   *ierr = 0;
   97:                                        /* fake fd<0 ==> use Wes'     */
   98:                                        /* on-line device.  No tape   */
   99:                                        /* motions.                   */
  100:   if (*(fcb + Z_fcbfd) < 0) return;
  102:   top.mt_count = *count;
  104:   top.mt_op = MTNOP;
  105:   if ((status = ioctl(*fcb,MTIOCTOP,&top)) != 0) {
  106:      *ierr = 3;
  107:      printf("ZTAP2: error performing null op on tape drive\n");
  108:      perror("ZTAP2");
  109:      }
  110:   else if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  111:      *ierr = 3;
  112:      printf("ZTAP2: error getting drive status\n");
  113:      perror("ZTAP2");
  114:      }
  115:   else {
  116:#if MT_Debug                              /* NOTE - debug            */
  117:      printf("ZTAP2 at NOP-0: op = %s top.mt_op = %d ierr = %d\n",
  118:         op,top.mt_op,*ierr);
  119:      printf("ZTAP2: Status of I/O was %d errno %d\n", status, errno);
  120:      printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  121:         stat.mt_gstat,stat.mt_erreg);
  122:      printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  123:         stat.mt_type,stat.mt_resid);
  124:      printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  125:      printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  126:         stat.mt_fileno,stat.mt_blkno);
  127:#endif
  129:      if (strcmp(op,"REWI") == 0)
  130:         top.mt_op = MTREW;
  131:      else if (strcmp(op,"ADVF") == 0)
  132:         top.mt_op = MTFSF;
  133:                                        /* leaves out cartridge tap*/
  134:                                        /* ok 1/2inch, DAT, Exabyte*/
  135:      else if (strcmp(op,"BAKF") == 0)
  136:         top.mt_op = MTBSF;
  137:                                        /* Only way to detect tape */
  138:                                        /* marks.                  */
  139:      else if (strcmp(op,"ADVR") == 0) {
  140:         top.mt_count = 1;
  141:         for (i=0; i < *count; i++) {
  142:            nr = read (*fcb, record, 32768);
  143:            if (nr == 0) {
  144:               *ierr = 4;
  145:               if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  146:                  printf("ZTAP2: error getting drive status\n");
  147:                  perror("ZTAP2");
  148:                  }
  149:               else {
  150:#if MT_Debug                              /* NOTE - debug            */
  151:                  printf("ZTAP2: nbytes of I/O was %x (hex)\n", nr);
  152:                  printf("ZTAP2 at ADVR: op = %s top.mt_op = %d ierr = %d\n",
  153:                     op,top.mt_op,*ierr);
  154:                  printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  155:                     stat.mt_gstat,stat.mt_erreg);
  156:                  printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  157:                     stat.mt_type,stat.mt_resid);
  158:                  printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  159:                  printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  160:                     stat.mt_fileno,stat.mt_blkno);
  161:#endif
  162:                  }
  163:               if (GMT_BOT(stat.mt_gstat))      *ierr = 5;
  164:               else if (GMT_EOF(stat.mt_gstat)) *ierr = 4;
  165:               else if (GMT_EOT(stat.mt_gstat)) *ierr = 6;
  166:               else if (GMT_EOD(stat.mt_gstat)) *ierr = 6;
  167:               i = *count;
  168:               }
  169:            }
  170:         top.mt_op = MTNOP;
  171:         }
  172:                                        /* Only way to detect tape */
  173:                                        /* marks.  UGLYYY          */
  174:      else if (strcmp(op,"BAKR") == 0) {
  175:         top.mt_count = 1;
  176:         for (i=0; i < *count; i++) {
  177:            top.mt_op = MTBSR;
  178:            if (ioctl(*fcb,MTIOCTOP,&top) != 0)
  179:               *ierr = 3;
  180:            else if ((nr = read(*fcb,record,32768)) == 0)
  181:               *ierr = 4;
  182:            else if (ioctl(*fcb,MTIOCTOP,&top) != 0)
  183:               *ierr = 3;
  184:            if (*ierr != 0) i = *count;
  185:            }
  186:         top.mt_op = MTNOP;
  187:         }
  188:                                        /* WEOF and BEGW             */
  189:      else if ((strcmp(op,"WEOF") == 0) || (strcmp(op,"BEGW") == 0)) {
  190:         wasatbot = 0;
  191:         if (strcmp(op,"BEGW") == 0) {
  192:            top.mt_op = MTBSF;
  193:            top.mt_count = 1;
  194:            status = ioctl(*fcb,MTIOCTOP,&top);
  195:            if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  196:               *ierr = 3;
  197:               printf("ZTAP2: error getting drive status\n");
  198:               perror("ZTAP2");
  199:               }
  200:            else {
  201:#if MT_Debug                              /* NOTE - debug            */
  202:               printf("ZTAP2 at BEGW: op=%s top.mt_op=%d ierr = %d\n",
  203:                  "BSF1",top.mt_op,*ierr);
  204:               printf("ZTAP2: Status of I/O was %d errno %d\n",
  205:                  status, errno);
  206:               printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  207:                  stat.mt_gstat,stat.mt_erreg);
  208:               printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  209:                  stat.mt_type,stat.mt_resid);
  210:               printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  211:               printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  212:                  stat.mt_fileno,stat.mt_blkno);
  213:#endif
  214:               if (status == -1)                *ierr = 5;
  215:               if (GMT_BOT(stat.mt_gstat))      *ierr = 5;
  216:               else if (GMT_EOF(stat.mt_gstat)) *ierr = 4;
  217:               else if (GMT_EOT(stat.mt_gstat)) *ierr = 6;
  218:               else if (GMT_EOD(stat.mt_gstat)) *ierr = 6;
  219:               }
  220:            }
  221:         if (*ierr == 5) {
  222:            wasatbot = 1;
  223:            *ierr = 0;
  224:            }
  225:         if (*ierr == 0) {
  226:            top.mt_op = MTWEOF;
  227:            top.mt_count = 1;
  228:                                             /* 2 EOFs 1/2 inch */
  229:            status = ioctl(*fcb,MTIOCTOP,&top);
  230:            if (status != 0) {
  231:               *ierr = 3;
  232:               printf("ZTAP2: Status of I/O was %d errno %d\n", status, errno);
  233:               }
  234:            else {
  235:               if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  236:                  *ierr = 3;
  237:                  printf("ZTAP2: error getting drive status\n");
  238:                  perror("ZTAP2");
  239:                  }
  240:               else {
  241:/*                                           NOTE - debug */
  242:#if MT_Debug
  243:                  printf("ZTAP2 at WEOF: op = %s top.mt_op = %d ierr = %d\n",
  244:                     op,top.mt_op,*ierr);
  245:                  printf("ZTAP2: Status of I/O was %d errno %d\n",
  246:                     status, errno);
  247:                  printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  248:                     stat.mt_gstat,stat.mt_erreg);
  249:                  printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  250:                     stat.mt_type,stat.mt_resid);
  251:                  printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  252:                  printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  253:                     stat.mt_fileno,stat.mt_blkno);
  254:#endif
  255:/*                  top.mt_count -= 1;                    kludge */
  256:/*                  if (wasatbot) top.mt_count++;         kludge */
  257:                  if (top.mt_count) {
  258:                     top.mt_op = MTBSF;
  259:/*                                    insert for kludge */
  260:                     if (!wasatbot) top.mt_op = MTNOP;
  261:                     status = ioctl (*fcb, MTIOCTOP, &top);
  262:                     if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  263:                        *ierr = 3;
  264:                        printf("ZTAP2: error getting drive status\n");
  265:                        perror("ZTAP2");
  266:                        }
  267:                     else {
  268:#if MT_Debug                             /* NOTE - debug            */
  269:                        printf("ZTAP2 at WEOF: op=%s top.mt_op=%d ierr = %d\n",
  270:                           "BSF ",top.mt_op,*ierr);
  271:                        printf("ZTAP2: Status of I/O was %d errno %d\n",
  272:                           status, errno);
  273:                        printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  274:                           stat.mt_gstat,stat.mt_erreg);
  275:                        printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  276:                           stat.mt_type,stat.mt_resid);
  277:                        printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  278:                        printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  279:                           stat.mt_fileno,stat.mt_blkno);
  280:#endif
  281:                        }
  282:                     }
  283:/*                top.mt_count = 1;              kludge */
  284:/*                top.mt_op = MTNOP;             kludge */
  285:/*                                    insert for kludge */
  286:                  top.mt_op = MTBSF;
  287:                  if (wasatbot) top.mt_op = MTNOP;
  288:                  }
  289:               }
  290:            }
  291:         }
  292:                                        /* MTEOM while Exabyte is  */
  293:                                        /* at EOM causes problems  */
  294:      else if ((strcmp(op,"EOM ") == 0) || (strcmp(op,"AEOI") == 0)) {
  295:         if ((stat.mt_type == MT_ISDDS1) || (stat.mt_type == MT_ISDDS2) ||
  296:             (stat.mt_type == MT_ISSCSI1) || (stat.mt_type == MT_ISSCSI2)) {
  297:            top.mt_count = 1;
  298:            top.mt_op = MTEOM;
  299:                                        /* cannot get a file number */
  300:            *count = 0;
  301:         }
  302:         else {                         /* Block fails for Linux. */
  303:            for (i = 0; i < 32000; i++) {
  304:               nr = read (*fcb, record, 32768);
  305:               if (nr <= 0) {
  306:                  if (nr < 0) *ierr = 3;
  307:                  if ((nr == -1) && (errno == 5)) *ierr = 6;
  308:                  status = nr - 1000;
  309:                  break;
  310:                  }
  311:               else {
  312:                  top.mt_op = MTFSF;
  313:                  top.mt_count = 1;
  314:                  status = ioctl(*fcb,MTIOCTOP,&top);
  315:                  if (status != 0) {
  316:                     *ierr = 3;
  317:                     printf("ZTAP2: Status of I/O was %x (hex)\n", status);
  318:                     break;
  319:                     }
  320:                  }
  321:               }
  322:            *count = -i - 1;
  323:            if (*ierr == 3) {
  324:               if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  325:                  *ierr = 3;
  326:                  printf("ZTAP2: error getting drive status\n");
  327:                  perror("ZTAP2");
  328:                  }
  329:#if MT_Debug                              /* NOTE - debug            */
  330:               else {
  331:                  printf("ZTAP2 at AEOM: op=%s top.mt_op=%d ierr = %d\n",
  332:                     "AVF ",top.mt_op,*ierr);
  333:                  printf("ZTAP2: Status of I/O was %d errno %d\n",
  334:                     status, errno);
  335:                  printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  336:                     stat.mt_gstat,stat.mt_erreg);
  337:                  printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  338:                     stat.mt_type,stat.mt_resid);
  339:                  printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  340:                  printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  341:                     stat.mt_fileno,stat.mt_blkno);
  342:                  }
  343:#endif
  344:               if (GMT_BOT(stat.mt_gstat))      *ierr = 5;
  345:               else if (GMT_EOF(stat.mt_gstat)) *ierr = 4;
  346:               else if (GMT_EOT(stat.mt_gstat)) *ierr = 6;
  347:               else if (GMT_EOD(stat.mt_gstat)) *ierr = 6;
  348:               }
  349:            top.mt_op = MTBSF;
  350:            top.mt_count = 2;
  351:            if (*ierr == 6) top.mt_count = 1;
  352:            if ((*ierr == 6) || (*ierr == 4)) *ierr = 0;
  353:            }
  354:         }
  355:      else *ierr = 2;
  357:      if (*ierr == 0) {
  358:         status = ioctl(*fcb,MTIOCTOP,&top);
  359:         if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  360:            *ierr = 3;
  361:            printf("ZTAP2: error getting drive status\n");
  362:            perror("ZTAP2");
  363:            }
  364:         else {
  365:#if MT_Debug                              /* NOTE - debug            */
  366:            printf("ZTAP2 at main op: op = %s top.mt_op = %d ierr = %d\n",
  367:               op,top.mt_op,*ierr);
  368:            printf("ZTAP2: Status of I/O was %d errno %d\n", status, errno);
  369:            printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  370:               stat.mt_gstat,stat.mt_erreg);
  371:            printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  372:               stat.mt_type,stat.mt_resid);
  373:            printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  374:            printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  375:               stat.mt_fileno,stat.mt_blkno);
  376:#endif
  377:            }
  379:         if ((top.mt_op == MTBSF) && (status == -1)) *ierr = 5;
  380:         else if (GMT_BOT(stat.mt_gstat))      *ierr = 5;
  381:         else if (GMT_EOF(stat.mt_gstat)) *ierr = 4;
  382:         else if (GMT_EOT(stat.mt_gstat)) *ierr = 6;
  383:         else if (GMT_EOD(stat.mt_gstat)) *ierr = 6;
  385:                                        /* advance over last EOF   */
  386:         if ((top.mt_op == MTBSF) && ((*ierr == 0) || (*ierr == 4))) {
  387:            top.mt_op = MTFSF;
  388:            top.mt_count = 1;
  389:            status = ioctl(*fcb,MTIOCTOP,&top);
  390:            if (status != 0) {
  391:               *ierr = 3;
  392:               printf("ZTAP2: Status of I/O was %d errno %d\n", status, errno);
  393:               }
  394:            else if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  395:               *ierr = 3;
  396:               printf("ZTAP2: error getting drive status\n");
  397:               perror("ZTAP2");
  398:               }
  399:#if MT_Debug                              /* NOTE - debug            */
  400:            else {
  401:               printf("ZTAP2 at FSF: op = %s top.mt_op = %d ierr = %d\n",
  402:                  op,top.mt_op,*ierr);
  403:               printf("ZTAP2: Status of I/O was %d errno %d\n",
  404:                  status, errno);
  405:               printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  406:                  stat.mt_gstat,stat.mt_erreg);
  407:               printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  408:                  stat.mt_type,stat.mt_resid);
  409:               printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  410:               printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  411:                 stat.mt_fileno,stat.mt_blkno);
  412:               }
  413:#endif
  414:            }
  415:         }
  417:      if (*ierr == 3)
  418:         *(fcb + 2) = errno;
  419:      else
  420:         *(fcb + 2) = 0;
  421:      }
  423:   return;
  424:}
  426:/*
  427: * Local Variables:
  428: * c-basic-offset: 3
  429: * comment-column: 40
  430: * indent-tabs-mode: nil
  431: * End:
  432: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTAP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:06:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTAPE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTAPE.f
FC        : Date       Fri Jul 18 17:06:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTAPE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTAPE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTAPE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTAPE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTAPE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTAPE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTAPE.FOR
COMRPL    : Date       Fri Jul 18 17:06:02 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTAPIO.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTAPIO.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTAPIO.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTAPIO.c
AIPSCC    : Date       Fri Jul 18 17:06:02 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTAPIO.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTAPIO.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTAPIO.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZTAPIO.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTAPIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTAPIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTAPIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTAPIO.FOR
COMRPL    : Date       Fri Jul 18 17:06:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTAPR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTAPR.f
FC        : Date       Fri Jul 18 17:06:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTAPR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTAPR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTAPR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTAPR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTAPR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTAPR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTAPR.FOR
COMRPL    : Date       Fri Jul 18 17:06:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTCLOS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTCLOS.f
FC        : Date       Fri Jul 18 17:06:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTCLOS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTCLOS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTCLOS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTCLOS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTCLOS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTCLOS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTCLOS.FOR
COMRPL    : Date       Fri Jul 18 17:06:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTFILL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTFILL.f
FC        : Date       Fri Jul 18 17:06:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTFILL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTFILL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTFILL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTFILL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTFILL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTFILL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTFILL.FOR
COMRPL    : Date       Fri Jul 18 17:06:05 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTIME.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTIME.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTIME.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTIME.c
AIPSCC    : Date       Fri Jul 18 17:06:05 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTIME.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTIME.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTIME.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZTIME.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTIME.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTIME.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTIME.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTIME.FOR
COMRPL    : Date       Fri Jul 18 17:06:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTKBUF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTKBUF.f
FC        : Date       Fri Jul 18 17:06:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKBUF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKBUF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTKBUF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTKBUF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTKBUF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTKBUF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTKBUF.FOR
COMRPL    : Date       Fri Jul 18 17:06:07 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTKCL2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTKCL2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTKCL2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTKCL2.c
AIPSCC    : Date       Fri Jul 18 17:06:07 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKCL2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKCL2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTKCL2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZTKCL2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTKCL2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTKCL2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTKCL2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTKCL2.FOR
COMRPL    : Date       Fri Jul 18 17:06:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTKCLS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTKCLS.f
FC        : Date       Fri Jul 18 17:06:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKCLS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKCLS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTKCLS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTKCLS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTKCLS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTKCLS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTKCLS.FOR
COMRPL    : Date       Fri Jul 18 17:06:08 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTKFI2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTKFI2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTKFI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTKFI2.c
AIPSCC    : Date       Fri Jul 18 17:06:08 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKFI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKFI2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTKFI2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZTKFI2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTKFI2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTKFI2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTKFI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTKFI2.FOR
COMRPL    : Date       Fri Jul 18 17:06:09 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTKILL.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTKILL.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTKILL.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTKILL.c
AIPSCC    : Date       Fri Jul 18 17:06:09 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKILL.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKILL.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTKILL.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZTKILL.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTKILL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTKILL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTKILL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTKILL.FOR
COMRPL    : Date       Fri Jul 18 17:06:10 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTKOP2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTKOP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTKOP2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
AIPSCC    : Date       Fri Jul 18 17:06:10 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:17:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:23: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c: In function `ztkop2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:87: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:87: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:87: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:87: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tkop2__
    2:#include <unistd.h>
    3:#include <stdlib.h>
    4:#include <stdio.h>
    5:#include <string.h>
    6:#include <fcntl.h>
    7:#ifndef __linux__
    8:#include <sgtty.h>
    9:#endif
   10:#include <errno.h>
   11:#include <sys/types.h>
   12:#include <sys/socket.h>
   13:#include <sys/un.h>
   14:#include <netinet/in.h>
   15:#include <netdb.h>
   16:#include <sys/stat.h>
   17:#include <AIPSPROTO.H>
   18:#ifdef __linux__
   19:#include <linux/termios.h>
   20:#endif
   22:#if __STDC__
   23:   void ztkop2_(int *fcb, char pname[MAXPNAME], int *tktype, int *ierr)
   24:#else
   25:   void ztkop2_(fcb, pname, tktype, ierr)
   26:   int *fcb, *tktype, *ierr;
   27:   char pname[MAXPNAME];
   28:#endif
   29:/*--------------------------------------------------------------------*/
   30:/*! read/write from/to a Tektronix device                             */
   31:/*# Graphics                                                          */
   32:/*--------------------------------------------------------------------*/
   33:/*;  Copyright (C) 1995-1998, 2000                                    */
   34:/*;  Associated Universities, Inc. Washington DC, USA.                */
   35:/*;                                                                   */
   36:/*;  This program is free software; you can redistribute it and/or    */
   37:/*;  modify it under the terms of the GNU General Public License as   */
   38:/*;  published by the Free Software Foundation; either version 2 of   */
   39:/*;  the License, or (at your option) any later version.              */
   40:/*;                                                                   */
   41:/*;  This program is distributed in the hope that it will be useful,  */
   42:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   43:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   44:/*;  GNU General Public License for more details.                     */
   45:/*;                                                                   */
   46:/*;  You should have received a copy of the GNU General Public        */
   47:/*;  License along with this program; if not, write to the Free       */
   48:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   49:/*;  MA 02139, USA.                                                   */
   50:/*;                                                                   */
   51:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   52:/*;         Internet email: aipsmail at nrao.edu.                        */
   53:/*;         Postal address: AIPS Project Office                       */
   54:/*;                         National Radio Astronomy Observatory      */
   55:/*;                         520 Edgemont Road                         */
   56:/*;                         Charlottesville, VA 22903-2475 USA        */
   57:/*--------------------------------------------------------------------*/
   58:/*  Open a Tektronix device for exclusive use.                        */
   59:/*                                                                    */
   60:/*  Inputs:                                                           */
   61:/*     pname   C*48   Physical file name (e.g., "TEKTK1: ")           */
   62:/*  Output:                                                           */
   63:/*     fcb     I(*)   File control block for opened Tektronix device  */
   64:/*     ierr    I      Error return code: 0 => no error                */
   65:/*                             2 => no such logical device            */
   66:/*                             3 => invalid device name               */
   67:/*                             4 => exclusive use requested but not   */
   68:/*                                  available                         */
   69:/*                             6 => other open error                  */
   70:/*  Berkeley UNIX version                                             */
   71:/*  JDE 89/Mar/23: Jonathan D. Eisenhamer, UCLA, added ability to     */
   72:/*                 talk to a "server" for a separate tektool window.  */
   73:/*  JDE 89/Apr/05: Added ability to use the INET domain to talk to    */
   74:/*                 the tektool service.  The server is tekserver.     */
   75:/*                 The environmental variable TEKTK* should be set to */
   76:/*                 the machine name which has the server.             */
   77:/*--------------------------------------------------------------------*/
   78:{
   79:                                        /* Offsets to entries in the  */
   80:                                        /* file control blocks        */
   81:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   82:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   84:   int llen, xlen, xlnb, jerr, fd;
   85:   register int i;
   86:   struct stat mybuf;
   87:   char lognam[MAXPNAME], pathname[MAXAPATH], *device, *dtemp, end;
   88:   struct hostent *hp;                  /* Host name */
   89:   struct servent *sp;                  /* Internet service info. */
   90:   int s;                               /* Socket descriptor. */
   91:   struct sockaddr_in sock_name;        /* Socket name. */
   92:   struct sockaddr_un client;
   93:   int ishost;                          /* == 1 if it is a host name. */
   94:   int isspec;
   95:/*--------------------------------------------------------------------*/
   96:   *ierr = 0;
   97:   *tktype = 0;
   98:   end = '\0' ;
   99:   device = &end;
  100:   if ((dtemp = getenv("TVDEV")) != NULL) {
  101:      if ((device = getenv (dtemp)) == NULL) device = &end;
  102:      }
  104:                                        /* Extract logical device     */
  105:                                        /* name.                      */
  106:   for (i = 0; i < MAXPNAME && pname[i] != ':'; i++)
  107:      lognam[i] = pname[i];
  108:   lognam[i] = '\0';
  109:                                        /* Translate logical device   */
  110:                                        /* name and null terminate.   */
  111:   llen = MAXPNAME;
  112:   xlen = MAXAPATH;
  113:   ztrlo2_ (&llen, lognam, &xlen, pathname, &xlnb, &jerr);
  114:   if (jerr != 0) {
  115:      *ierr = 2;
  116:      }
  117:   else {
  118:      pathname[xlnb] = '\0';
  119:                                        /* Now, if it's NOT special,  */
  120:                                        /* assume that it is meant to */
  121:                                        /* be an INET domain socket   */
  122:      if (strncmp(device,"sssin",5) == 0) {
  123:         if ((hp = gethostbyname (pathname)) == 0) {
  124:            *(fcb + Z_fcberr) = errno;
  125:            *ierr = 3;
  126:            return;
  127:            }
  128:                                        /* JDE 89/Apr/04:             */
  129:                                        /* Get the port on which the  */
  130:                                        /* the tekserver resides.     */
  131:         if ((sp = getservbyname ("tekserv", "tcp")) == 0) {
  132:            *(fcb + Z_fcberr) = errno;
  133:            *ierr = 3;
  134:            return;
  135:            }
  136:                                        /* Construct the address of   */
  137:                                        /* service.                   */
  138:         memset ((char *)&sock_name, 0, sizeof (sock_name));
  139:         memcpy ((char *)&sock_name.sin_addr, hp->h_addr, hp->h_length);
  140:         sock_name.sin_family = hp->h_addrtype;
  141:         sock_name.sin_port = sp->s_port;
  142:                                        /* Create the communications  */
  143:                                        /* socket.                    */
  144:         if ((s = socket (hp->h_addrtype, SOCK_STREAM, 0)) == -1) {
  145:            *(fcb + Z_fcberr) = errno;
  146:            *ierr = 6;
  147:            return;
  148:            }
  149:                                        /* Connect to the server.     */
  150:                                        /* From here on, everything   */
  151:                                        /* is treated the same.  Only */
  152:                                        /* thing to watch is how to   */
  153:                                        /* close things (ztkcl2)      */
  154:         if (connect (s, (struct sockaddr *)&sock_name,
  155:            sizeof(sock_name)) == -1) {
  156:            *(fcb + Z_fcberr) = errno;
  157:            *ierr = 6;
  158:            }
  159:         else {
  160:             *tktype = 1;
  161:             *(fcb + Z_fcbfd) = s;
  162:             }
  163:         }
  164:                                        /* Test path name existence,  */
  165:                                        /* but DO NOT be fooled by    */
  166:                                        /* files other than a socket  */
  167:                                        /* or a device (char/block)   */
  168:      else {
  169:                                        /* no such file, not special  */
  170:         isspec = 0;
  171:         if ((stat(pathname, &mybuf)) == -1) {
  172:            isspec = 0;
  173:                                        /* Found a socket; special    */
  174:         } else if (S_ISSOCK(mybuf.st_mode)) {
  175:            isspec = 2;
  176:                                        /* Found a FIFO; special      */
  177:         } else if (S_ISFIFO(mybuf.st_mode)) {
  178:            isspec = 2;
  179:                                        /* character special device   */
  180:         } else if (S_ISCHR(mybuf.st_mode)) {
  181:            isspec = 3;
  182:                                        /* block special device       */
  183:         } else if (S_ISBLK(mybuf.st_mode)) {
  184:            isspec = 4;
  185:            }
  186:                                        /* UNIX socket */
  187:         if (isspec== 2) {   /* ????? */
  188:            device = &end;
  189:            if ((dtemp = getenv("TKDEV")) != NULL) {
  190:               if ((device = getenv(dtemp)) == NULL) device = &end;
  191:               }
  192:                                        /* undefined                  */
  193:            if (device == &end) {
  194:               fprintf(stderr, "ZTKOP2: NO SUCH DEVICE = TKDEV\n");
  195:               *ierr = 2;
  196:               return;
  197:               }
  198:            if ((*fcb = (int)socket(AF_UNIX, SOCK_STREAM, 0)) < 0) {
  199:               perror("ZTKOP2 socket (UNIX)");
  200:               *ierr = 1;
  201:               return;
  202:               }
  203:            client.sun_family = AF_UNIX;
  204:            strcpy(client.sun_path, device);
  205:            if (connect((*fcb), (struct sockaddr *) &client,
  206:               (sizeof(client.sun_path)+sizeof(client.sun_family)))
  207:               < 0) {
  208:               perror("ZTKOP2 connect (UNIX)");
  209:               *ierr = 1;
  210:               return;
  211:               }
  212:            *tktype = 1;
  213:            }
  214:                                        /* Blindly change the device  */
  215:                                        /* permissions to make it     */
  216:                                        /* readable/writeable.  Don't */
  217:                                        /* worry about any errors in  */
  218:                                        /* doing so because "open"    */
  219:                                        /* will detect any failure.   */
  220:                                        /* This is done simply to     */
  221:                                        /* allow /dev/ttyp* opens.    */
  222:         else {
  223:            chmod (pathname, 0662);
  224:                                        /* Open the Tektronix device  */
  225:                                        /* read/write.                */
  226:            if ((*(fcb + Z_fcbfd) = open (pathname, 2)) == -1) {
  227:               *(fcb + Z_fcberr) = errno;
  228:               if (errno == EBUSY)
  229:                  *ierr = 4;
  230:               else
  231:                  *ierr = 6;
  232:               }
  233:            else {
  234:               fd = *(fcb + Z_fcbfd);
  235:                                        /* If the device pathname is  */
  236:                                        /* the same as the process    */
  237:                                        /* control tty, don't try to  */
  238:                                        /* take exclusive use since   */
  239:                                        /* this would always fail.    */
  240:               if (strcmp (pathname, "/dev/tty\0") != 0) {
  241:                  if (ioctl (fd, TIOCEXCL, 0) == -1) {
  242:                     *(fcb + Z_fcberr) = errno;
  243:                     *ierr = 6;
  244:                     close (fd);
  245:                     return;
  246:                     }
  247:                  }
  248:               }
  249:            }
  250:         }
  251:      }
  253:   return;
  254:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTKOP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:06:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTKOPN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTKOPN.f
FC        : Date       Fri Jul 18 17:06:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKOPN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKOPN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTKOPN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTKOPN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTKOPN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTKOPN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTKOPN.FOR
COMRPL    : Date       Fri Jul 18 17:06:11 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTKSRV.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTKSRV.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTKSRV.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTKSRV.c
AIPSCC    : Date       Fri Jul 18 17:06:12 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKSRV.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKSRV.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTKSRV.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZTKSRV.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTKSRV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTKSRV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTKSRV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTKSRV.FOR
COMRPL    : Date       Fri Jul 18 17:06:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTOPE2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTOPE2.f
FC        : Date       Fri Jul 18 17:06:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTOPE2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTOPE2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTOPE2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTOPE2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTOPE2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTOPE2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTOPE2.FOR
COMRPL    : Date       Fri Jul 18 17:06:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTOPEN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTOPEN.f
FC        : Date       Fri Jul 18 17:06:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTOPEN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTOPEN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTOPEN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTOPEN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTOPEN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTOPEN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTOPEN.FOR
COMRPL    : Date       Fri Jul 18 17:06:14 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPCL2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPCL2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPCL2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
AIPSCC    : Date       Fri Jul 18 17:06:14 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tpcl2__
    2:#include <unistd.h>
    3:#include <errno.h>
    4:#include <AIPSPROTO.H>
    6:#if __STDC__
    7:   void ztpcl2_(int *fcb, int *ierr)
    8:#else
    9:   void ztpcl2_(fcb, ierr)
   10:   int *fcb, *ierr;
   11:#endif
   12:/*--------------------------------------------------------------------*/
   13:/*! close a tape device                                               */
   14:/*# Tape                                                              */
   15:/*--------------------------------------------------------------------*/
   16:/*;  Copyright (C) 1995, 1997                                         */
   17:/*;  Associated Universities, Inc. Washington DC, USA.                */
   18:/*;                                                                   */
   19:/*;  This program is free software; you can redistribute it and/or    */
   20:/*;  modify it under the terms of the GNU General Public License as   */
   21:/*;  published by the Free Software Foundation; either version 2 of   */
   22:/*;  the License, or (at your option) any later version.              */
   23:/*;                                                                   */
   24:/*;  This program is distributed in the hope that it will be useful,  */
   25:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   26:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   27:/*;  GNU General Public License for more details.                     */
   28:/*;                                                                   */
   29:/*;  You should have received a copy of the GNU General Public        */
   30:/*;  License along with this program; if not, write to the Free       */
   31:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   32:/*;  MA 02139, USA.                                                   */
   33:/*;                                                                   */
   34:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   35:/*;         Internet email: aipsmail at nrao.edu.                        */
   36:/*;         Postal address: AIPS Project Office                       */
   37:/*;                         National Radio Astronomy Observatory      */
   38:/*;                         520 Edgemont Road                         */
   39:/*;                         Charlottesville, VA 22903-2475 USA        */
   40:/*--------------------------------------------------------------------*/
   41:/*  Close a tape drive.                                               */
   42:/*  Inputs:                                                           */
   43:/*     fcb    I(*)   File control block for opened tape drive         */
   44:/*  Output:                                                           */
   45:/*     ierr   I      Error return code: 0 => ok                       */
   46:/*                      1 => error                                    */
   47:/*  Generic UNIX version - synchronous I/O only; masks error 1        */
   48:/*  Modified for real-time VLA to call olclose on fd < 0              */
   49:/*--------------------------------------------------------------------*/
   50:{
   51:                                        /* Offsets to entries in the  */
   52:                                        /* file control blocks        */
   53:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   54:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   55:                                        /* # FTAB elements per map    */
   56:                                        /* file control block         */
   57:   extern int Z_mfcb;
   58:   int fd, i;
   59:/*--------------------------------------------------------------------*/
   60:   *ierr = 0;
   61:                                        /* Close first buffer file    */
   62:                                        /* descriptor.                */
   63:   fd = *(fcb + Z_fcbfd);
   64:                                        /* If this is Wes' on-line    */
   65:                                        /* device, use special close. */
   66:   if (fd < 0) {
   67:      olclose_(&fd);
   68:      }
   69:   else {
   70:      if (close (fd) != 0) {
   71:                                        /* In at least the case of a  */
   72:                                        /* Solbourne running Sun OS   */
   73:                                        /* 4.0 a spurious errno=1 is  */
   74:                                        /* returned.  Ignore it.      */
   75:         if (errno != 1) {
   76:            *(fcb + Z_fcberr) = errno;
   77:            *ierr = 1;
   78:            }
   79:      }
   80:                                        /* Close second buffer file   */
   81:                                        /* descriptor.                */
   82:      fd = *(fcb + Z_mfcb + Z_fcbfd);
   83:      if ((close (fd) != 0) && (*ierr == 0)) {
   84:          if (errno !=1 ) {
   85:             *(fcb + Z_mfcb + Z_fcberr) = errno;
   86:             *ierr = 1;
   87:             }
   88:          }
   89:      }
   91:   return;
   92:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPCL2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:06:14 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPCLD.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPCLD.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPCLD.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLD.c
AIPSCC    : Date       Fri Jul 18 17:06:15 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLD.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLD.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLD.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLD.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTPCLD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTPCLD.FOR
COMRPL    : Date       Fri Jul 18 17:06:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTPCLR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLR.f
FC        : Date       Fri Jul 18 17:06:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTPCLR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTPCLR.FOR
COMRPL    : Date       Fri Jul 18 17:06:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTPCLS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLS.f
FC        : Date       Fri Jul 18 17:06:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTPCLS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTPCLS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTPCLS.FOR
COMRPL    : Date       Fri Jul 18 17:06:16 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPMI2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPMI2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPMI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
AIPSCC    : Date       Fri Jul 18 17:06:17 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c:5:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c: In function `ztpmi2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c:67: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c:67: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c:67: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tpmi2__
    2:#include <unistd.h>
    3:#include <string.h>
    4:#include <errno.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void ztpmi2_(char *oper, int *fcb, char *buff, int *nbytes, int *ierr)
    9:#else
   10:   void ztpmi2_(oper, fcb, buff, nbytes, ierr)
   11:   char oper[], buff[];
   12:   int *fcb, *nbytes, *ierr;
   13:#endif
   14:/*--------------------------------------------------------------------*/
   15:/*! read/write from/to a tape device                                  */
   16:/*# IO-basic Tape                                                     */
   17:/*--------------------------------------------------------------------*/
   18:/*;  Copyright (C) 1995, 1997, 2003                                   */
   19:/*;  Associated Universities, Inc. Washington DC, USA.                */
   20:/*;                                                                   */
   21:/*;  This program is free software; you can redistribute it and/or    */
   22:/*;  modify it under the terms of the GNU General Public License as   */
   23:/*;  published by the Free Software Foundation; either version 2 of   */
   24:/*;  the License, or (at your option) any later version.              */
   25:/*;                                                                   */
   26:/*;  This program is distributed in the hope that it will be useful,  */
   27:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   28:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   29:/*;  GNU General Public License for more details.                     */
   30:/*;                                                                   */
   31:/*;  You should have received a copy of the GNU General Public        */
   32:/*;  License along with this program; if not, write to the Free       */
   33:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   34:/*;  MA 02139, USA.                                                   */
   35:/*;                                                                   */
   36:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   37:/*;         Internet email: aipsmail at nrao.edu.                        */
   38:/*;         Postal address: AIPS Project Office                       */
   39:/*;                         National Radio Astronomy Observatory      */
   40:/*;                         520 Edgemont Road                         */
   41:/*;                         Charlottesville, VA 22903-2475 USA        */
   42:/*--------------------------------------------------------------------*/
   43:/*  Read/write "nbytes" 8-bit bytes of data from/to a tape device     */
   44:/*  using "map" I/O (i.e., double buffered, asynchronous I/O).        */
   45:/*  Inputs:                                                           */
   46:/*     oper     C*4    Operation code "READ" or "WRIT"                */
   47:/*     fcb      I(*)   File control block for opened tape drive       */
   48:/*     buff     I(*)   I/O buffer                                     */
   49:/*     nbytes   I      Number of 8-bit bytes to be transferred        */
   50:/*  Output:                                                           */
   51:/*     ierr     I      Error return code: 0 => no error               */
   52:/*                        2 => bad opcode                             */
   53:/*                        3 => I/O error (left for ZTPWA2 now)        */
   54:/*  Generic UNIX version - sysnchronous I/O actually, reports IO error*/
   55:/*  but not End Of File                                               */
   56:/*  Modified for real-time VLA calling olread when fd < 0             */
   57:/*--------------------------------------------------------------------*/
   58:{
   59:                                        /* Offsets to entries in the  */
   60:                                        /* file control blocks        */
   61:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   62:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   64:   int fd, n8 = 8, ifd, ntry, otry, jerr;
   65:   register int i;
   66:   float secs = 100.0;
   67:   char op[5], msgbuf[80], pathname[MAXAPATH] = "ON-LINE";
   68:/*--------------------------------------------------------------------*/
   69:   *ierr = 0;
   70:   pathname[7] = '\0';
   71:                                        /* Form null terminated       */
   72:                                        /* opcode.                    */
   73:   for (i = 0; i < 4; i++)
   74:      op[i] = oper[i];
   75:   op[4] = '\0';
   76:                                        /* Get file descriptor from   */
   77:                                        /* the file control block as  */
   78:                                        /* stored there by ZTPOP2.    */
   79:   fd = *(fcb + Z_fcbfd);
   80:                                        /* Record byte request in the */
   81:                                        /* file control block.        */
   82:   *(fcb + Z_fcbreq) = *nbytes;
   83:                                        /* Also, zero error status &  */
   84:                                        /* transfer count entries.    */
   85:   *(fcb + Z_fcberr) = 0;
   86:   *(fcb + Z_fcbxfr) = 0;
   87:                                        /* Zero byte request just     */
   88:                                        /* initiates double buffered  */
   89:                                        /* I/O.                       */
   90:   if (*(fcb + Z_fcbreq) != 0) {
   91:                                        /* Perform the I/O and record */
   92:                                        /* the # of bytes transferred */
   93:                                        /* in *(fcb + Z_fcbxfr).      */
   94:                                        /* Record the system error    */
   95:                                        /* code (if any) in           */
   96:                                        /* *(fcb + Z_fcberr).         */
   97:      if (strcmp (op, "READ") == 0) {
   98:                                        /* fake fd<0 ==> use Wes'     */
   99:                                        /* on-line device.            */
  100:         if (fd < 0) {
  101:            for (ntry=0; ntry<100; ntry++) {
  102:               *(fcb + Z_fcbxfr) = olread_(&fd, buff, *(fcb + Z_fcbreq));
  103:                                        /* error - close and re-open  */
  104:               if (*(fcb + Z_fcbxfr) == 0) {
  105:                  sprintf (msgbuf, "ZTPMI2: End-of-data: try to reopen");
  106:                  zmsgwr_ (msgbuf, &n8);
  107:                  olclose_(&fd);
  108:                  for (otry=0; otry<100; otry++) {
  109:                     ifd = -99;
  110:                     zdela2_ (&secs, &jerr) ;
  111:                     fd = olopen_(&ifd, pathname, strlen(pathname));
  112:                     sprintf (msgbuf, "ZTPMI2: olopen %d", fd);
  113:                     zmsgwr_ (msgbuf, &n8);
  114:                                        /* open fails */
  115:                     if (fd == -99 || fd >= 0) {
  116:                        sprintf (msgbuf,
  117:                           "ZTPOP2: FAILS TO OPEN ON-LINE - RETRY");
  118:                        if (otry == 99) {
  119:                           sprintf (msgbuf,
  120:                              "ZTPOP2: FAILS TO OPEN ON-LINE - QUIT");
  121:                           ntry = 101;
  122:                           }
  123:                        zmsgwr_ (msgbuf, &n8);
  124:                        }
  125:                     else {
  126:                        *(fcb + Z_fcbfd) = fd;
  127:                        otry = 1000;
  128:                        }
  129:                     }
  130:                  }
  131:               else {
  132:                  ntry=1000;
  133:                  }
  134:               }
  135:            }
  136:         else {
  137:            *(fcb + Z_fcbxfr) = read(fd, buff, *(fcb + Z_fcbreq));
  138:            }
  139:         if (*(fcb + Z_fcbxfr) == -1) {
  140:            *(fcb + Z_fcberr) = errno;
  141:            }
  142:         }
  143:      else if (strcmp (op, "WRIT") == 0) {
  144:         if ((*(fcb + Z_fcbxfr) =
  145:            write (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  146:            *(fcb + Z_fcberr) = errno;
  147:            }
  148:         }
  149:                                        /* Bad opcode.                */
  150:      else {
  151:         *ierr = 2;
  152:         }
  153:      }
  154:                                        /* Exit.                      */
  155:   return;
  156:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPMI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:06:17 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPMID.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPMID.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPMID.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
AIPSCC    : Date       Fri Jul 18 17:06:17 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tpmid__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <string.h>
    5:#include <errno.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void ztpmid_(char *oper, int *blkno, int *fcb, char *buff,
   11:      int *nbytes, int *ierr)
   12:#else
   13:   void ztpmid_(oper, blkno, fcb, buff, nbytes, ierr)
   14:   char oper[], buff[];
   15:   int *fcb, *blkno, *nbytes, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read/write 2880 byte blocks of data from/to disk                  */
   19:/*# Z Tape                                                            */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 1997-1999, 2001                              */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Read/write "nbytes" of data from/to disk at FITS block blkno      */
   47:/*                                                                    */
   48:/*  NOTE: This is for TAPIO type operations only, i.e., LRECL=2880,   */
   49:/*        FTAB(FIND+5) = I   logical record number.                   */
   50:/*                                                                    */
   51:/*  Inputs:                                                           */
   52:/*     oper     C*4    Operation code "READ" or "WRIT"                */
   53:/*     blkno    I      Block number to read/write                     */
   54:/*     fcb      I(*)   File control block for open map disk file      */
   55:/*                     and buffer involved                            */
   56:/*     nbytes   I      Number of real bytes to be transferred         */
   57:/*  In/out:                                                           */
   58:/*     buff     I(*)   I/O buffer                                     */
   59:/*  Output:                                                           */
   60:/*     ierr     I      Error return code: 0 => no error               */
   61:/*                        2 => bad opcode                             */
   62:/*                        3 => I/O error (also see ZWAI2)             */
   63:/*                        4 => end of file (see ZWAI2)                */
   64:/*  "fcb" has syserr for ZTPWAD to return error                       */
   65:/*  Generic UNIX version.                                             */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:                                        /* Offsets to entries in the  */
   69:                                        /* file control blocks        */
   70:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr;
   71:   int fd, n7 = 7;
   72:   off_t firstbyte;
   73:   register int i;
   74:   char op[5], msgbuf[80];
   75:/*--------------------------------------------------------------------*/
   76:   *ierr = 0;
   77:                                        /* Form null terminated       */
   78:                                        /* opcode.                    */
   79:   for (i = 0; i < 4; i++)
   80:      op[i] = oper[i];
   81:   op[4] = '\0';
   82:                                        /* Get file descriptor from   */
   83:                                        /* the file control block as  */
   84:                                        /* stored there by ZDAOPN.    */
   85:   fd = *(fcb + Z_fcbfd);
   86:                                        /* Record byte request in the */
   87:                                        /* file control block.        */
   88:   *(fcb + Z_fcbreq) = *nbytes;
   89:                                        /* Also, zero error status &  */
   90:                                        /* transfer count entries.    */
   91:   *(fcb + Z_fcberr) = 0;
   92:   *(fcb + Z_fcbxfr) = 0;
   93:                                        /* Zero byte request just     */
   94:                                        /* initiates double buffered  */
   95:                                        /* I/O.                       */
   96:   if (*(fcb + Z_fcbreq) != 0) {
   97:                                        /* Only non-zero byte reqest  */
   98:                                        /* is 2880.                   */
   99:      if (*(fcb + Z_fcbreq) != 2880) {
  100:         *ierr = 2;
  101:         }
  102:      else {
  103:                                        /* Calculate the byte offset  */
  104:                                        /* (0-relative) in the file   */
  105:                                        /* that correspond to the     */
  106:                                        /* virtual block number.      */
  107:         firstbyte = (*blkno - 1);
  108:         firstbyte = firstbyte * 2880;
  109:                                        /* Set file pointer of the    */
  110:                                        /* file descriptor to the     */
  111:                                        /* absolute byte address      */
  112:                                        /* "firstbyte".               */
  113:         if (lseek (fd, firstbyte, 0) == -1) {
  114:            *(fcb + Z_fcberr) = errno;
  115:            sprintf (msgbuf,
  116:               "ZTPMID: LSEEK ERROR ON FILE DESCRIPTOR %d", fd);
  117:            zmsgwr_ (msgbuf, &n7);
  118:            sprintf (msgbuf,
  119:               "ZTPMID: POSITIONING FILE POINTER TO BYTE OFFSET %d",
  120:               firstbyte);
  121:            zmsgwr_ (msgbuf, &n7);
  122:            *ierr = 3;
  123:            }
  124:                                        /* Perform the I/O and record */
  125:                                        /* the # of bytes transferred */
  126:                                        /* in *(fcb + Z_fcbxfr).      */
  127:                                        /* Record the system error    */
  128:                                        /* code (if any) in           */
  129:                                        /* *(fcb + Z_fcberr).         */
  130:         else {
  131:            if (strcmp (op, "READ") == 0) {
  132:               if ((*(fcb + Z_fcbxfr) =
  133:                  read (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  134:                  *(fcb + Z_fcberr) = errno;
  135:                  *ierr = 3;
  136:                  }
  137:               }
  138:            else if (strcmp (op, "WRIT") == 0) {
  139:               if ((*(fcb + Z_fcbxfr) =
  140:                  write (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  141:                  *(fcb + Z_fcberr) = errno;
  142:                  *ierr = 3;
  143:                  }
  144:               }
  145:                                        /* Bad opcode.                */
  146:            else {
  147:               *ierr = 2;
  148:               }
  149:            }
  150:         }
  151:      }
  153:   return;
  154:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPMID.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:06:18 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPMIO.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPMIO.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPMIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPMIO.f
FC        : Date       Fri Jul 18 17:06:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPMIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTPMIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTPMIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTPMIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTPMIO.FOR
COMRPL    : Date       Fri Jul 18 17:06:19 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTPMIR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPMIR.f
FC        : Date       Fri Jul 18 17:06:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMIR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMIR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPMIR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTPMIR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTPMIR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTPMIR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTPMIR.FOR
COMRPL    : Date       Fri Jul 18 17:06:19 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPOP2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPOP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPOP2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
AIPSCC    : Date       Fri Jul 18 17:06:20 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:8:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:11: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c: In function `ztpop2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:71: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:71: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:71: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:71: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tpop2__
    2:#include <unistd.h>
    3:#include <fcntl.h>
    4:#include <stdio.h>
    5:#include <string.h>
    6:#include <errno.h>
    7:#include <sys/file.h>
    8:#include <AIPSPROTO.H>
   10:#if __STDC__
   11:   void ztpop2_(int *fcb, char pname[MAXPNAME], int *mode, int *ierr)
   12:#else
   13:   ztpop2_(fcb, pname, mode, ierr)
   14:   int *fcb, *mode, *ierr;
   15:   char pname[MAXPNAME];
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! open a tape device for double-buffer, asymchronous IO             */
   19:/*# IO-basic Tape                                                     */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 2000, 2003                                   */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Open a tape drive for "map" (double buffered, asynchronous) I/O.  */
   47:/*  Inputs:                                                           */
   48:/*     pname   C*48   Physical file name                              */
   49:/*     mode    I      Mode indicator: 0 => read only                  */
   50:/*                                    2 => read/write                 */
   51:/*  Output:                                                           */
   52:/*     fcb     I(*)   File control block for opened tape drive        */
   53:/*     ierr    I      Error return code: 0 => no error                */
   54:/*                             2 => no such logical device            */
   55:/*                             3 => device not found                  */
   56:/*                             6 => other open error                  */
   57:/*  Generic UNIX version - synchronous I/O only.                      */
   58:/*  Modified for real-time VLA: if pathname = ON-LINE, call olopen and*/
   59:/*  use fd < 0.                                                       */
   60:/*--------------------------------------------------------------------*/
   61:{
   62:                                        /* Offsets to entries in the  */
   63:                                        /* file control blocks        */
   64:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   65:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   66:                                        /* # FTAB elements per map    */
   67:                                        /* file control block         */
   68:   extern int Z_mfcb;
   69:   int llen, xlen, xlnb, jerr, fd, dupfd, ifd, ntry, n8 = 8;
   70:   register int i, j;
   71:   char lognam[MAXPNAME], pathname[MAXAPATH], msgbuf[80];
   72:   float secs = 100.0;
   73:/*--------------------------------------------------------------------*/
   74:   *ierr = 0;
   75:                                        /* Extract logical device.    */
   76:   for (i = 0; i < MAXPNAME && pname[i] != ':'; i++)
   77:      lognam[i] = pname[i];
   78:   lognam[i] = '\0';
   79:                                        /* Translate logical device   */
   80:                                        /* name and null terminate.   */
   81:   llen = MAXPNAME;
   82:   xlen = MAXAPATH;
   83:   ztrlo2_ (&llen, lognam, &xlen, pathname, &xlnb, &jerr);
   84:   if (jerr != 0) {
   85:      *ierr = 3;
   86:      }
   87:   else {
   88:      pathname[xlnb] = '\0';
   89:                                        /* Open the tape drive        */
   90:                                        /* according to "mode".       */
   91:                                        /* If this is Wes' on-line    */
   92:                                        /* device, use special open   */
   93:                                        /* & use fake file descriptor */
   94:      errno = 0;
   95:      if ((strncmp(pathname, "on-line", 7) == 0) ||
   96:         (strncmp(pathname, "ON-LINE", 7)) == 0) {
   97:         for (ntry=0; ntry<100; ntry++) {
   98:            ifd = -99;
   99:            fd = olopen_(&ifd, pathname, strlen(pathname));
  100:            sprintf (msgbuf, "ZTPOP2: olopen %d", fd);
  101:            zmsgwr_ (msgbuf, &n8);
  102:                                        /* open fails */
  103:            if (fd < -99) {
  104:               sprintf (msgbuf,
  105:                  "ZTPOP2: NOT ON-LINE VERSION - QUIT");
  106:                  zmsgwr_ (msgbuf, &n8);
  107:                  *ierr = 3;
  108:                  }
  109:            else if (fd == -99 || fd >= 0) {
  110:               if (ntry == 99) {
  111:                  sprintf (msgbuf,
  112:                     "ZTPOP2: FAILS TO OPEN ON-LINE - QUIT");
  113:                  zmsgwr_ (msgbuf, &n8);
  114:                  *ierr = 6;
  115:                  }
  116:               else {
  117:                  sprintf (msgbuf,
  118:                     "ZTPOP2: FAILS TO OPEN ON-LINE - RETRY");
  119:                  zmsgwr_ (msgbuf, &n8);
  120:                  zdela2_ (&secs, &jerr) ;
  121:                  }
  122:               }
  123:            else
  124:               ntry = 1000;
  125:            }
  126:         }
  127:      else {
  128:         fd = open (pathname, *mode);
  129:         if (fd == -1) {
  130:            *(fcb + Z_fcberr) = errno;
  131:                                        /* Device doesn't exist.      */
  132:            if (errno == ENOENT)
  133:               *ierr = 2;
  134:                                        /* Some other open error.     */
  135:            else
  136:               *ierr = 6;
  137:            }
  138:         }
  139:                                        /* Get duplicate file         */
  140:                                        /* descriptor for 2nd buffer  */
  141:                                        /* (this is only necessary    */
  142:                                        /* for I/O wait servicing).   */
  143:      if (*ierr == 0) {
  144:         *(fcb + Z_fcbfd) = fd;
  145:                                        /* Single buffered            */
  146:         if (fd < 0)
  147:            *(fcb + Z_mfcb + Z_fcbfd) = fd;
  148:         else {
  149:            dupfd = dup(fd);
  150:            if (dupfd == -1) {
  151:                                        /* Store 2nd buffer info in   */
  152:                                        /* 1st buffer FCB for error   */
  153:                                        /* processing (kludge).       */
  154:               *(fcb + Z_mfcb + Z_fcbfd) = dupfd;
  155:               for (i = 0; i < Z_mfcb; i++)
  156:                  *(fcb + i) = *(fcb + Z_mfcb + i);
  157:               *(fcb + Z_fcberr) = errno;
  158:               close (fd);
  159:               *ierr = 6;
  160:               }
  161:            else {
  162:               *(fcb + Z_mfcb + Z_fcbfd) = dupfd;
  163:                                        /* Enable asynchronous mode   */
  164:                                        /* for both buffers here (not */
  165:                                        /* implemented in this        */
  166:                                        /* version).                  */
  167:               }
  168:            }
  169:         }
  170:      }
  172:   return;
  173:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPOP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:06:20 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPOPD.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPOPD.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPOPD.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
AIPSCC    : Date       Fri Jul 18 17:06:20 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:11:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:15: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c: In function `ztpopd_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:73: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:73: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:73: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_tpopd__
    5:#include <unistd.h>
    6:#include <fcntl.h>
    7:#include <string.h>
    8:#include <errno.h>
    9:#include <sys/types.h>
   10:#include <sys/stat.h>
   11:#include <AIPSPROTO.H>
   12:#define PMODE 0666                      /* Creation permission bits.  */
   14:#if __STDC__
   15:   void ztpopd_(int *fcb, char pname[MAXAPATH], int * mode, int *ierr)
   16:#else
   17:   void ztpopd_(fcb, pname, mode, ierr)
   18:   int *fcb, *mode, *ierr ;
   19:   char pname[MAXAPATH] ;
   20:#endif
   21:/*--------------------------------------------------------------------*/
   22:/*! open the specified FITS disk file                                 */
   23:/*# Z2 IO-tape                                                        */
   24:/*--------------------------------------------------------------------*/
   25:/*;  Copyright (C) 1995, 1997, 2001-2002                              */
   26:/*;  Associated Universities, Inc. Washington DC, USA.                */
   27:/*;                                                                   */
   28:/*;  This program is free software; you can redistribute it and/or    */
   29:/*;  modify it under the terms of the GNU General Public License as   */
   30:/*;  published by the Free Software Foundation; either version 2 of   */
   31:/*;  the License, or (at your option) any later version.              */
   32:/*;                                                                   */
   33:/*;  This program is distributed in the hope that it will be useful,  */
   34:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   35:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   36:/*;  GNU General Public License for more details.                     */
   37:/*;                                                                   */
   38:/*;  You should have received a copy of the GNU General Public        */
   39:/*;  License along with this program; if not, write to the Free       */
   40:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   41:/*;  MA 02139, USA.                                                   */
   42:/*;                                                                   */
   43:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   44:/*;         Internet email: aipsmail at nrao.edu.                        */
   45:/*;         Postal address: AIPS Project Office                       */
   46:/*;                         National Radio Astronomy Observatory      */
   47:/*;                         520 Edgemont Road                         */
   48:/*;                         Charlottesville, VA 22903-2475 USA        */
   49:/*--------------------------------------------------------------------*/
   50:/*  Opens a disk file for map (double buffered) or non-map (single    */
   51:/*  buffered) I/O and shared or exclusive use.                        */
   52:/*  Inputs:                                                           */
   53:/*     pname   H*256  Physical file name (H for Macro, C, ...')       */
   54:/*     mode    I      0 -> read only, 2 -> read/write                 */
   55:/*  Output:                                                           */
   56:/*     fcb     I(*)   File control block for disk file involved       */
   57:/*     ierr    I      Error return code: 0 => no error                */
   58:/*                       2 => file not found                          */
   59:/*                       6 => other open error                        */
   60:/*                       7 = illegal file name (translation fails)    */
   61:/*                       8 = 'write' file already exists              */
   62:/*  Generic UNIX version (synchronous I/O only).                      */
   63:/*--------------------------------------------------------------------*/
   64:{
   65:                                        /* Offsets to entries in the  */
   66:                                        /* file control blocks        */
   67:   extern int Z_fcbfd, Z_fcberr;
   68:                                        /* # of FTAB elements per map */
   69:                                        /* file control block         */
   70:   extern int Z_mfcb;
   71:   int llen, xlen, xlnb, jerr, syserr, fd, dupfd, excl;
   72:   register int i, j;
   73:   char pathname[MAXAPATH];
   74:/*--------------------------------------------------------------------*/
   75:   *ierr = 0 ;
   76:                                        /* get full file name         */
   77:   llen = MAXAPATH;
   78:   xlen = MAXAPATH;
   79:   zpath_(&llen, pname, &xlen, pathname, &xlnb, &jerr) ;
   80:   if (jerr != 0) {
   81:      *ierr = 3;
   82:      }
   83:   else {
   84:      pathname[xlnb] = '\0';
   85:                                        /* Open the disk file read    */
   86:                                        /* only or write only.        */
   87:      if (*mode == 0) {
   88:                                        /* Open read only.            */
   89:         excl = 0;
   90:         if ((fd = open (pathname, O_RDONLY)) == -1) {
   91:            *(fcb + Z_fcberr) = errno;
   92:                                        /* File doesn't exist.        */
   93:            if (errno == ENOENT)
   94:               *ierr = 2;
   95:                                        /* Some other open error.     */
   96:            else
   97:               *ierr = 6;
   98:            }
   99:         }
  100:      else if (*mode == 2) {
  101:                                        /* Open read/write.           */
  102:         excl = 1;
  103:         if ((fd = open (pathname, O_CREAT | O_EXCL | O_RDWR, PMODE))
  104:            == -1) {
  105:            *(fcb + Z_fcberr) = errno;
  106:                                        /* File already exists.       */
  107:            if (errno == EEXIST)
  108:               *ierr = 8;
  109:                                        /* Some other open error.     */
  110:            else
  111:               *ierr = 6;
  112:            }
  113:         }
  114:      else {
  115:                                        /* Invalid mode indicator.    */
  116:         *ierr = 6;
  117:         }
  118:                                        /* Proceed if all ok so far.  */
  119:      if (*ierr == 0) {
  120:         *(fcb + Z_fcbfd) = fd;
  121:                                        /* Apply non-blocking lock.   */
  122:         zlock_ (&fd, pname, &excl, &syserr, ierr);
  123:         if (*ierr != 0) {
  124:            *(fcb + Z_fcberr) = syserr;
  125:            close (fd);
  126:            }
  127:         else {
  128:                                        /* Get duplicate file         */
  129:                                        /* descriptor for 2nd buffer  */
  130:                                        /* (this is only necessary    */
  131:                                        /* for I/O wait servicing).   */
  132:            if ((dupfd = dup(fd)) == -1) {
  133:               *(fcb + Z_mfcb + Z_fcberr) = errno;
  134:               close (fd);
  135:               *ierr = 6;
  136:               }
  137:            else {
  138:               *(fcb + Z_mfcb + Z_fcbfd) = dupfd;
  139:               }
  140:            }
  141:         }
  142:      }
  143:                                        /* Exit.                      */
  144:   return;
  145:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPOPD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:06:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTPOPN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPN.f
FC        : Date       Fri Jul 18 17:06:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTPOPN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTPOPN.FOR
COMRPL    : Date       Fri Jul 18 17:06:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTPOPR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPR.f
FC        : Date       Fri Jul 18 17:06:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTPOPR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTPOPR.FOR
COMRPL    : Date       Fri Jul 18 17:06:22 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZTPWA2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPWA2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZTPWA2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPWA2.c
AIPSCC    : Date       Fri Jul 18 17:06:23 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPWA2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPWA2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPWA2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZTPWA2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTPWA2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTPWA2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTPWA2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTPWA2.FOR
COMRPL    : Date       Fri Jul 18 17:06:23 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPWAD.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPWAD.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPWAD.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAD.c
AIPSCC    : Date       Fri Jul 18 17:06:23 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAD.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAD.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAD.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAD.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTPWAD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTPWAD.FOR
COMRPL    : Date       Fri Jul 18 17:06:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTPWAR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAR.f
FC        : Date       Fri Jul 18 17:06:24 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTPWAR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTPWAR.FOR
COMRPL    : Date       Fri Jul 18 17:06:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTPWAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAT.f
FC        : Date       Fri Jul 18 17:06:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTPWAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTPWAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTPWAT.FOR
COMRPL    : Date       Fri Jul 18 17:06:25 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZTQSP2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTQSP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZTQSP2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTQSP2.c
AIPSCC    : Date       Fri Jul 18 17:06:26 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTQSP2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTQSP2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTQSP2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZTQSP2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTQSP2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTQSP2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTQSP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTQSP2.FOR
COMRPL    : Date       Fri Jul 18 17:06:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTQSPY.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTQSPY.f
FC        : Date       Fri Jul 18 17:06:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTQSPY.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTQSPY.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTQSPY.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTQSPY.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTQSPY.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTQSPY.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTQSPY.FOR
COMRPL    : Date       Fri Jul 18 17:06:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTREAD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTREAD.f
FC        : Date       Fri Jul 18 17:06:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTREAD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTREAD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTREAD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTREAD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTREAD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTREAD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTREAD.FOR
COMRPL    : Date       Fri Jul 18 17:06:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTRLOG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTRLOG.f
FC        : Date       Fri Jul 18 17:06:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTRLOG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTRLOG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTRLOG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTRLOG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTRLOG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTRLOG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTRLOG.FOR
COMRPL    : Date       Fri Jul 18 17:06:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTTBUF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTTBUF.f
FC        : Date       Fri Jul 18 17:06:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTBUF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTBUF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTTBUF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTTBUF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTTBUF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTTBUF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTTBUF.FOR
COMRPL    : Date       Fri Jul 18 17:06:29 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTCLS.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTTCLS.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTCLS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTTCLS.f
FC        : Date       Fri Jul 18 17:06:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTCLS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTCLS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTTCLS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTTCLS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTTCLS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTTCLS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTTCLS.FOR
COMRPL    : Date       Fri Jul 18 17:06:30 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTOP2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTTOP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTOP2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
AIPSCC    : Date       Fri Jul 18 17:06:30 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:16:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:19: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:26: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c: In function `zttop2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:86: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:86: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:86: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:87: error: `MAXAPATH' undeclared (first use in this function)
/usr/include/ctype.h: At top level:
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:19: error: storage size of `pathname2' isn't known
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ttop2__
    2:#include <unistd.h>
    3:#include <stdlib.h>
    4:#include <stdio.h>
    5:#include <string.h>
    7:#include <errno.h>
    8:#include <sys/types.h>
    9:#include <sys/socket.h>
   10:#include <sys/un.h>
   11:#include <netinet/in.h>
   12:#include <netdb.h>
   13:#include <sys/stat.h>
   14:#include <string.h>
   15:#include <ctype.h>
   16:#include <AIPSPROTO.H>
   17:                                        /* Global data for remembered */
   18:                                        /* translation and flag       */
   19:char pathname2[MAXAPATH];
   20:int remembered=0;
   21:struct sockaddr_un mc_sock_nune;
   22:struct sockaddr_in ms_sock_name;
   23:int msg_fd = -1;
   25:#if __STDC__
   26:   void zttop2_(int *fcb, char pname[MAXPNAME], int *ierr)
   27:#else
   28:   void zttop2_(fcb, pname, ierr)
   29:   int *fcb, *ierr;
   30:   char pname[MAXPNAME];
   31:#endif
   32:/*--------------------------------------------------------------------*/
   33:/*! read/write from/to a message terminal                             */
   34:/*# Graphics                                                          */
   35:/*--------------------------------------------------------------------*/
   36:/*;  Copyright (C) 1995-1998, 2000                                    */
   37:/*;  Associated Universities, Inc. Washington DC, USA.                */
   38:/*;                                                                   */
   39:/*;  This program is free software; you can redistribute it and/or    */
   40:/*;  modify it under the terms of the GNU General Public License as   */
   41:/*;  published by the Free Software Foundation; either version 2 of   */
   42:/*;  the License, or (at your option) any later version.              */
   43:/*;                                                                   */
   44:/*;  This program is distributed in the hope that it will be useful,  */
   45:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   46:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   47:/*;  GNU General Public License for more details.                     */
   48:/*;                                                                   */
   49:/*;  You should have received a copy of the GNU General Public        */
   50:/*;  License along with this program; if not, write to the Free       */
   51:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   52:/*;  MA 02139, USA.                                                   */
   53:/*;                                                                   */
   54:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   55:/*;         Internet email: aipsmail at nrao.edu.                        */
   56:/*;         Postal address: AIPS Project Office                       */
   57:/*;                         National Radio Astronomy Observatory      */
   58:/*;                         520 Edgemont Road                         */
   59:/*;                         Charlottesville, VA 22903-2475 USA        */
   60:/*--------------------------------------------------------------------*/
   61:/*  Open a message terminal for exclusive use.                        */
   62:/*                                                                    */
   63:/*  Inputs:                                                           */
   64:/*     pname   C*48   A "logical", either TTDEVnn or TASKTTn, which   */
   65:/*                      in turn translates to a hostname or hardwired */
   66:/*                      terminal device.  If translation cannot be    */
   67:/*                      accessed as a file, a socket is assumed.      */
   68:/*  Output:                                                           */
   69:/*     fcb     I(*)   File control block for opened device            */
   70:/*     ierr    I      Error return code: 0 => no error                */
   71:/*                             2 => no such logical device            */
   72:/*                             3 => invalid hostname or service       */
   73:/*                             6 => socket or connect call failed     */
   74:/*  Generic UNIX version -- assumes berkeley sockets.                 */
   75:/*  PPM 93/Mar/03: Pat Murphy, NRAO.  Clone of ztkop2, originally     */
   76:/*                 by Jonathan D. Eisenhamer, UCLA.                   */
   77:/*--------------------------------------------------------------------*/
   78:{
   79:                                        /* Offsets to entries in the  */
   80:                                        /* file control blocks        */
   81:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   82:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4, Z_nfcbfd, Z_nfcber;
   84:   int llen, xlen, tlen, xlnb, jerr, fd, isspec;
   85:   register int i;
   86:   char lognam[MAXPNAME],
   87:        pathname[MAXAPATH],
   88:        lnam[6], tlnam[8], *device;
   89:                                        /* Hostname, inet srvc info   */
   90:   struct hostent *hp;
   91:   struct servent *sp;
   92:                                        /* Socket descriptor, name    */
   93:   int s;
   94:/*--------------------------------------------------------------------*/
   95:   *ierr = 0;
   96:                                        /* Extract logical device     */
   97:                                        /* name.                      */
   98:   for (i = 0; i < MAXPNAME && pname[i] != ':' && pname[i] != ' '; i++)
   99:      lognam[i] = pname[i];
  100:   lognam[i] = '\0';
  101:                                        /* Translate logical device   */
  102:                                        /* name and null terminate.   */
  103:   jerr = 0;
  104:   if (remembered == 0) {
  105:      llen = MAXPNAME;
  106:      xlen = MAXAPATH;
  107:      ztrlo2_ (&llen, lognam, &xlen, pathname, &xlnb, &jerr);
  108:      if (jerr != 0) {
  109:         fprintf (stderr, "ZTTOP2: error translating %s\n", lognam);
  110:         *ierr = 2;
  111:         }
  112:      else {
  113:         if ((device = getenv(getenv("TVDEV"))) == NULL) {
  114:                                        /* undefined                  */
  115:            fprintf (stderr, "ZTTOP2: NO SUCH DEVICE = TVDEV\n");
  116:            *ierr = 2;
  117:            jerr = 2;
  118:            }
  119:         }
  120:      }
  121:                                        /* Only do if ztrlo2 worked.. */
  122:   if (jerr == 0) {
  123:                                        /* and if we haven't before.. */
  124:      if (remembered == 0) {
  125:         pathname[xlnb] = '\0';
  126:                                        /* open socket, INET domain   */
  127:         isspec = 2;
  128:         if (strncmp(device,"sssin",5) == 0) isspec = 1;
  129:                                        /* Now, if it's NOT special,  */
  130:                                        /* assume that it is meant to */
  131:                                        /* be an INET domain socket   */
  132:         if (isspec == 1) {
  133:            if ((hp = gethostbyname (pathname)) == 0) {
  134:                                        /* ouch, something is wrong   */
  135:               *(fcb + Z_nfcber) = errno;
  136:               *ierr = 3;
  137:               }
  138:            else if ((sp = getservbyname ("msgserv", "tcp")) == 0) {
  139:                                        /* Get the port on which the  */
  140:                                        /* the msgserver resides.     */
  141:               *(fcb + Z_nfcber) = errno;
  142:               *ierr = 3;
  143:               }
  144:            else {
  145:                                        /* ok, NOW remember this!     */
  146:               strcpy (pathname2, pathname);
  147:               remembered = isspec;
  148:               memset ((char *)&ms_sock_name, 0, sizeof (ms_sock_name));
  149:               memcpy ((char *)&ms_sock_name.sin_addr,
  150:                       (char *)hp->h_addr, hp->h_length);
  151:               ms_sock_name.sin_family = hp->h_addrtype;
  152:               ms_sock_name.sin_port   = sp->s_port;
  153:               }
  154:            }
  155:         else {                      /* INET domain */
  156:            if ((device = getenv(getenv("TTDEV"))) == NULL) {
  157:                                        /* undefined                  */
  158:               fprintf(stderr, "ZTTOP22: NO SUCH DEVICE = TTDEV\n");
  159:               *ierr = 2;
  160:               }
  161:            mc_sock_nune.sun_family = AF_UNIX;
  162:            strcpy(mc_sock_nune.sun_path, device);
  163:            remembered = isspec;
  164:            }
  165:         }
  166:      if (*ierr == 0) {
  167:                                        /* Create the communications  */
  168:                                        /* socket.                    */
  169:         if (remembered == 1) {
  170:            if ((s = socket (ms_sock_name.sin_family, SOCK_STREAM, 0))
  171:                == -1) {
  172:               *(fcb + Z_fcberr) = errno;
  173:               *ierr = 6;
  174:               }
  175:                                        /* Connect to the server.     */
  176:                                        /* From here on, everything   */
  177:                                        /* is treated the same.  Only */
  178:                                        /* thing to watch is how to   */
  179:                                        /* close things (zttcl2)      */
  180:                                        /* Note non-fcp I/O here!!!   */
  181:            else {
  182:               if (connect (s,  (struct sockaddr *) &ms_sock_name,
  183:                  sizeof(ms_sock_name)) == -1) {
  184:                  *(fcb + Z_nfcber) = errno;
  185:                  *ierr = 6;
  186:                  close(s);
  187:                  *(fcb + Z_nfcbfd) = 0;
  188:                  }
  189:               else {
  190:                  *(fcb + Z_nfcbfd) = s;
  191:                  *(fcb + Z_nfcber) = 0;
  192:                  }
  193:               }
  194:            }
  195:         else {
  196:            if ((s = (int)socket(AF_UNIX, SOCK_STREAM, 0)) < 0) {
  197:               perror("TTOP2 socket (UNIX)");
  198:               *(fcb + Z_nfcber) = errno;
  199:               *ierr = 1;
  200:               }
  201:            else {
  202:               if (connect(s, (struct sockaddr *) &mc_sock_nune,
  203:                  (sizeof(mc_sock_nune.sun_path)
  204:                  +sizeof(mc_sock_nune.sun_family))) < 0) {
  205:/*                perror("TTOP2 connect (UNIX)");  */
  206:                  *(fcb + Z_nfcber) = errno;
  207:                  *ierr = 6;
  208:                  close(s);
  209:                  *(fcb + Z_nfcbfd) = 0;
  210:                  }
  211:               else {
  212:                  *(fcb + Z_nfcbfd) = s;
  213:                  *(fcb + Z_nfcber) = 0;
  214:                  }
  215:               }
  216:            }
  217:         }
  218:      }
  219:                                        /* something went amiss, so   */
  220:                                        /* reset TTDEV and quit       */
  221:   if (*ierr != 0) {
  222:      remembered = 0;
  223:      strcpy(lnam, "TTDEV");
  224:      strcpy(tlnam, "TTDEV00");
  225:      llen=strlen(lnam);
  226:      tlen=strlen(tlnam);
  227:      zcrlog_(&llen, lnam, &tlen, tlnam, &jerr);
  228:      if (jerr != 0) {
  229:         fprintf (stderr,
  230:                "ZTTOP2: (info) problem opening socket to msgserver\n");
  231:         fprintf (stderr,
  232:                "ZTTOP2: (info) failed to reset message device\n");
  233:         }
  234:      }
  236:                                       /* store the file descriptor  */
  237:                                       /* so that ZTACV9 can get at  */
  238:                                       /* it                         */
  239:   msg_fd = *(fcb + Z_nfcbfd);
  241:   return;
  242:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTTOP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:06:31 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTOPN.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTTOPN.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTOPN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTTOPN.f
FC        : Date       Fri Jul 18 17:06:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTOPN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTOPN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTTOPN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTTOPN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTTOPN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTTOPN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTTOPN.FOR
COMRPL    : Date       Fri Jul 18 17:06:31 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTYIO.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTTYIO.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTYIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTTYIO.f
FC        : Date       Fri Jul 18 17:06:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTYIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTYIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTTYIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTTYIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTTYIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTTYIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTTYIO.FOR
COMRPL    : Date       Fri Jul 18 17:06:32 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTVSRV.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTVSRV.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTVSRV.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTVSRV.c
AIPSCC    : Date       Fri Jul 18 17:06:33 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTVSRV.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTVSRV.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTVSRV.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZTVSRV.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTVSRV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTVSRV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTVSRV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTVSRV.FOR
COMRPL    : Date       Fri Jul 18 17:06:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTXCLS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTXCLS.f
FC        : Date       Fri Jul 18 17:06:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXCLS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXCLS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTXCLS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTXCLS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTXCLS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTXCLS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTXCLS.FOR
COMRPL    : Date       Fri Jul 18 17:06:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTXIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTXIO.f
FC        : Date       Fri Jul 18 17:06:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTXIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTXIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTXIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTXIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTXIO.FOR
COMRPL    : Date       Fri Jul 18 17:06:35 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTXMA2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTXMA2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTXMA2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
AIPSCC    : Date       Fri Jul 18 17:06:35 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c:10:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c: In function `ztxma2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c:72: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c:72: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c:72: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_txma2__
    5:#include <unistd.h>
    6:#include <stdlib.h>
    7:#include <sys/types.h>
    8:#include <string.h>
    9:#include <dirent.h>
   10:#include <AIPSPROTO.H>
   12:#if __STDC__
   13:   void ztxma2_(int *flen, char *filspc, int *nmax, int *iext,
   14:      int *nnam, char *names, int *ierr)
   15:#else
   16:   void ztxma2_(flen, filspc, nmax, iext, nnam, names, ierr)
   17:   int *flen, *nmax, *iext, *nnam, *ierr;
   18:   char filspc[], names[];
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! find all file names matching a given wildcard specification       */
   22:/*# Text                                                              */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995, 1997                                         */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*  Find all file names that match a given wild card specification.   */
   50:/*  Supports <aa>*<bb> only.                                          */
   51:/*  Inputs:                                                           */
   52:/*     flen     I          Length in characters of "filspc"           */
   53:/*     filspc   C*(flen)   File specification                         */
   54:/*     nmax     I          Maximum number of names                    */
   55:/*     iext     I          Extension disposition indicator:           */
   56:/*                            0 => remove extension                   */
   57:/*                            1 => retain extension                   */
   58:/*  Output:                                                           */
   59:/*     nnam     I          Number of matching names found             */
   60:/*     names    H*12(nmax) Array of matching names (H for Macro, C...)*/
   61:/*     ierr     I          Error return code:                         */
   62:/*                            0 => no error                           */
   63:/*                            1 => no matching names found            */
   64:/*                            2 => error opening or closing directory */
   65:/*  Generic UNIX version -                                            */
   66:/*  This is Posix-compliant and simple minded: it can handle name*    */
   67:/*  and *name and not much else.  This is enough for AIPS.            */
   68:/*--------------------------------------------------------------------*/
   69:{
   70:   DIR           *dfd;
   71:   struct dirent *dirp;
   72:   char          dspc[MAXAPATH], fspc[MAXAPATH], bspc[MAXAPATH];
   73:   register int  i, j, k, l;
   74:   int           nf, nb, nt;
   75:/*--------------------------------------------------------------------*/
   76:   *ierr = 0;
   77:   *nnam = 0;
   78:                                        /* Determine the beginning of */
   79:                                        /* the file name (end of      */
   80:                                        /* directory name) as "i".    */
   81:   i = 0;
   82:   for (j = 0; j < *flen; j++)
   83:      if (filspc[j] == '/') i = j;
   84:                                        /* Extract directory name.    */
   85:   for (j = 0; j < i; j++)
   86:      dspc[j] = filspc[j];
   87:   dspc[i] = '\0';
   88:                                        /* Provide for no directory.  */
   89:   if (i == 0)
   90:      i = -1;
   91:                                        /* Collect chars before '*'   */
   92:   nf = 0;
   93:   for (j = i + 1; j < *flen && nf < MAXAPATH && filspc[j] != '*' &&
   94:      filspc[j] != '\0' && filspc[j] != ' '; j++) {
   95:      fspc[nf] = filspc[j];
   96:      nf = nf + 1;
   97:      }
   98:   fspc[nf] = '\0';
   99:                                        /* Collect chars after '*'    */
  100:   nb = 0;
  101:   if (filspc[j] == '*') {
  102:      for (j = j + 1; j < *flen && nb < MAXAPATH && filspc[j] != '\0'
  103:         && filspc[j] != ' '; j++) {
  104:         bspc[nb] = filspc[j];
  105:         nb = nb + 1;
  106:         }
  107:      }
  108:   bspc[nb] = '\0';
  109:                                        /* Open directory             */
  110:   if ((dfd = opendir (dspc)) == NULL)
  111:      *ierr = 2;
  112:                                        /* Collect filenames that     */
  113:                                        /* meet specifications.       */
  114:   else {
  115:      while (((dirp = readdir (dfd)) != NULL) &&  (*nnam < *nmax)) {
  116:                                        /* Directory slot not in use. */
  117:         if (dirp->d_ino == 0)
  118:            continue;
  119:                                        /* Skip self and parent.      */
  120:         if (strcmp (dirp->d_name,".")  == 0 ||
  121:             strcmp (dirp->d_name,"..") == 0)
  122:            continue;
  123:                                        /* Compare forwards.          */
  124:         if (nf > 0) {
  125:            for (i = 0; i < nf && i < MAXAPATH; i++) {
  126:               if (dirp->d_name[i] != fspc[i]) goto skip;
  127:               }
  128:            }
  129:                                        /* Compare backwards.         */
  130:         if (nb > 0) {
  131:                                        /* Get length                 */
  132:            for (nt = 0; nt < MAXAPATH && dirp->d_name[nt] != '\0'
  133:              && dirp->d_name[nt] != ' '; nt++);
  134:            k = 0;
  135:            for (i = nt - 1; i >= 0 && k < nb; i--) {
  136:               if (dirp->d_name[i] != bspc[nb-k-1]) goto skip;
  137:               k = k + 1;
  138:               }
  139:            }
  140:                                        /* Found a match:             */
  141:                                        /* find end & last . of name  */
  142:         k = 0;
  143:         l = 0;
  144:         for (i = 0; i < 12 && dirp->d_name[i] != '\0'; i++) {
  145:             k = i;
  146:             if (dirp->d_name[i] == '.') l = i;
  147:             }
  148:         if (l == 0) l = k + 1;
  149:                                        /* Strip extension.           */
  150:         if (*iext == 0) k = l - 1;
  151:                                        /* copy name, blank fill      */
  152:         for (i = 0; i < 12; i++) {
  153:            j = (*nnam * 12) + i;
  154:            if (i > k)
  155:               names[j] = ' ';
  156:            else
  157:               names[j] = dirp->d_name[i];
  158:            }
  159:                                        /* Increment number found.    */
  160:         *nnam = *nnam + 1;
  161:                                        /* Failed to match: skip      */
  162:   skip:
  163:         continue;
  164:         }
  165:                                        /* Close directory.           */
  166:      if (closedir (dfd) != 0)
  167:         *ierr = 2;
  168:      }
  169:                                        /* If more than one, sort     */
  170:                                        /* alphabetically.            */
  171:   if (*nnam > 1)
  172:#if __STDC__
  173:      qsort ((void *) names, (size_t) *nnam, (size_t) 12,
  174:         (int (*)(const void *, const void *)) strcmp);
  175:#else
  176:      qsort (names, *nnam, 12, strcmp);
  177:#endif
  178:   else if (*nnam == 0)
  179:      *ierr = 1;
  181:   return;
  182:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTXMA2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:06:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTXMAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTXMAT.f
FC        : Date       Fri Jul 18 17:06:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXMAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXMAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTXMAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTXMAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTXMAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTXMAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTXMAT.FOR
COMRPL    : Date       Fri Jul 18 17:06:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTXOP2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTXOP2.f
FC        : Date       Fri Jul 18 17:06:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXOP2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXOP2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTXOP2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTXOP2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTXOP2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTXOP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTXOP2.FOR
COMRPL    : Date       Fri Jul 18 17:06:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTXOPN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTXOPN.f
FC        : Date       Fri Jul 18 17:06:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXOPN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXOPN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTXOPN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTXOPN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTXOPN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTXOPN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTXOPN.FOR
COMRPL    : Date       Fri Jul 18 17:06:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTXREN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTXREN.f
FC        : Date       Fri Jul 18 17:06:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXREN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXREN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTXREN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTXREN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTXREN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTXREN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTXREN.FOR
COMRPL    : Date       Fri Jul 18 17:06:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZTXZAP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTXZAP.f
FC        : Date       Fri Jul 18 17:06:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXZAP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXZAP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTXZAP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZTXZAP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZTXZAP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZTXZAP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZTXZAP.FOR
COMRPL    : Date       Fri Jul 18 17:06:40 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZULIM.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZULIM.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZULIM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZULIM.f
FC        : Date       Fri Jul 18 17:06:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZULIM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZULIM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZULIM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZULIM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZULIM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZULIM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZULIM.FOR
COMRPL    : Date       Fri Jul 18 17:06:41 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZUVPAK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZUVPAK.f
FC        : Date       Fri Jul 18 17:06:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZUVPAK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZUVPAK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZUVPAK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZUVPAK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZUVPAK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZUVPAK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZUVPAK.FOR
COMRPL    : Date       Fri Jul 18 17:06:41 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZUVXPN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZUVXPN.f
FC        : Date       Fri Jul 18 17:06:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZUVXPN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZUVXPN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZUVXPN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZUVXPN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZUVXPN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZUVXPN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZUVXPN.FOR
COMRPL    : Date       Fri Jul 18 17:06:42 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZV20C2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZV20C2.f
FC        : Date       Fri Jul 18 17:06:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZV20C2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZV20C2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZV20C2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZV20C2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZV20C2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZV20C2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZV20C2.FOR
COMRPL    : Date       Fri Jul 18 17:06:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZV20CL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZV20CL.f
FC        : Date       Fri Jul 18 17:06:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZV20CL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZV20CL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZV20CL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZV20CL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZV20CL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZV20CL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZV20CL.FOR
COMRPL    : Date       Fri Jul 18 17:06:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZV20MC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZV20MC.f
FC        : Date       Fri Jul 18 17:06:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZV20MC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZV20MC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZV20MC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZV20MC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZV20MC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZV20MC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZV20MC.FOR
COMRPL    : Date       Fri Jul 18 17:06:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZV20O2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZV20O2.f
FC        : Date       Fri Jul 18 17:06:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZV20O2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZV20O2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZV20O2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZV20O2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZV20O2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZV20O2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZV20O2.FOR
COMRPL    : Date       Fri Jul 18 17:06:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZV20OP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZV20OP.f
FC        : Date       Fri Jul 18 17:06:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZV20OP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZV20OP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZV20OP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZV20OP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZV20OP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZV20OP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZV20OP.FOR
COMRPL    : Date       Fri Jul 18 17:06:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZV20X2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZV20X2.f
FC        : Date       Fri Jul 18 17:06:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZV20X2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZV20X2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZV20X2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZV20X2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZV20X2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZV20X2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZV20X2.FOR
COMRPL    : Date       Fri Jul 18 17:06:48 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZV20XF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZV20XF.f
FC        : Date       Fri Jul 18 17:06:48 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZV20XF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZV20XF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZV20XF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZV20XF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZV20XF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZV20XF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZV20XF.FOR
COMRPL    : Date       Fri Jul 18 17:06:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZVERSN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVERSN.f
FC        : Date       Fri Jul 18 17:06:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVERSN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVERSN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVERSN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVERSN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVERSN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVERSN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVERSN.FOR
COMRPL    : Date       Fri Jul 18 17:06:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZVLBIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVLBIN.f
FC        : Date       Fri Jul 18 17:06:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVLBIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVLBIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVLBIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVLBIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVLBIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVLBIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVLBIN.FOR
COMRPL    : Date       Fri Jul 18 17:06:50 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTPC2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZVTPC2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTPC2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTPC2.c
AIPSCC    : Date       Fri Jul 18 17:06:51 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPC2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPC2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTPC2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPC2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPC2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTPC2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTPC2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTPC2.FOR
COMRPL    : Date       Fri Jul 18 17:06:51 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTPC3.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZVTPC3.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTPC3.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTPC3.c
AIPSCC    : Date       Fri Jul 18 17:06:52 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPC3.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPC3.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTPC3.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPC3.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPC3.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTPC3.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTPC3.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTPC3.FOR
COMRPL    : Date       Fri Jul 18 17:06:52 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTPGC.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZVTPGC.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTPGC.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTPGC.c
AIPSCC    : Date       Fri Jul 18 17:06:52 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPGC.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPGC.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTPGC.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPGC.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPGC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTPGC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTPGC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTPGC.FOR
COMRPL    : Date       Fri Jul 18 17:06:53 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTPO2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZVTPO2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTPO2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTPO2.c
AIPSCC    : Date       Fri Jul 18 17:06:53 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPO2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPO2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTPO2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPO2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPO2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTPO2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTPO2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTPO2.FOR
COMRPL    : Date       Fri Jul 18 17:06:54 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTPO3.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZVTPO3.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTPO3.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTPO3.c
AIPSCC    : Date       Fri Jul 18 17:06:54 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPO3.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPO3.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTPO3.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPO3.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPO3.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTPO3.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTPO3.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTPO3.FOR
COMRPL    : Date       Fri Jul 18 17:06:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZVTPRC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRC.f
FC        : Date       Fri Jul 18 17:06:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTPRC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTPRC.FOR
COMRPL    : Date       Fri Jul 18 17:06:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZVTPRO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRO.f
FC        : Date       Fri Jul 18 17:06:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTPRO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTPRO.FOR
COMRPL    : Date       Fri Jul 18 17:06:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZVTPRX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRX.f
FC        : Date       Fri Jul 18 17:06:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTPRX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTPRX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTPRX.FOR
COMRPL    : Date       Fri Jul 18 17:06:57 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTPX2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZVTPX2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTPX2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTPX2.c
AIPSCC    : Date       Fri Jul 18 17:06:58 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPX2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPX2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTPX2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPX2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPX2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTPX2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTPX2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTPX2.FOR
COMRPL    : Date       Fri Jul 18 17:06:58 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTPX3.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZVTPX3.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTPX3.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTPX3.c
AIPSCC    : Date       Fri Jul 18 17:06:59 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPX3.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTPX3.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTPX3.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPX3.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTPX3.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTPX3.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTPX3.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTPX3.FOR
COMRPL    : Date       Fri Jul 18 17:06:59 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTVC2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZVTVC2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTVC2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTVC2.c
AIPSCC    : Date       Fri Jul 18 17:06:59 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVC2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVC2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTVC2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVC2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVC2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTVC2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTVC2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTVC2.FOR
COMRPL    : Date       Fri Jul 18 17:07:00 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTVC3.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZVTVC3.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTVC3.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTVC3.c
AIPSCC    : Date       Fri Jul 18 17:07:00 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVC3.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVC3.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTVC3.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVC3.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVC3.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTVC3.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTVC3.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTVC3.FOR
COMRPL    : Date       Fri Jul 18 17:07:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZVTVCL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTVCL.f
FC        : Date       Fri Jul 18 17:07:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVCL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVCL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTVCL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVCL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTVCL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTVCL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTVCL.FOR
COMRPL    : Date       Fri Jul 18 17:07:01 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTVGC.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZVTVGC.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTVGC.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTVGC.c
AIPSCC    : Date       Fri Jul 18 17:07:01 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVGC.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVGC.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTVGC.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVGC.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVGC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTVGC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTVGC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTVGC.FOR
COMRPL    : Date       Fri Jul 18 17:07:02 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTVO2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZVTVO2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTVO2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTVO2.c
AIPSCC    : Date       Fri Jul 18 17:07:02 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVO2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVO2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTVO2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVO2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVO2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTVO2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTVO2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTVO2.FOR
COMRPL    : Date       Fri Jul 18 17:07:03 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTVO3.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZVTVO3.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTVO3.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTVO3.c
AIPSCC    : Date       Fri Jul 18 17:07:03 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVO3.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVO3.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTVO3.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVO3.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVO3.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTVO3.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTVO3.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTVO3.FOR
COMRPL    : Date       Fri Jul 18 17:07:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZVTVOP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTVOP.f
FC        : Date       Fri Jul 18 17:07:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVOP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVOP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTVOP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVOP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTVOP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTVOP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTVOP.FOR
COMRPL    : Date       Fri Jul 18 17:07:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZVTVRC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTVRC.f
FC        : Date       Fri Jul 18 17:07:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVRC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVRC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTVRC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVRC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTVRC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTVRC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTVRC.FOR
COMRPL    : Date       Fri Jul 18 17:07:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZVTVRO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTVRO.f
FC        : Date       Fri Jul 18 17:07:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVRO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVRO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTVRO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVRO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTVRO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTVRO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTVRO.FOR
COMRPL    : Date       Fri Jul 18 17:07:06 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTVX2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZVTVX2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTVX2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTVX2.c
AIPSCC    : Date       Fri Jul 18 17:07:06 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVX2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVX2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTVX2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVX2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVX2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTVX2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTVX2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTVX2.FOR
COMRPL    : Date       Fri Jul 18 17:07:07 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTVX3.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZVTVX3.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZVTVX3.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTVX3.c
AIPSCC    : Date       Fri Jul 18 17:07:07 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVX3.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVX3.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTVX3.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVX3.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVX3.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTVX3.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTVX3.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTVX3.FOR
COMRPL    : Date       Fri Jul 18 17:07:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZVTVXF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZVTVXF.f
FC        : Date       Fri Jul 18 17:07:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVXF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZVTVXF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZVTVXF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZVTVXF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZVTVXF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZVTVXF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZVTVXF.FOR
COMRPL    : Date       Fri Jul 18 17:07:08 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZWAI2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZWAI2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZWAI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZWAI2.c
AIPSCC    : Date       Fri Jul 18 17:07:08 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZWAI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZWAI2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZWAI2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZWAI2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZWAI2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZWAI2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZWAI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZWAI2.FOR
COMRPL    : Date       Fri Jul 18 17:07:09 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZWAIT.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZWAIT.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZWAIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZWAIT.f
FC        : Date       Fri Jul 18 17:07:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZWAIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZWAIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZWAIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZWAIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZWAIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZWAIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZWAIT.FOR
COMRPL    : Date       Fri Jul 18 17:07:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZWHOMI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZWHOMI.f
FC        : Date       Fri Jul 18 17:07:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZWHOMI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZWHOMI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZWHOMI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZWHOMI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZWHOMI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZWHOMI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZWHOMI.FOR
COMRPL    : Date       Fri Jul 18 17:07:10 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZWINC2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZWINC2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZWINC2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZWINC2.c
AIPSCC    : Date       Fri Jul 18 17:07:11 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZWINC2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZWINC2.c
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZWINC2.c
AIPSCC    : ends successfully.
AIPSCC    : Delete     /usr/local/aips/31DEC03/LINUX/PREP/ZWINC2.c
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZWINC2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZWINC2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZWINC2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZWINC2.FOR
COMRPL    : Date       Fri Jul 18 17:07:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZWINC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZWINC.f
FC        : Date       Fri Jul 18 17:07:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZWINC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZWINC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZWINC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZWINC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZWINC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZWINC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZWINC.FOR
COMRPL    : Date       Fri Jul 18 17:07:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZX8XL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZX8XL.f
FC        : Date       Fri Jul 18 17:07:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZX8XL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZX8XL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZX8XL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZX8XL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZX8XL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZX8XL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZX8XL.FOR
COMRPL    : Date       Fri Jul 18 17:07:13 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZXHELP.FOR
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZXHELP.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZXHELP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZXHELP.f
FC        : Date       Fri Jul 18 17:07:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZXHELP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZXHELP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZXHELP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZXHELP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZXHELP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZXHELP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZXHELP.FOR
COMRPL    : Date       Fri Jul 18 17:07:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/ZXLX8.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZXLX8.f
FC        : Date       Fri Jul 18 17:07:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZXLX8.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ZXLX8.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZXLX8.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ZXLX8.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ZXLX8.o
COMRPL    : Changed    /usr/local/aips/31DEC03/APL/DEV/ZXLX8.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/APL/DEV/ZXLX8.FOR
INSTEP2   : Failure in $APLGEN/...
INSTEP2   : compilations.
INSTEP2   : Aborts!    Fri Jul 18 17:07:14 CDT 2003
INSTEP2   : Begins     Fri Jul 18 17:25:41 CDT 2003

INSTEP2   : Create any missing binary file directories.

INSTEP2   : Directory /usr/local/aips/31DEC03/LINUX/LIBR
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLNOT
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QOOP
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QSUB
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/YSS
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/YSUB
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LOAD
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/MEMORY
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/ERRORS
INSTEP2   : already exists (no need to create).

INSTEP2   : Grind away on mass compilation of subroutines.
INSTEP2   : This part can take a very long time.

INSTEP2   : Process    $AIPSUB/...
INSTEP2   : subroutines.
INSTEP2   : Library    /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB
INSTEP2   : already exists.
INSTEP2   : Skip       $AIPSUB/...
INSTEP2   : compilations.
INSTEP2   : Process    $APLSUB/...
INSTEP2   : subroutines.
INSTEP2   : Library    /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB
INSTEP2   : already exists.
INSTEP2   : Skip       $APLSUB/...
INSTEP2   : compilations.
INSTEP2   : Process    $APLOOP/...
INSTEP2   : subroutines.
INSTEP2   : Library    /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/SUBLIB
INSTEP2   : already exists.
INSTEP2   : Skip       $APLOOP/...
INSTEP2   : compilations.
INSTEP2   : Process    $APLGEN/...
INSTEP2   : subroutines.
INSTEP2   : File       /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
INSTEP2   : already exists (no need to create).
INSTEP2   : Resume     $APLGEN/...
INSTEP2   : compilations at
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABORS.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZACTV9.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBFLI2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICC2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICO2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDKMID.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGMAI2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIGNAL.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIPAC2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLOCK.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSTRTP.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTRLO2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTCL2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTYI2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZABOR2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZBYTF2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZCMPR2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZCREA2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDAOPN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDEST2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDICIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDIE2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDM2DL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZEXIS2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZFI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZGRLHI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZGRLTC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZGUEST.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZLASC2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZLPCL2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZM70O2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZM70X2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMKTMP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMOUN2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZPATH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZPRMPT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRDMF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRENA2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRM2RL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSSSL2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSSSO2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTAP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTKOP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPCL2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPMI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPMID.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPOP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPOPD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTTOP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTXMA2.FOR
COMRPL    : Date       Fri Jul 18 17:25:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABORS.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
AIPSCC    : Date       Fri Jul 18 17:25:43 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
/usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c:10:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_abors__
    5:#include <sys/types.h>
    6:#include <unistd.h>
    7:#include <stdio.h>
    8:#include <stdlib.h>
    9:#include <signal.h>
   10:#include <AIPSPROTO.H>
   12:static int num_calls = 0;      /* The number of active calls to
   13:                                  zabors.  Since zabors should not
   14:                                  be called recursively this should
   15:                                  be 0 or 1 */
   17:#if __STDC__
   18:   void zabors_(int isig)
   19:#else
   20:   void zabors_(isig)
   21:   int isig;
   22:#endif
   23:/*--------------------------------------------------------------------*/
   24:/*! does abort handling selected by ZABORT                            */
   25:/*# Z2 System                                                         */
   26:/*--------------------------------------------------------------------*/
   27:/*;  Copyright (C) 1995-1998                                          */
   28:/*;  Associated Universities, Inc. Washington DC, USA.                */
   29:/*;                                                                   */
   30:/*;  This program is free software; you can redistribute it and/or    */
   31:/*;  modify it under the terms of the GNU General Public License as   */
   32:/*;  published by the Free Software Foundation; either version 2 of   */
   33:/*;  the License, or (at your option) any later version.              */
   34:/*;                                                                   */
   35:/*;  This program is distributed in the hope that it will be useful,  */
   36:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   37:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   38:/*;  GNU General Public License for more details.                     */
   39:/*;                                                                   */
   40:/*;  You should have received a copy of the GNU General Public        */
   41:/*;  License along with this program; if not, write to the Free       */
   42:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   43:/*;  MA 02139, USA.                                                   */
   44:/*;                                                                   */
   45:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   46:/*;         Internet email: aipsmail at nrao.edu.                        */
   47:/*;         Postal address: AIPS Project Office                       */
   48:/*;                         National Radio Astronomy Observatory      */
   49:/*;                         520 Edgemont Road                         */
   50:/*;                         Charlottesville, VA 22903-2475 USA        */
   51:/*--------------------------------------------------------------------*/
   52:/*  Abort handler routine.  Error conditions that are being trapped   */
   53:/*  are defined in ZABORT.                                            */
   54:/*  Inputs:                                                           */
   55:/*     isig   I   Signal number (held in the low order 7 bits).       */
   56:/*  Generic UNIX version.                                             */
   57:/*--------------------------------------------------------------------*/
   58:{
   59:   char   msgbuf[80];
   60:   int    i, n3 = 3, n8 = 8;
   61:   pid_t  pid;
   62:/*--------------------------------------------------------------------*/
   63:                                        /* Die immediately if this is */
   64:                                        /* a recursive call           */
   65:   if (num_calls != 0) {
   66:                                        /* Get process id for kill(). */
   67:      pid = getpid ();
   68:                                        /* Reinstate default action   */
   69:                                        /* for illegal instructions.  */
   70:      zignal_ (SIGILL, SIG_DFL);
   71:                                        /* Commit suicide.            */
   72:      kill (pid, SIGILL);
   73:      }
   74:   else {
   75:      num_calls++;
   76:                                        /* Signal number held in low  */
   77:                                        /* order 7 bits.              */
   78:      i = isig & 0177;
   79:                                        /* if AIPS dismount tapes.    */
   80:      zstaip_ ( );
   81:                                        /* Make AIPS accounting entry.*/
   82:      acount_ (&n3);
   83:                                        /* Report signal received.    */
   84:      sprintf (msgbuf, "ZABORS: signal %d received", i);
   85:      zmsgwr_ (msgbuf, &n8);
   86:                                        /* Issue abort message.       */
   87:      sprintf (msgbuf, "ABORT!");
   88:      zmsgwr_ (msgbuf, &n8);
   89:                                        /* clear task id file         */
   90:      zdie_ ( ) ;
   91:                                        /* Just exit on some errors.  */
   92:      i = isig & 0177;
   93:      if (i < 4 || i == 15) {
   94:         exit(1);
   95:         }
   96:                                        /* On others, abort.          */
   97:      else {
   98:                                        /* Get process id for kill(). */
   99:         pid = getpid ();
  100:                                        /* Reinstate default action   */
  101:                                        /* for illegal instructions.  */
  102:         zignal_ (SIGILL, SIG_DFL);
  103:                                        /* Commit suicide.            */
  104:         kill (pid, SIGILL);
  105:         }
  107:      num_calls--;
  108:      }
  110:   return;
  111:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABORS.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZACTV9.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
AIPSCC    : Date       Fri Jul 18 17:25:44 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
/usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c:45:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    5:#include <unistd.h>
    6:                                       /* If <unistd.h> can not be   */
    7:                                       /* found you do not have a    */
    8:                                       /* POSIX.1 compliant system   */
    9:                                       /* and ZACTV9 requires local  */
   10:                                       /* development.               */
   11:#include <sys/wait.h>
   12:#include <sys/types.h>
   13:#include <sys/stat.h>
   14:#include <limits.h>
   15:#include <signal.h>
   16:#include <fcntl.h>
   17:#include <assert.h>
   18:#include <errno.h>
   19:#include <stdio.h>
   21:                                       /* We use our own prototypes   */
   22:                                       /* for string functions if we  */
   23:                                       /* are not using an ANSI C     */
   24:                                       /* compiler so that we don't   */
   25:                                       /* have to worry about the use */
   26:                                       /* of <strings.h> on older BSD */
   27:                                       /* systems.                    */
   28:#ifdef __STDC__
   29:#include <string.h>
   30:#else
   31:extern int strcmp();
   32:extern char *strcpy();
   33:extern int strlen();
   34:#endif
   36:                                       /* The malloc prototype may    */
   37:                                       /* also be stored in           */
   38:                                       /* unpredictable headers if    */
   39:                                       /* not using ANSI C.           */
   40:#ifdef __STDC__
   41:#include <stdlib.h>
   42:#else
   43:extern char *malloc();
   44:#endif
   45:#include <AIPSPROTO.H>
   47:#define PMODE (S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | S_IROTH | S_IWOTH)
   48:#define CMODE (O_WRONLY | O_CREAT | O_TRUNC | O_EXCL)
   50:extern int msg_fd;                    /* Message terminal file        */
   51:                                      /* descriptor (shared by all    */
   52:                                      /* AIPS processes in this       */
   53:                                      /* session) if messages are not */
   54:                                      /* directed to the controlling  */
   55:                                      /* terminal (-1 if they are)    */
   57:#if __STDC__
   58:   void zactv9_(int *flen, char fulnam[], int *plen, char cpname[],
   59:      int *idbg, pid_t *pid, int *syserr, int *ierr)
   60:#else
   61:   void zactv9_(flen, fulnam, plen, cpname, idbg, pid, syserr, ierr)
   62:   int *flen, *plen, *idbg, *pid, *syserr, *ierr;
   63:   char fulnam[], cpname[];
   64:#endif
   65:/*--------------------------------------------------------------------*/
   66:/*! starts requested load module under requested process name         */
   67:/*# Z2 System                                                         */
   68:/*--------------------------------------------------------------------*/
   69:/*;  Copyright (C) 1995, 1997, 2003                                   */
   70:/*;  Associated Universities, Inc. Washington DC, USA.                */
   71:/*;                                                                   */
   72:/*;  This program is free software; you can redistribute it and/or    */
   73:/*;  modify it under the terms of the GNU General Public License as   */
   74:/*;  published by the Free Software Foundation; either version 2 of   */
   75:/*;  the License, or (at your option) any later version.              */
   76:/*;                                                                   */
   77:/*;  This program is distributed in the hope that it will be useful,  */
   78:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   79:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   80:/*;  GNU General Public License for more details.                     */
   81:/*;                                                                   */
   82:/*;  You should have received a copy of the GNU General Public        */
   83:/*;  License along with this program; if not, write to the Free       */
   84:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   85:/*;  MA 02139, USA.                                                   */
   86:/*;                                                                   */
   87:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   88:/*;         Internet email: aipsmail at nrao.edu.                        */
   89:/*;         Postal address: AIPS Project Office                       */
   90:/*;                         National Radio Astronomy Observatory      */
   91:/*;                         520 Edgemont Road                         */
   92:/*;                         Charlottesville, VA 22903-2475 USA        */
   93:/*--------------------------------------------------------------------*/
   94:/*  ZACTV9 will execute the load module "fulnam" as a process/sub-    */
   95:/*  process called "cpname" which consists of the program name with a */
   96:/*  POPS number suffix x (e.g., AIPSx, BATERx, AIPSCx, AIPSBx, QMNGRx */
   97:/*  or <taskname>x).  AIPSx an BATERx are initiated as processes that */
   98:/*  replace the process that invokes ZACTV9 (i.e., without first      */
   99:/*  forking a subprocess).  This means that in the case of AIPSx and  */
  100:/*  BATERx, there is no return from ZACTV9.  The startup programs     */
  101:/*  ZSTRTA and ZSTRTB invoke ZACTV9 (via ZACTV8) as part of the       */
  102:/*  process of initiating an interative AIPS or BATER session.        */
  103:/*  ZACTV9 is only called by ZACTV8. Note that the AIPS daemon        */
  104:/*  DAIPx is treated exactly as AIPSx.                                */
  105:/*                                                                    */
  106:/*  Inputs:                                                           */
  107:/*     FLEN     I          Length in characters of "fulnam"           */
  108:/*     FULNAM   C*(flen)   Full path name of the required executable  */
  109:/*                         module                                     */
  110:/*     PLEN     I          Length in characters of "cpname"           */
  111:/*     CPNAME   C*(plen)   Desired process name (6 characters or      */
  112:/*                         less = program name + POPS number)         */
  113:/*     IDBG     I          1 => start in DEBUGger if possible         */
  114:/*                         0 => use no DEBUGger if possible           */
  115:/*                         Ignore on CPNAME='AIPSn','BATERn'          */
  116:/*  In/Out:                                                           */
  117:/*     PID      I(4)       Process identification information:        */
  118:/*                         In:  *(pid + 0) user number for systems    */
  119:/*                                         use it (= 0 otherwise and  */
  120:/*                                         on all AIPSB invocations)  */
  121:/*                         Out: *(pid + 1) process ID number from     */
  122:/*                                         "fork" or "vfork"          */
  123:/*                              *(pid + 2) not used                   */
  124:/*                              *(pid + 3) not used                   */
  125:/*  Output:                                                           */
  126:/*     SYSERR   I          System error code (i.e., errno) if error   */
  127:/*     IERR     I          Error return code: 0 => no error           */
  128:/*                             1 => error                             */
  129:/*  Generic UNIX version.                                             */
  130:/*  If the OS is does not comply with POSIX.1 then ZACTV9 will issue  */
  131:/*  a message and return an error code.                               */
  132:/*--------------------------------------------------------------------*/
  133:                                       /* If _POSIX_VERSION is not    */
  134:                                       /* defined then we do not have */
  135:                                       /* a POSIX.1 system.           */
  136:#ifndef _POSIX_VERSION
  137:{
  138:   printf("ZACTV9 REQUIRES LOCAL DEVELOPMENT\n");
  139:   *ierr = 1;
  140:   return;
  141:}
  142:/*--------------------------------------------------------------------*/
  143:#else
  144:{
  145:   char *pathname;                     /* pathname of executable.     */
  146:   char *dirname;                      /* directory name of           */
  147:   char procname[7];                   /* desired process name.       */
  148:   char rootname[6];                   /* root name of desired        */
  149:                                       /* process (ie. process name   */
  150:                                       /* without the POPS number.    */
  151:   char *debugger;                     /* pathname of debugger.       */
  152:   struct sigaction newaction;         /* Signal action for INT       */
  153:   struct sigaction saved;             /* Previous signal action for  */
  154:                                       /* INT                         */
  155:   char lockname[_POSIX_PATH_MAX];     /* Name of lock file           */
  156:   int  lockfile;                      /* lock file file descriptor   */
  157:   pid_t child;                        /* PID of child process        */
  158:   pid_t grandchild;                   /* PID of grandchild process   */
  159:   int p[2];                           /* File descriptors for pipe   */
  160:   int i, j, n8 = 8;
  161:   char msg[80];
  162:/*--------------------------------------------------------------------*/
  163:   *syserr = 0;
  164:   if (*plen > 6) {
  165:      *ierr = 2;
  166:      return;
  167:      }
  168:                                       /* Convert pathname of         */
  169:                                       /* executable to null-         */
  170:                                       /* terminated form:            */
  171:   pathname = malloc (*flen+1);
  172:   dirname = malloc (*flen+1);
  173:   for (i = 0; i != *flen && fulnam[i] != ' '; i++) {
  174:                                       /* Invariant: for all k,       */
  175:                                       /* 0 <= k < i,                 */
  176:                                       /* pathname[k] = fulnam[k] and */
  177:                                       /* dirname[k] = fulnam[k]      */
  178:      pathname[i] = fulnam[i];
  179:      dirname[i] = fulnam[i];
  180:      if (fulnam[i] == '/') j = i;
  181:      }
  182:   pathname[i] = '\0';
  183:   dirname[j] = '\0';
  185:                                       /* Convert desired process     */
  186:                                       /* name to null-terminated     */
  187:                                       /* form and save rootname:     */
  188:   for (i = 0; i != *plen && cpname[i] != ' '; i++) {
  189:                                       /* Invariant: for all j,       */
  190:                                       /* 0 <= j < i,                 */
  191:                                       /* procname[j] = cpname[j] and */
  192:                                       /* rootname[j] = cpname[j].    */
  193:      procname[i] = cpname[i];
  194:      rootname[i] = cpname[i];
  195:      }
  196:   procname[i] = '\0';
  197:   rootname[i-1] = '\0';
  199:                                       /* Extract the pathname of the */
  200:                                       /* debugger:                   */
  201:   debugger = NULL;
  202:   if (strcmp (rootname, "AIPS") == 0 ||
  203:       strcmp (rootname, "DAIP") == 0) {
  204:      if (getenv ("AIPSDBUGR") != NULL) {
  205:         debugger = malloc (strlen (getenv ("AIPSDBUGR")) + 1);
  206:         strcpy (debugger, getenv ("AIPSDBUGR"));
  207:         }
  208:      }
  209:   else if (strcmp (rootname, "BATER") == 0) {
  210:      if (getenv ("BATERDBUGR") != NULL) {
  211:         debugger = malloc (strlen (getenv ("BATERDBUGR")) + 1);
  212:         strcpy (debugger, getenv ("BATERDBUGR"));
  213:         }
  214:      }
  215:   else if (*idbg == 1) {
  216:      if (getenv ("DBUGR") != NULL) {
  217:         debugger = malloc (strlen (getenv ("DBUGR")) + 1);
  218:         strcpy (debugger, getenv ("DBUGR"));
  219:         }
  220:      }
  223:                                       /* Check that the executable   */
  224:                                       /* exists and that this        */
  225:                                       /* process can execute it.     */
  226:   if (access (pathname, F_OK) != 0) {
  227:      *syserr = errno;
  228:      *ierr = 1;
  229:      sprintf(msg, "ZACTV9: CANNOT FIND %s", pathname);
  230:      zmsgwr_ (msg, &n8);
  231:      if (errno >= 0) {
  232:         sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  233:         zmsgwr_ (msg, &n8);
  234:         }
  235:      return;
  236:      }
  237:   if (access (pathname, X_OK) != 0) {
  238:      *syserr = errno;
  239:      *ierr = 1;
  240:      sprintf(msg, "ZACTV9: NO EXECUTE PERMISSION FOR %s", pathname);
  241:      zmsgwr_ (msg, &n8);
  242:      if (errno >= 0) {
  243:         sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  244:         zmsgwr_ (msg, &n8);
  245:         }
  246:      return;
  247:      }
  249:   if (debugger != NULL) {
  250:                                       /* Debug mode startup.         */
  252:                                       /* Ignore interrupt signals    */
  253:      newaction.sa_handler = SIG_IGN;
  254:      sigemptyset(&newaction.sa_mask);
  255:      newaction.sa_flags =0;
  256:      if (sigaction (SIGINT, &newaction, &saved) == -1) {
  257:         *syserr = errno;
  258:         *ierr = 1;
  259:         sprintf(msg, "ZACTV9: CANNOT INSTALL SIGINT HANDLER");
  260:         zmsgwr_ (msg, &n8);
  261:         if (errno >= 0) {
  262:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  263:            zmsgwr_ (msg, &n8);
  264:            }
  265:         return;
  266:         }
  268:                                       /* Check that debugger exists  */
  269:                                       /* and is executable:          */
  270:      if (access (debugger, F_OK) == -1) {
  271:         *syserr = errno;
  272:         *ierr = 1;
  273:         sprintf(msg, "ZACTV9: CANNOT FIND %s", debugger);
  274:         zmsgwr_ (msg, &n8);
  275:         if (errno >= 0) {
  276:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  277:            zmsgwr_ (msg, &n8);
  278:            }
  279:         goto restore;
  280:         }
  281:      if (access (debugger, X_OK) == -1) {
  282:         *syserr = errno;
  283:         *ierr = 1;
  284:         sprintf("ZACTV9: NO EXECUTE PERMISSION FOR %s", debugger);
  285:         zmsgwr_ (msg, &n8);
  286:         if (errno >= 0) {
  287:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  288:            zmsgwr_ (msg, &n8);
  289:            }
  290:         goto restore;
  291:         }
  292:                                       /* We need to start the       */
  293:                                       /* program through a link     */
  294:                                       /* otherwise the POPS number  */
  295:                                       /* doesn't propagate through  */
  296:                                       /* the debugger and ZWHOMI    */
  297:                                       /* will fail                  */
  298:      if (chdir (dirname) == -1) {
  299:         *syserr = errno;
  300:         *ierr = 1;
  301:         sprintf(msg, "ZACTV9: CAN NOT CHANGE DIRECTORY TO %s",
  302:            dirname);
  303:         zmsgwr_ (msg, &n8);
  304:         if (errno >= 0) {
  305:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  306:            zmsgwr_ (msg, &n8);
  307:            }
  308:         goto restore;
  309:         }
  310:      unlink(procname);
  311:      if (link (pathname, procname) == -1) {
  312:         *syserr = errno;
  313:         *ierr = 1;
  314:         sprintf(msg, "ZACTV9: CAN NOT CREATE LINK TO %s", procname);
  315:         zmsgwr_ (msg, &n8);
  316:         if (errno >= 0) {
  317:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  318:            zmsgwr_ (msg, &n8);
  319:            }
  320:         goto restore;
  321:         }
  323:      if (strcmp (rootname, "AIPS") == 0 ||
  324:          strcmp (rootname, "BATER") == 0 ||
  325:          strcmp (rootname, "DAIP") == 0) {
  326:                                       /* Execute new program in this */
  327:                                       /* process:                    */
  329:         pid[1] = (int)getpid ();
  330:         sprintf (lockname, "/tmp/%s.%d", procname, pid[1]);
  332:                                       /* Create lock file:           */
  333:         if ((lockfile = open (lockname, CMODE, PMODE)) == -1) {
  334:            *syserr = errno;
  335:            *ierr = 1;
  336:            sprintf(msg, "ZACTV9: CANNOT CREATE LOCK FILE %s",
  337:               lockname);
  338:            zmsgwr_ (msg, &n8);
  339:            if (errno >= 0) {
  340:               sprintf (msg, "ERRNO = %d (%s)", errno,
  341:                  strerror(errno));
  342:               zmsgwr_ (msg, &n8);
  343:               }
  344:            goto restore;
  345:            }
  346:         close (lockfile);
  348:         if (execl (debugger, debugger, procname, NULL) == -1) {
  349:            *syserr = errno;
  350:            *ierr = 1;
  351:            sprintf(msg, "ZACTV9: CANNOT START DEBUGGER");
  352:            zmsgwr_ (msg, &n8);
  353:            if (errno >= 0) {
  354:               sprintf (msg, "ERRNO = %d (%s)", errno,
  355:                  strerror(errno));
  356:               zmsgwr_ (msg, &n8);
  357:               }
  358:            goto restore;
  359:            }
  360:         }
  361:      else {                           /* Not AIPS or BATER           */
  362:         if ((pid[1] = fork()) == 0) { /* Child process               */
  364:                                       /* Close all open file         */
  365:                                       /* descriptors except for      */
  366:                                       /* anything that might be the  */
  367:                                       /* message terminal:           */
  368:            for (i = 0; i != sysconf(_SC_OPEN_MAX); i++) {
  369:               if ((i != msg_fd) && (i > 2)) {
  370:                  close (i);
  371:                  }
  372:               }
  375:            if (execl (debugger, debugger, procname, NULL) == -1) {
  376:               sprintf(msg, "ZACTV9: CANNOT START %s", procname);
  377:               zmsgwr_ (msg, &n8);
  378:               if (errno >= 0) {
  379:                  sprintf (msg, "ERRNO = %d (%s)", errno,
  380:                     strerror(errno));
  381:                  zmsgwr_ (msg, &n8);
  382:                  }
  383:               exit (1);
  384:               }
  386:            exit (0);
  387:            }
  388:         else if (pid[1] == -1) {
  389:            *syserr = errno;
  390:            *ierr = 1;
  391:            sprintf(msg, "ZACTV9: CANNOT SPAWN CHILD PROCESS");
  392:            zmsgwr_ (msg, &n8);
  393:            if (errno >= 0) {
  394:               sprintf (msg, "ERRNO = %d (%s)", errno,
  395:                  strerror(errno));
  396:               zmsgwr_ (msg, &n8);
  397:               }
  398:            goto restore;
  399:            }
  400:         else {                        /* Still parent                */
  401:                                       /* Create lock file:           */
  402:               sprintf(lockname, "/tmp/%s.%d", procname, pid[1]);
  403:               zmsgwr_ (msg, &n8);
  404:               if ((lockfile = open (lockname, CMODE, PMODE)) == -1) {
  405:                  sprintf(msg, "ZACTV9: CANNOT CREATE LOCK FILE");
  406:                  zmsgwr_ (msg, &n8);
  407:                  if (errno >= 0) {
  408:                     sprintf (msg, "ERRNO = %d (%s)", errno,
  409:                        strerror(errno));
  410:                     zmsgwr_ (msg, &n8);
  411:                     }
  412:                  exit (1);
  413:                  }
  414:               close (lockfile);
  416:                                       /* Wait for child:             */
  417:            waitpid (pid[1], &i, 0);
  418:            }
  421:restore:
  422:         free (debugger);
  423:         unlink (procname);
  424:                                       /* Restore signal handling:    */
  425:         if (sigaction (SIGINT, &saved, &newaction) == -1) {
  426:            *syserr = errno;
  427:            *ierr = 1;
  428:            sprintf(msg, "ZACTV9: CANNOT RESTORE SIGNAL HANDLERS");
  429:            zmsgwr_ (msg, &n8);
  430:            if (errno >= 0) {
  431:               sprintf (msg, "ERRNO = %d (%s)", errno,
  432:                  strerror(errno));
  433:               zmsgwr_ (msg, &n8);
  434:               }
  435:            return;
  436:            }
  437:         }
  438:      }
  439:   else {                            /* Non-debug mode            */
  440:      if (strcmp (rootname, "AIPS") == 0 ||
  441:          strcmp (rootname, "BATER") == 0 ||
  442:          strcmp (rootname, "DAIP") == 0) {
  443:                                       /* Execute new program in this */
  444:                                       /* process:                    */
  446:         pid[1] = (int)getpid ();
  447:         sprintf(lockname, "/tmp/%s.%d", procname, pid[1]);
  449:                                       /* Create lock file:           */
  450:         if ((lockfile = open (lockname, CMODE, PMODE)) == -1) {
  451:            *syserr = errno;
  452:            *ierr = 1;
  453:            sprintf(msg, "ZACTV9: CANNOT CREATE LOCK FILE %s",
  454:               lockname);
  455:            zmsgwr_ (msg, &n8);
  456:            if (errno >= 0) {
  457:               sprintf (msg, "ERRNO = %d (%s)", errno,
  458:                  strerror(errno));
  459:               zmsgwr_ (msg, &n8);
  460:               }
  461:            return;
  462:            }
  463:         close (lockfile);
  465:         if (execl (pathname, procname, NULL) == -1) {
  466:            *syserr = errno;
  467:            *ierr = 1;
  468:            sprintf(msg, "ZACTV9: CANNOT START %s", procname);
  469:            zmsgwr_ (msg, &n8);
  470:            if (errno >= 0) {
  471:               sprintf (msg, "ERRNO = %d (%s)", errno,
  472:                  strerror(errno));
  473:               zmsgwr_ (msg, &n8);
  474:               }
  475:            return;
  476:            }
  477:         }
  478:      else {                           /* Not AIPS or BATER           */
  479:                                       /* Spawn new process as a      */
  480:                                       /* grandchild to prevent an    */
  481:                                       /* accumulation of zombies;    */
  482:                                       /* the pid of the grandchild   */
  483:                                       /* will be returned through a  */
  484:                                       /* pipe:                       */
  486:         if (pipe(p) == -1) {
  487:            *syserr = errno;
  488:            *ierr = 1;
  489:            sprintf(msg, "ZACTV9: CANNOT CREATE PIPE TO CHILD");
  490:            zmsgwr_ (msg, &n8);
  491:            if (errno >= 0) {
  492:               sprintf (msg, "ERRNO = %d (%s)", errno,
  493:                  strerror(errno));
  494:               zmsgwr_ (msg, &n8);
  495:               }
  496:            return;
  497:            }
  499:         if ((child = fork()) == 0) {  /* Child process               */
  500:            close(p[0]);
  502:                                       /* Close all open file         */
  503:                                       /* descriptors (apart from the */
  504:                                       /* pipe and anything that      */
  505:                                       /* might be the message        */
  506:                                       /* terminal):                  */
  507:            for (i = 0; i != sysconf(_SC_OPEN_MAX); i++) {
  508:               if ((i != p[1]) && (i != msg_fd) && (i > 2)) {
  509:                  close (i);
  510:                  }
  511:               }
  513:            if ((grandchild = fork()) == 0) {
  514:                                       /* Grandchild process          */
  516:                                       /* No need to close file       */
  517:                                       /* descriptors since they were */
  518:                                       /* already closed in the       */
  519:                                       /* immediate parent.           */
  521:               if (execl (pathname, procname, NULL) == -1) {
  522:                  sprintf(msg, "ZACTV9: CANNOT START %s", procname);
  523:                  zmsgwr_ (msg, &n8);
  524:                  if (errno >= 0) {
  525:                     sprintf (msg, "ERRNO = %d (%s)", errno,
  526:                        strerror(errno));
  527:                     zmsgwr_ (msg, &n8);
  528:                     }
  529:                  exit (1);
  530:                  }
  531:               }
  532:            else if (grandchild == -1) {
  533:               sprintf(msg, "ZACTV9: CANNOT SPAWN GRANDCHILD");
  534:               zmsgwr_ (msg, &n8);
  535:               if (errno >= 0) {
  536:                  sprintf (msg, "ERRNO = %d (%s)", errno,
  537:                     strerror(errno));
  538:                  zmsgwr_ (msg, &n8);
  539:                  }
  540:               exit (1);
  541:               }
  542:            else {                     /* Still child                 */
  543:                                       /* Create lock file:           */
  544:               sprintf(lockname, "/tmp/%s.%d", procname, grandchild);
  545:               if ((lockfile = open (lockname, CMODE, PMODE)) == -1) {
  546:                  sprintf(msg, "ZACTV9: CANNOT CREATE LOCK FILE");
  547:                  zmsgwr_ (msg, &n8);
  548:                  if (errno >= 0) {
  549:                     sprintf (msg, "ERRNO = %d (%s)", errno,
  550:                        strerror(errno));
  551:                     zmsgwr_ (msg, &n8);
  552:                     }
  553:                  exit (1);
  554:                  }
  555:               close (lockfile);
  557:                                       /* Return grandchild pid to    */
  558:                                       /* parent process:             */
  559:               if (write (p[1], &grandchild, sizeof(pid_t)) == -1) {
  560:                  sprintf(msg, "ZACTV9: CANNOT SEND PID TO PARENT");
  561:                  zmsgwr_ (msg, &n8);
  562:                  if (errno >= 0) {
  563:                     sprintf (msg, "ERRNO = %d (%s)", errno,
  564:                        strerror(errno));
  565:                     zmsgwr_ (msg, &n8);
  566:                     }
  567:                  exit (1);
  568:                  }
  569:               close (p[1]);
  571:               exit (0);
  572:               }
  573:            }
  574:         else if (child == -1) {
  575:            *syserr = errno;
  576:            *ierr = 1;
  577:            sprintf(msg, "ZACTV9: CANNOT SPAWN CHILD PROCESS");
  578:            zmsgwr_ (msg, &n8);
  579:            if (errno >= 0) {
  580:               sprintf (msg, "ERRNO = %d (%s)", errno,
  581:                  strerror(errno));
  582:               zmsgwr_ (msg, &n8);
  583:               }
  584:            return;
  585:            }
  586:         else {                        /* Still parent                */
  587:            close(p[1]);
  589:                                       /* Read grandchild pid         */
  590:            if (read (p[0], &grandchild, sizeof(pid_t)) == -1) {
  591:               *syserr = errno;
  592:               *ierr = 1;
  593:               sprintf(msg, "ZACTV9: CANNOT READ PID");
  594:               zmsgwr_ (msg, &n8);
  595:               if (errno >= 0) {
  596:                  sprintf (msg, "ERRNO = %d (%s)", errno,
  597:                     strerror(errno));
  598:                  zmsgwr_ (msg, &n8);
  599:                  }
  600:               return;
  601:               }
  602:            close(p[0]);
  603:            pid[1] = (int)grandchild;
  605:                                       /* Wait for child:             */
  606:            waitpid (child, &i, 0);
  607:            }
  608:         }
  609:      }
  610:   free (pathname);
  611:   free (dirname);
  612:   }
  614:#endif
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZACTV9.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBFLI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
AIPSCC    : Date       Fri Jul 18 17:25:45 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_bfli2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <stdlib.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zbfli2_(int *nb, int *nvals, int *bytflp, char inbuf[],
    9:      char outbuf[])
   10:#else
   11:   void zbfli2_(nb, nvals, bytflp, inbuf, outbuf)
   12:   char inbuf[], outbuf[];
   13:   int *nb, *nvals, *bytflp;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! swap 8-bit bytes & 16/32-bit words and move from inbuf to outbuf  */
   17:/*# Z2 Binary                                                         */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1998                                               */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Interchange the low order and high order bytes for all words in   */
   45:/*  the input buffer and puts results in output buffer (which may be  */
   46:/*  the same as the input buffer).  The routine is only called by     */
   47:/*  ZBFLIP and only if byte swapping is required on the host machine  */
   48:/*  (e.g., a VAX, PC).  Also does word swaps                          */
   49:/*  Inputs:                                                           */
   50:/*     nb       I      Number of bytes in word (2,4,8 supported)      */
   51:/*     nvals    I      Length of input buffer in nb-bit "words"       */
   52:/*     bytflp   I      Byte/words swapped indicator as set in ZDCHIN  */
   53:/*                        0 => neither are swapped                    */
   54:/*                        1 => byte swapped only                      */
   55:/*                        2 => word swapped only                      */
   56:/*                        3 => both byte and word swapped             */
   57:/*                        All are supported here                      */
   58:/*     inbuf    I(*)   input buffer                                   */
   59:/*  Output:                                                           */
   60:/*     outbuf   I(*)   output buffer containing swapped words         */
   61:/*                        (may be the same as the input buffer)       */
   62:/* Generic UNIX version                                               */
   63:/*--------------------------------------------------------------------*/
   64:{
   65:   int n8 = 8;
   66:   int flipcode;
   67:   register int j, k, i, m, n;
   68:   char temp[8], msgbuf[80];
   69:/*--------------------------------------------------------------------*/
   70:   flipcode = *bytflp;
   71:   m = *nb ;
   72:   if ((m != 2) && (m != 4) && (m != 8)) {
   73:      sprintf (msgbuf,
   74:         "ZBYTF2: INVALID VALUE FOR BYTES/VALUE = %d\n", m);
   75:      zmsgwr_ (msgbuf, &n8);
   76:      exit (8);
   77:      }
   78:   n = m / 2 ;
   79:                                        /* no flip, copy if needed    */
   80:   if (flipcode == 0) {
   81:      if (&inbuf[0] == &outbuf[0]) {
   82:	    ;
   83:	 }
   84:      else {
   85:         for (j = 0; j < *nvals; j++) {
   86:            k = m * j;
   87:            for (i = 0 ; i < m ; i++)
   88:               outbuf[k+i] = inbuf[k+i];
   89:            }
   90:         }
   91:      }
   92:                                        /* Swap bytes only.          */
   93:   else if (flipcode == 1) {
   94:      if (&inbuf[0] == &outbuf[0]) {
   95:         for (j = 0; j < *nvals; j++) {
   96:            k = m * j;
   97:            for (i = 0 ; i < n ; i++) {
   98:               temp[0] = inbuf[k];
   99:               temp[1] = inbuf[k+1];
  100:               outbuf[k+1] = temp[0];
  101:               outbuf[k] = temp[1];
  102:               k = k + 2;
  103:               }
  104:            }
  105:         }
  106:      else {
  107:         for (j = 0; j < *nvals; j++) {
  108:            k = m * j;
  109:            for (i = 0 ; i < n ; i++) {
  110:               outbuf[k+1] = inbuf[k];
  111:               outbuf[k] = inbuf[k+1];
  112:               k = k + 2;
  113:               }
  114:            }
  115:         }
  116:      }
  117:                                        /* Swap bytes & words        */
  118:   else if (flipcode == 3) {
  119:      if (&inbuf[0] == &outbuf[0]) {
  120:         for (j = 0; j < *nvals; j++) {
  121:            k = m * j;
  122:            for (i = 0 ; i < m ; i++)
  123:               temp[i] = inbuf[k+i];
  124:            for (i = 0 ; i < m ; i++)
  125:               outbuf[k+i] = temp[m-1-i];
  126:            }
  127:         }
  128:      else {
  129:         for (j = 0; j < *nvals; j++) {
  130:            k = m * j;
  131:            n = k + m - 1;
  132:            for (i = 0 ; i < m ; i++)
  133:               outbuf[k+i] = inbuf[n-i];
  134:            }
  135:         }
  136:      }
  137:                                        /* Swap words only.          */
  138:   else if (flipcode == 2) {
  139:      if (&inbuf[0] == &outbuf[0]) {
  140:         for (j = 0; j < *nvals; j++) {
  141:            k = m * j;
  142:            for (i = 0 ; i < m ; i++)
  143:               temp[i] = inbuf[k+i];
  144:            for (i = 0 ; i < m ; i=i+2) {
  145:               outbuf[k+1] = temp[m-1-i];
  146:               outbuf[k] = temp[m-2-i];
  147:               k = k + 2;
  148:               }
  149:            }
  150:         }
  151:      else {
  152:         for (j = 0; j < *nvals; j++) {
  153:            k = m * j;
  154:            for (i = 0 ; i < m ; i=i+2) {
  155:               outbuf[k+i+1] = inbuf[k+m-1-i];
  156:               outbuf[k+i] = inbuf[k+m-2-i];
  157:               }
  158:            }
  159:         }
  160:      }
  161:                                        /* Invalid "flipcode".        */
  162:   else {
  163:      sprintf (msgbuf,
  164:         "ZBYTF2: INVALID VALUE FOR BYTFLP = %d\n", flipcode);
  165:      zmsgwr_ (msgbuf, &n8);
  166:      exit (8);
  167:      }
  169:   return;
  170:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBFLI2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICC2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
AIPSCC    : Date       Fri Jul 18 17:25:46 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dicc2__
    2:#include <stdio.h>
    3:#include <stdlib.h>
    4:#include <AIPSPROTO.H>
    6:extern char *dic_filename;              /* Name of Dicomed file       */
    7:extern FILE *dic_file;                  /* Dicomed file stream        */
    8:extern int dic_spool;                   /* Non-zero if file should be */
    9:                                        /* spooled automatically      */
   10:extern int dic_called;                  /* Indicates whether a file   */
   11:                                        /* is open                    */
   13:#if __STDC__
   14:   void zdicc2_(char *fname, int *flen, int *iret)
   15:#else
   16:   void zdicc2_(fname, flen, iret)
   17:   char *fname;
   18:   int *flen, *iret;
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! Close a Dicomed image file and (optionally) spool it              */
   22:/*# Z                                                                 */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995, 1997                                         */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*   Close a Dicomed image file and, if no name was supplied by the   */
   50:/*   user, spool it to the film recorder and delete it.               */
   51:/*                                                                    */
   52:/*   Input:                                                           */
   53:/*      FNAME      C*(*)         Name under which to store file       */
   54:/*      FLEN       I             Number of characters in FNAME; if 0  */
   55:/*                               then file is spooled and deleted.    */
   56:/*                                                                    */
   57:/*   Output:                                                          */
   58:/*      IRET       I             Return status:                       */
   59:/*                                 0 -> success                       */
   60:/*                                                                    */
   61:/*   UNIX version (ignores LUN)                                       */
   62:/*--------------------------------------------------------------------*/
   63:{
   64:    char cmdline[256], file_name[256], msg[80] ;
   65:    int i, n8 = 8;
   66:/*--------------------------------------------------------------------*/
   68:    *iret = 0;
   69:    if (fclose(dic_file) != 0) {
   70:       sprintf (msg, "ZDICCL: ERROR CLOSING FILE\n");
   71:       zmsgwr_ (msg, &n8);
   72:       perror("ZDICCL:");
   73:       *iret = 1;
   74:       return;
   75:       }
   77:   for (i = 0; i < *flen; i++) {
   78:      file_name[i] = fname[i];
   79:      }
   80:   file_name[i] = '\0';
   81:                                        /* The real work is done in   */
   82:                                        /* the ZDICC2 shell script.   */
   83:   sprintf(cmdline, "ZDICC2 %s %s", dic_filename, file_name);
   84:   if (system(cmdline) != 0) {
   85:      sprintf (msg, "ZDICCL: ERROR SPOOLING FILE\n");
   86:      zmsgwr_ (msg, &n8);
   87:      perror("ZIDCCL:");
   88:      *iret = 2;
   89:      }
   90:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICC2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICO2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
AIPSCC    : Date       Fri Jul 18 17:25:47 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c:6:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dico2__
    2:#include <stdio.h>
    3:#include <time.h>
    4:#include <errno.h>
    5:#include <stdlib.h>
    6:#include <AIPSPROTO.H>
    8:char *dic_filename;                      /* File name (used by        */
    9:                                         /* ZDICCL).                  */
   10:                                         /* NOTE: storage must be     */
   11:                                         /* malloc'ed or segmentation */
   12:                                         /* violations will occur in  */
   13:                                         /* zdicc2_ under Sun OS.     */
   14:FILE* dic_file;                          /* File stream (used by      */
   15:                                         /* ZDICIO and ZDICCL)        */
   16:int dic_nrows;                           /* number of rows (used by   */
   17:                                         /* ZDICIO)                   */
   18:int dic_called = 0;                      /* Set to 1 when first       */
   19:                                         /* called.                   */
   20:static char *sizes[3] = {"35mm", "2x2", "4x5"};
   21:static char *types[3] = {"ColPos", "ColNeg", "B/W"};
   22:static char *mon[12] = {"Jan", "Feb", "Mar", "Apr", "May", "Jun",
   23:                        "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};
   25:#if __STDC__
   26:   void zdico2_(char *sysnam, int *slen, int *userno, int *flmsiz,
   27:      int *flmtyp, int *copies, int *bppix, int *width, int *height,
   28:      char *commnt, int *clen, int *iret)
   29:#else
   30:   void zdico2_(sysnam, slen, userno, flmsiz, flmtyp, copies, bppix,
   31:      width, height, commnt, clen, iret)
   32:   char *sysnam, *commnt;
   33:   int  *slen, *userno, *flmsiz, *flmtyp, *copies, *bppix, *width,
   34:      *height, *clen, *iret;
   35:#endif
   36:/*--------------------------------------------------------------------*/
   37:/*! Open a Dicomed image file and fill in the header                  */
   38:/*# Z2                                                                */
   39:/*--------------------------------------------------------------------*/
   40:/*;  Copyright (C) 1995, 1997                                         */
   41:/*;  Associated Universities, Inc. Washington DC, USA.                */
   42:/*;                                                                   */
   43:/*;  This program is free software; you can redistribute it and/or    */
   44:/*;  modify it under the terms of the GNU General Public License as   */
   45:/*;  published by the Free Software Foundation; either version 2 of   */
   46:/*;  the License, or (at your option) any later version.              */
   47:/*;                                                                   */
   48:/*;  This program is distributed in the hope that it will be useful,  */
   49:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   50:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   51:/*;  GNU General Public License for more details.                     */
   52:/*;                                                                   */
   53:/*;  You should have received a copy of the GNU General Public        */
   54:/*;  License along with this program; if not, write to the Free       */
   55:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   56:/*;  MA 02139, USA.                                                   */
   57:/*;                                                                   */
   58:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   59:/*;         Internet email: aipsmail at nrao.edu.                        */
   60:/*;         Postal address: AIPS Project Office                       */
   61:/*;                         National Radio Astronomy Observatory      */
   62:/*;                         520 Edgemont Road                         */
   63:/*;                         Charlottesville, VA 22903-2475 USA        */
   64:/*--------------------------------------------------------------------*/
   65:/*   Open a Dicomed image file and fill in the header.                */
   66:/*   Inputs:                                                          */
   67:/*      SYSNAM    C*(*)       System name.                            */
   68:/*      SLEN      I           Length of system name excluding         */
   69:/*                            trailing blanks.                        */
   70:/*      USERNO    I           AIPS user number.                       */
   71:/*      FLMSIZ    I           Film size: 0 -> 35mm                    */
   72:/*                                       1 -> 2"x2"                   */
   73:/*                                       2 -> 4"x5"                   */
   74:/*      FLMTYP    I           Film type: 0 -> colour positive         */
   75:/*                                       1 -> colour negative         */
   76:/*                                       2 -> B/W negative            */
   77:/*      COPIES    I           Number of copies to make.               */
   78:/*      BPPIX     I           Number of bits/pixel.                   */
   79:/*      WIDTH     I           Image width in pixels.                  */
   80:/*      HEIGHT    I           Image height in pixels.                 */
   81:/*      COMMNT    C*(*)       User's comment.                         */
   82:/*      CLEN      I           Length of user's comment excluding      */
   83:/*                            trailing blanks.                        */
   84:/*                                                                    */
   85:/*   Output:                                                          */
   86:/*      IRET      I           Return status: 0 -> success             */
   87:/*                                                                    */
   88:/*--------------------------------------------------------------------*/
   89:{
   90:    int i, n8 = 8;
   91:    time_t t;
   92:    struct tm *current_time;
   93:    char system[9], comment[49], msg[80];
   94:    char *start, *tptr;
   95:/*--------------------------------------------------------------------*/
   96:                                        /* Get creation time:         */
   97:    t = time(0);
   98:    current_time = localtime(&t);
   99:                                        /* Assume success:            */
  100:    *iret = 0;
  101:                                        /* Check that a Dicomed file  */
  102:                                        /* is not already open:       */
  103:    if (dic_called) {
  104:       sprintf (msg, "ZDICO2: A DICOMED FILE IS ALREADY OPEN\n");
  105:       zmsgwr_ (msg, &n8);
  106:       *iret = 1;
  107:       return;
  108:       }
  109:    else {
  110:       dic_called = 1;
  111:       }
  112:                                        /* Save useful information:   */
  113:    dic_nrows  = *height;
  114:    dic_filename = (char *)malloc(24);
  115:                                        /* This form of filename is   */
  116:                                        /* required by NRAO software  */
  117:    sprintf (dic_filename, "/tmp/%04d_%03d_%02d%02d%02d_V1", *userno,
  118:       current_time->tm_yday+1, current_time->tm_hour,
  119:       current_time->tm_min, current_time->tm_sec);
  121:                                        /* Convert strings to C form  */
  122:    for (i = 0; i < *slen && i < 8 && sysnam[i] != '.'; i++)  {
  123:       system[i] = sysnam[i];
  124:       }
  125:    system[i] = '\0';
  126:    for (i = 0; i < *clen && i < 48; i++) {
  127:       comment[i] = commnt[i];
  128:       }
  129:    comment[i] = '\0';
  130:                                       /* Open file:                  */
  131:    if ((dic_file = fopen(dic_filename, "w")) == 0) {
  132:       sprintf (msg, "ZDICO2: ERROR OPENING DICOMED FILE\n");
  133:       zmsgwr_ (msg, &n8);
  134:       perror("ZDICO2:");
  135:       *iret = errno;
  136:       return;
  137:       }
  138:                                       /* Extract file base name:     */
  139:    start = tptr = dic_filename;
  140:    while (*tptr != '\0') {
  141:       if (*(tptr++) == '/') start = tptr;
  142:       }
  144:                                       /* Write header:              */
  145:    errno = 0;
  146:    fprintf(dic_file, "Filename: %-18s", start);
  147:    fprintf(dic_file, "            ");
  148:    fprintf(dic_file, "Origin: %-8s       \n", system);
  149:    fprintf(dic_file, "Date: %02d-%3s-%02d     ",
  150:            current_time->tm_mday, mon[current_time->tm_mon],
  151:            current_time->tm_year);
  152:    fprintf(dic_file, "Time: %02d:%02d:%02d      ",
  153:            current_time->tm_hour, current_time->tm_min,
  154:            current_time->tm_sec);
  155:    fprintf(dic_file, "Userno: %4d           \n", *userno);
  156:    fprintf(dic_file, "Filmsize: %-4s      ", sizes[*flmsiz]);
  157:    fprintf(dic_file, "Filmtype: %-6s    ", types[*flmtyp]);
  158:    fprintf(dic_file, "Copies: %3d            \n", *copies);
  159:    fprintf(dic_file, "Bits/pixel: %2d      ", *bppix);
  160:    fprintf(dic_file, "Columns: %4d       ", *width);
  161:    fprintf(dic_file, "Rows: %4d             \n", *height);
  162:    fprintf(dic_file, "LUTs/pixelbyte: 0   ");
  163:    fprintf(dic_file, "Bits/LUTelement:  0 ");
  164:    fprintf(dic_file, "OFMelements:     0     \n");
  165:    fprintf(dic_file, "LUTpointer:     0   ");
  166:    fprintf(dic_file, "OFMpointer:     0   ");
  167:    fprintf(dic_file, "Datapointer:   512     \n");
  168:    fprintf(dic_file, "Usercomments: %-49s\n", comment);
  169:    fprintf(dic_file, "Recorded: %53s\n", " ");
  170:    if (errno != 0) {
  171:       sprintf (msg, "ZDICO2: ERROR WRITING HEADER\n");
  172:       zmsgwr_ (msg, &n8);
  173:       perror("ZDICO2:");
  174:       }
  176:   return;
  177:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICO2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDKMID.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
AIPSCC    : Date       Fri Jul 18 17:25:48 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dkmid__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <string.h>
    5:#include <errno.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zdkmid_(char *oper, int *blkno, int *fcb, char *buff,
   11:      int *nbytes, int *ierr)
   12:#else
   13:   void zdkmid_(oper, blkno, fcb, buff, nbytes, ierr)
   14:   char oper[], buff[];
   15:   int *fcb, *blkno, *nbytes, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read 2048 byte blocks of data from disk                           */
   19:/*# Z Tape                                                            */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 2002                                               */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Read nbytes of data from/ disk at FILLM block blkno               */
   47:/*                                                                    */
   48:/*  NOTE: This is for TAPIO type operations only, i.e., LRECL=22048   */
   49:/*        FTAB(FIND+5) = I   logical record number.                   */
   50:/*                                                                    */
   51:/*  Inputs:                                                           */
   52:/*     oper     C*4    Operation code "READ"                          */
   53:/*     blkno    I      Block number to read                           */
   54:/*     fcb      I(*)   File control block for open map disk file      */
   55:/*                     and buffer involved                            */
   56:/*     nbytes   I      Number of real bytes to be transferred         */
   57:/*  In/out:                                                           */
   58:/*     buff     I(*)   I/O buffer                                     */
   59:/*  Output:                                                           */
   60:/*     ierr     I      Error return code: 0 => no error               */
   61:/*                        2 => bad opcode                             */
   62:/*                        3 => I/O error (also see ZWAI2)             */
   63:/*                        4 => end of file (see ZWAI2)                */
   64:/*  "fcb" has syserr for ZTPWAD to return error                       */
   65:/*  Generic UNIX version.                                             */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:                                        /* Offsets to entries in the  */
   69:                                        /* file control blocks        */
   70:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr;
   71:   int fd, n7 = 7;
   72:   off_t firstbyte;
   73:   register int i;
   74:   char op[5], msgbuf[80];
   75:/*--------------------------------------------------------------------*/
   76:   *ierr = 0;
   77:                                        /* Form null terminated       */
   78:                                        /* opcode.                    */
   79:   for (i = 0; i < 4; i++)
   80:      op[i] = oper[i];
   81:   op[4] = '\0';
   82:                                        /* Get file descriptor from   */
   83:                                        /* the file control block as  */
   84:                                        /* stored there by ZDAOPN.    */
   85:   fd = *(fcb + Z_fcbfd);
   86:                                        /* Record byte request in the */
   87:                                        /* file control block.        */
   88:   *(fcb + Z_fcbreq) = *nbytes;
   89:                                        /* Also, zero error status &  */
   90:                                        /* transfer count entries.    */
   91:   *(fcb + Z_fcberr) = 0;
   92:   *(fcb + Z_fcbxfr) = 0;
   93:                                        /* Zero byte request just     */
   94:                                        /* initiates double buffered  */
   95:                                        /* I/O.                       */
   96:   if (*(fcb + Z_fcbreq) != 0) {
   97:                                        /* Only non-zero byte reqest  */
   98:                                        /* is 2048.                   */
   99:      i = *nbytes / 2048;
  100:      i = i * 2048;
  101:      if (*nbytes != i) {
  102:         *ierr = 2;
  103:         }
  104:      else {
  105:                                        /* Calculate the byte offset  */
  106:                                        /* (0-relative) in the file   */
  107:                                        /* that correspond to the     */
  108:                                        /* virtual block number.      */
  109:         firstbyte = (*blkno - 1);
  110:         firstbyte = firstbyte * 2048;
  111:                                        /* Set file pointer of the    */
  112:                                        /* file descriptor to the     */
  113:                                        /* absolute byte address      */
  114:                                        /* "firstbyte".               */
  115:         if (lseek (fd, firstbyte, 0) == -1) {
  116:            *(fcb + Z_fcberr) = errno;
  117:            sprintf (msgbuf,
  118:               "ZDKMID: LSEEK ERROR ON FILE DESCRIPTOR %d", fd);
  119:            zmsgwr_ (msgbuf, &n7);
  120:            sprintf (msgbuf,
  121:               "ZDKMID: POSITIONING FILE POINTER TO BYTE OFFSET %d",
  122:               firstbyte);
  123:            zmsgwr_ (msgbuf, &n7);
  124:            *ierr = 3;
  125:            }
  126:                                        /* Perform the I/O and record */
  127:                                        /* the # of bytes transferred */
  128:                                        /* in *(fcb + Z_fcbxfr).      */
  129:                                        /* Record the system error    */
  130:                                        /* code (if any) in           */
  131:                                        /* *(fcb + Z_fcberr).         */
  132:         else {
  133:            if (strcmp (op, "READ") == 0) {
  134:               if ((*(fcb + Z_fcbxfr) =
  135:                  read (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  136:                  *(fcb + Z_fcberr) = errno;
  137:                  *ierr = 3;
  138:                  }
  139:               }
  140:                                        /* Bad opcode.                */
  141:            else {
  142:               *ierr = 2;
  143:               }
  144:            }
  145:         }
  146:      }
  148:   return;
  149:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDKMID.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:48 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGMAI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
AIPSCC    : Date       Fri Jul 18 17:25:48 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c:8:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_gmai2__
    2:#define MAXCOM 256
    3:#include <unistd.h>
    4:#include <stdio.h>
    5:#include <stdlib.h>
    6:#include <errno.h>
    7:#include <string.h>
    8:#include <AIPSPROTO.H>
    9:#ifdef __STDC__
   10:#if __STDC__ == 1
   11:extern FILE *popen(const char *, const char *);
   12:extern int  pclose(FILE *);
   13:#endif
   14:#endif
   16:#if __STDC__
   17:   void zgmai2_(char *file, int *lfil, int *stype, int *ierr)
   18:#else
   19:   void zgmai2_(file, lfil, stype, ierr)
   20:   int *lfil, *stype, *ierr;
   21:   char file[];
   22:#endif
   23:/*--------------------------------------------------------------------*/
   24:/*! mail a file to aipsmail and delete it                             */
   25:/*# Z2 System                                                         */
   26:/*--------------------------------------------------------------------*/
   27:/*;  Copyright (C) 1995-1997, 2003                                    */
   28:/*;  Associated Universities, Inc. Washington DC, USA.                */
   29:/*;                                                                   */
   30:/*;  This program is free software; you can redistribute it and/or    */
   31:/*;  modify it under the terms of the GNU General Public License as   */
   32:/*;  published by the Free Software Foundation; either version 2 of   */
   33:/*;  the License, or (at your option) any later version.              */
   34:/*;                                                                   */
   35:/*;  This program is distributed in the hope that it will be useful,  */
   36:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   37:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   38:/*;  GNU General Public License for more details.                     */
   39:/*;                                                                   */
   40:/*;  You should have received a copy of the GNU General Public        */
   41:/*;  License along with this program; if not, write to the Free       */
   42:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   43:/*;  MA 02139, USA.                                                   */
   44:/*;                                                                   */
   45:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   46:/*;         Internet email: aipsmail at nrao.edu.                        */
   47:/*;         Postal address: AIPS Project Office                       */
   48:/*;                         National Radio Astronomy Observatory      */
   49:/*;                         520 Edgemont Road                         */
   50:/*;                         Charlottesville, VA 22903-2475 USA        */
   51:/*--------------------------------------------------------------------*/
   52:/*  Mails "file" to aipsmail at nrao.edu and then deletes it             */
   53:/*  Inputs:                                                           */
   54:/*     file     C*(*)   the fully expanded file name                  */
   55:/*     lfil     I       length of file                                */
   56:/*     stype    I       How to get subject line: 0 -> -s " "          */
   57:/*                         1 -> insert in file                        */
   58:/*  Output:                                                           */
   59:/*     ierr     I       error return: 0 means okay                    */
   60:/*                         1 input command too long                   */
   61:/*                         else = errno, the system error occurred    */
   62:/*  UNIX version uses with popen "rmail"                              */
   63:/*--------------------------------------------------------------------*/
   64:{
   65:   register int i, j;
   66:   char cmd[512], cfil[MAXCOM], msgbuf[80], outbuf[132];
   67:   int n7 = 7, n3 = 3;
   68:   FILE *zptr;
   69:   char *addr1 = "aipgripe at zia.aoc.nrao.edu";
   70:   char *addr2 = "daip at nrao.edu";
   71:/*--------------------------------------------------------------------*/
   72:   *ierr = 0;
   73:   if (*lfil >= MAXCOM)
   74:      *ierr = 1;
   75:                                        /*  make null-terminated      */
   76:   else {
   77:      j = 0;
   78:      for (i = 0; i < MAXCOM && i < *lfil; i++) {
   79:         cfil[i] = file[i];
   80:         if (cfil[i] != ' ') j = i;
   81:         }
   84:      cfil[j+1] = '\0';
   85:                                        /*  mail the file             */
   86:      if (*stype == 1)
   87:         sprintf (cmd,
   88:            "(echo \"Subject: aips_gripe\" ; cat %s ) | mail %s %s",
   89:            cfil, addr1, addr2);
   90:      else
   91:         sprintf (cmd, "mail -s \"aips_gripe\" %s %s < %s",
   92:            addr1, addr2, cfil);
   93:                                        /* Issue the shell command.  */
   94:      errno = 0;
   95:      if ((zptr = popen (cmd, "r")) == NULL ) {
   96:         *ierr = errno;
   97:         sprintf (msgbuf, "ZGMAI2: Cannot pipe command %s\n", cmd);
   98:         zmsgwr_ (msgbuf, &n7);
   99:         }
  100:      else {
  101:         while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
  102:            j = strlen(outbuf);
  103:            if (j > 64) j = 64;
  104:            strncpy (msgbuf, outbuf, j);
  105:            msgbuf[j] = '\0';
  106:            zmsgwr_ (msgbuf, &n3);
  107:            j = strlen(outbuf) - 64;
  108:            if (j > 0) {
  109:               strncpy (msgbuf, &outbuf[64], j);
  110:               msgbuf[j] = '\0';
  111:               zmsgwr_ (msgbuf, &n3);
  112:               }
  113:            }
  114:         *ierr = pclose(zptr);
  115:                                        /* AIX returns ECHILD here    */
  116:                                        /* because of the "sleep".    */
  117:         if ((*ierr != 0) && (errno != ECHILD)) {
  118:            *ierr = errno;
  119:            perror("ZGMAI2");
  120:            sprintf (msgbuf, "ZGMAI2: error %d from pclose()",
  121:               *ierr);
  122:            zmsgwr_ (msgbuf, &n7);
  123:            }
  124:                                         /* delete the file           */
  125:         else {
  126:            *ierr = errno = 0;
  127:            if (unlink (cfil) != 0) *ierr = errno;
  128:            }
  129:         }
  130:      }
  132:   return;
  133:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGMAI2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIGNAL.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
AIPSCC    : Date       Fri Jul 18 17:25:49 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
/usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c:10:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_ignal__
    5:#include <unistd.h>
    6:#include <stdio.h>
    7:#include <signal.h>
    8:#include <stdlib.h>
    9:#include <string.h>
   10:#include <AIPSPROTO.H>
   11:#if __STDC__
   12:   void (*zignal_ (int signo, void (*func)(int)))(int)
   13:#else
   14:   void (*zignal_ (signo, func))()
   15:   int signo;
   16:   void (*func)();
   17:#endif
   18:/*--------------------------------------------------------------------*/
   19:/*! establishes abort handling through call to sigaction              */
   20:/*# Z2 System                                                         */
   21:/*--------------------------------------------------------------------*/
   22:/*;  Copyright (C) 1995, 1997                                         */
   23:/*;  Associated Universities, Inc. Washington DC, USA.                */
   24:/*;                                                                   */
   25:/*;  This program is free software; you can redistribute it and/or    */
   26:/*;  modify it under the terms of the GNU General Public License as   */
   27:/*;  published by the Free Software Foundation; either version 2 of   */
   28:/*;  the License, or (at your option) any later version.              */
   29:/*;                                                                   */
   30:/*;  This program is distributed in the hope that it will be useful,  */
   31:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   32:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   33:/*;  GNU General Public License for more details.                     */
   34:/*;                                                                   */
   35:/*;  You should have received a copy of the GNU General Public        */
   36:/*;  License along with this program; if not, write to the Free       */
   37:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   38:/*;  MA 02139, USA.                                                   */
   39:/*;                                                                   */
   40:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   41:/*;         Internet email: aipsmail at nrao.edu.                        */
   42:/*;         Postal address: AIPS Project Office                       */
   43:/*;                         National Radio Astronomy Observatory      */
   44:/*;                         520 Edgemont Road                         */
   45:/*;                         Charlottesville, VA 22903-2475 USA        */
   46:/*--------------------------------------------------------------------*/
   47:/* reliable version of signal() using POSIX sigaction()               */
   48:/* from W. Richard Stevens "Advanced Programming in the UNIX Envir."  */
   49:/*  Inputs:                                                           */
   50:/*     signo   I   Signal number                                      */
   51:/*     func    F   Function to call: no return, arg int               */
   52:/*  Output:                                                           */
   53:/*     zignal_ F   Previous Function to call: no return, arg int      */
   54:/*  Generic UNIX version                                              */
   55:/*--------------------------------------------------------------------*/
   56:{
   57:   struct sigaction  act, oact;
   59:   act.sa_handler = func;
   60:   sigemptyset (&act.sa_mask);
   61:   act.sa_flags = 0;
   62:   if (signo == SIGALRM) {
   63:#ifdef SA_INTERRUPT
   64:      act.sa_flags |= SA_INTERRUPT;
   65:#endif
   66:      }
   67:   else {
   68:#ifdef SA_RESTART
   69:      act.sa_flags |= SA_RESTART;
   70:#endif
   71:      }
   73:   if (sigaction (signo, &act, &oact) < 0)
   74:      return (SIG_ERR);
   75:   else
   76:      return (oact.sa_handler);
   77:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIGNAL.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIPAC2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
AIPSCC    : Date       Fri Jul 18 17:25:50 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ipac2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <stdlib.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zipac2_(int *nvals, int *code, int *bytflp, int *np,
    9:      signed char sbuf[], signed char lbuf[])
   10:#else
   11:   void zipac2_(nvals, code, bytflp, np, sbuf, lbuf)
   12:   signed char sbuf[], lbuf[];
   13:   int *nvals, *code, *bytflp, *np;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! I32 <-> I16 w and w/o byte swap and move between sbuf and lbuf    */
   17:/*# Z2 Binary                                                         */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1998-1999                                          */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Change 16-bit integer buffer into 32-bit and vice versa with and  */
   45:/*  without byte swapping.                                            */
   46:/*  Inputs:                                                           */
   47:/*     nvals    I      Number of integers involved                    */
   48:/*     code     I      Operation code                                 */
   49:/*                        0 => S -> L: neither are swapped            */
   50:/*                        1 => S -> L: byte swapped only              */
   51:/*                        2 => S -> L: word swapped only              */
   52:/*                        3 => S -> L: both byte and word swapped     */
   53:/*                        4 => L -> S: neither are swapped            */
   54:/*                        5 => L -> S: byte swapped only              */
   55:/*                        6 => L -> S: word swapped only              */
   56:/*                        7 => L -> S: both byte and word swapped     */
   57:/*     bytflp   I      Local byte flip code                           */
   58:/*  Output:                                                           */
   59:/*     sbuf   I*2(*)   short int buffer                               */
   60:/*     lbuf   I*4(*)   long int buffer                                */
   61:/*                        (may be the same as the input buffer)       */
   62:/* Generic UNIX version                                               */
   63:/*--------------------------------------------------------------------*/
   64:{
   65:   register int j, k, i, m;
   66:   signed char temp[4], sign, plus, minus;
   67:/*--------------------------------------------------------------------*/
   68:   plus = 0x00;
   69:   minus = 0xff;
   70:   if (*code < 4 ) {
   71:      j = 2 * (*np + *nvals - 2);
   72:      k = 4 * (*nvals -1);
   73:      }
   74:   else {
   75:      j = 2 * (*np - 1);
   76:      k = 0;
   77:      }
   78:   m = 0;
   79:   if ((*bytflp == 1) || (*bytflp == 3)) m = 1;
   80:                                        /* no flip: S->L              */
   81:   if (*code == 0) {
   82:      for (i = 0; i < *nvals; i++) {
   83:         lbuf[k+2] = sbuf[j];
   84:         lbuf[k+3] = sbuf[j+1];
   85:         if (sbuf[j+m] < 0)
   86:            lbuf[k] = minus;
   87:         else
   88:            lbuf[k] = plus;
   89:         lbuf[k+1] = lbuf[k];
   90:         j -= 2;
   91:         k -= 4;
   92:         }
   93:      }
   94:                                        /* Swap bytes: S->L.          */
   95:   else if (*code == 1) {
   96:      for (i = 0; i < *nvals; i++) {
   97:         lbuf[k+3] = sbuf[j];
   98:         lbuf[k+2] = sbuf[j+1];
   99:         if (sbuf[j] < 0)
  100:            lbuf[k] = minus;
  101:         else
  102:            lbuf[k] = plus;
  103:         lbuf[k+i] = lbuf[k];
  104:         j -= 2;
  105:         k -= 4;
  106:         }
  107:      }
  108:                                        /* Swap words: S->L.          */
  109:   else if (*code == 2) {
  110:      for (i = 0; i < *nvals; i++) {
  111:         lbuf[k] = sbuf[j];
  112:         lbuf[k+1] = sbuf[j+1];
  113:         if (sbuf[j+m] < 0)
  114:            lbuf[k+2] = minus;
  115:         else
  116:            lbuf[k+2] = plus;
  117:         lbuf[k+3] = lbuf[k+2];
  118:         j -= 2;
  119:         k -= 4;
  120:         }
  121:      }
  122:                                        /* Swap both: S->L            */
  123:   else if (*code == 3) {
  124:      for (i = 0; i < *nvals; i++) {
  125:         temp[1] = sbuf[j];
  126:         temp[0] = sbuf[j+1];
  127:         lbuf[k+1] = temp[1];
  128:         lbuf[k] = temp[0];
  129:         if (temp[1] < 0)
  130:            lbuf[k+2] = minus;
  131:         else
  132:            lbuf[k+2] = plus;
  133:         lbuf[k+3] = lbuf[k+2];
  134:         j -= 2;
  135:         k -= 4;
  136:         }
  137:      }
  138:                                        /* no flip: L->S              */
  139:   else if (*code == 4) {
  140:      for (i = 0; i < *nvals; i++) {
  141:         sbuf[j] = lbuf[k+2];
  142:         sbuf[j+1] = lbuf[k+3];
  143:         j += 2;
  144:         k += 4;
  145:         }
  146:      }
  147:                                        /* byte flip: L->S            */
  148:   else if (*code == 5) {
  149:      for (i = 0; i < *nvals; i++) {
  150:         sbuf[j] = lbuf[k+3];
  151:         sbuf[j+1] = lbuf[k+2];
  152:         j += 2;
  153:         k += 4;
  154:         }
  155:      }
  156:                                        /* word flip: L->S            */
  157:   else if (*code == 6) {
  158:      for (i = 0; i < *nvals; i++) {
  159:         sbuf[j] = lbuf[k];
  160:         sbuf[j+1] = lbuf[k+1];
  161:         j += 2;
  162:         k += 4;
  163:         }
  164:      }
  165:                                        /* both flip: L->S            */
  166:   else if (*code == 7) {
  167:      for (i = 0; i < *nvals; i++) {
  168:         temp[0] = lbuf[k+1];
  169:         temp[1] = lbuf[k];
  170:         sbuf[j] = temp[0];
  171:         sbuf[j+1] = temp[1];
  172:         j += 2;
  173:         k += 4;
  174:         }
  175:      }
  177:   return;
  178:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIPAC2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLOCK.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
AIPSCC    : Date       Fri Jul 18 17:25:51 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:10:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:13: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c: In function `zlock_':
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:72: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:72: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:72: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:81: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_lock__
    5:#include <unistd.h>
    6:#include <stdio.h>
    7:#include <errno.h>
    8:#include <fcntl.h>                      /* For System V 2.0+ read and */
    9:                                        /* write locks.               */
   10:#include <AIPSPROTO.H>
   12:#if __STDC__
   13:   void zlock_(int *fd, char pname[MAXPNAME], int *excl, int *syserr,
   14:      int *ierr)
   15:#else
   16:   void zlock_(fd, pname, excl, syserr, ierr)
   17:   int *fd, *excl, *syserr, *ierr;
   18:   char pname[MAXPNAME];
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! apply a shared or exclusive lock to a disk file                   */
   22:/*# Z2 IO-basic                                                       */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995, 1997-1998                                    */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*  Open (if necessary) and apply either a shared or exclusive lock   */
   50:/*  a file.  If an error occurs, files are NOT closed.                */
   51:/*  Inputs:                                                           */
   52:/*     pname    C*48   Physical file name                             */
   53:/*     excl     I      Lock type indicator: 0 => shared               */
   54:/*                                          1 => exclusive            */
   55:/*  In/out:                                                           */
   56:/*     fd       I      File descriptor (if -1, open the file as well  */
   57:/*                        as apply the requested lock; return the     */
   58:/*                        file descriptor)                            */
   59:/*  Output:                                                           */
   60:/*     syserr   I      System error code                              */
   61:/*     ierr     I      Error return code: 0 => no error               */
   62:/*                        1 => device not found (fd = -1)             */
   63:/*                        2 => file not found (fd = -1)               */
   64:/*                        3 => open error (fd = -1)                   */
   65:/*                        4 => exclusive use denied                   */
   66:/*                        6 => other lock error                       */
   67:/*  Bell UNIX version; requires Posix fcntl                           */
   68:/*--------------------------------------------------------------------*/
   69:{
   70:   int llen, xlen, xlnb, jerr;
   71:   register int i, j;
   72:   char pathname[MAXAPATH];
   73:   struct flock lock;
   74:/*--------------------------------------------------------------------*/
   75:   *ierr = 0;
   76:   *syserr = 0;
   77:                                        /* If *fd = -1, we need to    */
   78:                                        /* open the file first.       */
   79:   if (*fd == -1) {
   80:                                        /* Translate path name        */
   81:      llen = MAXPNAME;
   82:      xlen = MAXAPATH;
   83:      zpath_ (&llen, pname, &xlen, pathname, &xlnb, &jerr);
   84:      if (jerr != 0) {
   85:         *ierr = 1;
   86:         goto exit;
   87:         }
   88:      else {
   89:         pathname[xlnb] = '\0';
   90:                                        /* Open the disk file         */
   91:                                        /* read/write (= 2)           */
   92:         if ((*fd = open (pathname, O_RDWR)) == -1) {
   93:            *syserr = errno;
   94:                                        /* File doesn't exist.        */
   95:            if (errno == ENOENT)
   96:               *ierr = 2;
   97:                                        /* Some other open error.     */
   98:            else
   99:               *ierr = 3;
  100:            perror ("ZLOCK");
  101:            printf ("ZLOCK: Pathname %s\n",pathname);
  102:            goto exit;
  103:            }
  104:         }
  105:      }
  106:                                        /* Apply non-blocking lock.   */
  107:   lock.l_whence = SEEK_SET;
  108:   lock.l_start = 0;
  109:   lock.l_len = 0;
  110:                                        /* Exclusive lock.            */
  111:   if (*excl == 1) {
  112:      lock.l_type = F_WRLCK;
  113:      }
  114:   else {                               /* Shared lock                */
  115:      lock.l_type = F_RDLCK;
  116:      }
  118:   if ( fcntl (*fd, F_SETLK, &lock) == -1 ) {
  119:      *syserr = errno;
  120:      if ( errno == EACCES || errno == EAGAIN ) {
  121:         *ierr = 4;
  122:         }
  123:      else {                            /* Some other error           */
  124:         perror ("ZLOCK");
  125:         *ierr = 6;
  126:         }
  127:      }
  129:exit:
  130:   return;
  131:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLOCK.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSTRTP.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
AIPSCC    : Date       Fri Jul 18 17:25:51 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:6:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c: In function `zstrtp_':
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:61: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:61: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:61: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:61: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_strtp__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <stdlib.h>
    5:#include <errno.h>
    6:#include <AIPSPROTO.H>
    8:#if __STDC__
    9:   void zstrtp_(int *mypops, int *myprio, int *ierr)
   10:#else
   11:   void zstrtp_(mypops, myprio, ierr)
   12:   int *mypops, *myprio, *ierr;
   13:#endif
   14:/*--------------------------------------------------------------------*/
   15:/*! set the process execution priority based on POPS number           */
   16:/*# System                                                            */
   17:/*--------------------------------------------------------------------*/
   18:/*;  Copyright (C) 1995, 1997, 2000                                   */
   19:/*;  Associated Universities, Inc. Washington DC, USA.                */
   20:/*;                                                                   */
   21:/*;  This program is free software; you can redistribute it and/or    */
   22:/*;  modify it under the terms of the GNU General Public License as   */
   23:/*;  published by the Free Software Foundation; either version 2 of   */
   24:/*;  the License, or (at your option) any later version.              */
   25:/*;                                                                   */
   26:/*;  This program is distributed in the hope that it will be useful,  */
   27:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   28:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   29:/*;  GNU General Public License for more details.                     */
   30:/*;                                                                   */
   31:/*;  You should have received a copy of the GNU General Public        */
   32:/*;  License along with this program; if not, write to the Free       */
   33:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   34:/*;  MA 02139, USA.                                                   */
   35:/*;                                                                   */
   36:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   37:/*;         Internet email: aipsmail at nrao.edu.                        */
   38:/*;         Postal address: AIPS Project Office                       */
   39:/*;                         National Radio Astronomy Observatory      */
   40:/*;                         520 Edgemont Road                         */
   41:/*;                         Charlottesville, VA 22903-2475 USA        */
   42:/*--------------------------------------------------------------------*/
   43:/*  Set the execution priority of this process based on its POPS #.   */
   44:/*  Inputs:                                                           */
   45:/*     mypops   I   POPS # of current process                         */
   46:/*  Output:                                                           */
   47:/*     myprio   I   Execution priority (default = 0)                  */
   48:/*     ierr     I   Error return code: 0 => no error                  */
   49:/*                     1 => error                                     */
   50:/*  Generic UNIX version (uses "nice").                               */
   51:/*  Currently used only by Convex-local ZSTRTA                        */
   52:/*--------------------------------------------------------------------*/
   53:{
   54:#if __STDC__
   55:   pid_t pid;
   56:   uid_t uid;
   57:#else
   58:   int pid, uid ;
   59:#endif
   60:   int  prio, llen, xlen, xlnb, jerr;
   61:   char lognam[MAXPNAME], xlated[MAXAPATH];
   62:/*--------------------------------------------------------------------*/
   63:   *ierr = 0;
   64:                                        /* Default priority to 0.     */
   65:   prio = 0;
   66:   *myprio = 0;
   67:                                        /* Form the name of the       */
   68:                                        /* priority logical (i.e.,    */
   69:                                        /* environment variable) for  */
   70:                                        /* "*mypops" and attempt to   */
   71:                                        /* translate it.              */
   72:   llen = MAXPNAME;
   73:   sprintf (lognam, "PRIO%x", *mypops);
   74:   xlen = MAXAPATH;
   75:   ztrlo2_ (&llen, lognam, &xlen, xlated, &xlnb, &jerr);
   76:                                        /* If defined, extract the    */
   77:                                        /* priority from the          */
   78:                                        /* translated character value */
   79:                                        /* as an integer value.       */
   80:   if (jerr == 0) sscanf (xlated, "%d", &prio);
   81:                                        /* Get current process id.    */
   82:   if ((pid = getpid ()) == -1) {
   83:      *ierr = 1;
   84:      perror ("ZSTRTP: getpid");
   85:      }
   86:                                        /* Set execution priority.    */
   87:                                        /* NOTE: Increasing priority  */
   88:                                        /* requires super-user        */
   89:                                        /* priviledge.                */
   90:   else if (nice (prio) == -1) {
   91:      *ierr = 1;
   92:      perror("ZSTRTP: nice");
   93:      }
   94:   else {
   95:       *myprio = prio;
   96:      }
   97:                                        /* Get current, real user id. */
   98:   if ((uid = getuid ()) == -1) {
   99:      perror ("ZSTRTP: getuid");
  100:                                        /* Self destruct.             */
  101:      abort ();
  102:      }
  103:                                        /* Set the effective user id  */
  104:                                        /* to the real user id.       */
  105:   else if (seteuid (uid) == -1) {
  106:      perror ("ZSTRTP: seteuid");
  107:                                        /* Self destruct.             */
  108:      abort ();
  109:      }
  111:   return;
  112:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSTRTP.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTRLO2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
AIPSCC    : Date       Fri Jul 18 17:25:51 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:5:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c: In function `ztrlo2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:60: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:60: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:60: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:60: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_trlo2__
    2:#include <stdlib.h>
    3:#include <ctype.h>
    4:#include <stdio.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void ztrlo2_(int *llen, char *lognam, int *xlen, char *xlated,
    9:      int *xlnb, int *ierr)
   10:#else
   11:   void ztrlo2_(llen, lognam, xlen, xlated, xlnb, ierr)
   12:   int *llen, *xlen, *xlnb, *ierr;
   13:   char lognam[], xlated[];
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! translate a logical name                                          */
   17:/*# System Z2                                                         */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1995, 1997, 2000                                   */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Translate a logical name (i.e., environment variable).            */
   45:/*  NOTE: This routine is ONLY for use by other Z-routines.           */
   46:/*  Inputs:                                                           */
   47:/*     llen     I          Length of "lognam" (1-relative)            */
   48:/*     lognam   H*(llen)   Logical name (must be null, blank or colon */
   49:/*                         terminated)                                */
   50:/*     xlen     I          Length of "xlated" (1-relative)            */
   51:/*  Output:                                                           */
   52:/*     xlated   H*(xlen)   Translation (blank filled)                 */
   53:/*     xlnb     I          Position of last non-blank in "xlated"     */
   54:/*                         (1-relative)                               */
   55:/*     ierr     I          Error return code: 0 => no error           */
   56:/*                             1 => error                             */
   57:/*  Generic UNIX version - uses "getenv"                              */
   58:/*--------------------------------------------------------------------*/
   59:{
   60:   char envvar[MAXPNAME+1], envval[MAXAPATH+1];
   61:   register int i;
   62:/*--------------------------------------------------------------------*/
   63:   *ierr = 0;
   64:                                        /* Form null terminated       */
   65:                                        /* logical name (i.e.,        */
   66:                                        /* environment variable).     */
   67:                                        /* Terminate on non-          */
   68:                                        /* alphanumeric character.    */
   69:   for (i = 0; i < *llen && i < MAXPNAME && (isalpha (lognam[i]) ||
   70:      isdigit (lognam[i]) || lognam[i] == '_'); i++)
   71:      envvar[i] = lognam[i];
   72:   envvar[i] = '\0';
   73:                                        /* Get value of environment   */
   74:                                        /* variable (if any).         */
   75:   *xlnb = 0;
   76:   envval[0] = '\0';
   77:   if (getenv (envvar) == 0)
   78:      *ierr = 1;
   79:   else {
   80:      sprintf (envval, "%s", getenv (envvar));
   81:      if (envval[0] == '\0')
   82:         *ierr = 1;
   83:      else {
   84:                                        /* Copy translation (up to    */
   85:                                        /* first null) into "xlated". */
   86:         for (i = 0; i < *xlen && i < MAXAPATH && envval[i] != '\0'; i++)
   87:            xlated[i] = envval[i];
   88:                                        /* 1-relative position of     */
   89:                                        /* last non-blank in "xlated".*/
   90:         *xlnb = i;
   91:                                        /* Blank fill remainder of    */
   92:                                        /* "xlated".                  */
   93:         for (i = *xlnb; i < *xlen ; i++)
   94:            xlated[i] = ' ';
   95:         }
   96:      }
   98:   return;
   99:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTRLO2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTCL2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
AIPSCC    : Date       Fri Jul 18 17:25:52 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ttcl2__
    2:#include <unistd.h>
    3:#include <errno.h>
    4:#include <string.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zttcl2_(int *fcb, int *ierr)
    9:#else
   10:   void zttcl2_(fcb, ierr)
   11:   int *fcb, *ierr;
   12:#endif
   13:/*--------------------------------------------------------------------*/
   14:/*! close a Message window                                            */
   15:/*# Graphics                                                          */
   16:/*--------------------------------------------------------------------*/
   17:/*;  Copyright (C) 1995, 1997                                         */
   18:/*;  Associated Universities, Inc. Washington DC, USA.                */
   19:/*;                                                                   */
   20:/*;  This program is free software; you can redistribute it and/or    */
   21:/*;  modify it under the terms of the GNU General Public License as   */
   22:/*;  published by the Free Software Foundation; either version 2 of   */
   23:/*;  the License, or (at your option) any later version.              */
   24:/*;                                                                   */
   25:/*;  This program is distributed in the hope that it will be useful,  */
   26:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   27:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   28:/*;  GNU General Public License for more details.                     */
   29:/*;                                                                   */
   30:/*;  You should have received a copy of the GNU General Public        */
   31:/*;  License along with this program; if not, write to the Free       */
   32:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   33:/*;  MA 02139, USA.                                                   */
   34:/*;                                                                   */
   35:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   36:/*;         Internet email: aipsmail at nrao.edu.                        */
   37:/*;         Postal address: AIPS Project Office                       */
   38:/*;                         National Radio Astronomy Observatory      */
   39:/*;                         520 Edgemont Road                         */
   40:/*;                         Charlottesville, VA 22903-2475 USA        */
   41:/*--------------------------------------------------------------------*/
   42:/*  Close a Message window.                                           */
   43:/*  Inputs:                                                           */
   44:/*     fcb    I(*)   File control block for opened MSGSRV device      */
   45:/*  Output:                                                           */
   46:/*     ierr   I      Error return code: 0 => ok                       */
   47:/*                      1 => error                                    */
   48:/*  Generic UNIX version.                                             */
   49:/*  Contains code that will reset TTDEV to TTDEV00 if there is an     */
   50:/*  error in the close on the socket.                                 */
   51:/*--------------------------------------------------------------------*/
   52:{
   53:                                        /* Offsets to entries in the  */
   54:                                        /* file control blocks        */
   55:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   56:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4, Z_nfcber, Z_nfcbfd;
   57:                                        /* flag from ZTTOP2 for speed */
   58:   extern int remembered;
   59:   int fd, llen, tlen, jerr;
   60:   char lnam[6], tlnam[8];
   61:/*--------------------------------------------------------------------*/
   62:   *ierr = 0;
   63:   *(fcb + Z_nfcber) = 0;
   64:                                        /* Get file descriptor from   */
   65:                                        /* the file control block as  */
   66:                                        /* stored there by ZTTOP2.    */
   67:   fd = *(fcb + Z_nfcbfd);
   68:                                        /* Close Socket to MSGSERVER. */
   69:   if (close (fd) == -1) {
   70:      *(fcb + Z_nfcber) = errno;
   71:      *ierr = 1;
   72:                                        /* is this even necessary?    */
   73:      remembered = 0;
   74:      strcpy (lnam, "TTDEV");
   75:      strcpy (tlnam, "TTDEV00");
   76:      llen = strlen(lnam);
   77:      tlen = strlen(tlnam);
   78:      zcrlog_ (&llen, lnam, &tlen, tlnam, &jerr);
   79:      }
   80:   *(fcb + Z_nfcbfd) = 0;
   82:   return;
   83:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTCL2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTYI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
AIPSCC    : Date       Fri Jul 18 17:25:52 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ttyio__
    2:#include <unistd.h>
    3:#include <string.h>
    4:#include <stdio.h>
    5:#include <errno.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zttyi2_(char *oper, int *fcb, char *buff, int *nbytes,
   11:                int *ierr)
   12:#else
   13:   void zttyi2_(oper, fcb, buff, nbytes, ierr)
   14:   char oper[], buff[];
   15:   int *fcb, *nbytes, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read/write from/to a Terminal device                              */
   19:/*# Graphics                                                          */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 1997                                         */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Read/write "nbytes" of data from/to a message server socket.      */
   47:/*                                                                    */
   48:/*  Inputs:                                                           */
   49:/*     oper     C*4    Operation code "READ" (unsupported) or "WRIT"  */
   50:/*     fcb      I(*)   File control block for opened message terminal */
   51:/*     buff     I(*)   I/O buffer                                     */
   52:/*     nbytes   I      Number of 8-bit bytes to be transferred        */
   53:/*  Output:                                                           */
   54:/*     ierr     I      Error return code: 0 => no error               */
   55:/*                        2 => bad opcode                             */
   56:/*                        3 => I/O error                              */
   57:/*                        4 => end of file                            */
   58:/*                        5 => error reading handshake from socket    */
   59:/*                        6 => handshake did not say "OK"             */
   60:/*  Generic UNIX version.                                             */
   61:/*--------------------------------------------------------------------*/
   62:{
   63:                                        /* Offsets to entries in the  */
   64:                                        /* file control blocks        */
   65:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   66:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4, Z_nfcbfd, Z_nfcber;
   68:   extern int remembered;
   69:   int fd, ndone, nread, llen, tlen, jerr;
   70:   register int i;
   71:   char op[5], lognam[6], tname[8], ok[3];
   72:/*--------------------------------------------------------------------*/
   73:   *ierr = 0;
   74:                                        /* Form null terminated       */
   75:                                        /* opcode.                    */
   76:   for (i = 0; i < 4; i++)
   77:      op[i] = oper[i];
   78:   op[4] = '\0';
   79:                                        /* Get file descriptor from   */
   80:                                        /* the file control block as  */
   81:                                        /* stored there by ZTKOP2.    */
   82:   fd = *(fcb + Z_nfcbfd);
   83:                                        /* Also, zero error status    */
   84:   *(fcb + Z_nfcber) = 0;
   85:                                        /* Perform the I/O and record */
   86:                                        /* the system error code (if  */
   87:                                        /* any) in *(fcb + Z_nfcber). */
   88:   if (strcmp (op, "READ") == 0) {
   89:                                        /* This code never used, and  */
   90:                                        /* CERTAINLY never tested!    */
   91:      if ((ndone=read (fd, buff, *nbytes)) == -1) {
   92:         *(fcb + Z_nfcber) = errno;
   93:         *ierr = 3;
   94:         }
   95:      }
   96:   else if (strcmp (op, "WRIT") == 0) {
   97:                                        /* write to message server    */
   98:      if ((ndone=write (fd, buff, *nbytes)) == -1) {
   99:         *(fcb + Z_nfcber) = errno;
  100:         *ierr = 3;
  101:	 perror ("ZTTYI2: write to msgserver");
  102:         }
  103:      else {
  104:                                        /* Read the "OK" back         */
  105:	 ndone = 2;
  106:	 if (( nread = read (fd, ok, ndone)) == -1) {
  107:	    *ierr = 5;
  108:	    fprintf (stderr, "ZTTYI2: socket from msgserver closed!\n");
  109:            }
  110:	 else if (nread == 0) {
  111:	    *ierr = 5;
  112:	    fprintf (stderr, "ZTTYI2: msgserver sent back NULL!\n");
  113:            }
  114:	 else if (nread != 2) {
  115:	    *ierr = 5;
  116:	    fprintf (stderr, "ZTTYI2: msgserver sent %d bytes != 2\n",
  117:		     nread);
  118:            }
  119:	 else {
  120:	    if (strncmp (ok, "OK", 2) != 0) {
  121:	       *ierr = 6;
  122:	       fprintf (stderr,
  123:			"ZTTYI2: unexpected msgserver text %s\n", ok);
  124:	       }
  125:            }
  126:         }
  127:      if (*ierr != 0) {
  128:                                        /* problems, forget msgserver */
  129:                                        /* but print possibly lost msg */
  130:         fprintf (stderr, "ZTTYI2: Problem with MSGSRV communication\n");
  131:	 fprintf (stderr, "ZTTYI2: %s\n",
  132:		  "Messages will continue here instead; next may be a repeat");
  133:         fprintf (stderr, "%s\n", buff);
  134:	 remembered = 0;
  135:	 llen=5;
  136:	 strcpy (lognam, "TTDEV");
  137:	 tlen=7;
  138:	 strcpy (tname, "TTDEV00");
  139:	 zcrlog_ (&llen, lognam, &tlen, tname, &jerr);
  140:	 if (jerr != 0) {
  141:	    fprintf (stderr,
  142:		     "ZTTYI2: (info) problem writing to msgserver\n");
  143:	    fprintf (stderr,
  144:		     "ZTTYI2: (info) failed to reset message device\n");
  145:            }
  146:         }
  147:      }
  148:                                        /* Bad opcode.                */
  149:   else {
  150:      *ierr = 2;
  151:      return;
  152:      }
  153:                                        /* End of file?               */
  154:   if (ndone == 0)
  155:      *ierr = 4;
  157:   return;
  158:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTYI2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:52 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABOR2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZABOR2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABOR2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
AIPSCC    : Date       Fri Jul 18 17:25:52 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c:7:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c: In function `zabor2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c:102: error: `zabors_' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c:102: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c:102: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_abor2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <signal.h>
    5:#include <stdlib.h>
    6:#include <string.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zabor2_(char tsknam[], int *isalon, int *action)
   11:#else
   12:   zabor2_(tsknam, isalon, action)
   13:   char tsknam[];
   14:   int *isalon, *action;
   15:#endif
   16:/*--------------------------------------------------------------------*/
   17:/*! establishes or carries out (when appropriate) abort handling      */
   18:/*# Z2 System                                                         */
   19:/*--------------------------------------------------------------------*/
   20:/*;  Copyright (C) 1995, 1998                                         */
   21:/*;  Associated Universities, Inc. Washington DC, USA.                */
   22:/*;                                                                   */
   23:/*;  This program is free software; you can redistribute it and/or    */
   24:/*;  modify it under the terms of the GNU General Public License as   */
   25:/*;  published by the Free Software Foundation; either version 2 of   */
   26:/*;  the License, or (at your option) any later version.              */
   27:/*;                                                                   */
   28:/*;  This program is distributed in the hope that it will be useful,  */
   29:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   30:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   31:/*;  GNU General Public License for more details.                     */
   32:/*;                                                                   */
   33:/*;  You should have received a copy of the GNU General Public        */
   34:/*;  License along with this program; if not, write to the Free       */
   35:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   36:/*;  MA 02139, USA.                                                   */
   37:/*;                                                                   */
   38:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   39:/*;         Internet email: aipsmail at nrao.edu.                        */
   40:/*;         Postal address: AIPS Project Office                       */
   41:/*;                         National Radio Astronomy Observatory      */
   42:/*;                         520 Edgemont Road                         */
   43:/*;                         Charlottesville, VA 22903-2475 USA        */
   44:/*--------------------------------------------------------------------*/
   45:/*--------------------------------------------------------------------*/
   46:/*  ZABORT will take one of two actions depending on the value of     */
   47:/*  "action".  If "action" is zero, it establishes abort handling     */
   48:/*  to clean up for programs in the event of an ABORTASK or otherwise */
   49:/*  fatal signal.  Hangup, interrupt (except for AIPS or BATER) and   */
   50:/*  quit are ignored.  If running under the control of a debugger, it */
   51:/*  simply returns (to avoid affecting the debugger signal handling). */
   52:/*  If "action" is non-zero, it will issue an illegal instruction in  */
   53:/*  order to induce the abort handler.  This is mostly to get a       */
   54:/*  traceback for debugging purposes (e.g., when an invalid argument  */
   55:/*  to a subroutine is detected).                                     */
   56:/*                                                                    */
   57:/*  Inputs:                                                           */
   58:/*     tsknam   C*6   Program name                                    */
   59:/*     isalon   I     1 => stand-alone program, else a task           */
   60:/*     action   I     Action indicator code:                          */
   61:/*                       0 => establish abort handling                */
   62:/*                       1 => invoke an illegal instruction           */
   63:/*  Output:                                                           */
   64:/*     none                                                           */
   65:/*  Generic UNIX version (your system may have different/more         */
   66:/*  signals).                                                         */
   67:/*--------------------------------------------------------------------*/
   68:{
   69:   char prog[7];
   70:   register int i;
   71:/*--------------------------------------------------------------------*/
   72:                                        /* Abort?                     */
   73:   if (*action == 1)
   74:      abort ();
   75:                                        /* Else establish handler     */
   77:                                        /* Form null terminated       */
   78:                                        /* program name.              */
   79:   strncpy (prog, tsknam, 7);
   80:                                        /* If we are running in debug */
   81:                                        /* mode, don't disturb signal */
   82:                                        /* processing.                */
   83:   if (strcmp (prog, "ZSTRTA") == 0 || strcmp (prog, "AIPS") == 0) {
   84:      if (getenv ("AIPSDBUGR") != NULL)
   85:         return;
   86:      }
   87:   else if (strcmp (prog, "ZSTRTB") == 0 ||
   88:      strcmp (prog, "BATER") == 0) {
   89:      if (getenv ("BATERDBUGR") != NULL)
   90:         return;
   91:      }
   92:                                        /* ppid > 1 => dbgr           */
   93:   else if ((getenv ("DBUGR") != NULL) && (getppid () > 1))
   94:      return;
   95:                                        /* Your system may have more  */
   96:                                        /* or different signals.  See */
   97:                                        /* signal(3) and              */
   98:                                        /* "/usr/include/signal.h".   */
   99:   if (*isalon == 1 ||
  100:      getenv ("STANDALONE") != 0) {     /* if AIPS, BATER or          */
  101:                                        /* standalone, catch:         */
  102:      zignal_ (SIGINT, zabors_);        /* interrupt                  */
  103:      zignal_ (SIGHUP, zabors_);        /* hangup                     */
  104:      }
  105:   else {                               /* otherwise, ignore:         */
  106:      zignal_ (SIGINT, SIG_IGN);        /* interrupt                  */
  107:      zignal_ (SIGHUP, SIG_IGN);        /* hangup                     */
  108:      }
  109:   zignal_ (SIGQUIT, SIG_IGN);          /* quit (ignore)              */
  110:   zignal_ (SIGILL, zabors_);           /* illegal instruction        */
  111:#ifdef SIGTRAP
  112:   zignal_ (SIGTRAP, zabors_);          /* trace trap                 */
  113:#endif
  114:#ifdef SIGABRT
  115:   zignal_ (SIGABRT, zabors_);          /* abort (IOT) instruction    */
  116:#else
  117:   zignal_ (SIGIOT, zabors_);           /* abort (IOT) instruction    */
  118:#endif
  119:#ifdef SIGEMT
  120:   zignal_ (SIGEMT, zabors_);           /* EMT instruction            */
  121:#endif
  122:   zignal_ (SIGFPE, zabors_);           /* floating-point exception   */
  123:   zignal_ (SIGKILL, SIG_DFL);          /* kill: can't catch or ignore*/
  124:#ifdef SIGBUS
  125:   zignal_ (SIGBUS, zabors_);           /* bus error                  */
  126:#endif
  127:   zignal_ (SIGSEGV, zabors_);          /* segmentation violation     */
  128:#ifdef SIGSYS
  129:   zignal_ (SIGSYS, zabors_);           /* bad argument to system call*/
  130:#endif
  131:   zignal_ (SIGPIPE, zabors_);          /* write on a pipe with no one*/
  132:                                        /*    to read it              */
  133:   zignal_ (SIGTERM, zabors_);          /* software termination       */
  134:                                        /*    (e.g., "ABORTASK")      */
  135:   zignal_ (SIGUSR1, zabors_);          /* user defined signal 1      */
  136:   zignal_ (SIGUSR2, zabors_);          /* user defined signal 2      */
  138:   zignal_ (SIGALRM, zabors_);          /* alarm clock                */
  140:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZABOR2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:52 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBYTF2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZBYTF2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBYTF2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
AIPSCC    : Date       Fri Jul 18 17:25:52 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_bytf2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <stdlib.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zbytf2_(int *nwords, int *bytflp, int *nbitwd, char inbuf[],
    9:      char outbuf[])
   10:#else
   11:   void zbytf2_(nwords, bytflp, nbitwd, inbuf, outbuf)
   12:   char inbuf[], outbuf[];
   13:   int *nwords, *bytflp, *nbitwd;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! swap low and high order 8-bit bytes and move from inbuf to outbuf */
   17:/*# Z2 Binary                                                         */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1995-1997                                          */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Interchange the low order and high order bytes for all words in   */
   45:/*  the input buffer and puts results in output buffer (which may be  */
   46:/*  the same as the input buffer).  The routine is only called by     */
   47:/*  ZBYTFL and only if byte swapping is required on the host machine  */
   48:/*  (e.g., a VAX).                                                    */
   49:/*  Inputs:                                                           */
   50:/*     nwords   I       Length of input buffer in 16-bit "words"      */
   51:/*     bytflp   I       Byte/words swapped indicator as set in ZDCHIN */
   52:/*                        1 => byte swapped only                      */
   53:/*                        2 => word swapped only                      */
   54:/*                        3 => both byte and word swapped             */
   55:/*     nbitwd   I       Number of bits per integer                    */
   56:/*     inbuf    I*2(*)  input buffer                                  */
   57:/*  Output:                                                           */
   58:/*     outbuf   I*2(*)  output buffer containing swapped words        */
   59:/*                        (may be the same as the input buffer)       */
   60:/* Generic UNIX version (only performs byte-swapping at present;  it  */
   61:/* may be possible to use the UNIX library function "swab" for this   */
   62:/* it's not clear from the documentation if inbuf and outbuf can be   */
   63:/* the same).                                                         */
   64:/* This will probably do bad things if the arrays overlap but don't   */
   65:/* start at the same place.                                           */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:   int n8 = 8;
   69:   int flipcode;
   70:   register int j, k;
   71:   char temp[2], msgbuf[80];
   72:/*--------------------------------------------------------------------*/
   73:   flipcode = *bytflp;
   74:                                        /* Swap bytes only.  If      */
   75:                                        /* inbuf is the same as      */
   76:                                        /* outbuf, use temporary     */
   77:                                        /* storage.                  */
   78:   if ((flipcode == 1) || (flipcode == 3)) {
   79:      if (&inbuf[0] == &outbuf[0]) {
   80:         for (j = 0; j < *nwords; j++) {
   81:            k = 2 * j;
   82:            temp[0] = inbuf[k];
   83:            temp[1] = inbuf[k+1];
   84:            outbuf[k] = temp[1];
   85:            outbuf[k+1] = temp[0];
   86:            }
   87:         }
   88:      else {
   89:         for (j = 0; j < *nwords; j++) {
   90:            k = 2 * j;
   91:            outbuf[k+1] = inbuf[k];
   92:            outbuf[k] = inbuf[k+1];
   93:            }
   94:         }
   95:      }
   96:   else if ((flipcode == 2) || (flipcode == 0)) {
   97:      if (&inbuf[0] == &outbuf[0]) {
   98:	    ;
   99:	 }
  100:      else {
  101:         for (j = 0; j < *nwords; j++) {
  102:            k = 2 * j;
  103:            outbuf[k+1] = inbuf[k+1];
  104:            outbuf[k] = inbuf[k];
  105:            }
  106:         }
  107:      }
  108:   else {
  109:                                        /* Invalid "flipcode".        */
  110:      sprintf (msgbuf,
  111:         "ZBYTF2: INVALID VALUE FOR BYTFLP = %d\n", flipcode);
  112:      zmsgwr_ (msgbuf, &n8);
  113:      exit (8);
  114:      }
  116:   return;
  117:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZBYTF2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:53 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCMPR2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZCMPR2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCMPR2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
AIPSCC    : Date       Fri Jul 18 17:25:53 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c:7:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c:10: error: `MAXPNAME' undeclared here (not in a function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_cmpr2__
    2:#include <unistd.h>
    3:#include <sys/types.h>
    4:#include <errno.h>
    5:#include <sys/stat.h>
    6:#include <string.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zcmpr2_(int *fcb, char pname[MAXPNAME], int *nblocks, int *map,
   11:      int *syserr, int *ierr)
   12:#else
   13:   void zcmpr2_(fcb, pname, nblocks, map, syserr, ierr)
   14:   int *fcb, *nblocks, *map, *syserr, *ierr;
   15:   char pname[MAXPNAME];
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! truncate a disk file, returning blocks to the system              */
   19:/*# IO-basic                                                          */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 1997                                         */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/* Truncates a disk file.  It is assumed that the file is open.       */
   47:/* Inputs:                                                            */
   48:/*    fcb     I(*)   File descriptor from FTAB file control block     */
   49:/*    pname   C*48   File name                                        */
   50:/*    map     I      I/O type: 0 => non-map (single buffered)         */
   51:/*                             1 => map (double buffered)             */
   52:/* In/Output:                                                         */
   53:/*    nblocks I      Desired size in 256-integer blocks               */
   54:/* Output:                                                            */
   55:/*    ierr    I      Error code: 0 = success                          */
   56:/*                      1 = file name translation fails               */
   57:/*                      2 = error occurred                            */
   58:/*                      3 = temporary file not deleted                */
   59:/* semi-standard (SVR4 and BSD 4.3) function ftruncate used           */
   60:/*--------------------------------------------------------------------*/
   61:{
   62:                                        /* number bytes per AIPS byte */
   63:   extern int  Z_fcbfd, Z_fcbsiz, Z_fcberr, Z_mfcb, Z_nbpab ;
   64:   off_t nbytes, lastiob;
   65:   int fd;
   66:   struct stat fstatbuf;
   67:/*--------------------------------------------------------------------*/
   68:   *ierr = 0;
   69:   *syserr = 0;
   70:   nbytes = *nblocks;
   71:   nbytes = nbytes * 512 * Z_nbpab;
   72:   fd = *(fcb + Z_fcbfd);
   73:                                        /* Truncate file to "nbytes". */
   74:   if (ftruncate (*fcb, nbytes) == -1) {
   75:      *ierr = 2;
   76:      *syserr = errno;
   77:      }
   78:                                        /* Squirrel away file size    */
   79:   else if (fstat (fd, &fstatbuf) == -1) {
   80:      *(fcb + Z_fcberr) = errno;
   81:      *ierr = 6;
   82:      }
   83:   else {
   84:      lastiob = -100;
   85:      *nblocks = fstatbuf.st_size / 512 / Z_nbpab ;
   86:      memcpy ((fcb+Z_fcbsiz), &fstatbuf.st_size, sizeof(off_t)) ;
   87:      memcpy ((fcb+Z_fcbsiz+2), &lastiob, sizeof(off_t)) ;
   88:      if (*map == 1) {
   89:         memcpy ((fcb+Z_mfcb+Z_fcbsiz), &fstatbuf.st_size, sizeof(off_t)) ;
   90:         memcpy ((fcb+Z_mfcb+Z_fcbsiz+2), &lastiob, sizeof(off_t)) ;
   91:         }
   92:      }
   94:   return;
   95:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZCMPR2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:53 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCREA2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZCREA2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCREA2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
AIPSCC    : Date       Fri Jul 18 17:25:53 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:10:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:17: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c: In function `zcrea2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:78: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:78: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:78: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:78: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_crea2__
    2:#include <unistd.h>
    3:#include <sys/types.h>
    4:#include <sys/stat.h>
    5:#include <stdio.h>
    6:#include <fcntl.h>
    7:#include <string.h>
    8:#include <errno.h>
    9:#include <stdlib.h>
   10:#include <AIPSPROTO.H>
   12:#define BUFSIZE 65536                   /* Buffer size for space      */
   13:                                        /* reservation process.       */
   14:#define PMODE (S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | S_IROTH | S_IWOTH)
   16:#if __STDC__
   17:   void zcrea2_(char pname[MAXPNAME], int *ablocks, int *asize,
   18:      int *syserr, int *ierr)
   19:#else
   20:   void zcrea2_(pname, ablocks, asize, syserr, ierr)
   21:   char pname[MAXPNAME];
   22:   int *ablocks, *asize, *syserr, *ierr;
   23:#endif
   24:/*--------------------------------------------------------------------*/
   25:/*! create the specified disk file                                    */
   26:/*# Z2 IO-basic                                                       */
   27:/*--------------------------------------------------------------------*/
   28:/*;  Copyright (C) 1995-1997, 2000, 2002                              */
   29:/*;  Associated Universities, Inc. Washington DC, USA.                */
   30:/*;                                                                   */
   31:/*;  This program is free software; you can redistribute it and/or    */
   32:/*;  modify it under the terms of the GNU General Public License as   */
   33:/*;  published by the Free Software Foundation; either version 2 of   */
   34:/*;  the License, or (at your option) any later version.              */
   35:/*;                                                                   */
   36:/*;  This program is distributed in the hope that it will be useful,  */
   37:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   38:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   39:/*;  GNU General Public License for more details.                     */
   40:/*;                                                                   */
   41:/*;  You should have received a copy of the GNU General Public        */
   42:/*;  License along with this program; if not, write to the Free       */
   43:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   44:/*;  MA 02139, USA.                                                   */
   45:/*;                                                                   */
   46:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   47:/*;         Internet email: aipsmail at nrao.edu.                        */
   48:/*;         Postal address: AIPS Project Office                       */
   49:/*;                         National Radio Astronomy Observatory      */
   50:/*;                         520 Edgemont Road                         */
   51:/*;                         Charlottesville, VA 22903-2475 USA        */
   52:/*--------------------------------------------------------------------*/
   53:/*  Create a disk file of the specified name and size with read/write */
   54:/*  permission.                                                       */
   55:/*  Inputs:                                                           */
   56:/*     pname    C*48   Physical file name (MAXPNAME characters)       */
   57:/*     ablocks  I      Requested size of file in AIPS-blocks          */
   58:/*                        (256 local integers)                        */
   59:/*  Output:                                                           */
   60:/*     asize    I      Actual size of file created in AIPS-blocks     */
   61:/*     syserr   I      System error code                              */
   62:/*     ierr     I      Error return code: 0 => no error               */
   63:/*                        1 => file already exists                    */
   64:/*                        2 => volume not found                       */
   65:/*                        3 => insufficient space                     */
   66:/*                        4 => other                                  */
   67:/*  Bell UNIX version (attempts atomic file creations).               */
   68:/*--------------------------------------------------------------------*/
   69:{
   70:                                        /* # bytes per AIPS-byte      */
   71:   extern int Z_nbpab;
   72:   int llen, xlen, xlnb, jerr, fd, tries, lockfd, tdelay,
   73:      iexcl = 1, n6 = 6, n8 = 8;
   74:   int chunks, rest, xfer;
   75:   off_t bytes;
   76:   register int i, j, k;
   77:   float delay = 2.0;
   78:   char lognam[MAXPNAME], xlated[MAXAPATH], filename[MAXPNAME],
   79:      lname[MAXPNAME], lockname[MAXAPATH], pathname[MAXAPATH], msgbuf[80];
   80:   char *buff = NULL;
   81:   struct stat statbuf;
   82:/*--------------------------------------------------------------------*/
   83:   *asize = 0;
   84:   *syserr = 0;
   85:   *ierr = 0;
   86:                                        /* Extract logical device.    */
   87:   for (i = 0; i < MAXPNAME && pname[i] != ':'; i++)
   88:      lognam[i] = pname[i];
   89:   lognam[i] = '\0';
   91:                                        /* Extract filename.          */
   92:   j = 0;
   93:   for (i = i+1; i < MAXPNAME && pname[i] != ' '; i++) {
   94:      filename[j] = pname[i];
   95:      j++;
   96:      }
   97:   filename[j] = '\0';
   98:                                        /* Convert number of AIPS-    */
   99:                                        /* blocks requested to bytes  */
  100:   bytes = *ablocks * Z_nbpab;
  101:   bytes = bytes * 512;
  102:                                        /* Translate logical device   */
  103:                                        /* name and null terminate.   */
  104:   llen = MAXPNAME;
  105:   xlen = MAXAPATH;
  106:   ztrlo2_ (&llen, lognam, &xlen, xlated, &xlnb, &jerr);
  107:   if (jerr != 0) {
  108:      *ierr = 2;
  109:      sprintf (msgbuf, "ZCREA2: TROUBLE TRANSLATING LOGICAL = %s",
  110:         lognam);
  111:      zmsgwr_ (msgbuf, &n6);
  112:      }
  113:   else if (bytes <= 0) {
  114:      *ierr = 3;
  115:      sprintf (msgbuf, "ZCREA2: BYTES OVERFLOW ? = %d", bytes);
  116:      zmsgwr_ (msgbuf, &n6);
  117:      }
  118:   else {
  119:      xlated[xlnb] = '\0';
  120:                                        /* Build full path name of    */
  121:                                        /* the file to be created.    */
  122:      sprintf (pathname, "%s/%s", xlated, filename);
  123:                                         /* "Stat" full path name.    */
  124:      if (stat (pathname, &statbuf) == 0) {
  125:                                        /* File already exists. Get   */
  126:                                        /* its actual size in AIPS-   */
  127:                                        /* bytes.                     */
  128:         *ierr = 1;
  129:         *asize = statbuf.st_size / Z_nbpab / 512;
  130:         }
  131:      else {
  132:                                        /* Build physical file name   */
  133:                                        /* of space lock file.        */
  134:         sprintf (lname, "%s:SPACE", lognam);
  135:                                        /* Build full path name to    */
  136:                                        /* space lock file.           */
  137:         sprintf (lockname, "%s/SPACE", xlated);
  138:                                        /* Open space lock file.      */
  139:         if ((lockfd = open (lockname, 2)) == -1) {
  140:            *syserr = errno;
  141:                                        /* If space lock file doesn't */
  142:                                        /* exist, create it.          */
  143:            if (errno == ENOENT) {
  144:               if ((lockfd =
  145:                  open (lockname, O_CREAT | O_EXCL | O_WRONLY, PMODE))
  146:                  == -1) {
  147:                  *ierr = 4;
  148:                  sprintf (msgbuf,
  149:                  "ZCREA2: ERROR CREATING SPACE LOCK FILE = %s", lname);
  150:                  zmsgwr_ (msgbuf, &n8);
  151:                  }
  152:               }
  153:                                        /* Some other open error.     */
  154:            else {
  155:               *ierr = 4;
  156:               sprintf (msgbuf,
  157:                  "ZCREA2: ERROR OPENING SPACE LOCK FILE = %s", lname);
  158:               zmsgwr_ (msgbuf, &n8);
  159:               }
  160:            }
  161:         }
  162:                                        /* If no error so far,        */
  163:                                        /* continue.                  */
  164:      if (*ierr == 0) {
  165:                                        /* Apply non-blocking lock to */
  166:                                        /* space lock file.  This is  */
  167:                                        /* an attempt to force AIPS   */
  168:                                        /* file creations to be       */
  169:                                        /* atomic.  If it fails, we   */
  170:                                        /* try to create the file     */
  171:                                        /* anyway.                    */
  172:         tries = 0;
  173:         tdelay = 0;
  174:lock:
  175:         zlock_ (&lockfd, lname, &iexcl, syserr, &jerr);
  176:         tries = tries + 1;
  177:         if (jerr == 4) {
  178:                                        /* Space lock file is busy.   */
  179:                                        /* Wait and try again up to   */
  180:                                        /* 30 times at 2 second       */
  181:                                        /* intervals.                 */
  182:            if (tries <= 30) {
  183:               zdelay_ (&delay, &jerr);
  184:               tdelay = tdelay + delay;
  185:               goto lock;
  186:               }
  187:            tries = tries - 1;
  188:            sprintf (msgbuf, "ZCREA2: SPACE LOCK FILE = %s", lname);
  189:            zmsgwr_ (msgbuf, &n8);
  190:            sprintf (msgbuf,
  191:               "ZCREA2: STILL BUSY AFTER %d TRIES IN %d SECONDS",
  192:               tries, tdelay);
  193:            zmsgwr_ (msgbuf, &n8);
  194:            sprintf (msgbuf,
  195:               "ZCREA2: A STOPPED PROCESS MAY HAVE IT MONOPOLIZED");
  196:            zmsgwr_ (msgbuf, &n8);
  197:            sprintf (msgbuf, "ZCREA2: NOTIFY THE AIPS SYSTEM MANAGER");
  198:            zmsgwr_ (msgbuf, &n8);
  199:            sprintf (msgbuf,
  200:               "ZCREA2: PERFORMING NON-ATOMIC FILE CREATION INSTEAD");
  201:            zmsgwr_ (msgbuf, &n8);
  202:            }
  203:                                        /* Some other error locking   */
  204:                                        /* space lock file.           */
  205:         else if (jerr != 0) {
  206:            *ierr = 4;
  207:            sprintf (msgbuf,
  208:               "ZCREA2: ERROR LOCKING SPACE LOCK FILE = %s", lname);
  209:            zmsgwr_ (msgbuf, &n8);
  210:            sprintf (msgbuf,
  211:               "ZCREA2: PERFORMING NON-ATOMIC FILE CREATION INSTEAD");
  212:            zmsgwr_ (msgbuf, &n8);
  213:            }
  214:                                        /* Build full path name of    */
  215:                                        /* the file to be created.    */
  216:         sprintf (pathname, "%s/%s", xlated, filename);
  217:                                        /* Create the file.           */
  218:         if ((fd = open
  219:            (pathname, O_CREAT | O_EXCL | O_WRONLY, PMODE)) == -1) {
  220:                                        /* File already exists.       */
  221:            if (errno == EEXIST) {
  222:               *ierr = 1;
  223:               }
  224:            else {
  225:               *syserr = errno;
  226:               *ierr = 4;
  227:               sprintf (msgbuf, "ZCREA2: CREATE ERROR = %d", errno);
  228:               zmsgwr_ (msgbuf, &n6);
  229:               }
  230:            }
  231:                                        /* Apply non-blocking lock.   */
  232:         else {
  233:            zlock_ (&fd, pname, &iexcl, syserr, &jerr);
  234:                                        /* Allocate memory for a      */
  235:                                        /* temporary I/O buffer.      */
  236:            if ((buff = (char *) malloc (BUFSIZE)) == NULL) {
  237:               *syserr = errno;
  238:               *ierr = 4;
  239:               sprintf (msgbuf, "ZCREA2: MEMORY ALLOCATION ERROR = %d", errno);
  240:               zmsgwr_ (msgbuf, &n6);
  241:               }
  242:            else {
  243:               memset (buff, 0, BUFSIZE);
  244:                                        /* Convert number of AIPS-    */
  245:                                        /* blocks requested to bytes  */
  246:               bytes = *ablocks * Z_nbpab;
  247:               bytes = bytes * 512;
  248:                                        /* Calculate the number of    */
  249:                                        /* BUFSIZE byte chunks this   */
  250:                                        /* represents plus remainder  */
  251:                                        /* (for the sake of speed,    */
  252:                                        /* disk space is reserved by  */
  253:                                        /* writing the file in        */
  254:                                        /* BUFSIZE chunks, then the   */
  255:                                        /* remainder).                */
  256:               chunks = bytes / BUFSIZE;
  257:               rest = bytes % BUFSIZE;
  258:                                        /* Reserve the disk space by  */
  259:                                        /* writing the entire file.   */
  260:                                        /* We can't just write the    */
  261:                                        /* last byte since this would */
  262:                                        /* leave a "hole".  That is,  */
  263:                                        /* "stat" would return the    */
  264:                                        /* desired file size, but     */
  265:                                        /* only one block would       */
  266:                                        /* actually be allocated.     */
  267:                                        /* UNIX really should have a  */
  268:                                        /* function for this (just    */
  269:                                        /* something that would mark  */
  270:                                        /* the blocks as in use).     */
  271:               bytes = 0;
  272:               xfer = 0;
  273:               for (i = 0; i < chunks && *ierr == 0; i++) {
  274:                  if ((xfer = write (fd, buff, BUFSIZE)) == -1) {
  275:                     *syserr = errno;
  276:                     *ierr = 4;
  277:                     sprintf (msgbuf, "ZCREA2: WRITE ERROR = %d", errno);
  278:                     zmsgwr_ (msgbuf, &n6);
  279:                     }
  280:                                        /* Increment space reserved.  */
  281:                  else {
  282:                     bytes = bytes + xfer;
  283:                                        /* Presume insufficient space */
  284:                     if (xfer != BUFSIZE) {
  285:                        *ierr = 3;
  286:                        }
  287:                     }
  288:                  }
  289:                                        /* If no error so far, write  */
  290:                                        /* the "rest" (if any).       */
  291:               if (*ierr == 0 && rest > 0) {
  292:                  if ((xfer = write (fd, buff, rest)) == -1) {
  293:                     *syserr = errno;
  294:                     *ierr = 4;
  295:                     sprintf (msgbuf, "ZCREA2: WRITE ERROR = %d", errno);
  296:                     zmsgwr_ (msgbuf, &n6);
  297:                     }
  298:                                        /* Increment space reserved.  */
  299:                  else {
  300:                     bytes = bytes + xfer;
  301:                                        /* Presume insufficient space */
  302:                     if (xfer != rest) {
  303:                        *ierr = 3;
  304:                        }
  305:                     }
  306:                  }
  307:                                        /* Free up the memory of the  */
  308:                                        /* temporary I/O buffer.      */
  309:               free (buff);
  310:               }
  311:                                        /* Convert the final 8-bit    */
  312:                                        /* byte file size to          */
  313:                                        /* AIPS-blocks for return     */
  314:            *asize = bytes / Z_nbpab / 512;
  315:                                        /* Close the file.            */
  316:            if (close (fd) == -1) {
  317:               *syserr = errno;
  318:               *ierr = 4;
  319:               sprintf (msgbuf, "ZCREA2: CLOSE ERROR = %d", errno);
  320:               zmsgwr_ (msgbuf, &n6);
  321:               }
  322:                                        /* Did we get what we asked   */
  323:                                        /* for?                       */
  324:                                        /* Presume insufficient space */
  325:            else if (*asize != *ablocks) {
  326:               *ierr = 3;
  327:               }
  328:                                        /* Any errors.                */
  329:            if (*ierr != 0) {
  330:                                        /* Delete the file.           */
  331:               if (unlink (pathname) == -1) {
  332:                  *syserr = errno;
  333:                  *ierr = 4;
  334:                  sprintf (msgbuf, "ZCREA2: DELETE ERROR = %d", errno);
  335:                  zmsgwr_ (msgbuf, &n6);
  336:                  }
  337:               }
  338:            }
  339:                                        /* Close space lock file.     */
  340:         if (close (lockfd) == -1) {
  341:            *syserr = errno;
  342:            *ierr = 4;
  343:            sprintf (msgbuf, "ZCREA2: CLOSE ERROR ON %s", lname);
  344:            zmsgwr_ (msgbuf, &n6);
  345:            }
  346:         }
  347:      }
  349:   return;
  350:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZCREA2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:53 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDAOPN.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDAOPN.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDAOPN.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
AIPSCC    : Date       Fri Jul 18 17:25:53 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:11:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:14: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c: In function `zdaopn_':
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:78: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:78: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:78: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:83: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_daopn__
    5:#include <unistd.h>
    6:#include <fcntl.h>
    7:#include <string.h>
    8:#include <errno.h>
    9:#include <sys/types.h>
   10:#include <sys/stat.h>
   11:#include <AIPSPROTO.H>
   13:#if __STDC__
   14:   void zdaopn_(int *fcb, char pname[MAXPNAME],int * map, int *excl,
   15:      int *ierr)
   16:#else
   17:   void zdaopn_(fcb, pname, map, excl, ierr)
   18:   int *fcb, *map, *excl, *ierr ;
   19:   char pname[MAXPNAME] ;
   20:#endif
   21:/*--------------------------------------------------------------------*/
   22:/*! open the specified disk file                                      */
   23:/*# Z2 IO-basic                                                       */
   24:/*--------------------------------------------------------------------*/
   25:/*;  Copyright (C) 1995, 1997                                         */
   26:/*;  Associated Universities, Inc. Washington DC, USA.                */
   27:/*;                                                                   */
   28:/*;  This program is free software; you can redistribute it and/or    */
   29:/*;  modify it under the terms of the GNU General Public License as   */
   30:/*;  published by the Free Software Foundation; either version 2 of   */
   31:/*;  the License, or (at your option) any later version.              */
   32:/*;                                                                   */
   33:/*;  This program is distributed in the hope that it will be useful,  */
   34:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   35:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   36:/*;  GNU General Public License for more details.                     */
   37:/*;                                                                   */
   38:/*;  You should have received a copy of the GNU General Public        */
   39:/*;  License along with this program; if not, write to the Free       */
   40:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   41:/*;  MA 02139, USA.                                                   */
   42:/*;                                                                   */
   43:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   44:/*;         Internet email: aipsmail at nrao.edu.                        */
   45:/*;         Postal address: AIPS Project Office                       */
   46:/*;                         National Radio Astronomy Observatory      */
   47:/*;                         520 Edgemont Road                         */
   48:/*;                         Charlottesville, VA 22903-2475 USA        */
   49:/*--------------------------------------------------------------------*/
   50:/*  Opens a disk file for map (double buffered) or non-map (single    */
   51:/*  buffered) I/O and shared or exclusive use.                        */
   52:/*  Inputs:                                                           */
   53:/*     pname   H*48   Physical file name (H for Macro, C, ...')        */
   54:/*     map     I      I/O type: 0 => non-map (single buffered)        */
   55:/*                              1 => map (double buffered)            */
   56:/*     excl    I      Usage mode indicator: 0 => shared               */
   57:/*                                          1 => exclusive            */
   58:/*  Output:                                                           */
   59:/*     fcb     I(*)   File control block for disk file involved       */
   60:/*     ierr    I      Error return code: 0 => no error                */
   61:/*                       2 => file not found                          */
   62:/*                       3 => volume/logical not found                */
   63:/*                       4 => exclusive use requested but not ok      */
   64:/*                       6 => other open error                        */
   65:/*  Generic UNIX version (synchronous I/O only).                      */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:                                        /* Offsets to entries in the  */
   69:                                        /* file control blocks        */
   70:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   71:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   72:                                        /* # of FTAB elements per map */
   73:                                        /* file control block         */
   74:   extern int Z_mfcb;
   75:   int llen, xlen, xlnb, jerr, syserr, fd, dupfd;
   76:   off_t lastiob;
   77:   register int i, j;
   78:   char pathname[MAXAPATH];
   79:   struct stat fstatbuf;
   80:/*--------------------------------------------------------------------*/
   81:   *ierr = 0 ;
   82:                                        /* get full file name         */
   83:   llen = MAXPNAME;
   84:   xlen = MAXAPATH;
   85:   zpath_(&llen, pname, &xlen, pathname, &xlnb, &jerr) ;
   86:   if (jerr != 0) {
   87:      *ierr = 3;
   88:      }
   89:   else {
   90:      pathname[xlnb] = '\0';
   91:                                        /* Open the disk file         */
   92:                                        /* read/write.                */
   93:      fd = open (pathname, O_RDWR);
   94:                                        /* try read only              */
   95:      if ((fd == -1) && (errno == EACCES) && (*excl == 0))
   96:         fd = open (pathname, O_RDONLY);
   97:      if (fd == -1) {
   98:         *(fcb + Z_fcberr) = errno;
   99:                                        /* File doesn't exist.        */
  100:         if (errno == ENOENT)
  101:            *ierr = 2;
  102:                                        /* Some other open error.     */
  103:         else
  104:            *ierr = 6;
  105:         }
  106:      else {
  107:         *(fcb + Z_fcbfd) = fd;
  108:                                        /* Apply non-blocking lock.   */
  109:         zlock_ (&fd, pname, excl, &syserr, ierr);
  110:         if (*ierr != 0) {
  111:            *(fcb + Z_fcberr) = syserr;
  112:            close (fd);
  113:            }
  114:                                        /* Squirrel away file size    */
  115:         else if (fstat (fd, &fstatbuf) == -1) {
  116:            *(fcb + Z_fcberr) = errno;
  117:            *ierr = 6;
  118:            close (fd);
  119:            }
  120:         else {
  121:            lastiob = -100;
  122:            memcpy ((fcb+Z_fcbsiz), &fstatbuf.st_size, sizeof(off_t)) ;
  123:            memcpy ((fcb+Z_fcbsiz+2), &lastiob, sizeof(off_t)) ;
  124:                                        /* If opened for double       */
  125:                                        /* buffered I/O, duplicate    */
  126:                                        /* 1st buffer file control    */
  127:                                        /* block entries in 2nd       */
  128:                                        /* buffer control block.      */
  129:            if (*map == 1) {
  130:                                        /* Get duplicate file         */
  131:                                        /* descriptor for 2nd buffer  */
  132:                                        /* (this is only necessary    */
  133:                                        /* for I/O wait servicing).   */
  134:               if ((dupfd = dup(fd)) == -1) {
  135:                  *(fcb + Z_mfcb + Z_fcberr) = errno;
  136:                  close (fd);
  137:                  *ierr = 6;
  138:                  }
  139:               else {
  140:                  *(fcb + Z_mfcb + Z_fcbfd) = dupfd;
  141:                                        /* Copy file size info.       */
  142:                  memcpy ((fcb+Z_mfcb+Z_fcbsiz), &fstatbuf.st_size,
  143:                      sizeof(off_t)) ;
  144:                  memcpy ((fcb+Z_mfcb+Z_fcbsiz+2), &lastiob,
  145:                      sizeof(off_t)) ;
  146:                                        /* Enable asynchronous mode   */
  147:                                        /* for both buffers here (not */
  148:                                        /* implemented this version)  */
  149:                  }
  150:               }
  151:            }
  152:         }
  153:      }
  154:                                        /* Exit.                      */
  155:   return;
  156:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDAOPN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:54 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDEST2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDEST2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDEST2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
AIPSCC    : Date       Fri Jul 18 17:25:54 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:6:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:9: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c: In function `zdest2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:59: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:59: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:59: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:63: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dest2__
    2:#include <unistd.h>
    3:#include <fcntl.h>
    4:#include <stdio.h>
    5:#include <errno.h>
    6:#include <AIPSPROTO.H>
    8:#if __STDC__
    9:   void zdest2_(char pname[MAXPNAME], int *syserr, int *ierr)
   10:#else
   11:   void zdest2_(pname, syserr, ierr)
   12:   char pname[MAXPNAME];
   13:   int *syserr, *ierr;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! delete a disk file                                                */
   17:/*# IO-basic                                                          */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1995, 1997                                         */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Destroy (i.e., delete) a file.  The file should already be closed */
   45:/*  Inputs:                                                           */
   46:/*     pname   H*48   Physical file name (H for Macro...              */
   47:/*  Output:                                                           */
   48:/*     syserr  I      System-level error code (for ZERROR)            */
   49:/*     ierr    I      Error return code: 0 => no error                */
   50:/*                       1 => file not found (no message)             */
   51:/*                       2 => device not found                        */
   52:/*                       3 => file in use                             */
   53:/*                       4 => other                                   */
   54:/*  Generic UNIX version.                                             */
   55:/*--------------------------------------------------------------------*/
   56:{
   57:   register int i, j;
   58:   int llen, xlen, xlnb, jerr, lockfd = -99, excl = 1 ;
   59:   char pathname[MAXAPATH];
   60:/*--------------------------------------------------------------------*/
   61:   *ierr = 0;
   62:                                        /* Translate name             */
   63:   llen = MAXPNAME;
   64:   xlen = MAXAPATH;
   65:   zpath_ (&llen, pname, &xlen, pathname, &xlnb, &jerr);
   66:   if (jerr != 0) {
   67:      *ierr = 2;
   68:      }
   69:   else {
   70:      pathname[xlnb] = '\0';
   71:                                        /* Open the disk file         */
   72:                                        /* read/write.                */
   73:      if ((lockfd = open (pathname, 2)) == -1) {
   74:                                        /* File doesn't exist.        */
   75:         if (errno == ENOENT)
   76:            *ierr = 1;
   77:                                        /* Some other open error.     */
   78:         else {
   79:            *syserr = errno;
   80:            *ierr = 4;
   81:            }
   82:         }
   83:                                        /* Apply non-blocking         */
   84:                                        /* exclusive lock.            */
   85:      else {
   86:         zlock_ (&lockfd, pname, &excl, syserr, ierr);
   87:         if (*ierr != 0) {
   88:                                        /* File in use.               */
   89:            if (*ierr == 4) {
   90:               *ierr = 3;
   91:               }
   92:                                        /* Other file locking error.  */
   93:            else {
   94:               *ierr = 4;
   95:               }
   96:            }
   97:         else if ( unlink (pathname) != 0) {
   98:            *syserr = errno;
   99:            *ierr = 4;
  100:            }
  101:                                        /* Close and unlock file.     */
  102:         close (lockfd);
  103:         }
  104:      }
  105:                                        /* Exit.                      */
  106:   return;
  107:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDEST2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:54 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICIO.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDICIO.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICIO.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
AIPSCC    : Date       Fri Jul 18 17:25:54 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dicio__
    2:#include <stdlib.h>
    3:#include <stdio.h>
    4:#include <errno.h>
    5:#include <AIPSPROTO.H>
    7:extern FILE *dic_file;                   /* Output file               */
    8:extern int dic_nrows;
    9:static unsigned char buff [4096 * 3];    /* Dimension should be       */
   10:                                         /* 3*MAXROW where MAXROW is  */
   11:                                         /* defined in the local      */
   12:                                         /* include for TVDIC.        */
   14:#if __STDC__
   15:   void zdicio_(int *lun, int *flmtyp, int *rownum, int *red,
   16:      int *green, int *blue, int *rowlen, int *iret)
   17:#else
   18:   void zdicio_(lun, flmtyp, rownum, red, green, blue, rowlen, iret)
   19:   int *lun, *flmtyp, *rownum, *red, *green, *blue, *rowlen, *iret;
   20:#endif
   21:/*--------------------------------------------------------------------*/
   22:/*! Write an image row to a Dicomed image file.                       */
   23:/*# Z                                                                 */
   24:/*--------------------------------------------------------------------*/
   25:/*;  Copyright (C) 1995, 1997                                         */
   26:/*;  Associated Universities, Inc. Washington DC, USA.                */
   27:/*;                                                                   */
   28:/*;  This program is free software; you can redistribute it and/or    */
   29:/*;  modify it under the terms of the GNU General Public License as   */
   30:/*;  published by the Free Software Foundation; either version 2 of   */
   31:/*;  the License, or (at your option) any later version.              */
   32:/*;                                                                   */
   33:/*;  This program is distributed in the hope that it will be useful,  */
   34:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   35:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   36:/*;  GNU General Public License for more details.                     */
   37:/*;                                                                   */
   38:/*;  You should have received a copy of the GNU General Public        */
   39:/*;  License along with this program; if not, write to the Free       */
   40:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   41:/*;  MA 02139, USA.                                                   */
   42:/*;                                                                   */
   43:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   44:/*;         Internet email: aipsmail at nrao.edu.                        */
   45:/*;         Postal address: AIPS Project Office                       */
   46:/*;                         National Radio Astronomy Observatory      */
   47:/*;                         520 Edgemont Road                         */
   48:/*;                         Charlottesville, VA 22903-2475 USA        */
   49:/*--------------------------------------------------------------------*/
   50:/*   Write an image row to a Dicomed image file.  If the filmtype is  */
   51:/*   B/W (FLMTYP = 2) then only the red channel is written.           */
   52:/*                                                                    */
   53:/*   Inputs:                                                          */
   54:/*      LUN        I            Logical unit number of image file     */
   55:/*      FLMTYP     I            Filmtype: 0 -> colour positive        */
   56:/*                                        1 -> colour negative        */
   57:/*                                        2 -> B/W negative           */
   58:/*      ROWNUM     I            Number of row to write.  Bottom row   */
   59:/*                              is ROWNUM 1.                          */
   60:/*      RED        I(*)         Red values (0-255)                    */
   61:/*      GREEN      I(*)         Green values (0-255)                  */
   62:/*      BLUE       I(*)         Blue values (0-255)                   */
   63:/*      WIDTH      I            Number of pixels in row (> 0)         */
   64:/*                                                                    */
   65:/*   Output:                                                          */
   66:/*      IRET       I            Return status:                        */
   67:/*                                 0 -> success.                      */
   68:/*                                                                    */
   69:/*  Generic UNIX version Ignores LUN.                                 */
   70:/*--------------------------------------------------------------------*/
   71:{
   72:    long int offset;
   73:    int i, n8 = 8;
   74:    char msg[80];
   75:    size_t nitems;
   76:/*--------------------------------------------------------------------*/
   78:    *iret = 0;
   80:    nitems = *rowlen;
   81:    if (*flmtyp == 2) {                  /* Black and white           */
   82:       offset = 512 + *rowlen * (dic_nrows - *rownum);
   83:       if (fseek(dic_file, offset, 0) != 0) {
   84:          sprintf (msg, "ZDICIO: ERROR WRITING ROW %d\n", rownum);
   85:          zmsgwr_ (msg, &n8);
   86:          perror ("ZDICIO:");
   87:          *iret = errno;
   88:          return;
   89:          }
   90:       for (i = 0; i < *rowlen; i++) {
   91:          buff[i] = (unsigned char)red[i];
   92:          }
   93:       if (fwrite(buff, sizeof(char), nitems, dic_file) < nitems) {
   94:          sprintf (msg, "ZDICIO: ERROR WRITING ROW %d\n", rownum);
   95:          zmsgwr_ (msg, &n8);
   96:          perror ("ZDICIO:");
   97:          *iret = errno;
   98:          return;
   99:          }
  100:       }
  101:    else {                              /* Colour                     */
  102:       offset = 512 + 3 * *rowlen * (dic_nrows - *rownum);
  103:       if (fseek(dic_file, offset, 0) != 0) {
  104:          sprintf (msg, "ZDICIO: ERROR WRITING ROW %d\n", rownum);
  105:          zmsgwr_ (msg, &n8);
  106:          perror ("ZDICIO:");
  107:          *iret = errno;
  108:          return;
  109:          }
  110:       for (i = 0; i < *rowlen; i++) {
  111:          buff[3*i] = (unsigned char)red[i];
  112:          buff[3*i+1] = (unsigned char)green[i];
  113:          buff[3*i+2] = (unsigned char)blue[i];
  114:          }
  115:       nitems = nitems * 3;
  116:       if (fwrite(buff, sizeof(char), nitems, dic_file) < nitems) {
  117:          sprintf (msg, "ZDICIO: ERROR WRITING ROW %d\n", rownum);
  118:          zmsgwr_ (msg, &n8);
  119:          perror ("ZDICIO:");
  120:          *iret = errno;
  121:          return;
  122:          }
  123:       }
  125:   return;
  126:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDICIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:54 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDIE2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDIE2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDIE2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
AIPSCC    : Date       Fri Jul 18 17:25:54 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
AIPSCC    : ends with fatal error(s)!

    1:#include <unistd.h>
    2:#include <sys/types.h>
    3:#include <stdio.h>
    4:#include <AIPSPROTO.H>
    5:#if __STDC__
    6:   void zdie2_(char cpname[])
    7:#else
    8:   void zdie2_(cpname)
    9:   char cpname[];
   10:#endif
   11:/*--------------------------------------------------------------------*/
   12:/*! closes a task at system level: delete /tmp/<task><npops>.<pid>    */
   13:/*# Z2 System                                                         */
   14:/*--------------------------------------------------------------------*/
   15:/*;  Copyright (C) 1995, 1997                                         */
   16:/*;  Associated Universities, Inc. Washington DC, USA.                */
   17:/*;                                                                   */
   18:/*;  This program is free software; you can redistribute it and/or    */
   19:/*;  modify it under the terms of the GNU General Public License as   */
   20:/*;  published by the Free Software Foundation; either version 2 of   */
   21:/*;  the License, or (at your option) any later version.              */
   22:/*;                                                                   */
   23:/*;  This program is distributed in the hope that it will be useful,  */
   24:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   25:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   26:/*;  GNU General Public License for more details.                     */
   27:/*;                                                                   */
   28:/*;  You should have received a copy of the GNU General Public        */
   29:/*;  License along with this program; if not, write to the Free       */
   30:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   31:/*;  MA 02139, USA.                                                   */
   32:/*;                                                                   */
   33:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   34:/*;         Internet email: aipsmail at nrao.edu.                        */
   35:/*;         Postal address: AIPS Project Office                       */
   36:/*;                         National Radio Astronomy Observatory      */
   37:/*;                         520 Edgemont Road                         */
   38:/*;                         Charlottesville, VA 22903-2475 USA        */
   39:/*--------------------------------------------------------------------*/
   40:/*   closes a task at system level: delete /tmp/<task><npops>.<pid>   */
   41:/*   Inputs:                                                          */
   42:/*      CPNAME   C(6)   Actual task name including pops number        */
   43:/*--------------------------------------------------------------------*/
   44:{
   45:   int i;
   46:   char procname[7];                   /* desired process name.       */
   47:   char lockname[24]             ;     /* Name of lock file           */
   48:   pid_t mypid;                        /* PID of this process         */
   49:/*--------------------------------------------------------------------*/
   50:                                       /* copy process name           */
   51:   for (i = 0; i != 6 && cpname[i] != ' '; i++) {
   52:      procname[i] = cpname[i];
   53:      }
   54:   procname[i] = '\0';
   55:                                       /* get process id number       */
   56:   mypid = getpid ();
   57:                                       /* make file name              */
   58:   sprintf (lockname, "/tmp/%s.%d", procname, mypid);
   59:                                       /* delete file                 */
   60:   unlink (lockname);
   61:                                       /* copy process name           */
   62:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDIE2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:54 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDM2DL.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDM2DL.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDM2DL.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
AIPSCC    : Date       Fri Jul 18 17:25:54 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dm2dl__
    2:#include <stdlib.h>
    3:#include <stdio.h>
    4:#include <AIPSPROTO.H>
    6:#if __STDC__
    7:   void zdm2dl_(int *nwords, double *inbuf, double *outbuf)
    8:#else
    9:   void zdm2dl_(nwords, inbuf, outbuf)
   10:   int *nwords;
   11:   double *inbuf, *outbuf;
   12:#endif
   13:/*--------------------------------------------------------------------*/
   14:/*! convert ModComp R*6(padded) and R*8 into local double precision   */
   15:/*# Z Binary                                                          */
   16:/*--------------------------------------------------------------------*/
   17:/*;  Copyright (C) 1995, 1997                                         */
   18:/*;  Associated Universities, Inc. Washington DC, USA.                */
   19:/*;                                                                   */
   20:/*;  This program is free software; you can redistribute it and/or    */
   21:/*;  modify it under the terms of the GNU General Public License as   */
   22:/*;  published by the Free Software Foundation; either version 2 of   */
   23:/*;  the License, or (at your option) any later version.              */
   24:/*;                                                                   */
   25:/*;  This program is distributed in the hope that it will be useful,  */
   26:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   27:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   28:/*;  GNU General Public License for more details.                     */
   29:/*;                                                                   */
   30:/*;  You should have received a copy of the GNU General Public        */
   31:/*;  License along with this program; if not, write to the Free       */
   32:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   33:/*;  MA 02139, USA.                                                   */
   34:/*;                                                                   */
   35:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   36:/*;         Internet email: aipsmail at nrao.edu.                        */
   37:/*;         Postal address: AIPS Project Office                       */
   38:/*;                         National Radio Astronomy Observatory      */
   39:/*;                         520 Edgemont Road                         */
   40:/*;                         Charlottesville, VA 22903-2475 USA        */
   41:/*--------------------------------------------------------------------*/
   42:/*  Convert Modcomp R*6 (zero padded to R*8) or R*8 data into local   */
   43:/*  double precision                                                  */
   44:/*  Inputs:                                                           */
   45:/*     nwords   I        Length of the input buffer in words          */
   46:/*     inbuf    R*8(*)   Input buffer containing Modcomp R*6          */
   47:/*                          (zero padded to R*8) or R*8 data          */
   48:/*  Output:                                                           */
   49:/*     outbuf   R*8(*)   Output buffer containing local R*8 data      */
   50:/*  Notes:                                                            */
   51:/*  (1) The INBUF should have its bytes flipped by a call to ZBYTFL   */
   52:/*      which will leave the values split between 2 local integers.   */
   53:/*      Do not call ZI32IL which may swith 16-bit words, or ZI16Il    */
   54:/*      which will expand each 16-bit part to 32-bits.                */
   55:/*  (2) First 32 bits:                                                */
   56:/*        Expects, after word flip on VMS only, a sign bit in bit 31  */
   57:/*        (1=>negative), bits 22:30 are the  exponent biased by 512,  */
   58:/*        bits 0:21 are the normalized fraction.  Negative values are */
   59:/*        obtained by 2's complement of the whole word.               */
   60:/*      Second 32 bits:                                               */
   61:/*        Just extended precision bits.                               */
   62:/*  (3) Should work inplace.                                          */
   63:/*  Generic UNIX version (currently only handles IEEE and VAX G       */
   64:/*  floating-point formats and where Z_nwdpdp is 2).                  */
   65:/*--------------------------------------------------------------------*/
   66:{
   67:                                        /* Host floating-point format */
   68:   extern int Z_nwdpdp, Z_dpfrmt, Z_bytflp;
   69:                                        /* Local variables.           */
   70:   double *pin, *pout;
   71:   int test, n10 = 10;
   72:   short int sitemp;
   73:   unsigned int sign, exponent, mantissa, temp, templo, bits, xsign;
   74:   register int i;
   75:   char msgbuf[80];
   76:   union u_tag {
   77:      double r8;
   78:      unsigned u4[2];
   79:      short int u2[4];
   80:   } what;
   81:/*--------------------------------------------------------------------*/
   82:                                        /* Will this routine work     */
   83:                                        /* for host floating point    */
   84:                                        /* formats and relative       */
   85:                                        /* sizes?                     */
   86:   if ((Z_nwdpdp == 2) && (Z_dpfrmt == 1 || Z_dpfrmt == 3)) {
   87:      pin = inbuf;
   88:      pout = outbuf;
   89:                                        /* Conversion loop.           */
   90:      for (i = 0; i < *nwords; i++) {
   91:                                        /* Get Modcomp value.         */
   92:         what.r8 = *pin++;
   93:                                        /* swap words if needed       */
   94:         if (Z_bytflp > 1) {
   95:            sitemp = what.u2[0];
   96:            what.u2[0] = what.u2[1];
   97:            what.u2[1] = sitemp;
   98:            sitemp = what.u2[2];
   99:            what.u2[2] = what.u2[3];
  100:            what.u2[3] = sitemp;
  101:            }
  102:                                        /* Get hi as unsigned int.    */
  103:         temp = what.u4[0];
  104:                                        /* Mask out sign bit.         */
  105:         xsign = 0x80000000;
  106:         sign = xsign & temp;
  107:                                        /* If negative, 2's           */
  108:                                        /* complement the whole word. */
  109:         if (sign != 0) {
  110:            templo = what.u4[1];
  111:            what.u4[1] = ~templo + 1;
  112:            temp = (~temp);
  113:                                        /* If msb of lo word are      */
  114:                                        /* unchanged, add 1 to high   */
  115:                                        /* word.                      */
  116:            if ((templo & 0x80000000) == (what.u4[1] & 0x80000000))
  117:               temp = temp + 1;
  118:            }
  119:                                        /* Correct for exponent bias  */
  120:                                        /* and trap for 0.            */
  121:         switch (Z_dpfrmt) {
  123:            case 1:
  124:                                        /* IEEE (bias = 766?).        */
  125:               test = ((0x7fc00000 & temp) >> 22) + 766;
  126:               if (test == 766) test = 0;
  127:               break;
  129:            case 3:
  130:                                        /* VAX G (bias = 768).        */
  131:               test = ((0x7fc00000 & temp) >> 22) + 768;
  132:               if (test == 768) test = 0;
  133:               break;
  134:            }
  136:         exponent = test << 20;
  137:         mantissa = (0x001fffff & temp);
  138:                                        /* Move lsb to next word.     */
  139:         bits = (mantissa & 0x1) << 31;
  140:                                        /* Shift high mantissa.       */
  141:         mantissa = mantissa >> 1;
  142:                                        /* Shift low mantissa.        */
  143:         what.u4[1] = what.u4[1] >> 1;
  144:                                        /* Lsb from hi word.          */
  145:         what.u4[1] = what.u4[1] | bits;
  146:         what.u4[0] = sign | exponent | mantissa;
  147:                                        /* swap words if needed       */
  148:         if (Z_bytflp > 1) {
  149:            sitemp = what.u2[0];
  150:            what.u2[0] = what.u2[2];
  151:            what.u2[2] = sitemp;
  152:            sitemp = what.u2[1];
  153:            what.u2[1] = what.u2[3];
  154:            what.u2[3] = sitemp;
  155:            }
  156:                                        /* Store result.              */
  157:         *pout++ = what.r8;
  158:         }
  159:      }
  160:   else {
  161:                                        /* This routine won't work.   */
  162:      sprintf (msgbuf,
  163:         "ZDM2DL: THIS ROUTINE REQUIRES LOCAL DEVELOPMENT");
  164:      zmsgwr_ (msgbuf, &n10);
  165:      abort ();
  166:      }
  167:                                     /* Exit.                      */
  168:   return;
  169:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDM2DL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:55 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZEXIS2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZEXIS2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZEXIS2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
AIPSCC    : Date       Fri Jul 18 17:25:55 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:6:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c: In function `zexis2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:61: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:61: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:61: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:68: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_exis2__
    2:#include <stdio.h>
    3:#include <errno.h>
    4:#include <sys/types.h>
    5:#include <sys/stat.h>
    6:#include <AIPSPROTO.H>
    8:#if __STDC__
    9:   void zexis2_(char *pname, int *isize, int *syserr, int *ierr)
   10:#else
   11:   void zexis2_(pname, isize, syserr, ierr)
   12:   char pname[];
   13:   int *isize, *syserr, *ierr;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! return size of disk file and if  it exists                        */
   17:/*# IO=basic                                                          */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1995, 1997                                         */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Determine the existence of a file and its size in AIPS-bytes      */
   45:/*  (1/2 of a local integer).                                         */
   46:/*  Inputs:                                                           */
   47:/*     pname   C*48   Physical file name                              */
   48:/*  Output:                                                           */
   49:/*     size    I      File size 256-int blocks (if exists, else 0)    */
   50:/*     syserr  I      System error code                               */
   51:/*     ierr    I      Error return code: 0 => file exists             */
   52:/*                       1 => file does not exist                     */
   53:/*                       2 => inputs error                            */
   54:/*                       3 => other error                             */
   55:/*  Generic UNIX version.                                             */
   56:/*--------------------------------------------------------------------*/
   57:{
   58:                                        /* # bytes per AIPS-byte      */
   59:   extern int Z_nbpab;
   60:   int llen, xlen, xlnb, jerr ;
   61:   char pathname[MAXAPATH] ;
   62:   struct stat statbuf;
   63:/*--------------------------------------------------------------------*/
   64:   *ierr = 0;
   65:   *syserr = 0;
   66:                                        /* Translate logical device   */
   67:                                        /* name and null terminate.   */
   68:   llen = MAXPNAME;
   69:   xlen = MAXAPATH;
   70:   zpath_ (&llen, pname, &xlen, pathname, &xlnb, &jerr);
   71:   if (jerr != 0) {
   72:      *ierr = 2;
   73:      }
   74:   else {
   75:      pathname[xlnb] = '\0';
   76:                                        /* "Stat" full path name.     */
   77:      if (stat (pathname, &statbuf) == -1) {
   78:         *isize = 0;
   79:         *syserr = errno ;
   80:                                        /* File doesn't exist.        */
   81:         if (errno == ENOENT)
   82:            *ierr = 1;
   83:                                        /* Some other "stat" error.   */
   84:         else
   85:            *ierr = 3;
   86:         }
   87:      else
   88:         *isize = statbuf.st_size / Z_nbpab / 512;
   89:      }
   91:   return;
   92:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZEXIS2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:55 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZFI2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZFI2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZFI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
AIPSCC    : Date       Fri Jul 18 17:25:55 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_fi2__
    2:#include <unistd.h>
    3:#include <errno.h>
    4:#include <string.h>
    5:#include <stdio.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zfi2_(char *oper, int *fcb, char *buff, int *nrec, char *msgbuf,
   11:      int *ierr)
   12:#else
   13:   void zfi2_(oper, fcb, buff, nrec, msgbuf, ierr)
   14:   char oper[], buff[], msgbuf[];
   15:   int *fcb, *nrec, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read/write one 256-integer record from/to a non-map disk file     */
   19:/*# IO-basic                                                          */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995-1997, 1999                                    */
   22:/*;  Associated Universities, Inc. Washington DC, USA                 */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Transfer one 256 local integer record between an I/O buffer and   */
   47:/*  disk starting at random access record "nrec" using "non-map" I/O  */
   48:/*  (i.e., single buffered, synchronous I/O).                         */
   49:/*  Inputs:                                                           */
   50:/*     oper   C*4    Operation code "READ" or "WRIT"                  */
   51:/*     fcb    I(*)   File control block for opened non-map disk file  */
   52:/*     nrec   I      Disk record number (1-relative, units of         */
   53:/*                   256-integer records)                             */
   54:/*  In/out:                                                           */
   55:/*     buff   I(256) I/O buffer                                       */
   56:/*  Output:                                                           */
   57:/*     msgbuf C*80   extra error message (null terminated)            */
   58:/*     ierr   I      Error return code: 0 => no error                 */
   59:/*                      2 => bad opcode                               */
   60:/*                      3 => I/O error                                */
   61:/*                      4 => end of file                              */
   62:/*                   1000 + n => read only n (< 256) words)           */
   63:/*  Generic UNIX version.                                             */
   64:/*--------------------------------------------------------------------*/
   65:{
   66:                                        /* Offsets to entries in the  */
   67:                                        /* file control blocks        */
   68:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   69:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   70:                                        /* # of bytes per word        */
   71:   extern int Z_nbpwd;
   72:   off_t firstbyte, lastbyte, sizebytes, checkbytes, lastiob;
   73:   int fd, n1 = 1;
   74:   register int i;
   75:   char op[5];
   76:/*--------------------------------------------------------------------*/
   77:                                        /* Form null terminated       */
   78:                                        /* opcode.                    */
   79:   for (i = 0; i < 4; i++)
   80:      op[i] = oper[i];
   81:   op[4] = '\0';
   82:                                        /* Assume success.            */
   83:   msgbuf[0] = '\0';
   84:   *ierr = 0;
   85:                                        /* Get file descriptor from   */
   86:                                        /* the file control block as  */
   87:                                        /* stored there by ZDAOPN.    */
   88:   fd = *(fcb + Z_fcbfd);
   89:                                        /* Record byte request in the */
   90:                                        /* file control block (always */
   91:                                        /* one 256 local integer      */
   92:                                        /* record).                   */
   93:   *(fcb + Z_fcbreq) = 256 * Z_nbpwd;
   94:                                        /* Also, zero error status &  */
   95:                                        /* transfer count entries.    */
   96:   *(fcb + Z_fcberr) = 0;
   97:   *(fcb + Z_fcbxfr) = 0;
   98:                                        /* Calculate the byte offsets */
   99:                                        /* (0-relative) in the file   */
  100:                                        /* that correspond to the     */
  101:                                        /* requested record.          */
  102:   firstbyte = *nrec - 1;
  103:   firstbyte = (firstbyte * 256) * Z_nbpwd;
  104:   lastbyte = *(fcb + Z_fcbreq) + firstbyte - 1;
  105:                                        /* Unpack the file size in    */
  106:                                        /* bytes from the file        */
  107:                                        /* control block (as packed   */
  108:                                        /* there in ZDAOPN) and make  */
  109:                                        /* sure that "lastbyte" is    */
  110:                                        /* not beyond the end of the  */
  111:                                        /* file.                      */
  112:   memcpy (&sizebytes, (fcb + Z_fcbsiz), sizeof(off_t)) ;
  113:   memcpy (&lastiob, (fcb + Z_fcbsiz + 2), sizeof(off_t)) ;
  114:   checkbytes = lastbyte;
  115:   if (strcmp (op, "READ") == 0) checkbytes = firstbyte;
  116:                                        /* test beyond EOF remember   */
  117:                                        /* size is 1-rel              */
  118:   if (checkbytes >= sizebytes) {
  119:                                        /* This is NOT illegal under  */
  120:                                        /* UNIX but IS under AIPS     */
  121:                                        /* standards, so fake it.     */
  122:      *(fcb + Z_fcberr) = EINVAL;
  123:      *(fcb + Z_fcbxfr) = -1;
  124:      *ierr = 3;
  125:      if (sizeof(long) < sizeof(off_t))
  126:         sprintf (msgbuf,
  127:         "ZFI2: REQUEST FOR BYTES %lld THRU = %lld BEYOND EOF = %lld",
  128:         firstbyte + 1, lastbyte + 1, sizebytes);
  129:      else
  130:         sprintf (msgbuf,
  131:         "ZFI2: REQUEST FOR BYTES %d THRU = %d BEYOND EOF = %d",
  132:         firstbyte + 1, lastbyte + 1, sizebytes);
  133:      }
  134:                                        /* Set file pointer of the    */
  135:                                        /* file descriptor to the     */
  136:                                        /* absolute byte address      */
  137:                                        /* "firstbyte".               */
  138:   else {
  139:      if (firstbyte != lastiob+1) {
  140:         if (lseek (fd, firstbyte, 0) == -1) {
  141:            *(fcb + Z_fcberr) = errno;
  142:            *ierr = 3;
  143:            sprintf (msgbuf,
  144:               "ZFI2: LSEEK ERROR ON FILE DESCRIPTOR %d TO POSITION %d",
  145:               fd, firstbyte);
  146:            }
  147:         }
  148:                                        /* Perform the I/O and record */
  149:                                        /* the # of bytes transferred */
  150:                                        /* in *(fcb + Z_fcbxfr).      */
  151:                                        /* Record the system error    */
  152:                                        /* code (if any) in           */
  153:                                        /* *(fcb + Z_fcberr).         */
  154:      if (*ierr == 0) {
  155:         if (strcmp (op, "READ") == 0) {
  156:            if (lastbyte >= sizebytes)
  157:               *(fcb + Z_fcbreq) = sizebytes - firstbyte;
  158:            if ((*(fcb + Z_fcbxfr) =
  159:               read (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  160:               *(fcb + Z_fcberr) = errno;
  161:               *ierr = 3;
  162:               }
  163:            }
  164:         else if (strcmp (op, "WRIT") == 0) {
  165:            if ((*(fcb + Z_fcbxfr) =
  166:               write (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  167:               *(fcb + Z_fcberr) = errno;
  168:               *ierr = 3;
  169:               }
  170:            }
  171:                                        /* Bad opcode.                */
  172:         else {
  173:            *ierr = 2;
  174:            return;
  175:            }
  176:         }
  177:      }
  178:                                        /* End of file?               */
  179:   if (*(fcb + Z_fcbxfr) == 0)
  180:      *ierr = 4;
  181:                                        /* Partial read?              */
  182:   if ((*ierr == 0) && (*(fcb + Z_fcbxfr) != 256 * Z_nbpwd))
  183:      *ierr = *(fcb + Z_fcbxfr) / Z_nbpwd + 1000;
  184:   if (*ierr == 0)
  185:      memcpy ((fcb + Z_fcbsiz + 2), &lastbyte, sizeof(off_t)) ;
  187:                                        /* Exit.                      */
  188:   return;
  189:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZFI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:55 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZGRLHI.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZGRLHI.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZGRLHI.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
AIPSCC    : Date       Fri Jul 18 17:25:55 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:4:31: NOTST/GNU/history.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:7:32: NOTST/GNU/readline.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:8:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:11: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c: In function `zgrlhi_':
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:64: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:64: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:64: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:67: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:84: error: `rl_readline_name' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:90: error: `history_length' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_grlhi__
    2:#include <stdio.h>
    3:#include <stdlib.h>
    4:#include <NOTST/GNU/history.h>
    6:#define HAVE_STRING_H
    7:#include <NOTST/GNU/readline.h>
    8:#include <AIPSPROTO.H>
   10:#if __STDC__
   11:   void zgrlhi_(int *opcode, char phname[MAXPNAME], int *ierr)
   12:#else
   13:   zgrlhi_(opcode, phname, ierr)
   14:   int *opcode;
   15:   char phname[MAXPNAME];
   16:   int *ierr;
   17:#endif
   18:/*--------------------------------------------------------------------*/
   19:/*! set up use of GNU readline library for POPS command line          */
   20:/*# Terminal                                                          */
   21:/*--------------------------------------------------------------------*/
   22:/*;  Copyright (C) 1995                                               */
   23:/*;  Associated Universities, Inc. Washington DC, USA.                */
   24:/*;                                                                   */
   25:/*;  This program is free software; you can redistribute it and/or    */
   26:/*;  modify it under the terms of the GNU General Public License as   */
   27:/*;  published by the Free Software Foundation; either version 2 of   */
   28:/*;  the License, or (at your option) any later version.              */
   29:/*;                                                                   */
   30:/*;  This program is distributed in the hope that it will be useful,  */
   31:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   32:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   33:/*;  GNU General Public License for more details.                     */
   34:/*;                                                                   */
   35:/*;  You should have received a copy of the GNU General Public        */
   36:/*;  License along with this program; if not, write to the Free       */
   37:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   38:/*;  MA 02139, USA.                                                   */
   39:/*;                                                                   */
   40:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   41:/*;         Internet email: aipsmail at nrao.edu.                        */
   42:/*;         Postal address: AIPS Project Office                       */
   43:/*;                         National Radio Astronomy Observatory      */
   44:/*;                         520 Edgemont Road                         */
   45:/*;                         Charlottesville, VA 22903-2475 USA        */
   46:/*--------------------------------------------------------------------*/
   47:/* ZGRLHI initializes the GNU readline library for AIPS, unless       */
   48:/* disabled by starting AIPS with the "norl" option.                  */
   49:/*                                                                    */
   50:/* Input:                                                             */
   51:/*    OPCODE I      1 => open, 2 => close                             */
   52:/*    PHNAME C*48   Physical filename                                 */
   53:/* Output:                                                            */
   54:/*    IERR   I      Error return code: 0 => ok                        */
   55:/*                     <other> => error or disabled                   */
   56:/*                                                                    */
   57:/* Generic UNIX version for OS's implementing GNU's libreadline       */
   58:/*                                                                    */
   59:/* JAU 26 Jul 95: Jeff Uphoff, NRAO.                                  */
   60:/* JAU 29 Aug 95: Jeff Uphoff, NRAO.  Added "norl" disable option.    */
   61:/* JAU 22 Sep 95: Jeff Uphoff, NRAO.  Zapped TAB kill; done elsewhere */
   62:/*--------------------------------------------------------------------*/
   63:{
   64:   char histfile[MAXAPATH];
   65:   char xlated[MAXAPATH];
   66:   char *rlenv = NULL;
   67:   int llen = MAXPNAME;
   68:   int xlen = MAXAPATH;
   69:   int xlnb;
   70:/*--------------------------------------------------------------------*/
   71:   *ierr = 0;
   73:                                        /* Check if readline disabled */
   74:   if (((rlenv = getenv ("READLINE")) != NULL) &&
   75:       !strcmp (rlenv, "NO")) {         /* If so, skip the rest.      */
   76:      *ierr = 1;
   77:      return;
   78:   }
   80:   if (*opcode == 1) {                  /* OPEN history.              */
   82:      using_history ();                 /* Initialize some variables. */
   84:      rl_readline_name = "AIPS";        /* For ~/.inputrc branching.  */
   86:      rl_read_init_file (NULL);         /* Reread to get any AIPS-    */
   87:                                        /* specific options/bindings. */
   88:                                        /* (Ignore any errors...)     */
   90:      if (history_length > 1)           /* Must be a restart...       */
   91:         return;                        /* Don't reread file.         */
   93:                                        /* Translate logical to path. */
   94:      zpath_ (&llen, phname, &xlen, xlated, &xlnb, ierr);
   95:      if (*ierr)
   96:         return;
   98:      sprintf (histfile, "%.*s", xlnb, xlated);
   99:                                        /* Skip first history entry   */
  100:                                        /* to prevent a long list of  */
  101:                                        /* user numbers at top.       */
  102:      *ierr = read_history_range (histfile, 1, -1);
  103:      return;
  104:   }
  106:   if (*opcode == 2) {                  /* CLOS (close) history.      */
  108:                                        /* Translate logical to path. */
  109:      zpath_ (&llen, phname, &xlen, xlated, &xlnb, ierr);
  110:      if (*ierr)
  111:         return;
  113:      sprintf (histfile, "%.*s", xlnb, xlated);
  114:                                        /* Write out this session's   */
  115:                                        /* (and possibly previous     */
  116:                                        /* sessions') history.        */
  117:      if (*ierr = write_history (histfile))
  118:         return;
  120:                                        /* Trim the saved history     */
  121:                                        /* file to 500 lines.         */
  122:      *ierr = history_truncate_file (histfile, 500);
  123:      return;
  124:   }
  126:   *ierr = 1;                           /* zgrlhi() improperly called */
  127:   return;
  128:}
  130:/*
  131: * Local Variables:
  132: * c-basic-offset: 3
  133: * comment-column: 40
  134: * indent-tabs-mode: nil
  135: * End:
  136: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZGRLHI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:55 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZGRLTC.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZGRLTC.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZGRLTC.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
AIPSCC    : Date       Fri Jul 18 17:25:55 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:9:32: NOTST/GNU/readline.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:10:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:11:28: NOTST/GNU/TABS.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c: In function `zgrltc_':
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:74: error: `LISTBUFLEN' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:74: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:74: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:75: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:92: error: `HLPLISTFILE' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:122: error: `rl_attempted_completion_function' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:122: error: `CPPFunction' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:122: error: parse error before ')' token
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:124: error: `rl_completion_entry_function' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:124: error: `Function' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:124: error: parse error before ')' token
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:125: error: `rl_completer_quote_characters' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:126: error: `rl_complete' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c: In function `zgrltc_acf':
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:155: error: `rl_line_buffer' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:162: warning: return makes pointer from integer without a cast
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_grltc__
    2:#include <ctype.h>
    3:#include <errno.h>
    4:#include <stdio.h>
    5:#include <stdlib.h>
    6:#include <string.h>
    8:#define HAVE_STRING_H
    9:#include <NOTST/GNU/readline.h>
   10:#include <AIPSPROTO.H>
   11:#include <NOTST/GNU/TABS.H>
   13:static char **te_list = (char **)NULL;
   14:static char *zgrltc_cm ();
   15:static char *zgrltc_dup ();
   16:static char **zgrltc_acf ();
   17:static int quoted;
   18:static int tasks_ok;
   21:#if __STDC__
   22:   void zgrltc_ (int *ierr)
   23:#else
   24:   void zgrltc_ (ierr)
   25:   int *ierr;
   26:#endif
   27:/*--------------------------------------------------------------------*/
   28:/*! inizializes completion list for TAB-key completion of commands    */
   29:/*# Terminal                                                          */
   30:/*--------------------------------------------------------------------*/
   31:/*;  Copyright (C) 1995-1996, 2003                                    */
   32:/*;  Associated Universities, Inc. Washington DC, USA.                */
   33:/*;                                                                   */
   34:/*;  This program is free software; you can redistribute it and/or    */
   35:/*;  modify it under the terms of the GNU General Public License as   */
   36:/*;  published by the Free Software Foundation; either version 2 of   */
   37:/*;  the License, or (at your option) any later version.              */
   38:/*;                                                                   */
   39:/*;  This program is distributed in the hope that it will be useful,  */
   40:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   41:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   42:/*;  GNU General Public License for more details.                     */
   43:/*;                                                                   */
   44:/*;  You should have received a copy of the GNU General Public        */
   45:/*;  License along with this program; if not, write to the Free       */
   46:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   47:/*;  MA 02139, USA.                                                   */
   48:/*;                                                                   */
   49:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   50:/*;         Internet email: aipsmail at nrao.edu.                        */
   51:/*;         Postal address: AIPS Project Office                       */
   52:/*;                         National Radio Astronomy Observatory      */
   53:/*;                         520 Edgemont Road                         */
   54:/*;                         Charlottesville, VA 22903-2475 USA        */
   55:/*--------------------------------------------------------------------*/
   56:/* ZGRLTC initializes the list(s) used for TAB-completion of commands */
   57:/* and sets appropriate "hooks" in the GNU readline library for its   */
   58:/* use.  If AIPS is started with the "norl" option, this feature is   */
   59:/* disabled.                                                          */
   60:/*                                                                    */
   61:/* Input:                                                             */
   62:/*    None.                                                           */
   63:/* Output:                                                            */
   64:/*    IERR   I      Error return code: 0 => ok                        */
   65:/*                     <other> => error or disabled                   */
   66:/*                                                                    */
   67:/* Generic UNIX version for OS's implementing GNU's libreadline       */
   68:/*                                                                    */
   69:/* JAU 21 Sep 95: Jeff Uphoff, NRAO.                                  */
   70:/* JAU 25 Sep 95: Jeff Uphoff, NRAO.  Made smarter about quoted arg's */
   71:/* JAU 23 Feb 96: Jeff Uphoff, NRAO.  strdup() cleanup, dynamic list. */
   72:/*--------------------------------------------------------------------*/
   73:{
   74:   char buf[LISTBUFLEN];
   75:   char file[MAXAPATH];
   76:   char *envp = NULL;
   77:   int i = 0;
   78:   FILE *fp;
   79:/*--------------------------------------------------------------------*/
   80:   *ierr = 1;                           /* Assume abject failure.     */
   82:                                        /* Check if readline disabled */
   83:   if (((envp = getenv ("READLINE")) != NULL) &&
   84:       !strcmp (envp, "NO"))
   85:      return;                           /* If so, skip the rest.      */
   87:                                        /* Check for help file dir.   */
   88:   if ((envp = getenv ("AIPS_VERSION")) == NULL)
   89:      return;                           /* None defined?  Give up...  */
   91:                                        /* Build filename for list.   */
   92:   sprintf (file, "%s/HELP/%s", envp, HLPLISTFILE);
   93:                                        /* Open completion list file. */
   94:   if ((fp = fopen (file, "r")) == NULL)
   95:      return;                           /* Argh!  Run to mama...      */
   97:                                        /* Do initial malloc--not all */
   98:                                        /* OS's need this, but some   */
   99:                                        /* do for the later reallocs. */
  100:   if (!(te_list = (char **)malloc (sizeof (char *)))) {
  101:      perror ("ZGRLTC: malloc failed");
  102:      exit (errno);
  103:   }
  104:                                        /* Read file, build list.     */
  105:   while (fgets (buf, LISTBUFLEN, fp) != NULL) {
  106:      if (!(te_list = (char **)realloc (te_list,
  107:                                        sizeof (char *) * (i + 1)))) {
  108:         perror ("ZGRLTC: realloc failed");
  109:         exit (errno);
  110:      }
  111:      te_list[i++] = zgrltc_dup (strtok (buf, "\n"));
  112:   }
  113:   fclose (fp);
  114:                                        /* Terminate list. Thanx HP.  */
  115:   if (!(te_list = (char **)realloc (te_list,
  116:                                     sizeof (char *) * (i + 1)))) {
  117:      perror ("ZGRLTC: terminating realloc failed");
  118:      exit (errno);
  119:   }
  120:   te_list[i] = 0;
  121:                                        /* Set completion function.   */
  122:   rl_attempted_completion_function = (CPPFunction *)zgrltc_acf;
  123:                                        /* Block filename completions */
  124:   rl_completion_entry_function = (Function *)zgrltc_cm;
  125:   rl_completer_quote_characters = "'"; /* Quoted strings are special */
  126:   rl_bind_key ('\t', rl_complete);     /* Set default completion key */
  127:   rl_read_init_file (NULL);            /* For key-binding overrides. */
  128:   *ierr = 0;                           /* All is well.               */
  129:}
  130:/*--------------------------------------------------------------------*/
  133:#if __STDC__
  134:   static char **zgrltc_acf (char *user_txt, int start, int end)
  135:#else
  136:   static char **zgrltc_acf (user_txt, start, end)
  137:   char *user_txt;
  138:   int start, end;
  139:#endif
  140:/*--------------------------------------------------------------------*/
  141:/*! Performs TAB-key completion of commands                           */
  142:/*# Terminal                                                          */
  143:/*--------------------------------------------------------------------*/
  144:/* ZGRLTC_ACF is used *internally* to perform TAB-key completions.    */
  145:/*                                                                    */
  146:/* Input and output are determined by the GNU readline library's      */
  147:/* internal functionality.                                            */
  148:/*--------------------------------------------------------------------*/
  149:{
  150:   int i;
  151:/*--------------------------------------------------------------------*/
  152:   tasks_ok = 0;                        /* Assume first arg.          */
  154:   for (i = 0; i < start; i++)          /* Check for non-whitespace.  */
  155:      if (rl_line_buffer[i] != ' ' && rl_line_buffer[i] != '\'') {
  156:         tasks_ok = 1;                  /* Found some, tasks now OK.  */
  157:         break;
  158:      }
  159:                                        /* Check for quoted arg.      */
  160:   quoted = start && rl_line_buffer[start - 1] == '\'' ? 1 : 0;
  161:                                        /* Call GNU-RL and start work */
  162:   return (completion_matches (user_txt, zgrltc_cm));
  163:}
  164:/*--------------------------------------------------------------------*/
  167:#if __STDC__
  168:   static char *zgrltc_cm (char *user_txt, int state)
  169:#else
  170:   static char *zgrltc_cm (user_txt, state)
  171:   char *user_txt;
  172:   int state;
  173:#endif
  174:/*--------------------------------------------------------------------*/
  175:/*! Generates matches for TAB-key completion of commands              */
  176:/*# Terminal                                                          */
  177:/*--------------------------------------------------------------------*/
  178:/* ZGRLTC_CM is used *internally* to generate matches for TAB-key     */
  179:/* completions.                                                       */
  180:/*                                                                    */
  181:/* Input and output are determined by the GNU readline library's      */
  182:/* internal functionality.                                            */
  183:/*--------------------------------------------------------------------*/
  184:{
  185:   static int len, list_index;          /* Sticky across calls.       */
  186:   int i;
  187:/*--------------------------------------------------------------------*/
  188:   if (!state) {                        /* Check for new completion.  */
  189:      list_index = 0;                   /* Yes?  Reset list index.    */
  190:      len = strlen (user_txt);          /* Count our pennies.         */
  192:      if (!quoted)                      /* Check for quoted arg.      */
  193:         for (i = 0; i < len; i++)      /* No?  Then lowercase it.    */
  194:            user_txt[i] = tolower (user_txt[i]);
  195:   }
  197:   while (te_list[list_index]) {        /* Walk the list.             */
  199:                                        /* Tasks are prefixed with    */
  200:                                        /* '-' in the completion list */
  201:                                        /* found in HLPLISTFILE.      */
  203:                                        /* Check if task.             */
  204:      if (te_list[list_index][0] == '-') {
  206:                                        /* Now check for match and    */
  207:                                        /* whether tasks are allowed. */
  208:         if (!strncmp (&te_list[list_index][1], user_txt, len) &&
  209:             tasks_ok)
  210:            return (zgrltc_dup (&te_list[list_index++][1]));
  212:      } else {                          /* Not a task.                */
  213:         if (!strncmp (te_list[list_index], user_txt, len))
  214:            return (zgrltc_dup (te_list[list_index++]));
  215:      }
  216:      ++list_index;
  217:   }
  218:   return ((char *)NULL);               /* No matches, or end of list */
  219:}
  220:/*--------------------------------------------------------------------*/
  223:#if __STDC__
  224:   static char *zgrltc_dup (const char *todup)
  225:#else
  226:   static char *zgrltc_dup (todup)
  227:   char *todup;
  228:#endif
  229:/*--------------------------------------------------------------------*/
  230:/*! Does string duplication for TAB-key completion of commands        */
  231:/*# Terminal                                                          */
  232:/*--------------------------------------------------------------------*/
  233:/* ZGRLTC_DUP is used *internally* to emulate the SVID/BSD strdup(3)  */
  234:/* library function.                                                  */
  235:/*                                                                    */
  236:/* Input and output are determined by the GNU readline library's      */
  237:/* internal functionality requrements.                                */
  238:/*--------------------------------------------------------------------*/
  239:{
  240:   char *duped;
  241:/*--------------------------------------------------------------------*/
  242:   if (!(duped = (char *)malloc (strlen (todup) + 1))) {
  243:      perror ("ZGRLTC: zgrltc_dup() malloc failed");
  244:      exit (errno);                     /* Cancel Christmas!          */
  245:   }
  246:   return (strcpy (duped, todup));
  247:}
  248:/*--------------------------------------------------------------------*/
  250:/*
  251: * Local Variables:
  252: * c-basic-offset: 3
  253: * comment-column: 40
  254: * indent-tabs-mode: nil
  255: * End:
  256: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZGRLTC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:56 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGUEST.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZGUEST.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGUEST.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
AIPSCC    : Date       Fri Jul 18 17:25:56 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
/usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
AIPSCC    : ends with fatal error(s)!

    1:#include <unistd.h>
    2:#include <sys/types.h>
    3:#include <fcntl.h>
    4:#include <stdio.h>
    5:#include <errno.h>
    6:#include <sys/stat.h>
    7:#include <AIPSPROTO.H>
    9:#define PMODE (S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | S_IROTH | S_IWOTH)
   10:#define CMODE (O_WRONLY | O_CREAT | O_TRUNC | O_EXCL)
   12:#if __STDC__
   13:   void zguest_(int *create, int *nmax, int *nfil)
   14:#else
   15:   void zguest_(create, nmax, nfil)
   16:   int *create, *nmax, *nfil;
   17:#endif
   18:/*--------------------------------------------------------------------*/
   19:/*! creates/deletes lock files for guest TV assignments /tmp/GUESTVn  */
   20:/*# Z2 System                                                         */
   21:/*--------------------------------------------------------------------*/
   22:/*;  Copyright (C) 1995-1997                                          */
   23:/*;  Associated Universities, Inc. Washington DC, USA.                */
   24:/*;                                                                   */
   25:/*;  This program is free software; you can redistribute it and/or    */
   26:/*;  modify it under the terms of the GNU General Public License as   */
   27:/*;  published by the Free Software Foundation; either version 2 of   */
   28:/*;  the License, or (at your option) any later version.              */
   29:/*;                                                                   */
   30:/*;  This program is distributed in the hope that it will be useful,  */
   31:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   32:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   33:/*;  GNU General Public License for more details.                     */
   34:/*;                                                                   */
   35:/*;  You should have received a copy of the GNU General Public        */
   36:/*;  License along with this program; if not, write to the Free       */
   37:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   38:/*;  MA 02139, USA.                                                   */
   39:/*;                                                                   */
   40:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   41:/*;         Internet email: aipsmail at nrao.edu.                        */
   42:/*;         Postal address: AIPS Project Office                       */
   43:/*;                         National Radio Astronomy Observatory      */
   44:/*;                         520 Edgemont Road                         */
   45:/*;                         Charlottesville, VA 22903-2475 USA        */
   46:/*--------------------------------------------------------------------*/
   47:/*   creates/deletes lock files for guest TV assignments /tmp/GUESTVn */
   48:/*   Inputs:                                                          */
   49:/*      CREATE   I   1 -> create, 0 -> delete                         */
   50:/*      NMAX     I   on create: largest NFIL allowed                  */
   51:/*   In/Out:                                                          */
   52:/*      NFIL     I   file number to delete, file number created       */
   53:/*--------------------------------------------------------------------*/
   54:{
   55:   int i;
   56:   int  lockfile;                      /* lock file file descriptor   */
   57:   char filename[14];                  /* desired file name.          */
   58:/* static char zhex[36] = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;    */
   59:   char *zhex = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;
   60:   char ahex[2] ;
   61:/*--------------------------------------------------------------------*/
   62:                                       /* create                      */
   63:   ahex[1] = '\0';
   64:   if (*create > 0) {
   65:      *nfil = 0;
   66:      for (i = 1; i <= *nmax; i++) {
   67:         ahex[0] = zhex[i];
   68:         sprintf (filename, "/tmp/GUESTV%s", ahex);
   69:                                       /* Create lock file:           */
   70:         if ((lockfile = open (filename, CMODE, PMODE)) == -1) {
   71:            if (errno != EEXIST) i = *nmax + 1;
   72:            }
   73:         else {
   74:            close (lockfile);
   75:            *nfil = i;
   76:            i = *nmax + 1 ;
   77:            }
   78:         }
   79:      }
   80:                                       /* destroy                     */
   81:   else {
   82:      ahex[0] = zhex[*nfil];
   83:      sprintf (filename, "/tmp/GUESTV%s", ahex);
   84:                                       /* delete file                 */
   85:      unlink (filename);
   86:      }
   87:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZGUEST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:56 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLASC2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZLASC2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLASC2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
AIPSCC    : Date       Fri Jul 18 17:25:56 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:8:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:13: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c: In function `zlasc2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:70: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:70: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:70: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_lasc2__
    2:#define _XOPEN_SOURCE                      /* Needed for popen/pclose */
    3:#include <unistd.h>
    4:#include <stdlib.h>
    5:#include <stdio.h>
    6:#include <errno.h>
    7:#include <string.h>
    8:#include <AIPSPROTO.H>
   10:#define ZL2_DELAY 10                        /* delay min 10 sec       */
   12:#if __STDC__
   13:   void zlasc2_(int *flen, char filnam[MAXAPATH], int *delfil,
   14:      int *syserr)
   15:#else
   16:   void zlasc2_(flen, filnam, delfil, syserr)
   17:   char filnam[MAXAPATH];
   18:   int *flen, *delfil, *syserr;
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! spool a graphics file to the appropriate printer and delete it    */
   22:/*# Z2 Printer Plot-util                                              */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995-1997                                          */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*  Spool a laser plotter file for printing/plotting, then delete it  */
   50:/*  Inputs:                                                           */
   51:/*     flen     I       Length of "filnam" in characters              */
   52:/*     filnam   C*(*)   Full path name of the file to be queued       */
   53:/*     delfil   I       Disposition indicator code:                   */
   54:/*                         0 => keep after printing                   */
   55:/*                         1 => delete after printing                 */
   56:/*  Output:                                                           */
   57:/*     syserr   I          System error code (0 okay)                 */
   58:/*  Generic UNIX version (invokes a shell script called ZLASCL)       */
   59:/*                                                                    */
   60:/*  The delete-after-printing option will shed a process to delete    */
   61:/*  the file after a small delay.  If the print command in the ZLASCL */
   62:/*  shell script causes a symbolic link to be made to the file, and   */
   63:/*  the spooler is backed up, it is possible that the file will be    */
   64:/*  deleted here before being printed.  Not all spooling programs     */
   65:/*  (e.g. lp on System V) have an option for deleting after printing. */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:   int n7 = 7, n3 = 3, zlpid, idel;
   69:   register int i, j;
   70:   char cmd[256], pathname[MAXAPATH], msgbuf[80], outbuf[132];
   71:   FILE *zptr;
   72:/*--------------------------------------------------------------------*/
   73:   *syserr = 0;
   74:                                        /* Form null terminated path  */
   75:                                        /* name.                      */
   76:   for (i = 0; i < MAXAPATH && i < *flen && filnam[i] != ' '; i++)
   77:      pathname[i] = filnam[i];
   78:   pathname[i] = '\0';
   79:                                        /* Does file exist?           */
   80:   if (access (pathname, 0) == -1) {
   81:      *syserr = errno;
   82:      }
   83:                                        /* Use shell script ZLASCL to */
   84:                                        /* do the actual printing.    */
   85:   else {
   86:      sprintf (cmd, "ZLASCL %s", pathname);
   87:                                        /* Issue the shell command.   */
   88:      errno = 0;
   89:      if ((zptr = popen (cmd, "r")) == NULL ) {
   90:         *syserr = errno;
   91:         sprintf (msgbuf, "ZLASC2: Cannot pipe command %s\n", cmd);
   92:         zmsgwr_ (msgbuf, &n7);
   93:         }
   94:      else {
   95:         while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
   96:            j = strlen(outbuf);
   97:            if (j > 64) j = 64;
   98:            strncpy (msgbuf, outbuf, j);
   99:            msgbuf[j] = '\0';
  100:            zmsgwr_ (msgbuf, &n3);
  101:            j = strlen(outbuf) - 64;
  102:            if (j > 0) {
  103:               strncpy (msgbuf, &outbuf[64], j);
  104:               msgbuf[j] = '\0';
  105:               zmsgwr_ (msgbuf, &n3);
  106:               }
  107:            }
  108:         *syserr = pclose(zptr);
  109:                                        /* AIX returns ECHILD here    */
  110:                                        /* because of the "sleep".    */
  111:         if ((*syserr != 0) && (errno != ECHILD)) {
  112:            *syserr = errno;
  113:            perror("ZLASC2");
  114:            sprintf (msgbuf, "ZLASC2: ignoring error %d from pclose()",
  115:                     *syserr);
  116:            zmsgwr_ (msgbuf, &n3);
  117:            }
  118:         *syserr = errno = 0;
  119:         }
  120:                                        /* Delete the file.           */
  121:      if ((*delfil > 0) && (*syserr == 0)) {
  122:         idel = ZL2_DELAY;
  123:         if (*delfil > idel) idel = *delfil;
  124:         sprintf (cmd,
  125:            "((sleep %d; rm -f %s\n)&) >/dev/null 2>/dev/null",
  126:            idel, pathname);
  127:         if ((zptr = popen (cmd, "r")) == NULL ) {
  128:            *syserr = errno;
  129:            sprintf (msgbuf, "ZLASC2: Will NOT delete file %s\n", cmd);
  130:            zmsgwr_ (msgbuf, &n7);
  131:            sprintf (msgbuf, "ZLASC2: (because 'popen' failed)\n");
  132:            zmsgwr_ (msgbuf, &n7);
  133:            }
  134:         else {
  135: 	    while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
  136:	       j = strlen(outbuf);
  137:	       if (j > 64) j = 64;
  138:	       strncpy (msgbuf, outbuf, j);
  139:	       msgbuf[j] = '\0';
  140:	       zmsgwr_ (msgbuf, &n3);
  141:	       j = strlen(outbuf) - 64;
  142:	       if (j > 0) {
  143:		  strncpy (msgbuf, &outbuf[64], j);
  144:		  msgbuf[j] = '\0';
  145:		  zmsgwr_ (msgbuf, &n3);
  146:                  }
  147:               }
  148:            *syserr = pclose(zptr);
  149:                                        /* AIX returns ECHILD here    */
  150:                                        /* because of the "sleep".    */
  151:            if ((*syserr != 0) && (errno != ECHILD)) {
  152:               *syserr = errno;
  153:               perror("ZLASC2");
  154:               sprintf (msgbuf,
  155:                        "ZLASC2: ignoring error %d from 2nd pclose()",
  156:                        *syserr);
  157:               zmsgwr_ (msgbuf, &n3);
  158:               }
  159:            *syserr = errno = 0;
  160:                                        /* give a message     */
  161:            sprintf (msgbuf,
  162:                     "a child process will delete %s in %d seconds",
  163:                     pathname, idel);
  164:            zmsgwr_ (msgbuf, &n3);
  165:            }
  166:         }
  167:      }
  168:   return;
  169:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZLASC2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:56 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLPCL2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZLPCL2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLPCL2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
AIPSCC    : Date       Fri Jul 18 17:25:56 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:8:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:13: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c: In function `zlpcl2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:73: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:73: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:73: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_lpcl2__
    2:#define _XOPEN_SOURCE                      /* Needed for popen/pclose */
    3:#include <unistd.h>
    4:#include <stdlib.h>
    5:#include <stdio.h>
    6:#include <errno.h>
    7:#include <string.h>
    8:#include <AIPSPROTO.H>
   10:#define ZL2_DELAY 10                        /* delay min 10 seconds   */
   12:#if __STDC__
   13:   void zlpcl2_(int *llen, char lprfil[MAXAPATH], int *delfil,
   14:      int *prtmax, int *syserr, int *ierr)
   15:#else
   16:   void zlpcl2_(llen, lprfil, delfil, prtmax, syserr, ierr)
   17:   int *llen, *delfil, *prtmax, *syserr, *ierr;
   18:   char lprfil[MAXAPATH];
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! spool a text file to the appropriate printer and delete it        */
   22:/*# Z2 Printer                                                        */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995-1997                                          */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*  Spool a line printer file to a printer, then delete it            */
   50:/*  Inputs:                                                           */
   51:/*     llen     I       Length of "lprfil" in characters              */
   52:/*     lprfil   C*(*)   Name of the line printer file to queue        */
   53:/*     delfil   I       Disposition indicator code:                   */
   54:/*                         0 => keep after printing                   */
   55:/*                         >0 => delete after delfil seconds          */
   56:/*     prtmax   I       Length of a line printer page                 */
   57:/*  Output:                                                           */
   58:/*     syserr   I       System error code                             */
   59:/*     ierr     I       Error return code: 0 => no error              */
   60:/*                         1 => error                                 */
   61:/*  Generic UNIX version  - invokes a shell script called ZLPCL2      */
   62:/*                                                                    */
   63:/*  The delete-after-printing option will shed a process to delete    */
   64:/*  the file after a small delay.  If the print command in the ZLASCL */
   65:/*  shell script causes a symbolic link to be made to the file, and   */
   66:/*  the spooler is backed up, it is possible that the file will be    */
   67:/*  deleted here before being printed.  Not all spooling programs     */
   68:/*  (e.g. lp on System V) have an option for deleting after printing. */
   69:/*--------------------------------------------------------------------*/
   70:{
   71:   int n7 = 7, n3 = 3, zlpid, idel;
   72:   register int i, j;
   73:   char cmd[256], pathname[MAXAPATH], msgbuf[80], outbuf[132];
   74:   FILE *zptr;
   75:/*--------------------------------------------------------------------*/
   76:   *ierr = 0;
   77:                                        /* Form null terminated path  */
   78:                                        /* name.                      */
   79:   for (i = 0; i < MAXAPATH && i < *llen && lprfil[i] != ' '; i++)
   80:      pathname[i] = lprfil[i];
   81:   pathname[i] = '\0';
   82:                                        /* Does file exist?           */
   83:   if (access (pathname, 0) == -1) {
   84:      *syserr = errno;
   85:      *ierr = 1;
   86:      }
   87:                                        /* Use shell script ZLPCL2 to */
   88:                                        /* do the actual printing.    */
   89:   else {
   90:      sprintf(cmd, "ZLPCL2 %s %d", pathname, *prtmax);
   91:                                        /* Issue the shell command.   */
   92:      errno = 0;
   93:      if ((zptr = popen (cmd, "r")) == NULL ) {
   94:         *ierr = 1;
   95:         *syserr = errno;
   96:         sprintf (msgbuf, "ZLPCL2: Cannot pipe command %s", cmd);
   97:         zmsgwr_ (msgbuf, &n7);
   98:         }
   99:      else {
  100:         while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
  101:            j = strlen(outbuf);
  102:            if (j > 64) j = 64;
  103:            strncpy (msgbuf, outbuf, j);
  104:            msgbuf[j] = '\0';
  105:            zmsgwr_ (msgbuf, &n3);
  106:            j = strlen(outbuf) - 64;
  107:            if (j > 0) {
  108:               strncpy (msgbuf, &outbuf[64], j);
  109:               msgbuf[j] = '\0';
  110:               zmsgwr_ (msgbuf, &n3);
  111:               }
  112:            }
  113:         *syserr = pclose(zptr);
  114:                                        /* AIX returns ECHILD here    */
  115:                                        /* because of the "sleep".    */
  116:         if ((*syserr != 0) && (errno != ECHILD)) {
  117:            *syserr = errno;
  118:            perror("ZLPCL2");
  119:            sprintf (msgbuf, "ZLPCL2: ignoring error %d from pclose()",
  120:                     *syserr);
  121:            zmsgwr_ (msgbuf, &n3);
  122:            *syserr = 0;
  123:            }
  124:         }
  125:                                        /* Delete the file.           */
  126:      if ((*delfil > 0) && (*ierr == 0)) {
  127:         idel = ZL2_DELAY;
  128:         if (*delfil > idel) idel = *delfil;
  129:         sprintf (cmd,
  130:             "((sleep %d; rm -f %s)&) >/dev/null 2>/dev/null",
  131:             idel, pathname);
  132:         if ((zptr = popen (cmd, "r")) == NULL ) {
  133:            *ierr = 1;
  134:            *syserr = errno;
  135:            sprintf (msgbuf, "ZLPCL2: Will NOT delete file %s", cmd);
  136:            zmsgwr_ (msgbuf, &n7);
  137:            sprintf (msgbuf, "ZLPCL2: (because 'popen' failed)");
  138:            zmsgwr_ (msgbuf, &n7);
  139:            }
  140:         else {
  141:	    while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
  142:	       j = strlen(outbuf);
  143:	       if (j > 64) j = 64;
  144:	       strncpy (msgbuf, outbuf, j);
  145:	       msgbuf[j] = '\0';
  146:	       zmsgwr_ (msgbuf, &n3);
  147:	       j = strlen(outbuf) - 64;
  148:	       if (j > 0) {
  149:		  strncpy (msgbuf, &outbuf[64], j);
  150:		  msgbuf[j] = '\0';
  151:		  zmsgwr_ (msgbuf, &n3);
  152:                  }
  153:               }
  154:            *syserr = pclose(zptr);
  155:            *ierr = 0;
  156:                                        /* give a message     */
  157:            sprintf (msgbuf,
  158:               "a child process will delete %s in %d seconds",
  159:               pathname, idel);
  160:            zmsgwr_ (msgbuf, &n3);
  161:            }
  162:         }
  163:      }
  164:   return;
  165:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZLPCL2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:56 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZM70O2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZM70O2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZM70O2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
AIPSCC    : Date       Fri Jul 18 17:25:57 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:5:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:8: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c: In function `zm70o2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:63: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:63: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:63: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:63: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_m70o2__
    2:#include <stdio.h>
    3:#include <fcntl.h>
    4:#include <errno.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zm70o2_(int *fcb, char pname[MAXPNAME], int *ierr)
    9:#else
   10:   void zm70o2_(fcb, pname, ierr)
   11:   int *fcb, *ierr ;
   12:   char pname[MAXPNAME] ;
   13:#endif
   14:/*--------------------------------------------------------------------*/
   15:/*! open an IIS Model 70/75 device                                    */
   16:/*# TV-IO                                                             */
   17:/*--------------------------------------------------------------------*/
   18:/*;  Copyright (C) 1995, 1997, 2000                                   */
   19:/*;  Associated Universities, Inc. Washington DC, USA.                */
   20:/*;                                                                   */
   21:/*;  This program is free software; you can redistribute it and/or    */
   22:/*;  modify it under the terms of the GNU General Public License as   */
   23:/*;  published by the Free Software Foundation; either version 2 of   */
   24:/*;  the License, or (at your option) any later version.              */
   25:/*;                                                                   */
   26:/*;  This program is distributed in the hope that it will be useful,  */
   27:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   28:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   29:/*;  GNU General Public License for more details.                     */
   30:/*;                                                                   */
   31:/*;  You should have received a copy of the GNU General Public        */
   32:/*;  License along with this program; if not, write to the Free       */
   33:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   34:/*;  MA 02139, USA.                                                   */
   35:/*;                                                                   */
   36:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   37:/*;         Internet email: aipsmail at nrao.edu.                        */
   38:/*;         Postal address: AIPS Project Office                       */
   39:/*;                         National Radio Astronomy Observatory      */
   40:/*;                         520 Edgemont Road                         */
   41:/*;                         Charlottesville, VA 22903-2475 USA        */
   42:/*--------------------------------------------------------------------*/
   43:/*  Open an IIS model 70 TV device for non-map,(single buffered) I/O. */
   44:/*                                                                    */
   45:/*  Inputs:                                                           */
   46:/*     pname   C*48   Physical file name (e.g., "TVDEV1: ")           */
   47:/*  Output:                                                           */
   48:/*     fcb     I(*)   File control block for opened TV device         */
   49:/*     ierr    I      Error return code: 0 => no error                */
   50:/*                       2 => no such logical device                  */
   51:/*                       3 => invalid device name                     */
   52:/*                       6 => other open error                        */
   53:/*  Generic UNIX version.                                             */
   54:/*--------------------------------------------------------------------*/
   55:{
   56:                                        /* Offsets to entries in the  */
   57:                                        /* file control blocks        */
   58:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   59:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   61:   int llen, xlen, xlnb, jerr;
   62:   register int i;
   63:   char lognam[MAXPNAME], pathname[MAXAPATH] ;
   64:/*--------------------------------------------------------------------*/
   65:   *ierr = 0;
   66:                                        /* Extract logical device     */
   67:                                        /* name.                      */
   68:   for (i = 0; i < MAXPNAME && pname[i] != ':'; i++)
   69:      lognam[i] = pname[i];
   70:   lognam[i] = '\0';
   71:                                        /* Translate logical device   */
   72:                                        /* name and null terminate.   */
   73:   llen = MAXPNAME;
   74:   xlen = MAXAPATH;
   75:   ztrlo2_(&llen, lognam, &xlen, pathname, &xlnb, &jerr);
   76:   if (jerr != 0) {
   77:      *ierr = 2;
   78:      }
   79:   else {
   80:      pathname[xlnb] = '\0';
   81:                                        /* Open the TV device         */
   82:                                        /* read/write.                */
   83:      if ((*(fcb + Z_fcbfd) = open (pathname, 2)) == -1) {
   84:         *(fcb + Z_fcberr) = errno;
   85:                                        /* Device doesn't exist.      */
   86:         if (errno == ENOENT)
   87:            *ierr = 3;
   88:                                        /* Some other open error.     */
   89:         else
   90:            *ierr = 6;
   91:         }
   92:      }
   94:   return;
   95:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZM70O2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:57 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZM70X2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZM70X2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZM70X2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
AIPSCC    : Date       Fri Jul 18 17:25:57 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c:6:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_m70x2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <string.h>
    5:#include <errno.h>
    6:#include <AIPSPROTO.H>
    8:#define  NONE 0                         /* Have not yet done r/w      */
    9:#define  READ 1
   10:#define  WRITE 2
   11:#define  ILLEGAL 3
   12:static char *op_names[] = {"NONE","READ","WRITE","ILLEGAL"};
   13:#define MAX_BAD 5                       /* Maximum number of bad xfers*/
   14:                                        /* that we lie about and say  */
   15:                                        /* succeeds.                  */
   17:#define DEBUG_LEVEL 1                   /* 1 for debugging info, 2 for*/
   18:                                        /* Copious output, 0 for none */
   19:                                        /* Undef should generate dead */
   20:                                        /* code for the compiler to   */
   21:                                        /* take out.                  */
   23:                                        /* For debugging use an int   */
   24:                                        /* to set the level so we can */
   25:                                        /* change it on the fly with a*/
   26:                                        /* debugger.                  */
   27:#ifdef DEBUG_LEVEL
   28:static int debug = DEBUG_LEVEL;
   29:#define DEBUG if (debug) printf
   30:#define LOG if (debug>1) printf
   31:#else
   32:#define DEBUG if (0) printf
   33:#define LOG if (0) printf
   34:#endif /* DEBUG_LEVEL */
   36:#if __STDC__
   37:   void zm70x2_(char *oper, int *fcb, char *buff, int *nbytes,
   38:      int *ierr)
   39:#else
   40:   void zm70x2_(oper, fcb, buff, nbytes, ierr)
   41:   char oper[], buff[];
   42:   int *fcb, *nbytes, *ierr;
   43:#endif
   44:/*--------------------------------------------------------------------*/
   45:/*! read/write from/to IIS Model 70/75 device                         */
   46:/*# TV-IO                                                             */
   47:/*--------------------------------------------------------------------*/
   48:/*;  Copyright (C) 1995, 1997                                         */
   49:/*;  Associated Universities, Inc. Washington DC, USA.                */
   50:/*;                                                                   */
   51:/*;  This program is free software; you can redistribute it and/or    */
   52:/*;  modify it under the terms of the GNU General Public License as   */
   53:/*;  published by the Free Software Foundation; either version 2 of   */
   54:/*;  the License, or (at your option) any later version.              */
   55:/*;                                                                   */
   56:/*;  This program is distributed in the hope that it will be useful,  */
   57:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   58:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   59:/*;  GNU General Public License for more details.                     */
   60:/*;                                                                   */
   61:/*;  You should have received a copy of the GNU General Public        */
   62:/*;  License along with this program; if not, write to the Free       */
   63:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   64:/*;  MA 02139, USA.                                                   */
   65:/*;                                                                   */
   66:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   67:/*;         Internet email: aipsmail at nrao.edu.                        */
   68:/*;         Postal address: AIPS Project Office                       */
   69:/*;                         National Radio Astronomy Observatory      */
   70:/*;                         520 Edgemont Road                         */
   71:/*;                         Charlottesville, VA 22903-2475 USA        */
   72:/*--------------------------------------------------------------------*/
   73:/*  Transfer "nbytes" of data between an IIS Model 70 TV device.      */
   74:/*  Inputs:                                                           */
   75:/*     oper     C*4    Operation code "READ" or "WRIT"                */
   76:/*     fcb      I(*)   File control block for opened TV device        */
   77:/*     nbytes   I      Number of 8-bit bytes to be transferred        */
   78:/*  In/out:                                                           */
   79:/*     buff     I(*)   I/O buffer                                     */
   80:/*  Output:                                                           */
   81:/*     ierr     I*2    Error return code: 0 => no error               */
   82:/*                        2 => bad opcode                             */
   83:/*                        3 => I/O error                              */
   84:/*                        4 => end of file                            */
   85:/*  Generic UNIX version - assumes 'read' and 'write' will be okay    */
   86:/*--------------------------------------------------------------------*/
   87:{
   88:                                        /* Offsets to entries in the  */
   89:                                        /* file control blocks        */
   90:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   91:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   93:   int fd;
   94:   register int i;
   95:   char op[5];
   96:   static int last_op = NONE;           /* Keep track of statistics   */
   97:   static int call_number = 0;
   98:   static int n_bad = 0;
   99:   int call_type;
  100:/*--------------------------------------------------------------------*/
  101:   call_number++;
  102:   *ierr = 0;
  103:                                        /* Form null terminated       */
  104:                                        /* opcode.                    */
  105:   for (i = 0; i < 4; i++)
  106:      op[i] = oper[i];
  107:   op[4] = '\0';
  108:                                        /* Get file descriptor from   */
  109:                                        /* the file control block as  */
  110:                                        /* stored there by ZM70O2.    */
  111:   fd = *(fcb + Z_fcbfd);
  112:                                        /* Record byte request in the */
  113:                                        /* file control block.        */
  114:   *(fcb + Z_fcbreq) = *nbytes;
  115:                                        /* Also, zero error status &  */
  116:                                        /* transfer count entries.    */
  117:   *(fcb + Z_fcberr) = 0;
  118:   *(fcb + Z_fcbxfr) = 0;
  119:   LOG ("ZM70X2 enter: call=%d op=%s last=%s nbytes=%d\n",
  120:      call_number, op, op_names[last_op], *nbytes);
  121:                                        /* Zero byte request okay.    */
  122:                                        /* Just return.               */
  123:   if (n_bad && *nbytes < 16) {
  124:      n_bad++;
  125:      DEBUG("ZM70X2: *nbytes=%d, THROW AWAY, nbad=%d\n",*nbytes,n_bad);
  126:      return;
  127:      }
  128:   if (*(fcb + Z_fcbreq) != 0) {
  129:      if (*nbytes == 0)
  130:         DEBUG ("ZM70X2 0 byte return: call=%d\n", call_number);
  131:                                        /* Perform the I/O and record */
  132:                                        /* the # of bytes transferred */
  133:                                        /* in *(fcb + Z_fcbxfr).      */
  134:                                        /* Record the system error    */
  135:                                        /* code (if any) in           */
  136:                                        /* *(fcb + Z_fcberr).         */
  137:      if (strcmp (op, "READ") == 0) {
  138:         call_type = READ;
  139:         if ((*(fcb + Z_fcbxfr) = read (fd, buff, *(fcb + Z_fcbreq)))
  140:            != *nbytes) {
  141:           DEBUG("ZM70X2 read: FAILS call=%d op=%s last=%s nbytes=%d transferred = %d",
  142:              call_number, op, op_names[last_op], *nbytes, *(fcb + Z_fcbxfr));
  143:            n_bad++;
  144:            *(fcb + Z_fcberr) = errno;
  145:            *ierr = 3;
  146:            }
  147:         }
  148:      else if (strcmp (op, "WRIT") == 0) {
  149:         call_type = WRITE;
  150:         if ((*(fcb + Z_fcbxfr) = write (fd, buff, *(fcb + Z_fcbreq)))
  151:            != *nbytes) {
  152:            DEBUG("ZM70X2 write: FAILS call=%d op=%s last=%s nbytes=%d transferred = %d",
  153:               call_number, op, op_names[last_op], *nbytes, *(fcb + Z_fcbxfr));
  154:            n_bad++;
  155:            *(fcb + Z_fcberr) = errno;
  156:            *ierr = 3;
  157:            }
  158:         }
  159:                                        /* Bad opcode.                */
  160:      else {
  161:         *ierr = 2;
  162:         last_op = ILLEGAL;
  163:         DEBUG("ZM70X2 leave: FAILS call=%d, ILLEGAL opcode\n",call_number);
  164:         return;
  165:         }
  166:                                        /* End of file?               */
  167:      if (*(fcb + Z_fcbxfr) == 0)
  168:         *ierr = 4;
  169:      }
  170:   if (*ierr == 0) {
  171:      n_bad = 0;
  172:      }
  173:   else if (n_bad < MAX_BAD) {
  174:      DEBUG("ZM70X2: LIE - turn FAIL into succeed, n_bad=%d\n, try MC",n_bad);
  175:      *(fcb + Z_fcberr) = 0;
  176:      *ierr = 0;
  177:      zm70m2_(fcb, ierr);
  178:      if (*ierr) {
  179:         DEBUG("ZM70X2: Master CLEAR FAILS\n");
  180:         }
  181:      }
  182:   last_op = call_type;
  183:   LOG("ZM70X2 leave: normal, call=%d, ierr=%d\n",call_number,*ierr);
  185:   return;
  186:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZM70X2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:57 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMI2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZMI2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
AIPSCC    : Date       Fri Jul 18 17:25:57 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_mi2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <string.h>
    5:#include <errno.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zmi2_(char *oper, int *fcb, char *buff, int *nblock,
   11:      int *nbytes, int *ierr)
   12:#else
   13:   void zmi2_(oper, fcb, buff, nblock, nbytes, ierr)
   14:   char oper[], buff[];
   15:   int *fcb, *nblock, *nbytes, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read/write large blocks of data from/to disk, quick return        */
   19:/*# IO-basic                                                          */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 1997-1999                                    */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Read/write "nbytes" of data from/to disk starting at virtual      */
   47:/*  block "nblock" using "map" I/O (i.e., double buffered,            */
   48:/*  asynchronous I/O).  Block sizes are determined by the value       */
   49:/*  assigned to NBPS as AIPS-bytes in ZDCHIN which is converted to    */
   50:/*  bytes in ZDCHI2 and assigned to Z_nbps.                           */
   51:/*  Inputs:                                                           */
   52:/*     oper     C*4    Operation code "READ" or "WRIT"                */
   53:/*     fcb      I(*)   File control block for open map disk file      */
   54:/*                     and buffer involved                            */
   55:/*     nblock   I      Virtual starting block (1-relative)            */
   56:/*     nbytes   I      Number of AIPS-bytes (1/2 of a local integer)  */
   57:/*                     to be transferred                              */
   58:/*  In/out:                                                           */
   59:/*     buff     I(*)   I/O buffer                                     */
   60:/*  Output:                                                           */
   61:/*     ierr     I      Error return code: 0 => no error               */
   62:/*                        2 => bad opcode                             */
   63:/*                        3 => I/O error (also see ZWAI2)             */
   64:/*                        4 => end of file (see ZWAI2)                */
   65:/*  Generic UNIX version.                                             */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:                                        /* Offsets to entries in the  */
   69:                                        /* file control blocks        */
   70:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   71:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   72:                                        /* # of bytes per AIPS-byte   */
   73:   extern int Z_nbpab;
   74:                                        /* # of bytes per disk sector */
   75:   extern int Z_nbps;
   76:   int fd, n7 = 7;
   77:   off_t firstbyte, lastbyte, sizebytes, lastiob;
   78:   register int i;
   79:   char op[5], msgbuf[80];
   80:/*--------------------------------------------------------------------*/
   81:   *ierr = 0;
   82:                                        /* Form null terminated       */
   83:                                        /* opcode.                    */
   84:   for (i = 0; i < 4; i++)
   85:      op[i] = oper[i];
   86:   op[4] = '\0';
   87:                                        /* Get file descriptor from   */
   88:                                        /* the file control block as  */
   89:                                        /* stored there by ZDAOPN.    */
   90:   fd = *(fcb + Z_fcbfd);
   91:                                        /* Record byte request in the */
   92:                                        /* file control block.        */
   93:   *(fcb + Z_fcbreq) = *nbytes * Z_nbpab;
   94:                                        /* Also, zero error status &  */
   95:                                        /* transfer count entries.    */
   96:   *(fcb + Z_fcberr) = 0;
   97:   *(fcb + Z_fcbxfr) = 0;
   98:                                        /* Zero byte request just     */
   99:                                        /* initiates double buffered  */
  100:                                        /* I/O.                       */
  101:   if (*(fcb + Z_fcbreq) != 0) {
  102:                                        /* Calculate the byte offsets */
  103:                                        /* (0-relative) in the file   */
  104:                                        /* that correspond to the     */
  105:                                        /* I/O request.               */
  106:      firstbyte = (*nblock - 1);
  107:      firstbyte = firstbyte * Z_nbps;
  108:      lastbyte = *(fcb + Z_fcbreq) + firstbyte - 1;
  109:                                        /* Unpack the file size in    */
  110:                                        /* bytes from the file        */
  111:                                        /* control block (as packed   */
  112:                                        /* there in ZDAOPN) and make  */
  113:                                        /* sure that "lastbyte" is    */
  114:                                        /* not beyond the end of the  */
  115:                                        /* file.                      */
  116:      memcpy (&sizebytes, (fcb + Z_fcbsiz), sizeof(off_t)) ;
  117:      memcpy (&lastiob, (fcb + Z_fcbsiz + 2), sizeof(off_t)) ;
  118:      if ((lastbyte + 1) > sizebytes) {
  119:                                        /* This is NOT illegal under  */
  120:                                        /* UNIX but IS under AIPS     */
  121:                                        /* design standards, so fake  */
  122:                                        /* it.                        */
  123:         *(fcb + Z_fcberr) = EINVAL;
  124:         *(fcb + Z_fcbxfr) = -1;
  125:         *ierr = 3;
  126:         if (sizeof(long) < sizeof(off_t))
  127:            sprintf (msgbuf,
  128:            "ZMI2: REQUEST FOR BYTES %lld THRU = %lld BEYOND EOF = %lld",
  129:            firstbyte + 1, lastbyte + 1, sizebytes);
  130:         else
  131:            sprintf (msgbuf,
  132:            "ZMI2: REQUEST FOR BYTES %d THRU = %d BEYOND EOF = %d",
  133:            firstbyte + 1, lastbyte + 1, sizebytes);
  134:         zmsgwr_ (msgbuf, &n7);
  135:         }
  136:                                        /* Set file pointer of the    */
  137:                                        /* file descriptor to the     */
  138:                                        /* absolute byte address      */
  139:                                        /* "firstbyte".               */
  140:      else {
  141:         if (firstbyte != lastiob+1) {
  142:            if (lseek (fd, firstbyte, 0) == -1) {
  143:               *(fcb + Z_fcberr) = errno;
  144:               sprintf (msgbuf,
  145:               "ZMI2: LSEEK ERROR ON FILE DESCRIPTOR %d TO POSITION %d",
  146:                  fd, firstbyte);
  147:               zmsgwr_ (msgbuf, &n7);
  148:               *ierr = 3;
  149:               }
  150:            }
  151:                                        /* Perform the I/O and record */
  152:                                        /* the # of bytes transferred */
  153:                                        /* in *(fcb + Z_fcbxfr).      */
  154:                                        /* Record the system error    */
  155:                                        /* code (if any) in           */
  156:                                        /* *(fcb + Z_fcberr).         */
  157:         if (*ierr == 0) {
  158:            if (strcmp (op, "READ") == 0) {
  159:               if ((*(fcb + Z_fcbxfr) =
  160:                  read (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  161:                  *(fcb + Z_fcberr) = errno;
  162:                  *ierr = 3;
  163:                  }
  164:               }
  165:            else if (strcmp (op, "WRIT") == 0) {
  166:               if ((*(fcb + Z_fcbxfr) =
  167:                  write (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  168:                  *(fcb + Z_fcberr) = errno;
  169:                  *ierr = 3;
  170:                  }
  171:               }
  172:                                        /* Bad opcode.                */
  173:            else {
  174:               *ierr = 2;
  175:               }
  176:            }
  177:         }
  179:      if (*ierr == 0)
  180:         memcpy ((fcb + Z_fcbsiz + 2), &lastbyte, sizeof(off_t)) ;
  181:      }
  183:   return;
  184:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZMI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:57 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMKTMP.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZMKTMP.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMKTMP.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
AIPSCC    : Date       Fri Jul 18 17:25:57 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:9:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:12: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c: In function `zmktmp_':
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:64: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:64: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:64: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_mktmp__
    2:#include <unistd.h>
    3:#include <sys/types.h>
    4:#include <errno.h>
    5:#include <stdio.h>
    6:#include <stdlib.h>
    7:#include <ctype.h>
    8:#include <string.h>
    9:#include <AIPSPROTO.H>
   11:#if __STDC__
   12:   void zmktmp_(int *flen, char filnam[MAXAPATH], int *ierr)
   13:#else
   14:   void zmktmp_(flen, filnam, ierr)
   15:   int *flen, *ierr;
   16:   char filnam[MAXAPATH];
   17:#endif
   18:/*--------------------------------------------------------------------*/
   19:/*! convert a "temporary" file name into a unique name                */
   20:/*# IO-basic                                                          */
   21:/*--------------------------------------------------------------------*/
   22:/*;  Copyright (C) 1995, 1997                                         */
   23:/*;  Associated Universities, Inc. Washington DC, USA.                */
   24:/*;                                                                   */
   25:/*;  This program is free software; you can redistribute it and/or    */
   26:/*;  modify it under the terms of the GNU General Public License as   */
   27:/*;  published by the Free Software Foundation; either version 2 of   */
   28:/*;  the License, or (at your option) any later version.              */
   29:/*;                                                                   */
   30:/*;  This program is distributed in the hope that it will be useful,  */
   31:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   32:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   33:/*;  GNU General Public License for more details.                     */
   34:/*;                                                                   */
   35:/*;  You should have received a copy of the GNU General Public        */
   36:/*;  License along with this program; if not, write to the Free       */
   37:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   38:/*;  MA 02139, USA.                                                   */
   39:/*;                                                                   */
   40:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   41:/*;         Internet email: aipsmail at nrao.edu.                        */
   42:/*;         Postal address: AIPS Project Office                       */
   43:/*;                         National Radio Astronomy Observatory      */
   44:/*;                         520 Edgemont Road                         */
   45:/*;                         Charlottesville, VA 22903-2475 USA        */
   46:/*--------------------------------------------------------------------*/
   47:/*  Form a unique, fully qualified, temporary file name.              */
   48:/*  Inputs:                                                           */
   49:/*     flen     I       Length of "filnam"                            */
   50:/*  In/Out:                                                           */
   51:/*     filnam   C*(*)   File name with the extension .XXXXXX, (e.g.,  */
   52:/*                      "ZXLPRT.XXXXXX").  The extension will be      */
   53:/*                      transformed by 'mktemp' to make "filnam" a    */
   54:/*                      unique file name.                             */
   55:/*  Output:                                                           */
   56:/*     ierr     I       Error return code: 0 => no error              */
   57:/*                         1 => inputs wrong                          */
   58:/*                         2 => filenames used up                     */
   59:/*                         3 => filnam too short                      */
   60:/*                         3 => I/O error on access to file           */
   61:/*  Generic UNIX version.                                             */
   62:/*--------------------------------------------------------------------*/
   63:{
   64:   char tmpnam[MAXAPATH+1], cwd[MAXAPATH+1], *pp;
   65:   register int i, j;
   66:   size_t tlen ;
   67:   pid_t  pid ;
   68:   char   cid[10] ;
   69:/*--------------------------------------------------------------------*/
   70:   *ierr = 0;
   71:                                        /* Form null-terminated file  */
   72:                                        /* name template out of input;*/
   73:                                        /* Test for "filnam" given as */
   74:                                        /* pathname at same time.     */
   75:   j = 0;
   76:   for (i = 0; i<*flen && filnam[i] != ' ' && filnam[i] != '\0'; i++) {
   77:      tmpnam[i] = filnam[i];
   78:                                        /* Is this a pathname?        */
   79:      if (tmpnam[i] == '/') j = 1;
   80:      }
   81:   tmpnam[i] = '\0';
   82:                                        /* If not already a pathname, */
   83:                                        /* make it one.               */
   84:   if (j == 0) {
   85:                                        /* Get current working        */
   86:                                        /* directory.                 */
   87:      tlen = MAXAPATH+1;
   88:      pp = getcwd (cwd, tlen);
   89:                                        /* Fill in directory name.    */
   90:      for (i = 0; i < *flen && i < MAXAPATH && cwd[i] != ' ' &&
   91:         cwd[i] != '\0' && cwd[i] != '\n'; i++)
   92:         filnam[i] = cwd[i];
   93:                                        /* Append "/" and file name.  */
   94:      filnam[i] = '/';
   95:      i = i + 1;
   96:      for (j = 0; j < MAXAPATH && i+j < *flen && tmpnam[j] != ' ' &&
   97:         tmpnam[j] != '\0'; j++)
   98:         filnam[i+j] = tmpnam[j];
   99:      filnam[i+j] = '\0';
  100:      }
  101:                                        /* Just copy pathname "tmpnam"*/
  102:                                        /* to "filnam".               */
  103:   else {
  104:      sprintf (filnam, "%s", tmpnam);
  105:      }
  106:                                        /* Get unique file name.      */
  107:   tlen = strlen (filnam) ;
  108:   if (tlen < 6)
  109:      *ierr = 3;
  111:   else {
  112:      pid = getpid ( );
  113:      sprintf (cid, "%010d", pid);
  114:      for (i = 1; i < 6; i++) {
  115:         if ((filnam[tlen-i] = cid[10-i]) == ' ')
  116:            filnam[tlen-i] = '0';
  117:         }
  118:      filnam[tlen-6] = 'a';
  120:      *ierr = 2;
  121:      for (i=0; i < 26; i++) {
  122:          errno = 0;
  123:          if (access (filnam, F_OK) != 0) {
  124:             if (errno == ENOENT)
  125:                *ierr = 0;
  126:             else
  127:                *ierr = 4;
  128:             break;
  129:             }
  130:          filnam[tlen-6]++ ;
  131:          }
  132:      }
  133:                                        /* blank fill                 */
  134:   for (i = 1; i < *flen && filnam[i] != '\0'; i++) {
  135:      j = i ;
  136:      }
  137:   for (i = j + 1; i < *flen; i++) {
  138:      filnam[i] = ' ' ;
  139:      }
  141:   return;
  142:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZMKTMP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:58 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZMOUN2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZMOUN2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZMOUN2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
AIPSCC    : Date       Fri Jul 18 17:25:58 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c:26:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c: In function `zmoun2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c:97: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c:97: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c:97: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_moun2__
    3:#define MT_Debug 0                      /* debug message control      */
    5:                                        /* Must not claim POSIX_SOURCE*/
    6:                                        /* types.h would not define   */
    7:                                        /* things needed in mtio.h    */
    8:#ifdef _POSIX_SOURCE
    9:#undef _POSIX_SOURCE
   10:#endif
   12:#include <unistd.h>
   13:#include <stdlib.h>
   14:#include <sys/types.h>
   15:#include <sys/ioctl.h>
   16:#include <sys/mtio.h>
   17:#include <errno.h>
   18:#include <fcntl.h>
   19:#include <stdio.h>
   20:#include <sys/file.h>
   21:#include <string.h>
   22:                                        /* Useful macros              */
   23:#ifndef min
   24:#define min(a,b) ((a)<(b)?(a):(b))
   25:#endif
   26:#include <AIPSPROTO.H>
   27:                                        /* For patch use (15OCT96).   */
   28:#ifndef MAXEHEX
   29:#define MAXEHEX 36
   30:#endif
   32:#if __STDC__
   33:   void zmoun2_(int *mount, int *idrive, int *idens, int *ntaped,
   34:      int *npops, int *nuser, char *msg, int *syserr, int *ierr)
   35:#else
   36:   zmoun2_(mount, idrive, idens, ntaped, npops, nuser, msg, syserr, ierr)
   37:   int *mount, *idrive, *idens, *ntaped, *npops, *nuser, *syserr, *ierr;
   38:   char msg[];
   39:#endif
   40:/*--------------------------------------------------------------------*/
   41:/*! mount or dismount magnetic tape device - lowest level Z           */
   42:/*# Tape Z2                                                           */
   43:/*--------------------------------------------------------------------*/
   44:/*;  Copyright (C) 1995, 1997, 1999-2000                              */
   45:/*;  Associated Universities, Inc. Washington DC, USA.                */
   46:/*;                                                                   */
   47:/*;  This program is free software; you can redistribute it and/or    */
   48:/*;  modify it under the terms of the GNU General Public License as   */
   49:/*;  published by the Free Software Foundation; either version 2 of   */
   50:/*;  the License, or (at your option) any later version.              */
   51:/*;                                                                   */
   52:/*;  This program is distributed in the hope that it will be useful,  */
   53:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   54:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   55:/*;  GNU General Public License for more details.                     */
   56:/*;                                                                   */
   57:/*;  You should have received a copy of the GNU General Public        */
   58:/*;  License along with this program; if not, write to the Free       */
   59:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   60:/*;  MA 02139, USA.                                                   */
   61:/*;                                                                   */
   62:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   63:/*;         Internet email: aipsmail at nrao.edu.                        */
   64:/*;         Postal address: AIPS Project Office                       */
   65:/*;                         National Radio Astronomy Observatory      */
   66:/*;                         520 Edgemont Road                         */
   67:/*;                         Charlottesville, VA 22903-2475 USA        */
   68:/*--------------------------------------------------------------------*/
   69:/*  Issue a software tape mount or dismount requests.                 */
   70:/*  Inputs:                                                           */
   71:/*     mount    I      Operation indicator code:                      */
   72:/*                        1 => mount                                  */
   73:/*                        0 => dismount                               */
   74:/*     idrive   I      Drive number                                   */
   75:/*     idens    I      Density                                        */
   76:/*     ntaped   I      Number of tape drives                          */
   77:/*     npops    I      Pops number                                    */
   78:/*     nuser    I      User AIPS number                               */
   79:/*  Output:                                                           */
   80:/*     msg      C*80   Error or mount type message buffer             */
   81:/*     syserr   I      System error code: 0 => no error               */
   82:/*     ierr     I      Error return code: 0 => no error               */
   83:/*                        1 => error                                  */
   84:/*                        2 => device doesn't exist                   */
   85:/*                        3 => i/o error to device                    */
   86:/*                        4 => device already allocated               */
   87:/*                        6 => other device open errors               */
   88:/*                                                                    */
   89:/*  JAU 97/Feb/01: Linux DAT and Exabyte version.                     */
   90:/*  Modified to set/restore tape block size--needed for Exabytes.     */
   91:/*--------------------------------------------------------------------*/
   92:{
   93:   static int fd;
   94:   int    jerr, llen, xlen, xlnb, tfd, density, ir;
   95:   struct mtop top;
   96:   struct mtget stat;
   97:   char   command[40], da00[5], lockfile[MAXAPATH+7], tape[7],
   98:          xlated[MAXAPATH], densities[4];
   99:   struct flock lock;
  100:                                        /* Gleaned from mt.c in the */
  101:                                        /* mt-st-0.4 distribution.  */
  102:   struct {
  103:      int code;
  104:      char *name;
  105:   } density_tbl[] = {
  106:                                        /* Not a comprehensive list; */
  107:                                        /* only types AIPS knows it */
  108:                                        /* can use.  Needs more info.*/
  109:      {0x13, "DDS"},
  110:      {0x14, "EXB-8200"},
  111:      {0x15, "EXB-8500"},
  112:      {0x24, "DDS-2"},
  113:      {140, "EXB-8505 compressed"},
  114:      {144, "EXB-8205 compressed"},
  115:      {-1, NULL}
  116:   };
  117:   static int blocksize_detected[MAXEHEX];
  118:/*--------------------------------------------------------------------*/
  119:   *ierr = 0;
  120:   *syserr = 0;
  121:   errno = 0;
  122:   sprintf (msg, "   ");
  123:   sprintf (tape, "TAPE%x", *idrive);
  124:   densities[0] = 'l';
  125:   densities[1] = 'm';
  126:   densities[2] = 'h';
  127:   densities[3] = 'h';
  128:                                        /* Form the lock file name    */
  129:   llen = 5;
  130:   xlen = MAXAPATH;
  131:   sprintf (da00, "DA00");
  132:   ztrlo2_ (&llen, da00, &xlen, xlated, &xlnb, &jerr);
  133:   if (jerr != 0) {
  134:      sprintf (msg, "ZMOUN2: Couldn't translate logical %s", da00);
  135:      *ierr = 1;
  136:      goto exit;
  137:      }
  138:   xlated[xlnb] = '\0';
  139:   sprintf (lockfile, "%s/%s.lock", xlated, tape);
  140:                                        /* Translate logical TAPEn    */
  141:   sprintf (tape, "AMT0%x", *idrive);
  142:   llen = 5;
  143:   xlen = MAXAPATH;
  144:   ztrlo2_ (&llen, tape, &xlen, xlated, &xlnb, &jerr);
  145:   if (jerr != 0) {
  146:      sprintf (msg, "ZMOUN2: Couldn't translate logical %s", tape);
  147:      *ierr = 1;
  148:      goto exit;
  149:      }
  150:   xlated[xlnb] = '\0';
  151:                                        /* MOUNT                      */
  152:   if (*mount == 1) {
  153:                                        /* Create/open the lock file  */
  154:      if ((fd = open (lockfile, O_RDWR | O_CREAT, 0666)) == -1) {
  155:         sprintf (msg, "ZMOUN2: Couldn't open lock file %s", lockfile);
  156:         *syserr = errno;
  157:         *ierr = 1;
  158:         goto exit;
  159:         }
  160:#if MT_Debug
  161:      fprintf (stderr, "ZMOUN2: opened lock file %s\n", lockfile);
  162:#endif
  163:                                        /* Try to put a lock on it    */
  164:                                        /* Apply non-blocking lock.   */
  165:      lock.l_whence = SEEK_SET;
  166:      lock.l_start = 0;
  167:      lock.l_len = 0;
  168:                                        /* Exclusive lock.            */
  169:      lock.l_type = F_WRLCK;
  170:      if ((ir = fcntl (fd, F_SETLK, &lock)) == -1) {
  171:         if ((errno == EACCES) || (errno == EAGAIN)) {
  172:            sprintf (msg,
  173:               "(POSIX lock) Tape %d is currently in use.", *idrive);
  174:            *ierr = 4;
  175:            }
  176:         else {
  177:                                        /* Some other error           */
  178:            sprintf (msg, "ZMOUN2: POSIX lockfile error %d", errno);
  179:            *ierr = 1;
  180:            *syserr = errno;
  181:            }
  182:         goto cleanup;
  183:         }
  184:#if MT_Debug
  185:      else {
  186:         fprintf (stderr,
  187:                  "ZMOUN2: POSIX fcntl return = %d errno = %d\n",
  188:                  ir, errno);
  189:         }
  190:#endif
  191:                                        /* open root device name      */
  192:      if ((strncmp(xlated, "on-line", 7) == 0) ||
  193:         (strncmp(xlated, "ON-LINE", 7)) == 0) {
  194:         sprintf (msg, "Mounted on-line tape device");
  195:         }
  196:      else {
  197:         tfd = open (xlated, O_RDONLY | O_NONBLOCK) ;
  198:         if (tfd == -1) {
  199:                                        /* Device doesn't exist.      */
  200:            if (errno == ENOENT)
  201:               *ierr = 2;
  202:                                        /* Some other open error.     */
  203:            else
  204:               *ierr = 6;
  205:            *syserr = errno;
  206:            sprintf (msg, "ZMOUN2: Couldn't open tape device %s",
  207:               xlated);
  208:            goto cleanup;
  209:            }
  210:                                        /* Need to perform a no-op on */
  211:                                        /* device in order to get its */
  212:                                        /* status.  Close if error! */
  213:         top.mt_count = 1;
  214:         top.mt_op = MTNOP;
  215:         if (ioctl(tfd,MTIOCTOP,&top) != 0) {
  216:            *ierr = 3;
  217:            sprintf(msg,
  218:               "ZMOUN2: error performing null op on tape drive");
  219:	    close(tfd);
  220:            goto cleanup;
  221:            }
  222:         if (ioctl(tfd,MTIOCGET,&stat) != 0) {
  223:            *ierr = 3;
  224:            sprintf(msg, "ZMOUN2: error getting drive status");
  225:	    close(tfd);
  226:            goto cleanup;
  227:            }
  228:                                        /* AIPS density code */
  229:         density = 0;
  230:         if (*idens == 800) density = 1;
  231:         if (*idens == 1600) density = 2;
  232:         if (*idens == 6250) density = 3;
  233:         if (*idens == 22500) density = 4;
  234:                                        /* Only allow density changes */
  235:                                        /* for appropriate devices */
  236:         switch (stat.mt_type) {
  237:            case MT_ISDDS1 :
  238:               density = 0;
  239:               sprintf (msg, "Mounted on standard DAT tape");
  240:               break;
  241:            case MT_ISDDS2 :
  242:               density = 0;
  243:               sprintf (msg,
  244:                        "Mounted on PARTITIONED DAT tape?  Good Luck!");
  245:               break;
  246:            case MT_ISSCSI1 :
  247:               density = 0;
  248:               sprintf (msg, "Mounted on ANSI SCSI 1 tape");
  249:               break;
  250:            case MT_ISSCSI2 :
  251:               density = 0;
  252:               sprintf (msg, "Mounted on ANSI SCSI 2 tape");
  253:               break;
  254:            default :
  255:               density = 0;
  256:               sprintf (msg, "Mounted SCSI tape device type %x, a ????",
  257:                  stat.mt_type);
  258:               break;
  259:            }
  260:                                        /* If it's a SCSI 1 or SCSI 2 */
  261:                                        /* tape drive, let's find out */
  262:                                        /* and display more info. */
  263:                                        /* Also, save current block */
  264:                                        /* size, set it to zero for */
  265:                                        /* the session, and restore */
  266:                                        /* the old value on dismount. */
  267:                                        /* This routine was also */
  268:                                        /* inspired by Linux's */
  269:                                        /* mt-st-0.4 distribution. */
  270:         if (stat.mt_type == MT_ISSCSI1 || stat.mt_type == MT_ISSCSI2) {
  271:            int density_detected =
  272:              (stat.mt_dsreg & MT_ST_DENSITY_MASK) >>
  273:               MT_ST_DENSITY_SHIFT;
  274:            if (blocksize_detected[*idrive] =
  275:                ((stat.mt_dsreg & MT_ST_BLKSIZE_MASK) >>
  276:                 MT_ST_BLKSIZE_SHIFT)) {
  277:#if MT_Debug
  278:               fprintf (stderr,
  279:                        "ZMOUN2: Tape blksiz detected: %d, drive %d\n",
  280:                        blocksize_detected[*idrive], *idrive);
  281:#endif
  282:               top.mt_op = MTSETBLK;
  283:               top.mt_count = 0;
  284:               if (ioctl (tfd, MTIOCTOP, &top) != 0) {
  285:                  *ierr = 3;
  286:                  sprintf (msg,
  287:                           "ZMOUN2: error setting tape blksiz to 0");
  288:		  close(tfd);
  289:                  goto cleanup;
  290:               }
  291:            }
  292:            if (density_detected) {
  293:               int density_counter = 0;
  294:               for (density_counter;
  295:                    density_tbl[density_counter].code >= 0;
  296:                    density_counter++) {
  297:                  if (density_tbl[density_counter].code ==
  298:                      density_detected) {
  299:                     /* Watch buffer length! */
  300:                     strcat (msg, " (");
  301:                     strcat (msg, density_tbl[density_counter].name);
  302:                     strcat (msg, ")");
  303:                     break;
  304:                  }
  305:               }
  306:            }
  307:         }
  308:         close (tfd);
  309:                                        /* reset logical              */
  310:         if (density) {
  311:            xlated[xlnb-1] = densities[density-1];
  312:            zcrlog_(&llen, tape, &xlnb, xlated, &jerr);
  313:            if (jerr != 0) {
  314:               sprintf (msg,
  315:                  "ZMOUN2: Couldn't create logical %s", xlated);
  316:               *ierr = 1;
  317:               goto cleanup;
  318:               }
  319:            }
  320:         }
  321:      }
  322:                                        /* DISMOUNT                   */
  323:   else {
  324:                                        /* Take the Exabyte offline */
  325:      if ((strncmp(xlated, "on-line", 7) != 0) &&
  326:         (strncmp(xlated, "ON-LINE", 7)) != 0) {
  327:         tfd = open (xlated, O_RDONLY | O_NONBLOCK) ;
  328:         if (tfd == -1) {
  329:                                        /* Device doesn't exist.      */
  330:            if (errno == ENOENT)
  331:               *ierr = 2;
  332:                                        /* Some other open error.     */
  333:            else
  334:               *ierr = 6;
  335:            *syserr = errno;
  336:            sprintf (msg, "ZMOUN2: Couldn't open tape device %s",
  337:               xlated);
  338:            goto cleanup;
  339:            }
  340:                                        /* Now set the tape blocksize */
  341:                                        /* back the way we found it   */
  342:         if (blocksize_detected[*idrive]) {
  343:#if MT_Debug
  344:            fprintf (stderr, "ZMOUN2: %s %d, drive %d.\n",
  345:                     "Resetting tape block size back to",
  346:                     blocksize_detected[*idrive], *idrive);
  347:#endif
  348:            top.mt_op = MTSETBLK;
  349:            top.mt_count = blocksize_detected[*idrive];
  350:                                        /* Failure is non-fatal, but */
  351:                                        /* warn if debugging. */
  352:#if MT_Debug
  353:            if (ioctl (tfd, MTIOCTOP, &top) != 0) {
  354:               fprintf (stderr, "ZMOUN2: %s %d, drive %d!\n",
  355:                        "warning resetting block size back to",
  356:                        blocksize_detected[*idrive], *idrive);
  357:            }
  358:#else
  359:            ioctl (tfd, MTIOCTOP, &top);
  360:#endif
  361:         }
  362:         top.mt_count = 1;
  363:#if MT_Debug
  364:                                        /* Don't eject the tape when */
  365:                                        /* debugging--it's annoying! */
  366:         top.mt_op = MTREW;
  367:         fprintf (stderr, "ZMOUN2: debug, won't spit the tape out!\n");
  368:#else
  369:         top.mt_op = MTOFFL;
  370:#endif
  371:         if (ioctl(tfd,MTIOCTOP,&top) != 0) {
  372:            *ierr = 3;
  373:            sprintf(msg,
  374:                    "ZMOUN2: error rewinding/unloading tape drive");
  375:            }
  376:         close (tfd) ;
  377:         }
  378:cleanup:
  379:                                        /* Release the lock file      */
  380:      unlink (lockfile);
  381:      close (fd);
  382:      }
  384:exit:
  385:   return;
  386:}
  388:/*
  389: * Local Variables:
  390: * c-basic-offset: 3
  391: * comment-column: 40
  392: * indent-tabs-mode: nil
  393: * End:
  394: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZMOUN2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:58 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZPATH.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZPATH.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZPATH.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
AIPSCC    : Date       Fri Jul 18 17:25:58 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c:3:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c: In function `zpath_':
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c:62: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c:62: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c:62: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_path__
    2:#include <stdio.h>
    3:#include <AIPSPROTO.H>
    5:#if __STDC__
    6:   void zpath_(int *llen, char *logfil, int *flen, char *fulnam,
    7:      int *fact, int *ierr)
    8:#else
    9:   void zpath_(llen, logfil, flen, fulnam, fact, ierr)
   10:   int *llen, *flen, *fact, *ierr;
   11:   char logfil[], fulnam[];
   12:#endif
   13:/*--------------------------------------------------------------------*/
   14:/*! convert a file name 'Logical:file' to full path name              */
   15:/*# IO-basic                                                          */
   16:/*--------------------------------------------------------------------*/
   17:/*;  Copyright (C) 1995, 1997, 2000, 2002                             */
   18:/*;  Associated Universities, Inc. Washington DC, USA.                */
   19:/*;                                                                   */
   20:/*;  This program is free software; you can redistribute it and/or    */
   21:/*;  modify it under the terms of the GNU General Public License as   */
   22:/*;  published by the Free Software Foundation; either version 2 of   */
   23:/*;  the License, or (at your option) any later version.              */
   24:/*;                                                                   */
   25:/*;  This program is distributed in the hope that it will be useful,  */
   26:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   27:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   28:/*;  GNU General Public License for more details.                     */
   29:/*;                                                                   */
   30:/*;  You should have received a copy of the GNU General Public        */
   31:/*;  License along with this program; if not, write to the Free       */
   32:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   33:/*;  MA 02139, USA.                                                   */
   34:/*;                                                                   */
   35:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   36:/*;         Internet email: aipsmail at nrao.edu.                        */
   37:/*;         Postal address: AIPS Project Office                       */
   38:/*;                         National Radio Astronomy Observatory      */
   39:/*;                         520 Edgemont Road                         */
   40:/*;                         Charlottesville, VA 22903-2475 USA        */
   41:/*--------------------------------------------------------------------*/
   42:/*  Translate a file specifcation of the form "logical:file" to a     */
   43:/*  full path name.  "/..." absolute path name is also allowed.       */
   44:/*  Inputs:                                                           */
   45:/*     llen     I          Length of "logfil" (1-relative)            */
   46:/*     logfil   C*(*)      File specification (may contain a valid,   */
   47:/*                         colon terminated logicalvariable)          */
   48:/*     flen     I          Length of "fulnam" (1-relative)            */
   49:/*  Output:                                                           */
   50:/*     fulnam   C*(flen)   Full path name (blank filled)              */
   51:/*     fact     I          Position of last non-blank in "fulnam"     */
   52:/*                         (1-relative)                               */
   53:/*     ierr     I          Error return code: 0 => no error           */
   54:/*                             1 => improper combination of inputs    */
   55:/*                             2 => no translation for "logical"      */
   56:/*                             3 => "fulnam" too short                */
   57:/*                             4 => logical name required             */
   58:/*  Generic UNIX version  - "logical" => environment variable is      */
   59:/*  required by UNIX (IERR = 4 otherwise).                            */
   60:/*--------------------------------------------------------------------*/
   61:{
   62:   char envvar[MAXAPATH+1], xlated[MAXAPATH+1], filename[MAXAPATH+1],
   63:      pathname[MAXAPATH+1];
   64:   int elen, xlen, xlnb, jerr;
   65:   register int i, j;
   66:/*--------------------------------------------------------------------*/
   67:   *ierr = 0;
   68:                                        /* Extract logical.           */
   69:   for (i = 0; logfil[i] != ':' && i < *llen && i < MAXAPATH; i++)
   70:      envvar[i] = logfil[i];
   71:   envvar[i] = '\0';
   72:   if (logfil[i] != ':') {
   73:      elen = 0;
   74:      i = -1;
   75:      }
   76:   else
   77:      elen = i;
   78:                                        /* Extract filename.          */
   79:   j = 0;
   80:   for (i = i+1; i < *llen && logfil[i] != ' '; i++) {
   81:      filename[j] = logfil[i];
   82:      j++;
   83:      }
   84:   filename[j] = '\0';
   85:                                        /* Check for no file name     */
   86:   if (j == 0)
   87:     *ierr = 4;
   88:                                        /* no logical                 */
   89:   else if (elen == 0) {
   90:                                        /* Copy full path name to     */
   91:                                        /* "fulnam".                  */
   92:      for (i = 0; i < *flen && filename[i] != '\0'; i++)
   93:         fulnam[i] = filename[i];
   94:                                        /* Record actual full file    */
   95:                                        /* name length in characters  */
   96:                                        /* (1-relative).              */
   97:      *fact = i;
   98:                                        /* Fill remainder of "fulnam" */
   99:                                        /* with blanks.               */
  100:      for (i = i; i < *flen; i++)
  101:         fulnam[i] = ' ';
  102:      }
  103:                                        /* Translate logical and null */
  104:                                        /* terminate.                 */
  105:   else {
  106:      xlen = MAXAPATH + 1;
  107:      ztrlo2_ (&elen, envvar, &xlen, xlated, &xlnb, &jerr);
  108:      if (jerr != 0) {
  109:         *ierr = 2;
  110:         }
  111:      else {
  112:         xlated[xlnb] = '\0';
  113:                                        /* Build full path name.      */
  114:         sprintf (pathname, "%s/%s", xlated, filename);
  115:                                        /* Copy full path name to     */
  116:                                        /* "fulnam".                  */
  117:         for (i = 0; i < *flen && pathname[i] != '\0'; i++)
  118:            fulnam[i] = pathname[i];
  119:                                        /* Record actual full file    */
  120:                                        /* name length in characters  */
  121:                                        /* (1-relative).              */
  122:         *fact = i;
  123:                                        /* Fill remainder of "fulnam" */
  124:                                        /* with blanks.               */
  125:         for (i = i; i < *flen; i++)
  126:            fulnam[i] = ' ';
  127:         }
  128:      }
  130:   return;
  131:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZPATH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:58 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZPRMPT.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZPRMPT.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZPRMPT.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
AIPSCC    : Date       Fri Jul 18 17:25:59 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c:7:31: NOTST/GNU/history.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c:10:32: NOTST/GNU/readline.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c:11:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c: In function `zprmpt_':
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c:133: warning: assignment makes pointer from integer without a cast
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_prmpt__
    2:#include <errno.h>
    3:#include <signal.h>
    4:#include <stdio.h>
    5:#include <stdlib.h>
    6:#include <unistd.h>
    7:#include <NOTST/GNU/history.h>
    9:#define HAVE_STRING_H                   /* Needed inside readline.h   */
   10:#include <NOTST/GNU/readline.h>
   11:#include <AIPSPROTO.H>
   13:                                        /* Local signal-handler.      */
   14:#if __STDC__
   15:   static void zprmpt_sigs(int sig)
   16:#else
   17:   static void zprmpt_sigs(sig)
   18:   int sig;
   19:#endif
   20:{
   21:   extern int _rl_meta_flag;
   22:   extern int kill ();                  /* Arg...some OS's...really!  */
   23:   extern void rl_prep_terminal ();
   25:   kill (getpid (), SIGTSTP);
   26:   rl_prep_terminal (_rl_meta_flag);
   27:}
   29:#if __STDC__
   30:   void zprmpt_(char ipc[1], char buff[80], int *ierr)
   31:#else
   32:   void zprmpt_(ipc, buff, ierr)
   33:   char ipc[1], buff[80];
   34:   int *ierr;
   35:#endif
   36:/*--------------------------------------------------------------------*/
   37:/*! prompt user and read 80 characters from CRT screen                */
   38:/*# Terminal                                                          */
   39:/*--------------------------------------------------------------------*/
   40:/*;  Copyright (C) 1995-1997, 2003                                    */
   41:/*;  Associated Universities, Inc. Washington DC, USA.                */
   42:/*;                                                                   */
   43:/*;  This program is free software; you can redistribute it and/or    */
   44:/*;  modify it under the terms of the GNU General Public License as   */
   45:/*;  published by the Free Software Foundation; either version 2 of   */
   46:/*;  the License, or (at your option) any later version.              */
   47:/*;                                                                   */
   48:/*;  This program is distributed in the hope that it will be useful,  */
   49:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   50:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   51:/*;  GNU General Public License for more details.                     */
   52:/*;                                                                   */
   53:/*;  You should have received a copy of the GNU General Public        */
   54:/*;  License along with this program; if not, write to the Free       */
   55:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   56:/*;  MA 02139, USA.                                                   */
   57:/*;                                                                   */
   58:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   59:/*;         Internet email: aipsmail at nrao.edu.                        */
   60:/*;         Postal address: AIPS Project Office                       */
   61:/*;                         National Radio Astronomy Observatory      */
   62:/*;                         520 Edgemont Road                         */
   63:/*;                         Charlottesville, VA 22903-2475 USA        */
   64:/*--------------------------------------------------------------------*/
   65:/* ZPRMPT prompts user on CRT screen and reads a line of user input   */
   66:/* via the GNU readline (+history) library.  The input line is placed */
   67:/* in a buffer and either truncated to 80 characters or space-padded  */
   68:/* to 80 characters prior to return.  Non-empty lines are added to a  */
   69:/* history list for possible later access/reuse via the               */
   70:/* history-manipulation key-bindings (a la Bash/Ksh/Emacs--or even    */
   71:/* vi).  If the user is not on an interactive tty, say by giving AIPS */
   72:/* input via a shell-script "here document," then the old             */
   73:/* (non-readline) behavior is used and the input line is not added to */
   74:/* the history.  Use of the readline library can be disabled by       */
   75:/* starting AIPS with the "norl" option.                              */
   76:/*                                                                    */
   77:/* Input:                                                             */
   78:/*    IPC    C*1    prompt character                                  */
   79:/* Output:                                                            */
   80:/*    BUFF   C*80   line of user input.                               */
   81:/*    IERR   I      Error return code: 0 => ok                        */
   82:/*                     1 => read/write error (not implemented/set)    */
   83:/*                                                                    */
   84:/* UNIX GNU-readline version (with terminal-reset signal-handler).    */
   85:/*                                                                    */
   86:/* JAU 26 Jul 95: Jeff Uphoff, NRAO.  Added GNU readline support.     */
   87:/* JAU 29 Aug 95: Jeff Uphoff, NRAO.  Overhaul of several portions.   */
   88:/* JAU 22 Sep 95: Jeff Uphoff, NRAO.  Added check for userno prompt.  */
   89:/* JAU 25 Jun 97: Jeff Uphoff, NRAO.  Fix prompt bug.                 */
   90:/*--------------------------------------------------------------------*/
   91:{
   92:   char *rlenv = NULL;
   93:   char *temp = NULL;
   94:   register int i, ttyp;
   95:/*--------------------------------------------------------------------*/
   96:   *ierr = 0;
   98:   buff[0] = '\0';                      /* Initialize buffer.         */
  100:                                        /* Check if readline disabled */
  101:   if (!(ttyp = isatty (0)) ||          /* or if not interactive tty. */
  102:         (((rlenv = getenv ("READLINE")) != NULL) &&
  103:         !strcmp (rlenv, "NO"))) {
  105:      char pc = ipc[0];                 /* OK, fall back to old       */
  106:                                        /* prompting and input-       */
  107:                                        /* handling behavior.         */
  108:      if(!(temp = (char *)malloc (81))) {
  109:         perror ("ZPRMPT: malloc failed");
  110:         exit (errno);                  /* This is *very* bad!        */
  111:      }
  112:      putchar (pc);                     /* Display prompt.            */
  114:                                        /* Use old input method.      */
  115:      if (fgets (temp, 81, stdin) == NULL) {
  116:         free (temp);
  117:         temp = NULL;
  118:      }
  119:      ttyp = 0;                         /* We'll fake this for later. */
  121:   } else {                             /* Use GNU readline for input */
  122:      char prompt[2];
  124:      if (ipc[0] == '?')                /* Check if userno. prompt.   */
  125:         rl_bind_key ('\t', NULL);      /* If so, disable TAB's.      */
  127:      zignal_ (SIGTTIN, zprmpt_sigs);   /* All of these signal-       */
  128:      zignal_ (SIGTTOU, zprmpt_sigs);   /* handling shenanigans are   */
  129:                                        /* due to general insanity.   */
  131:      prompt[0] = ipc[0];               /* Ensure prompt sanity.      */
  132:      prompt[1] = '\0';
  133:      temp = readline (prompt);         /* Use readline to prompt     */
  134:                                        /* user and return pointer    */
  135:                                        /* to line of user input.     */
  136:                                        /* readline() does the        */
  137:                                        /* malloc() for us, but we    */
  138:                                        /* must free() the pointer.   */
  140:      zignal_ (SIGTTIN, SIG_DFL);       /* More fun with signals.     */
  141:      zignal_ (SIGTTOU, SIG_DFL);
  142:   }
  144:   if (temp == NULL)                    /* NULL pointer means EOF at  */
  145:      sprintf (buff, "EXIT");           /* *beginning* of user input. */
  147:   else {                               /* Non-NULL means good input. */
  149:      if (*temp && ttyp)                /* If not blank (and          */
  150:         add_history (temp);            /* interactive), put in hist. */
  151:                                        /* unless readline disabled   */
  152:                                        /* (the reason for "faking"   */
  153:                                        /* ttyp = 0 earlier).         */
  155:                                        /* readline() strips the new- */
  156:                                        /* line for us.  We need to   */
  157:                                        /* find the first null and    */
  158:                                        /* then pad the output buffer */
  159:                                        /* with trailing spaces.      */
  160:                                        /* The 80-column limit is     */
  161:                                        /* historical...              */
  162:      for (i = 0; i < 80 && temp[i] != '\0'; i++)
  163:         buff[i] = temp[i];             /* Copy up to first null.     */
  164:      for (i = i; i < 80; i++)
  165:         buff[i] = ' ';                 /* Pad remainder with spaces. */
  166:      if (temp)
  167:         free (temp);                   /* Free the readline pointer. */
  168:   }
  169:   return;
  170:}
  172:/*
  173: * Local Variables:
  174: * c-basic-offset: 3
  175: * comment-column: 40
  176: * indent-tabs-mode: nil
  177: * End:
  178: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZPRMPT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:25:59 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRDMF.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZRDMF.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRDMF.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
AIPSCC    : Date       Fri Jul 18 17:25:59 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
/usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c:3:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_rdmf__
    2:#include <stdio.h>
    3:#include <AIPSPROTO.H>
    5:#if __STDC__
    6:   void zrdmf_(int *nwords, unsigned char *inbuf, int *outbuf, int *flag)
    7:#else
    8:   void zrdmf_(nwords, inbuf, outbuf, flag)
    9:   int *nwords, *outbuf, *flag;
   10:   unsigned char *inbuf;
   11:#endif
   12:/*--------------------------------------------------------------------*/
   13:/*! convert DEC (36 bits in 40) magtape format to 2 local integers    */
   14:/*# Binary                                                            */
   15:/*--------------------------------------------------------------------*/
   16:/*;  Copyright (C) 1995, 1997                                         */
   17:/*;  Associated Universities, Inc. Washington DC, USA.                */
   18:/*;                                                                   */
   19:/*;  This program is free software; you can redistribute it and/or    */
   20:/*;  modify it under the terms of the GNU General Public License as   */
   21:/*;  published by the Free Software Foundation; either version 2 of   */
   22:/*;  the License, or (at your option) any later version.              */
   23:/*;                                                                   */
   24:/*;  This program is distributed in the hope that it will be useful,  */
   25:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   26:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   27:/*;  GNU General Public License for more details.                     */
   28:/*;                                                                   */
   29:/*;  You should have received a copy of the GNU General Public        */
   30:/*;  License along with this program; if not, write to the Free       */
   31:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   32:/*;  MA 02139, USA.                                                   */
   33:/*;                                                                   */
   34:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   35:/*;         Internet email: aipsmail at nrao.edu.                        */
   36:/*;         Postal address: AIPS Project Office                       */
   37:/*;                         National Radio Astronomy Observatory      */
   38:/*;                         520 Edgemont Road                         */
   39:/*;                         Charlottesville, VA 22903-2475 USA        */
   40:/*--------------------------------------------------------------------*/
   41:/*  Convert data packed in DEC-Magtape format (DMF) to 2 local        */
   42:/*  32-bit integers                                                   */
   43:/*                                                                    */
   44:/*  The DMF format is:                                                */
   45:/*                                                                    */
   46:/*     Track    1    2    3    4    5    6    7    8                  */
   47:/*     Byte                                                           */
   48:/*       1      F0   F1   F2   F3   F4   F5   F6   F7                 */
   49:/*       2      F8   F9  F10  F11  F12  F13  F14  F15                 */
   50:/*       3      F16  F17  R0   R1   R2   R3   R4   R5                 */
   51:/*       4      R6   R7   R8   R9  R10  R11  R12  R13                 */
   52:/*       5       0    0    0    0  R14  R15  R16  R17                 */
   53:/*                                                                    */
   54:/*  where Rn refers to the right halfword, Fn to the left halfword.   */
   55:/*                                                                    */
   56:/*  Since the purpose of this routine is to read Modcomp tapes        */
   57:/*  written with this peculiar format, F16, F17, R16 and R17 (the     */
   58:/*  high order bits) are zero for VLA data, but are used for the      */
   59:/*  word count.                                                       */
   60:/*                                                                    */
   61:/*  The first word (5 bytes) of a tape block contains the word count  */
   62:/*  of the block.  The word count is a 16-bit twos-complement integer */
   63:/*  comprised of bits R2-R17.  All other words are treated as pairs   */
   64:/*  of 16-bit, twos-complement integers comprising bits F0-F15 and    */
   65:/*  R0-R15.                                                           */
   66:/*                                                                    */
   67:/*  Input data is assumed to be packed into 1 1/4 integers and output */
   68:/*  data will be returned in a pair of local integers per DEC-10      */
   69:/*  word.  The first integer of each pair corresponds to the left     */
   70:/*  DEC-10 halfword (zero for the word count) and the second to the   */
   71:/*  right halfword.  The sign of each half-word is preserved on       */
   72:/*  expansion to a local integer.                                     */
   73:/*                                                                    */
   74:/*  Inputs:                                                           */
   75:/*     nwords   I      Length of the input buffer in DEC-10 words     */
   76:/*     inbuf    I(*)   Input buffer containing DMF format data        */
   77:/*     flag     I      If > 0, the first word word is the beginning of*/
   78:/*                     a tape block                                   */
   79:/*  Output:                                                           */
   80:/*     outbuf   I(*)   Output buffer containing two local integers per*/
   81:/*                     input DEC-10 word                              */
   82:/*  Generic UNIX version - only for 32-bit twos-complement local      */
   83:/*  integers; have to live with this since the tape contains mixed    */
   84:/*  binary data).                                                     */
   85:/*--------------------------------------------------------------------*/
   86:{
   87:                                        /* # of bits per word         */
   88:   extern int Z_nbitwd;
   89:   int loop, n, *pout, n8 = 8;
   90:   unsigned char *pin;
   91:   char msgbuf[80];
   92:   union u_tag {
   93:      unsigned char bword[4];
   94:      int lword;
   95:   } what;
   96:/*--------------------------------------------------------------------*/
   97:                                        /* This version only good for */
   98:                                        /* 32-bit local integers.     */
   99:   if (Z_nbitwd != 32) {
  100:      sprintf (msgbuf,
  101:         "ZRDMF: THIS VERSION ONLY GOOD FOR 32-BIT LOCAL INTEGERS");
  102:      zmsgwr_ (msgbuf, &n8);
  103:      }
  104:   else {
  105:                                        /* Initialize loop counter    */
  106:                                        /* pointers.                  */
  107:      n = *nwords;
  108:      pin = inbuf;
  109:      pout = outbuf;
  110:                                        /* Special treatment for      */
  111:                                        /* first word in tape block   */
  112:      if (*flag > 0) {
  113:	                                /* First half                 */
  114:	 pin +=2;
  115:	 *pout++ = 0;
  116:	                                /* Second half                */
  117:	 what.bword[2] = *pin++ << 4;
  118:	 what.bword[2] |= *pin >> 4;
  119:	 what.bword[3] = *pin++ << 4;
  120:	 what.bword[3] |= *pin++;
  121:	                                /* Sign extension             */
  122:	 if (what.bword[2] & 0x80)
  123:	    what.bword[0] = what.bword[1] = 0xff;
  124:	 else
  125:	    what.bword[0] = what.bword[1] = 0x00;
  126:	 *pout++ = what.lword;
  127:	 n--;
  128:         }
  129:                                        /* Loop over values.          */
  130:      for (loop = 0; loop < n; loop++) {
  131:                                        /* First half.                */
  132:         what.bword[2] = *pin++;
  133:         what.bword[3] = *pin++;
  134:                                        /* Sign extension             */
  135:	 if (what.bword[2] & 0x80)
  136:	    what.bword[0] = what.bword[1] = 0xff;
  137:	 else
  138:	    what.bword[0] = what.bword[1] = 0x00;
  139:         *pout++ = what.lword;
  140:                                        /* Second half.               */
  141:         what.bword[2] = *pin++ << 2;
  142:	 what.bword[2] |= *pin >> 6;
  143:         what.bword[3] = *pin++ << 2;
  144:	 what.bword[3] |= *pin++ >> 2;
  145:         if (what.bword[2] & 0x80)
  146:	    what.bword[0] = what.bword[1] = 0xff;
  147:	 else
  148:	    what.bword[0] = what.bword[1] = 0x00;
  149:         *pout++ = what.lword;
  150:         }
  151:      }
  152:                                        /* Exit.                      */
  153:   return;
  154:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZRDMF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:26:00 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRENA2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZRENA2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRENA2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
AIPSCC    : Date       Fri Jul 18 17:26:00 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:6:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:9: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:9: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c: In function `zrena2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:62: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:62: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:62: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:67: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_rena2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <fcntl.h>
    5:#include <errno.h>
    6:#include <AIPSPROTO.H>
    8:#if __STDC__
    9:   void zrena2_(char oldnam[MAXPNAME], char newnam[MAXPNAME],
   10:      int *syserr, int *ierr)
   11:#else
   12:   void zrena2_(oldnam, newnam, syserr, ierr)
   13:   char oldnam[MAXPNAME], newnam[MAXPNAME];
   14:   int *syserr, *ierr;
   15:#endif
   16:/*--------------------------------------------------------------------*/
   17:/*! rename a file                                                     */
   18:/*# IO-basic                                                          */
   19:/*--------------------------------------------------------------------*/
   20:/*;  Copyright (C) 1995, 1997                                         */
   21:/*;  Associated Universities, Inc. Washington DC, USA.                */
   22:/*;                                                                   */
   23:/*;  This program is free software; you can redistribute it and/or    */
   24:/*;  modify it under the terms of the GNU General Public License as   */
   25:/*;  published by the Free Software Foundation; either version 2 of   */
   26:/*;  the License, or (at your option) any later version.              */
   27:/*;                                                                   */
   28:/*;  This program is distributed in the hope that it will be useful,  */
   29:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   30:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   31:/*;  GNU General Public License for more details.                     */
   32:/*;                                                                   */
   33:/*;  You should have received a copy of the GNU General Public        */
   34:/*;  License along with this program; if not, write to the Free       */
   35:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   36:/*;  MA 02139, USA.                                                   */
   37:/*;                                                                   */
   38:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   39:/*;         Internet email: aipsmail at nrao.edu.                        */
   40:/*;         Postal address: AIPS Project Office                       */
   41:/*;                         National Radio Astronomy Observatory      */
   42:/*;                         520 Edgemont Road                         */
   43:/*;                         Charlottesville, VA 22903-2475 USA        */
   44:/*--------------------------------------------------------------------*/
   45:/*  Renames a file.                                                   */
   46:/*  Inputs:                                                           */
   47:/*     oldnam   C*48   Old physical file name                         */
   48:/*     newnam   C*48   New physical file name                         */
   49:/*  Output:                                                           */
   50:/*     syserr   I      System error code                              */
   51:/*     ierr     I      Error return code: 0 => no error               */
   52:/*                        2 => old file not found                     */
   53:/*                        3 => device not found                       */
   54:/*                        4 => old file busy                          */
   55:/*                        6 => new name already exists                */
   56:/*                        7 => other                                  */
   57:/*  Generic UNIX version.                                             */
   58:/*--------------------------------------------------------------------*/
   59:{
   60:   register int i, j;
   61:   int llen, xlen, xlnb, jerr, lockfd = -99, excl = 1;
   62:   char oldpathname[MAXAPATH], newpathname[MAXAPATH];
   63:/*--------------------------------------------------------------------*/
   64:   *ierr = 0;
   65:   *syserr = 0;
   66:                                        /* Build full old path name.  */
   67:   llen = MAXPNAME;
   68:   xlen = MAXAPATH;
   69:   zpath_ (&llen, oldnam, &xlen, oldpathname, &xlnb, &jerr);
   70:   if (jerr != 0) {
   71:      *ierr = 3;
   72:      }
   73:   else {
   74:      oldpathname[xlnb] = '\0';
   75:      if ((lockfd = open (oldpathname, 2)) == -1) {
   76:                                        /* Old path name doesn't exist*/
   77:         if (errno == ENOENT)
   78:            *ierr = 2;
   79:                                        /* Some other open error.     */
   80:         else {
   81:           *syserr = errno;
   82:            *ierr = 7;
   83:            }
   84:         }
   85:                                        /* Apply non-blocking         */
   86:                                        /* exclusive lock to old      */
   87:                                        /* pathname.                  */
   88:      else {
   89:         zlock_ (&lockfd, oldnam, &excl, syserr, ierr);
   90:         if (*ierr != 0) {
   91:            if (*ierr != 4) *ierr = 7;
   92:            }
   93:                                        /* Build new full path name   */
   94:         else {
   95:            llen = MAXPNAME;
   96:            xlen = MAXAPATH;
   97:            zpath_ (&llen, newnam, &xlen, newpathname, &xlnb, &jerr);
   98:            if (jerr != 0) {
   99:               *ierr = 3;
  100:               }
  101:            else {
  102:               newpathname[xlnb] = '\0';
  103:                                        /* Test path name existence.  */
  104:               if (access (newpathname, 0) == 0) {
  105:                  *ierr = 6;
  106:                  }
  107:                                        /* Rename by forming link of  */
  108:                                        /* new to old path name, then */
  109:                                        /* unlink old path name.      */
  110:               else {
  111:                  if (link (oldpathname, newpathname) != 0) {
  112:                    *syserr = errno;
  113:                     *ierr = 7;
  114:                     }
  115:                  else if (unlink (oldpathname) != 0) {
  116:                    *syserr = errno;
  117:                     *ierr = 7;
  118:                     }
  119:                  }
  120:               }
  121:            }
  122:                                        /* Close and unlock file.     */
  123:         close (lockfd);
  124:         }
  125:      }
  127:   return;
  128:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZRENA2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:26:01 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRM2RL.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZRM2RL.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRM2RL.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
AIPSCC    : Date       Fri Jul 18 17:26:01 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
/usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_rm2rl__
    2:#include <stdio.h>
    3:#include <stdlib.h>
    4:#include <AIPSPROTO.H>
    6:#if __STDC__
    7:   void zrm2rl_(int *nwords, float *inbuf, float *outbuf)
    8:#else
    9:   void zrm2rl_(nwords, inbuf, outbuf)
   10:   int *nwords;
   11:   float *inbuf, *outbuf;
   12:#endif
   13:/*--------------------------------------------------------------------*/
   14:/*! convert ModComp single precision floating to local                */
   15:/*# Binary                                                            */
   16:/*--------------------------------------------------------------------*/
   17:/*;  Copyright (C) 1995, 1997                                         */
   18:/*;  Associated Universities, Inc. Washington DC, USA.                */
   19:/*;                                                                   */
   20:/*;  This program is free software; you can redistribute it and/or    */
   21:/*;  modify it under the terms of the GNU General Public License as   */
   22:/*;  published by the Free Software Foundation; either version 2 of   */
   23:/*;  the License, or (at your option) any later version.              */
   24:/*;                                                                   */
   25:/*;  This program is distributed in the hope that it will be useful,  */
   26:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   27:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   28:/*;  GNU General Public License for more details.                     */
   29:/*;                                                                   */
   30:/*;  You should have received a copy of the GNU General Public        */
   31:/*;  License along with this program; if not, write to the Free       */
   32:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   33:/*;  MA 02139, USA.                                                   */
   34:/*;                                                                   */
   35:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   36:/*;         Internet email: aipsmail at nrao.edu.                        */
   37:/*;         Postal address: AIPS Project Office                       */
   38:/*;                         National Radio Astronomy Observatory      */
   39:/*;                         520 Edgemont Road                         */
   40:/*;                         Charlottesville, VA 22903-2475 USA        */
   41:/*--------------------------------------------------------------------*/
   42:/*  Convert Modcomp single precision floating point data into local   */
   43:/*  single precision floating point.                                  */
   44:/*  Inputs:                                                           */
   45:/*     nwords   I   Length of the input buffer in words               */
   46:/*     inbuf    R   Input buffer containing Modcomp R*4 data          */
   47:/*  Output:                                                           */
   48:/*     outbuf   R   Output buffer containing local REAL data          */
   49:/*                                                                    */
   50:/*  Notes:                                                            */
   51:/*                                                                    */
   52:/*     Before call, input buffer should have its bytes flipped via    */
   53:/*     ZI32IL which will leave the values in one 32-bit integer       */
   54:/*                                                                    */
   55:/*     Expects, after word flip, sign bit in bit 31 (1=>negative),    */
   56:/*     bits 22:30 are the  exponent biased by 256(?), bits 0:21 are   */
   57:/*     the normalized fraction.  Negative values are obtained by 2's  */
   58:/*     complement of the whole word.                                  */
   59:/*                                                                    */
   60:/*     Should work inplace.                                           */
   61:/*                                                                    */
   62:/*  Generic UNIX version (currently only handles IEEE and VAX F       */
   63:/*  floating-point formats).                                          */
   64:/*--------------------------------------------------------------------*/
   65:{
   66:                                        /* Host single precision      */
   67:                                        /* floating-point format      */
   68:   extern int Z_spfrmt, Z_bytflp;
   69:   float *pin, *pout;
   70:   int test, n10 = 10;
   71:   unsigned sign, exponent, mantissa, temp;
   72:   register int i;
   73:   short int sitemp;
   74:   char msgbuf[80];
   75:   union u_tag {
   76:      float r4;
   77:      unsigned u4;
   78:      short int u2[2];
   79:   } what;
   80:/*--------------------------------------------------------------------*/
   81:                                        /* routine works IEEE, VAX F  */
   82:   if (Z_spfrmt == 1 || Z_spfrmt == 2) {
   83:      pin = inbuf;
   84:      pout = outbuf;
   85:                                        /* Conversion loop.           */
   86:      for (i = 0; i < *nwords; i++) {
   87:                                        /* Get Modcomp value.         */
   88:         what.r4 = *pin++;
   89:                                        /* swap words if needed       */
   90:         if (Z_bytflp > 1) {
   91:            sitemp = what.u2[0];
   92:            what.u2[0] = what.u2[1];
   93:            what.u2[1] = sitemp;
   94:            }
   95:                                        /* Get as unsigned int.       */
   96:         temp = what.u4;
   97:                                        /* Mask out sign bit.         */
   98:         sign = 0x80000000 & temp;
   99:                                        /* If negative, 2's           */
  100:                                        /* complement the whole word. */
  101:         if (sign == 0x80000000) temp = (~temp) + 1;
  102:                                        /* Correct for exponent bias. */
  103:         switch (Z_spfrmt) {
  104:                                        /* IEEE (bias = -130?).       */
  105:            case 1:
  106:               test = ((0x7fc00000 & temp) >> 22) - 130;
  107:               break;
  108:                                        /* VAX F (bias = -128).       */
  109:            case 2:
  110:               test = ((0x7fc00000 & temp) >> 22) - 128;
  111:               break;
  112:            }
  114:         exponent = test << 23;
  115:         mantissa = (0x001fffff & temp) << 2;
  116:         what.u4 = sign | exponent | mantissa;
  117:                                        /* Overflow.                  */
  118:         if (test > 255)
  119:            what.u4 = ~0x0;
  120:                                        /* Underflow.                 */
  121:         else if (test < 1)
  122:            what.u4 = 0;
  123:                                        /* Store result.              */
  124:         *pout++ = what.r4;
  125:         }
  126:      }
  127:                                        /* This routine won't work.   */
  128:   else {
  129:      sprintf (msgbuf,
  130:         "ZRM2RL: THIS ROUTINE REQUIRES LOCAL DEVELOPMENT");
  131:      zmsgwr_ (msgbuf, &n10);
  132:      abort ();
  133:      }
  135:   return;
  136:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZRM2RL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:26:02 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSL2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSSSL2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSL2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
AIPSCC    : Date       Fri Jul 18 17:26:02 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c:16:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_sssl2__
    2:#include <unistd.h>
    3:#include <stdlib.h>
    4:#include <stdio.h>
    5:#include <string.h>
    7:#include <errno.h>
    8:#include <sys/types.h>
    9:#include <sys/socket.h>
   10:#include <sys/un.h>
   11:#include <netinet/in.h>
   12:#include <netdb.h>
   13:#include <sys/stat.h>
   14:#include <string.h>
   15:#include <ctype.h>
   16:#include <AIPSPROTO.H>
   18:int TVLremember=0;
   19:struct sockaddr_un TVL_sock_un;
   20:struct sockaddr_in TVL_sock_in;
   22:#if __STDC__
   23:   void zsssl2_ (int *fcb, char pname[48], int *lock, int *ierr)
   24:#else
   25:   void zsssl2_ (fcb, pname, lock, ierr)
   26:   int *fcb, *lock, *ierr;
   27:   char pname[48];
   28:#endif
   29:/*--------------------------------------------------------------------*/
   30:/*! Lock/unlock SUN-Screen-Server device                              */
   31:/*# TV-IO                                                             */
   32:/*--------------------------------------------------------------------*/
   33:/*;  Copyright (C) 1997, 1999                                         */
   34:/*;  Associated Universities, Inc. Washington DC, USA.                */
   35:/*;  Eric W. Greisen                                                  */
   36:/*;                                                                   */
   37:/*;  This program is free software; you can redistribute it and/or    */
   38:/*;  modify it under the terms of the GNU General Public License as   */
   39:/*;  published by the Free Software Foundation; either version 2 of   */
   40:/*;  the License, or (at your option) any later version.              */
   41:/*;                                                                   */
   42:/*;  This program is distributed in the hope that it will be useful,  */
   43:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   44:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   45:/*;  GNU General Public License for more details.                     */
   46:/*;                                                                   */
   47:/*;  You should have received a copy of the GNU General Public        */
   48:/*;  License along with this program; if not, write to the Free       */
   49:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   50:/*;  MA 02139, USA.                                                   */
   51:/*;                                                                   */
   52:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   53:/*;         Internet email: aipsmail at nrao.edu.                        */
   54:/*;         Postal address: AIPS Project Office                       */
   55:/*;                         National Radio Astronomy Observatory      */
   56:/*;                         520 Edgemont Road                         */
   57:/*;                         Charlottesville, VA 22903-2475 USA        */
   58:/*--------------------------------------------------------------------*/
   59:/*  Assign an i/o channel for TVlock device, send lock/unlock command */
   60:/*  and then deassign the channel.  Uses BSD sockets                  */
   61:/*  Inputs:                                                           */
   62:/*     pname  C*48  'logical' name of TV device. Contains a pathname  */
   63:/*                  for Unix domain sockets or a name of the form     */
   64:/*                  sssin:machine_name for Internet domain sockets.   */
   65:/*                  Must begin with the string "TVDEV".               */
   66:/*  Outputs:                                                          */
   67:/*     fcb    I(*)  File descriptor (part of FTAB).                   */
   68:/*     ierr   I     Error code: 0 => success                          */
   69:/*                     1 => failure                                   */
   70:/*                     2 => invalid device name                       */
   71:/*                     3 => I/O error                                 */
   72:/*                     4 => Locked by someone else                    */
   73:/*  SUN - Berkeley 4.2 UNIX version.                                  */
   74:/*--------------------------------------------------------------------*/
   75:{
   76:                                        /* Offsets to entries in the  */
   77:                                        /* file control blocks        */
   78:   extern int Z_fcbfd, Z_fcberr;
   80:   char *device, shvar[10], data[3];
   81:   int i, optlen, mbytes, lbytes, s, isspec;
   82:   char *machine_in;
   83:   struct servent *sp;
   84:   struct hostent *hp;
   85:/*--------------------------------------------------------------------*/
   86:   *ierr = 0;
   87:   errno = 0;
   88:                                        /* Extract logical device name*/
   89:   for (i=0; i < 10 && pname[i] != ':' && pname[i] != '\0'; i++)
   90:      shvar[i] = pname[i];
   91:   shvar[i] = '\0';
   92:                                        /* Value for TVDEVn/TVLCKn    */
   93:   if (TVLremember == 0) {
   94:      if (strncmp(shvar,"TVDEV",5) == 0) {
   95:                                        /* definition                 */
   96:         if ((device = getenv(shvar)) == NULL) {
   97:            fprintf(stderr, "ZSSSL2: NO SUCH DEVICE = %s\n",shvar);
   98:            *ierr = 2;
   99:            }
  100:         }
  101:      else {
  102:         fprintf(stderr, "ZSSSL2: NO SUCH DEVICE = %s\n",shvar);
  103:         *ierr = 2;
  104:         }
  105:      }
  106:   if (*ierr == 0) {
  107:      if (TVLremember == 0) {
  108:         isspec = 2;
  109:         if (strncmp(device,"sssin",5) == 0) isspec = 1;
  110:                                        /* open socket, INET domain   */
  111:         if (isspec == 1) {
  112:           if ((machine_in = strchr (device,':')) == NULL) {
  113:              fprintf(stderr,
  114:                "ZSSSL2: NO REMOTE MACHINE SPECIFIED IN %s\n",shvar);
  115:               *ierr = 2;
  116:               goto exit;
  117:               }
  118:            else {
  119:               machine_in++;
  120:                                        /* malformed names go here    */
  121:               if (!isalnum(*machine_in)) {
  122:                  fprintf(stderr, "ZSSSL2: MALFORMED NAME = %s\n",
  123:                     machine_in);
  124:                  *ierr = 2;
  125:                  }
  126:               else if ((hp = gethostbyname(machine_in)) == NULL) {
  127:                  fprintf(stderr,"ZSSSL2: %s: UNKNOWN HOST\n",
  128:                     machine_in);
  129:                  *ierr = 2;
  130:                  }
  131:               else if ((sp = getservbyname("ssslock","tcp")) == NULL) {
  132:                  fprintf(stderr,"ZSSSL2: tcp/ssslock NOT A SERVICE\n");
  133:                  *ierr = 2;
  134:                  }
  135:               else {
  136:                  memset ((char *)&TVL_sock_in, 0, sizeof(TVL_sock_in));
  137:                  memcpy ((char *)&TVL_sock_in.sin_addr,
  138:                     (char *)hp->h_addr, hp->h_length);
  139:                  TVL_sock_in.sin_family = hp->h_addrtype;
  140:                  TVL_sock_in.sin_port = sp->s_port;
  141:                  }
  142:               }
  143:            }
  144:                                        /* UNIX domain   */
  145:         else {
  146:            if ((device = getenv(getenv("TVLOK"))) == NULL) {
  147:                                        /* undefined                  */
  148:               fprintf(stderr, "ZSSSL2: NO SUCH DEVICE = TVLOK\n");
  149:               *ierr = 2;
  150:               }
  151:            TVL_sock_un.sun_family = AF_UNIX;
  152:            strcpy(TVL_sock_un.sun_path, device);
  153:            }
  154:         TVLremember = isspec;
  155:         }
  156:      }
  157:                                        /* open socket                */
  158:   if (*ierr == 0) {
  159:                                        /* INET domain                */
  160:      if (TVLremember == 1) {
  161:         if ((s = (int)socket(TVL_sock_in.sin_family, SOCK_STREAM, 0))
  162:            < 0) {
  163:            perror("ZSSSL2 socket (INET)");
  164:            *ierr = 1;
  165:             }
  166:         else if (connect(s, (struct sockaddr *) &TVL_sock_in,
  167:            sizeof(TVL_sock_in)) < 0){
  168:            perror("ZSSSL2 connect (INET)");
  169:            *ierr = 1;
  170:            *(fcb + Z_fcberr) = errno;
  171:            close (s);
  172:            *(fcb + Z_fcbfd) = 0;
  173:            }
  174:         else {
  175:            *(fcb + Z_fcbfd) = s;
  176:            *(fcb + Z_fcberr) = 0;
  177:            }
  178:         }
  179:                                        /* UNIX domain                */
  180:      else {
  181:         if ((s = (int)socket(AF_UNIX, SOCK_STREAM, 0)) < 0) {
  182:            perror("ZSSSL2 socket (UNIX)");
  183:            *ierr = 1;
  184:            }
  185:         else if (connect((s), (struct sockaddr *) &TVL_sock_un,
  186:            (sizeof(TVL_sock_un.sun_path)
  187:            +sizeof(TVL_sock_un.sun_family))) < 0) {
  188:            perror("ZSSSL2 connect (UNIX)");
  189:            *ierr = 1;
  190:            *(fcb + Z_fcberr) = errno;
  191:            close(s);
  192:            *(fcb + Z_fcbfd) = 0;
  193:            }
  194:         else {
  195:            *(fcb + Z_fcbfd) = s;
  196:            *(fcb + Z_fcberr) = 0;
  197:            }
  198:         }
  199:      }
  200:                                        /* send data                  */
  201:   if (*ierr == 0) {
  202:      data[0] = '1';
  203:      if (*lock > 0)
  204:         data[1] = 'L';
  205:      else
  206:         data[1] = 'U';
  207:      data[2] = '\0';
  209:      lbytes = 2;
  210:      if ((mbytes = write (s, data, lbytes)) != lbytes) {
  211:         perror("ZSSSL2 write data");
  212:         *ierr = 3;
  213:         *(fcb + Z_fcberr) = errno;
  214:         }
  215:                                        /* answer                     */
  216:      else if ((mbytes = read (s, data, lbytes)) != lbytes) {
  217:         perror("ZSSSL2 read answer");
  218:         *ierr = 3;
  219:         *(fcb + Z_fcberr) = errno;
  220:         }
  221:      if ((*lock > 0) && (data[0] == 'N')) *ierr = 4;
  222:      if (close(s) != 0) {
  223:         perror("ZSSSL2 close socket");
  224:         *ierr = 3;
  225:         *(fcb + Z_fcberr) = errno;
  226:         }
  227:      }
  228:                                        /* system error in FTAB      */
  229:exit:
  230:   if (*ierr != 0) TVLremember = 0;
  232:   return;
  233:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZSSSL2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:26:02 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSO2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSSSO2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSO2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
AIPSCC    : Date       Fri Jul 18 17:26:03 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c:16:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ssso2__
    2:#include <unistd.h>
    3:#include <stdlib.h>
    4:#include <stdio.h>
    5:#include <string.h>
    7:#include <errno.h>
    8:#include <sys/types.h>
    9:#include <sys/socket.h>
   10:#include <sys/un.h>
   11:#include <netinet/in.h>
   12:#include <netdb.h>
   13:#include <sys/stat.h>
   14:#include <string.h>
   15:#include <ctype.h>
   16:#include <AIPSPROTO.H>
   18:   int Z_sndbufs, Z_rcvbufs, Z_sndinis, Z_rcvinis;
   20:int SSSremember=0;
   21:struct sockaddr_un SSS_sock_un;
   22:struct sockaddr_in SSS_sock_in;
   24:int buffered;
   25:#define PACKSIZE (4096/sizeof(short int)+6)
   26:   short int packet_int[PACKSIZE];
   27:   int pack_offset;
   28:#define TRUE 1
   30:#define NUMOP 83       /* Largest opcode                              */
   31:int bufferop[NUMOP+1]; /* bufferop[OPCODE] >0 --> no status return    */
   32:                       /* if buffered                                 */
   33:#define OPEN    11     /* Opens the XAS connection                    */
   34:#define CLOSE   12     /* Close the XAS, allows new connections       */
   35:#define INTGT   13     /* Interrogate: get XAS major parameters       */
   36:#define WINDO   14     /* Read, write the X window size               */
   37:#define INIT    15     /* init the TV                                 */
   38:#define VIEW    16     /* Do/hold screen updates                      */
   39:#define PSAVE   17     /* save DTVC.INC parameters                    */
   40:#define XDIE    18     /* close down XAS and lock servers             */
   41:#define IMWRT   21     /* Write image line to some channel            */
   42:#define IMRD    22     /* Read image line from some channel           */
   43:#define FILL    23     /* fill area in some or all channels           */
   44:#define CLEAR   24     /* Clear some or all channels                  */
   45:#define VECT    25     /* connect two points with line                */
   46:#define CHARS   26     /* write character string                      */
   47:#define CATIN   31     /* Init image catalog                          */
   48:#define CATRD   32     /* Read image catalog                          */
   49:#define CATWR   33     /* Write image catalog                         */
   50:#define CATOV   34     /* Use image catalog - covered?                */
   51:#define CATFI   35     /* Find from image catalog                     */
   52:#define WLUT    41     /* Write LUT to a channel.                     */
   53:#define RLUT    42     /* Read LUT to a channel.                      */
   54:#define WOFM    43     /* Write OFM.                                  */
   55:#define ROFM    44     /* Read OFM.                                   */
   56:#define GRAPH   45     /* On/off graphics channel(s)                  */
   57:#define SPLOT   46     /* On/off image channels(s) - obsolete         */
   58:#define SPLIT   47     /* On/off image channels(s)                    */
   59:#define WGRFX   51     /* Write graphics/cursor colours               */
   60:#define RGRFX   52     /* Read  graphics/cursor colours               */
   61:#define RCURS   61     /* Read the cursor position.                   */
   62:#define RBUTT   62     /* Read the status of the buttons              */
   63:#define WCURS   63     /* Write the cursor position.                  */
   64:#define RCURB   64     /* Read the cursor position and buttons        */
   65:#define WZSCR   83     /* Write zoom/scroll to XAS using ULC          */
   67:#if __STDC__
   68:   void zssso2_ (int *fcb, char pname[48], int *ierr)
   69:#else
   70:   void zssso2_ (fcb, pname, ierr)
   71:   int *fcb, *ierr;
   72:   char pname[48];
   73:#endif
   74:/*--------------------------------------------------------------------*/
   75:/*! Open SUN-Screen-Server device, set-up any buffer                  */
   76:/*# TV-IO                                                             */
   77:/*--------------------------------------------------------------------*/
   78:/*;  Copyright (C) 1995-1999                                          */
   79:/*;  Associated Universities, Inc. Washington DC, USA.                */
   80:/*;                                                                   */
   81:/*;  This program is free software; you can redistribute it and/or    */
   82:/*;  modify it under the terms of the GNU General Public License as   */
   83:/*;  published by the Free Software Foundation; either version 2 of   */
   84:/*;  the License, or (at your option) any later version.              */
   85:/*;                                                                   */
   86:/*;  This program is distributed in the hope that it will be useful,  */
   87:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   88:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   89:/*;  GNU General Public License for more details.                     */
   90:/*;                                                                   */
   91:/*;  You should have received a copy of the GNU General Public        */
   92:/*;  License along with this program; if not, write to the Free       */
   93:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   94:/*;  MA 02139, USA.                                                   */
   95:/*;                                                                   */
   96:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   97:/*;         Internet email: aipsmail at nrao.edu.                        */
   98:/*;         Postal address: AIPS Project Office                       */
   99:/*;                         National Radio Astronomy Observatory      */
  100:/*;                         520 Edgemont Road                         */
  101:/*;                         Charlottesville, VA 22903-2475 USA        */
  102:/*--------------------------------------------------------------------*/
  103:/*  Assign an i/o channel (i.e., open) for SSS TV device.  Uses BSD   */
  104:/*  internet or UNIX sockets                                          */
  105:/*  Inputs:                                                           */
  106:/*     pname  C*48  'logical' name of TV device. Contains a pathname  */
  107:/*                  for Unix domain sockets or a name of the form     */
  108:/*                  sssin:machine_name for Internet domain sockets.   */
  109:/*                  Must begin with the string "TVDEV".               */
  110:/*  Outputs:                                                          */
  111:/*     fcb    I(*)  File descriptor (part of FTAB).                   */
  112:/*     ierr   I     Error code: 0 => success                          */
  113:/*                     1 => failure                                   */
  114:/*                     2 => invalid device name                       */
  115:/*  SUN - Berkeley 4.2 UNIX version.                                  */
  116:/*--------------------------------------------------------------------*/
  117:{
  118:                                        /* Offsets to entries in the  */
  119:                                        /* file control blocks        */
  120:   extern int Z_fcbfd, Z_fcberr;
  122:   char *device, shvar[10];
  123:   int i, optlen, s, isspec;
  124:   char *machine_in;
  125:   struct servent *sp;
  126:   struct hostent *hp;
  127:/*--------------------------------------------------------------------*/
  128:   *ierr = 0;
  129:   errno = 0;
  130:   buffered = 0;
  131:   pack_offset = 0;
  132:                                        /* Extract logical device name*/
  133:   for (i=0; i < 10 && pname[i] != ':' && pname[i] != '\0'; i++)
  134:      shvar[i] = pname[i];
  135:   shvar[i] = '\0';
  136:                                        /* Get value for TVDEVn       */
  137:   if (SSSremember == 0) {
  138:      if (strncmp(shvar,"TVDEV",5) == 0) {
  139:         if ((device = getenv(shvar)) == NULL) {
  140:                                        /* undefined                  */
  141:            fprintf(stderr, "ZSSSO2: NO SUCH DEVICE = %s\n",shvar);
  142:            *ierr = 2;
  143:            }
  144:         }
  145:      else {
  146:         fprintf(stderr, "ZSSSO2: NO SUCH DEVICE = %s\n",shvar);
  147:         *ierr = 2;
  148:         }
  149:      }
  150:   if (*ierr == 0) {
  151:      if (SSSremember == 0) {
  152:         isspec = 2;
  153:         if (strncmp(device,"sssin",5) == 0) isspec = 1;
  154:                                        /* open socket, INET domain   */
  155:                                        /* open socket, INET domain   */
  156:         if (strncmp(device,"sssinb",6) == 0) buffered = 1;
  157:         if (isspec == 1) {
  158:            if (( machine_in = strchr (device,':')) == NULL) {
  159:               fprintf(stderr,
  160:                  "ZSSSO2: NO REMOTE MACHINE SPECIFIED IN %s\n", shvar);
  161:               *ierr = 2;
  162:               }
  163:            else {
  164:               machine_in++;
  165:                                        /* malformed names go here    */
  166:               if (!isalnum(*machine_in)) {
  167:                  fprintf(stderr, "ZSSSO2: MALFORMED NAME = %s\n",
  168:                     machine_in);
  169:                  *ierr = 2;
  170:                  }
  171:               else if ((sp = getservbyname("sssin","tcp")) == NULL) {
  172:                  fprintf(stderr,"ZSSSO2: tcp/sssin NOT A SERVICE\n");
  173:                  *ierr = 2;
  174:                  }
  175:               else if (( hp = gethostbyname(machine_in)) == NULL) {
  176:                  fprintf(stderr,"ZSSSO2: %s: UNKNOWN HOST\n",
  177:                     machine_in);
  178:                  *ierr = 2;
  179:                  }
  180:               else {
  181:                  memset ((char *)&SSS_sock_in, 0, sizeof(SSS_sock_in));
  182:                  memcpy ((char *)&SSS_sock_in.sin_addr,
  183:                     (char *)hp->h_addr, hp->h_length);
  184:                  SSS_sock_in.sin_family = hp->h_addrtype;
  185:                  SSS_sock_in.sin_port = sp->s_port;
  186:                  }
  187:               }
  188:            }
  189:                                        /* UNIX domain   */
  190:         else {
  191:            SSS_sock_un.sun_family = AF_UNIX;
  192:            strcpy(SSS_sock_un.sun_path, device);
  193:            }
  194:         SSSremember = isspec;
  195:         }
  196:      }
  197:                                        /* open socket                */
  198:   if (*ierr == 0) {
  199:                                        /* INET domain                */
  200:      if (SSSremember == 1) {
  201:         if ((s = (int)socket(AF_INET, SOCK_STREAM, 0)) < 0) {
  202:            perror("ZSSSO2 socket (INET)");
  203:            *ierr = 1;
  204:            }
  205:         else if (connect(s, (struct sockaddr *) &SSS_sock_in,
  206:            sizeof(SSS_sock_in)) < 0){
  207:            perror("ZSSSO2 connect (INET)");
  208:            *ierr = 1;
  209:            *(fcb + Z_fcberr) = errno;
  210:            close (s);
  211:            *(fcb + Z_fcbfd) = 0;
  212:            }
  213:         else {
  214:            *(fcb + Z_fcbfd) = s;
  215:            *(fcb + Z_fcberr) = 0;
  216:            }
  217:         }
  218:                                        /* UNIX domain                */
  219:      else {
  220:         if ((s = (int)socket(AF_UNIX, SOCK_STREAM, 0)) < 0) {
  221:            perror("ZSSSO2 socket (UNIX)");
  222:            *ierr = 1;
  223:            }
  224:         else if (connect(s, (struct sockaddr *) &SSS_sock_un,
  225:            (sizeof(SSS_sock_un.sun_path)
  226:            +sizeof(SSS_sock_un.sun_family))) < 0) {
  227:            perror("ZSSSO2 connect (UNIX)");
  228:            *ierr = 1;
  229:            *(fcb + Z_fcberr) = errno;
  230:            close(s);
  231:            *(fcb + Z_fcbfd) = 0;
  232:            }
  233:         else {
  234:            *(fcb + Z_fcbfd) = s;
  235:            *(fcb + Z_fcberr) = 0;
  236:            }
  237:         }
  238:      }
  239:                                        /* send data                  */
  240:   if (*ierr == 0) {
  241:      optlen = sizeof (Z_sndbufs);
  242:      if (getsockopt (*fcb, SOL_SOCKET, SO_SNDBUF, (char *) &Z_sndbufs,
  243:         &optlen) < 0) {
  244:         perror("ZSSSO2 SO_SNDBUF get");
  245:         Z_sndbufs = 4096;
  246:         }
  247:      optlen = sizeof (Z_rcvbufs);
  248:      if (getsockopt (*fcb, SOL_SOCKET, SO_RCVBUF, (char *) &Z_rcvbufs,
  249:         &optlen) < 0) {
  250:         perror("ZSSSO2 SO_RCVBUF get");
  251:         Z_rcvbufs = 4096;
  252:         }
  253:      Z_sndinis = Z_sndbufs;
  254:      Z_rcvinis = Z_rcvbufs;
  255:   }
  256:                                        /* system error in FTAB      */
  257:exit:
  258:   if (*ierr != 0) SSSremember = 0;
  259:   if (!buffered) {
  260:      for (i=0; i<(NUMOP+1); i++) bufferop[i]=0;
  261:      }
  262:   else {
  263:      for (i=0; i<(NUMOP+1); i++) bufferop[i]=0;
  264:      bufferop[INIT]=TRUE;
  265:      bufferop[FILL]=TRUE;
  266:      bufferop[CLEAR]=TRUE;
  267:      bufferop[VECT]=TRUE;
  268:      bufferop[PSAVE]=TRUE;
  269:      bufferop[CHARS]=TRUE;
  270:      bufferop[VIEW]=TRUE;
  271:      bufferop[IMWRT]=TRUE;
  272:      bufferop[WLUT]=TRUE;
  273:      bufferop[WOFM]=TRUE;
  274:      bufferop[WCURS]=TRUE;
  275:      bufferop[GRAPH]=TRUE;
  276:      bufferop[SPLOT]=TRUE;
  277:      bufferop[SPLIT]=TRUE;
  278:      bufferop[WGRFX]=TRUE;
  279:      bufferop[WZSCR]=TRUE;
  280:      bufferop[CATIN]=TRUE;
  281:      bufferop[CATWR]=TRUE;
  282:      }
  284:   return;
  285:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZSSSO2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:26:03 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZTAP2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTAP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZTAP2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
AIPSCC    : Date       Fri Jul 18 17:26:04 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c:19:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tap2__
    2:                                        /* Must not claim POSIX_SOURCE*/
    3:                                        /* types.h would not define   */
    4:                                        /* things needed in mtio.h    */
    5:#ifdef _POSIX_SOURCE
    6:#undef _POSIX_SOURCE
    7:#endif
    9:#define MT_Debug 0                      /* debug message control      */
   12:#include <unistd.h>
   13:#include <sys/types.h>
   14:#include <string.h>
   15:#include <stdio.h>
   16:#include <sys/ioctl.h>
   17:#include <sys/mtio.h>
   18:#include <errno.h>
   19:#include <AIPSPROTO.H>
   21:#if __STDC__
   22:   void ztap2_(char opr[4], int *count, int *fcb, int *ierr)
   23:#else
   24:   ztap2_(opr, count, fcb, ierr)
   25:   int *count, *fcb, *ierr;
   26:   char opr[4];
   27:#endif
   28:/*--------------------------------------------------------------------*/
   29:/*! tape movements as called by ZTAPE                                 */
   30:/*# Tape                                                              */
   31:/*--------------------------------------------------------------------*/
   32:/*;  Copyright (C) 1995, 1996                                         */
   33:/*;  Associated Universities, Inc. Washington DC, USA.                */
   34:/*;                                                                   */
   35:/*;  This program is free software; you can redistribute it and/or    */
   36:/*;  modify it under the terms of the GNU General Public License as   */
   37:/*;  published by the Free Software Foundation; either version 2 of   */
   38:/*;  the License, or (at your option) any later version.              */
   39:/*;                                                                   */
   40:/*;  This program is distributed in the hope that it will be useful,  */
   41:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   42:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   43:/*;  GNU General Public License for more details.                     */
   44:/*;                                                                   */
   45:/*;  You should have received a copy of the GNU General Public        */
   46:/*;  License along with this program; if not, write to the Free       */
   47:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   48:/*;  MA 02139, USA.                                                   */
   49:/*;                                                                   */
   50:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   51:/*;         Internet email: aipsmail at nrao.edu.                        */
   52:/*;         Postal address: AIPS Project Office                       */
   53:/*;                         National Radio Astronomy Observatory      */
   54:/*;                         520 Edgemont Road                         */
   55:/*;                         Charlottesville, VA 22903-2475 USA        */
   56:/*--------------------------------------------------------------------*/
   57:/*--------------------------------------------------------------------*/
   58:/*  Performs standard tape manipulating functions.                    */
   59:/*                                                                    */
   60:/* Inputs:                                                            */
   61:/*    opr    C*4   Operation to be performed:                         */
   62:/*                 'REWI' = rewind tape                               */
   63:/*                 'ADVF' = advance file                              */
   64:/*                 'BAKF' = backspace file                            */
   65:/*                 'ADVR' = advance record                            */
   66:/*                 'BAKR' = backspace record                          */
   67:/*                 'WEOF' = write end of file                         */
   68:/*                 'BEGW' = mark to begin write                       */
   69:/*                 'AEOI' = advance to end-of-medium                  */
   70:/*  In/out:                                                           */
   71:/*    count  I     Number of times to do operation                    */
   72:/*    fcb    I(*)  File descriptor from FTAB file control block       */
   73:/*  Output:                                                           */
   74:/*    ierr   I     Error code: 0 = success                            */
   75:/*                    2 = input specification error                   */
   76:/*                    3 = i/o error                                   */
   77:/*                    4 = tape mark encountered                       */
   78:/*                    5 = tape at load point                          */
   79:/*                    6 = tape at physical end                        */
   80:/*  Linux version                                                     */
   81:/*                                                                    */
   82:/* JAU 17 May 96: Jeff Uphoff, NRAO.  Fixed (some) for newer kernels. */
   83:/*--------------------------------------------------------------------*/
   84:{
   85:   extern int Z_fcbfd;
   86:   struct mtop top;
   87:   struct mtget stat;
   88:   char   op[5], record[32768];
   89:   long   filenumb;
   90:   int    i, jc, nr, status, wasatbot ;
   91:/*--------------------------------------------------------------------*/
   92:   errno = 0;
   93:   for(i = 0; i < 4; i++)
   94:      op[i] = opr[i];
   95:   op[4] = '\0';
   96:   *ierr = 0;
   97:                                        /* fake fd<0 ==> use Wes'     */
   98:                                        /* on-line device.  No tape   */
   99:                                        /* motions.                   */
  100:   if (*(fcb + Z_fcbfd) < 0) return;
  102:   top.mt_count = *count;
  104:   top.mt_op = MTNOP;
  105:   if ((status = ioctl(*fcb,MTIOCTOP,&top)) != 0) {
  106:      *ierr = 3;
  107:      printf("ZTAP2: error performing null op on tape drive\n");
  108:      perror("ZTAP2");
  109:      }
  110:   else if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  111:      *ierr = 3;
  112:      printf("ZTAP2: error getting drive status\n");
  113:      perror("ZTAP2");
  114:      }
  115:   else {
  116:#if MT_Debug                              /* NOTE - debug            */
  117:      printf("ZTAP2 at NOP-0: op = %s top.mt_op = %d ierr = %d\n",
  118:         op,top.mt_op,*ierr);
  119:      printf("ZTAP2: Status of I/O was %d errno %d\n", status, errno);
  120:      printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  121:         stat.mt_gstat,stat.mt_erreg);
  122:      printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  123:         stat.mt_type,stat.mt_resid);
  124:      printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  125:      printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  126:         stat.mt_fileno,stat.mt_blkno);
  127:#endif
  129:      if (strcmp(op,"REWI") == 0)
  130:         top.mt_op = MTREW;
  131:      else if (strcmp(op,"ADVF") == 0)
  132:         top.mt_op = MTFSF;
  133:                                        /* leaves out cartridge tap*/
  134:                                        /* ok 1/2inch, DAT, Exabyte*/
  135:      else if (strcmp(op,"BAKF") == 0)
  136:         top.mt_op = MTBSF;
  137:                                        /* Only way to detect tape */
  138:                                        /* marks.                  */
  139:      else if (strcmp(op,"ADVR") == 0) {
  140:         top.mt_count = 1;
  141:         for (i=0; i < *count; i++) {
  142:            nr = read (*fcb, record, 32768);
  143:            if (nr == 0) {
  144:               *ierr = 4;
  145:               if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  146:                  printf("ZTAP2: error getting drive status\n");
  147:                  perror("ZTAP2");
  148:                  }
  149:               else {
  150:#if MT_Debug                              /* NOTE - debug            */
  151:                  printf("ZTAP2: nbytes of I/O was %x (hex)\n", nr);
  152:                  printf("ZTAP2 at ADVR: op = %s top.mt_op = %d ierr = %d\n",
  153:                     op,top.mt_op,*ierr);
  154:                  printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  155:                     stat.mt_gstat,stat.mt_erreg);
  156:                  printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  157:                     stat.mt_type,stat.mt_resid);
  158:                  printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  159:                  printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  160:                     stat.mt_fileno,stat.mt_blkno);
  161:#endif
  162:                  }
  163:               if (GMT_BOT(stat.mt_gstat))      *ierr = 5;
  164:               else if (GMT_EOF(stat.mt_gstat)) *ierr = 4;
  165:               else if (GMT_EOT(stat.mt_gstat)) *ierr = 6;
  166:               else if (GMT_EOD(stat.mt_gstat)) *ierr = 6;
  167:               i = *count;
  168:               }
  169:            }
  170:         top.mt_op = MTNOP;
  171:         }
  172:                                        /* Only way to detect tape */
  173:                                        /* marks.  UGLYYY          */
  174:      else if (strcmp(op,"BAKR") == 0) {
  175:         top.mt_count = 1;
  176:         for (i=0; i < *count; i++) {
  177:            top.mt_op = MTBSR;
  178:            if (ioctl(*fcb,MTIOCTOP,&top) != 0)
  179:               *ierr = 3;
  180:            else if ((nr = read(*fcb,record,32768)) == 0)
  181:               *ierr = 4;
  182:            else if (ioctl(*fcb,MTIOCTOP,&top) != 0)
  183:               *ierr = 3;
  184:            if (*ierr != 0) i = *count;
  185:            }
  186:         top.mt_op = MTNOP;
  187:         }
  188:                                        /* WEOF and BEGW             */
  189:      else if ((strcmp(op,"WEOF") == 0) || (strcmp(op,"BEGW") == 0)) {
  190:         wasatbot = 0;
  191:         if (strcmp(op,"BEGW") == 0) {
  192:            top.mt_op = MTBSF;
  193:            top.mt_count = 1;
  194:            status = ioctl(*fcb,MTIOCTOP,&top);
  195:            if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  196:               *ierr = 3;
  197:               printf("ZTAP2: error getting drive status\n");
  198:               perror("ZTAP2");
  199:               }
  200:            else {
  201:#if MT_Debug                              /* NOTE - debug            */
  202:               printf("ZTAP2 at BEGW: op=%s top.mt_op=%d ierr = %d\n",
  203:                  "BSF1",top.mt_op,*ierr);
  204:               printf("ZTAP2: Status of I/O was %d errno %d\n",
  205:                  status, errno);
  206:               printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  207:                  stat.mt_gstat,stat.mt_erreg);
  208:               printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  209:                  stat.mt_type,stat.mt_resid);
  210:               printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  211:               printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  212:                  stat.mt_fileno,stat.mt_blkno);
  213:#endif
  214:               if (status == -1)                *ierr = 5;
  215:               if (GMT_BOT(stat.mt_gstat))      *ierr = 5;
  216:               else if (GMT_EOF(stat.mt_gstat)) *ierr = 4;
  217:               else if (GMT_EOT(stat.mt_gstat)) *ierr = 6;
  218:               else if (GMT_EOD(stat.mt_gstat)) *ierr = 6;
  219:               }
  220:            }
  221:         if (*ierr == 5) {
  222:            wasatbot = 1;
  223:            *ierr = 0;
  224:            }
  225:         if (*ierr == 0) {
  226:            top.mt_op = MTWEOF;
  227:            top.mt_count = 1;
  228:                                             /* 2 EOFs 1/2 inch */
  229:            status = ioctl(*fcb,MTIOCTOP,&top);
  230:            if (status != 0) {
  231:               *ierr = 3;
  232:               printf("ZTAP2: Status of I/O was %d errno %d\n", status, errno);
  233:               }
  234:            else {
  235:               if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  236:                  *ierr = 3;
  237:                  printf("ZTAP2: error getting drive status\n");
  238:                  perror("ZTAP2");
  239:                  }
  240:               else {
  241:/*                                           NOTE - debug */
  242:#if MT_Debug
  243:                  printf("ZTAP2 at WEOF: op = %s top.mt_op = %d ierr = %d\n",
  244:                     op,top.mt_op,*ierr);
  245:                  printf("ZTAP2: Status of I/O was %d errno %d\n",
  246:                     status, errno);
  247:                  printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  248:                     stat.mt_gstat,stat.mt_erreg);
  249:                  printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  250:                     stat.mt_type,stat.mt_resid);
  251:                  printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  252:                  printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  253:                     stat.mt_fileno,stat.mt_blkno);
  254:#endif
  255:/*                  top.mt_count -= 1;                    kludge */
  256:/*                  if (wasatbot) top.mt_count++;         kludge */
  257:                  if (top.mt_count) {
  258:                     top.mt_op = MTBSF;
  259:/*                                    insert for kludge */
  260:                     if (!wasatbot) top.mt_op = MTNOP;
  261:                     status = ioctl (*fcb, MTIOCTOP, &top);
  262:                     if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  263:                        *ierr = 3;
  264:                        printf("ZTAP2: error getting drive status\n");
  265:                        perror("ZTAP2");
  266:                        }
  267:                     else {
  268:#if MT_Debug                             /* NOTE - debug            */
  269:                        printf("ZTAP2 at WEOF: op=%s top.mt_op=%d ierr = %d\n",
  270:                           "BSF ",top.mt_op,*ierr);
  271:                        printf("ZTAP2: Status of I/O was %d errno %d\n",
  272:                           status, errno);
  273:                        printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  274:                           stat.mt_gstat,stat.mt_erreg);
  275:                        printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  276:                           stat.mt_type,stat.mt_resid);
  277:                        printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  278:                        printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  279:                           stat.mt_fileno,stat.mt_blkno);
  280:#endif
  281:                        }
  282:                     }
  283:/*                top.mt_count = 1;              kludge */
  284:/*                top.mt_op = MTNOP;             kludge */
  285:/*                                    insert for kludge */
  286:                  top.mt_op = MTBSF;
  287:                  if (wasatbot) top.mt_op = MTNOP;
  288:                  }
  289:               }
  290:            }
  291:         }
  292:                                        /* MTEOM while Exabyte is  */
  293:                                        /* at EOM causes problems  */
  294:      else if ((strcmp(op,"EOM ") == 0) || (strcmp(op,"AEOI") == 0)) {
  295:         if ((stat.mt_type == MT_ISDDS1) || (stat.mt_type == MT_ISDDS2) ||
  296:             (stat.mt_type == MT_ISSCSI1) || (stat.mt_type == MT_ISSCSI2)) {
  297:            top.mt_count = 1;
  298:            top.mt_op = MTEOM;
  299:                                        /* cannot get a file number */
  300:            *count = 0;
  301:         }
  302:         else {                         /* Block fails for Linux. */
  303:            for (i = 0; i < 32000; i++) {
  304:               nr = read (*fcb, record, 32768);
  305:               if (nr <= 0) {
  306:                  if (nr < 0) *ierr = 3;
  307:                  if ((nr == -1) && (errno == 5)) *ierr = 6;
  308:                  status = nr - 1000;
  309:                  break;
  310:                  }
  311:               else {
  312:                  top.mt_op = MTFSF;
  313:                  top.mt_count = 1;
  314:                  status = ioctl(*fcb,MTIOCTOP,&top);
  315:                  if (status != 0) {
  316:                     *ierr = 3;
  317:                     printf("ZTAP2: Status of I/O was %x (hex)\n", status);
  318:                     break;
  319:                     }
  320:                  }
  321:               }
  322:            *count = -i - 1;
  323:            if (*ierr == 3) {
  324:               if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  325:                  *ierr = 3;
  326:                  printf("ZTAP2: error getting drive status\n");
  327:                  perror("ZTAP2");
  328:                  }
  329:#if MT_Debug                              /* NOTE - debug            */
  330:               else {
  331:                  printf("ZTAP2 at AEOM: op=%s top.mt_op=%d ierr = %d\n",
  332:                     "AVF ",top.mt_op,*ierr);
  333:                  printf("ZTAP2: Status of I/O was %d errno %d\n",
  334:                     status, errno);
  335:                  printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  336:                     stat.mt_gstat,stat.mt_erreg);
  337:                  printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  338:                     stat.mt_type,stat.mt_resid);
  339:                  printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  340:                  printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  341:                     stat.mt_fileno,stat.mt_blkno);
  342:                  }
  343:#endif
  344:               if (GMT_BOT(stat.mt_gstat))      *ierr = 5;
  345:               else if (GMT_EOF(stat.mt_gstat)) *ierr = 4;
  346:               else if (GMT_EOT(stat.mt_gstat)) *ierr = 6;
  347:               else if (GMT_EOD(stat.mt_gstat)) *ierr = 6;
  348:               }
  349:            top.mt_op = MTBSF;
  350:            top.mt_count = 2;
  351:            if (*ierr == 6) top.mt_count = 1;
  352:            if ((*ierr == 6) || (*ierr == 4)) *ierr = 0;
  353:            }
  354:         }
  355:      else *ierr = 2;
  357:      if (*ierr == 0) {
  358:         status = ioctl(*fcb,MTIOCTOP,&top);
  359:         if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  360:            *ierr = 3;
  361:            printf("ZTAP2: error getting drive status\n");
  362:            perror("ZTAP2");
  363:            }
  364:         else {
  365:#if MT_Debug                              /* NOTE - debug            */
  366:            printf("ZTAP2 at main op: op = %s top.mt_op = %d ierr = %d\n",
  367:               op,top.mt_op,*ierr);
  368:            printf("ZTAP2: Status of I/O was %d errno %d\n", status, errno);
  369:            printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  370:               stat.mt_gstat,stat.mt_erreg);
  371:            printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  372:               stat.mt_type,stat.mt_resid);
  373:            printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  374:            printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  375:               stat.mt_fileno,stat.mt_blkno);
  376:#endif
  377:            }
  379:         if ((top.mt_op == MTBSF) && (status == -1)) *ierr = 5;
  380:         else if (GMT_BOT(stat.mt_gstat))      *ierr = 5;
  381:         else if (GMT_EOF(stat.mt_gstat)) *ierr = 4;
  382:         else if (GMT_EOT(stat.mt_gstat)) *ierr = 6;
  383:         else if (GMT_EOD(stat.mt_gstat)) *ierr = 6;
  385:                                        /* advance over last EOF   */
  386:         if ((top.mt_op == MTBSF) && ((*ierr == 0) || (*ierr == 4))) {
  387:            top.mt_op = MTFSF;
  388:            top.mt_count = 1;
  389:            status = ioctl(*fcb,MTIOCTOP,&top);
  390:            if (status != 0) {
  391:               *ierr = 3;
  392:               printf("ZTAP2: Status of I/O was %d errno %d\n", status, errno);
  393:               }
  394:            else if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  395:               *ierr = 3;
  396:               printf("ZTAP2: error getting drive status\n");
  397:               perror("ZTAP2");
  398:               }
  399:#if MT_Debug                              /* NOTE - debug            */
  400:            else {
  401:               printf("ZTAP2 at FSF: op = %s top.mt_op = %d ierr = %d\n",
  402:                  op,top.mt_op,*ierr);
  403:               printf("ZTAP2: Status of I/O was %d errno %d\n",
  404:                  status, errno);
  405:               printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  406:                  stat.mt_gstat,stat.mt_erreg);
  407:               printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  408:                  stat.mt_type,stat.mt_resid);
  409:               printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  410:               printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  411:                 stat.mt_fileno,stat.mt_blkno);
  412:               }
  413:#endif
  414:            }
  415:         }
  417:      if (*ierr == 3)
  418:         *(fcb + 2) = errno;
  419:      else
  420:         *(fcb + 2) = 0;
  421:      }
  423:   return;
  424:}
  426:/*
  427: * Local Variables:
  428: * c-basic-offset: 3
  429: * comment-column: 40
  430: * indent-tabs-mode: nil
  431: * End:
  432: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTAP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:26:04 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTKOP2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTKOP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTKOP2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
AIPSCC    : Date       Fri Jul 18 17:26:05 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:17:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:23: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c: In function `ztkop2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:87: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:87: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:87: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:87: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tkop2__
    2:#include <unistd.h>
    3:#include <stdlib.h>
    4:#include <stdio.h>
    5:#include <string.h>
    6:#include <fcntl.h>
    7:#ifndef __linux__
    8:#include <sgtty.h>
    9:#endif
   10:#include <errno.h>
   11:#include <sys/types.h>
   12:#include <sys/socket.h>
   13:#include <sys/un.h>
   14:#include <netinet/in.h>
   15:#include <netdb.h>
   16:#include <sys/stat.h>
   17:#include <AIPSPROTO.H>
   18:#ifdef __linux__
   19:#include <linux/termios.h>
   20:#endif
   22:#if __STDC__
   23:   void ztkop2_(int *fcb, char pname[MAXPNAME], int *tktype, int *ierr)
   24:#else
   25:   void ztkop2_(fcb, pname, tktype, ierr)
   26:   int *fcb, *tktype, *ierr;
   27:   char pname[MAXPNAME];
   28:#endif
   29:/*--------------------------------------------------------------------*/
   30:/*! read/write from/to a Tektronix device                             */
   31:/*# Graphics                                                          */
   32:/*--------------------------------------------------------------------*/
   33:/*;  Copyright (C) 1995-1998, 2000                                    */
   34:/*;  Associated Universities, Inc. Washington DC, USA.                */
   35:/*;                                                                   */
   36:/*;  This program is free software; you can redistribute it and/or    */
   37:/*;  modify it under the terms of the GNU General Public License as   */
   38:/*;  published by the Free Software Foundation; either version 2 of   */
   39:/*;  the License, or (at your option) any later version.              */
   40:/*;                                                                   */
   41:/*;  This program is distributed in the hope that it will be useful,  */
   42:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   43:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   44:/*;  GNU General Public License for more details.                     */
   45:/*;                                                                   */
   46:/*;  You should have received a copy of the GNU General Public        */
   47:/*;  License along with this program; if not, write to the Free       */
   48:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   49:/*;  MA 02139, USA.                                                   */
   50:/*;                                                                   */
   51:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   52:/*;         Internet email: aipsmail at nrao.edu.                        */
   53:/*;         Postal address: AIPS Project Office                       */
   54:/*;                         National Radio Astronomy Observatory      */
   55:/*;                         520 Edgemont Road                         */
   56:/*;                         Charlottesville, VA 22903-2475 USA        */
   57:/*--------------------------------------------------------------------*/
   58:/*  Open a Tektronix device for exclusive use.                        */
   59:/*                                                                    */
   60:/*  Inputs:                                                           */
   61:/*     pname   C*48   Physical file name (e.g., "TEKTK1: ")           */
   62:/*  Output:                                                           */
   63:/*     fcb     I(*)   File control block for opened Tektronix device  */
   64:/*     ierr    I      Error return code: 0 => no error                */
   65:/*                             2 => no such logical device            */
   66:/*                             3 => invalid device name               */
   67:/*                             4 => exclusive use requested but not   */
   68:/*                                  available                         */
   69:/*                             6 => other open error                  */
   70:/*  Berkeley UNIX version                                             */
   71:/*  JDE 89/Mar/23: Jonathan D. Eisenhamer, UCLA, added ability to     */
   72:/*                 talk to a "server" for a separate tektool window.  */
   73:/*  JDE 89/Apr/05: Added ability to use the INET domain to talk to    */
   74:/*                 the tektool service.  The server is tekserver.     */
   75:/*                 The environmental variable TEKTK* should be set to */
   76:/*                 the machine name which has the server.             */
   77:/*--------------------------------------------------------------------*/
   78:{
   79:                                        /* Offsets to entries in the  */
   80:                                        /* file control blocks        */
   81:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   82:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   84:   int llen, xlen, xlnb, jerr, fd;
   85:   register int i;
   86:   struct stat mybuf;
   87:   char lognam[MAXPNAME], pathname[MAXAPATH], *device, *dtemp, end;
   88:   struct hostent *hp;                  /* Host name */
   89:   struct servent *sp;                  /* Internet service info. */
   90:   int s;                               /* Socket descriptor. */
   91:   struct sockaddr_in sock_name;        /* Socket name. */
   92:   struct sockaddr_un client;
   93:   int ishost;                          /* == 1 if it is a host name. */
   94:   int isspec;
   95:/*--------------------------------------------------------------------*/
   96:   *ierr = 0;
   97:   *tktype = 0;
   98:   end = '\0' ;
   99:   device = &end;
  100:   if ((dtemp = getenv("TVDEV")) != NULL) {
  101:      if ((device = getenv (dtemp)) == NULL) device = &end;
  102:      }
  104:                                        /* Extract logical device     */
  105:                                        /* name.                      */
  106:   for (i = 0; i < MAXPNAME && pname[i] != ':'; i++)
  107:      lognam[i] = pname[i];
  108:   lognam[i] = '\0';
  109:                                        /* Translate logical device   */
  110:                                        /* name and null terminate.   */
  111:   llen = MAXPNAME;
  112:   xlen = MAXAPATH;
  113:   ztrlo2_ (&llen, lognam, &xlen, pathname, &xlnb, &jerr);
  114:   if (jerr != 0) {
  115:      *ierr = 2;
  116:      }
  117:   else {
  118:      pathname[xlnb] = '\0';
  119:                                        /* Now, if it's NOT special,  */
  120:                                        /* assume that it is meant to */
  121:                                        /* be an INET domain socket   */
  122:      if (strncmp(device,"sssin",5) == 0) {
  123:         if ((hp = gethostbyname (pathname)) == 0) {
  124:            *(fcb + Z_fcberr) = errno;
  125:            *ierr = 3;
  126:            return;
  127:            }
  128:                                        /* JDE 89/Apr/04:             */
  129:                                        /* Get the port on which the  */
  130:                                        /* the tekserver resides.     */
  131:         if ((sp = getservbyname ("tekserv", "tcp")) == 0) {
  132:            *(fcb + Z_fcberr) = errno;
  133:            *ierr = 3;
  134:            return;
  135:            }
  136:                                        /* Construct the address of   */
  137:                                        /* service.                   */
  138:         memset ((char *)&sock_name, 0, sizeof (sock_name));
  139:         memcpy ((char *)&sock_name.sin_addr, hp->h_addr, hp->h_length);
  140:         sock_name.sin_family = hp->h_addrtype;
  141:         sock_name.sin_port = sp->s_port;
  142:                                        /* Create the communications  */
  143:                                        /* socket.                    */
  144:         if ((s = socket (hp->h_addrtype, SOCK_STREAM, 0)) == -1) {
  145:            *(fcb + Z_fcberr) = errno;
  146:            *ierr = 6;
  147:            return;
  148:            }
  149:                                        /* Connect to the server.     */
  150:                                        /* From here on, everything   */
  151:                                        /* is treated the same.  Only */
  152:                                        /* thing to watch is how to   */
  153:                                        /* close things (ztkcl2)      */
  154:         if (connect (s, (struct sockaddr *)&sock_name,
  155:            sizeof(sock_name)) == -1) {
  156:            *(fcb + Z_fcberr) = errno;
  157:            *ierr = 6;
  158:            }
  159:         else {
  160:             *tktype = 1;
  161:             *(fcb + Z_fcbfd) = s;
  162:             }
  163:         }
  164:                                        /* Test path name existence,  */
  165:                                        /* but DO NOT be fooled by    */
  166:                                        /* files other than a socket  */
  167:                                        /* or a device (char/block)   */
  168:      else {
  169:                                        /* no such file, not special  */
  170:         isspec = 0;
  171:         if ((stat(pathname, &mybuf)) == -1) {
  172:            isspec = 0;
  173:                                        /* Found a socket; special    */
  174:         } else if (S_ISSOCK(mybuf.st_mode)) {
  175:            isspec = 2;
  176:                                        /* Found a FIFO; special      */
  177:         } else if (S_ISFIFO(mybuf.st_mode)) {
  178:            isspec = 2;
  179:                                        /* character special device   */
  180:         } else if (S_ISCHR(mybuf.st_mode)) {
  181:            isspec = 3;
  182:                                        /* block special device       */
  183:         } else if (S_ISBLK(mybuf.st_mode)) {
  184:            isspec = 4;
  185:            }
  186:                                        /* UNIX socket */
  187:         if (isspec== 2) {   /* ????? */
  188:            device = &end;
  189:            if ((dtemp = getenv("TKDEV")) != NULL) {
  190:               if ((device = getenv(dtemp)) == NULL) device = &end;
  191:               }
  192:                                        /* undefined                  */
  193:            if (device == &end) {
  194:               fprintf(stderr, "ZTKOP2: NO SUCH DEVICE = TKDEV\n");
  195:               *ierr = 2;
  196:               return;
  197:               }
  198:            if ((*fcb = (int)socket(AF_UNIX, SOCK_STREAM, 0)) < 0) {
  199:               perror("ZTKOP2 socket (UNIX)");
  200:               *ierr = 1;
  201:               return;
  202:               }
  203:            client.sun_family = AF_UNIX;
  204:            strcpy(client.sun_path, device);
  205:            if (connect((*fcb), (struct sockaddr *) &client,
  206:               (sizeof(client.sun_path)+sizeof(client.sun_family)))
  207:               < 0) {
  208:               perror("ZTKOP2 connect (UNIX)");
  209:               *ierr = 1;
  210:               return;
  211:               }
  212:            *tktype = 1;
  213:            }
  214:                                        /* Blindly change the device  */
  215:                                        /* permissions to make it     */
  216:                                        /* readable/writeable.  Don't */
  217:                                        /* worry about any errors in  */
  218:                                        /* doing so because "open"    */
  219:                                        /* will detect any failure.   */
  220:                                        /* This is done simply to     */
  221:                                        /* allow /dev/ttyp* opens.    */
  222:         else {
  223:            chmod (pathname, 0662);
  224:                                        /* Open the Tektronix device  */
  225:                                        /* read/write.                */
  226:            if ((*(fcb + Z_fcbfd) = open (pathname, 2)) == -1) {
  227:               *(fcb + Z_fcberr) = errno;
  228:               if (errno == EBUSY)
  229:                  *ierr = 4;
  230:               else
  231:                  *ierr = 6;
  232:               }
  233:            else {
  234:               fd = *(fcb + Z_fcbfd);
  235:                                        /* If the device pathname is  */
  236:                                        /* the same as the process    */
  237:                                        /* control tty, don't try to  */
  238:                                        /* take exclusive use since   */
  239:                                        /* this would always fail.    */
  240:               if (strcmp (pathname, "/dev/tty\0") != 0) {
  241:                  if (ioctl (fd, TIOCEXCL, 0) == -1) {
  242:                     *(fcb + Z_fcberr) = errno;
  243:                     *ierr = 6;
  244:                     close (fd);
  245:                     return;
  246:                     }
  247:                  }
  248:               }
  249:            }
  250:         }
  251:      }
  253:   return;
  254:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTKOP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:26:05 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPCL2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPCL2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPCL2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
AIPSCC    : Date       Fri Jul 18 17:26:06 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tpcl2__
    2:#include <unistd.h>
    3:#include <errno.h>
    4:#include <AIPSPROTO.H>
    6:#if __STDC__
    7:   void ztpcl2_(int *fcb, int *ierr)
    8:#else
    9:   void ztpcl2_(fcb, ierr)
   10:   int *fcb, *ierr;
   11:#endif
   12:/*--------------------------------------------------------------------*/
   13:/*! close a tape device                                               */
   14:/*# Tape                                                              */
   15:/*--------------------------------------------------------------------*/
   16:/*;  Copyright (C) 1995, 1997                                         */
   17:/*;  Associated Universities, Inc. Washington DC, USA.                */
   18:/*;                                                                   */
   19:/*;  This program is free software; you can redistribute it and/or    */
   20:/*;  modify it under the terms of the GNU General Public License as   */
   21:/*;  published by the Free Software Foundation; either version 2 of   */
   22:/*;  the License, or (at your option) any later version.              */
   23:/*;                                                                   */
   24:/*;  This program is distributed in the hope that it will be useful,  */
   25:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   26:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   27:/*;  GNU General Public License for more details.                     */
   28:/*;                                                                   */
   29:/*;  You should have received a copy of the GNU General Public        */
   30:/*;  License along with this program; if not, write to the Free       */
   31:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   32:/*;  MA 02139, USA.                                                   */
   33:/*;                                                                   */
   34:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   35:/*;         Internet email: aipsmail at nrao.edu.                        */
   36:/*;         Postal address: AIPS Project Office                       */
   37:/*;                         National Radio Astronomy Observatory      */
   38:/*;                         520 Edgemont Road                         */
   39:/*;                         Charlottesville, VA 22903-2475 USA        */
   40:/*--------------------------------------------------------------------*/
   41:/*  Close a tape drive.                                               */
   42:/*  Inputs:                                                           */
   43:/*     fcb    I(*)   File control block for opened tape drive         */
   44:/*  Output:                                                           */
   45:/*     ierr   I      Error return code: 0 => ok                       */
   46:/*                      1 => error                                    */
   47:/*  Generic UNIX version - synchronous I/O only; masks error 1        */
   48:/*  Modified for real-time VLA to call olclose on fd < 0              */
   49:/*--------------------------------------------------------------------*/
   50:{
   51:                                        /* Offsets to entries in the  */
   52:                                        /* file control blocks        */
   53:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   54:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   55:                                        /* # FTAB elements per map    */
   56:                                        /* file control block         */
   57:   extern int Z_mfcb;
   58:   int fd, i;
   59:/*--------------------------------------------------------------------*/
   60:   *ierr = 0;
   61:                                        /* Close first buffer file    */
   62:                                        /* descriptor.                */
   63:   fd = *(fcb + Z_fcbfd);
   64:                                        /* If this is Wes' on-line    */
   65:                                        /* device, use special close. */
   66:   if (fd < 0) {
   67:      olclose_(&fd);
   68:      }
   69:   else {
   70:      if (close (fd) != 0) {
   71:                                        /* In at least the case of a  */
   72:                                        /* Solbourne running Sun OS   */
   73:                                        /* 4.0 a spurious errno=1 is  */
   74:                                        /* returned.  Ignore it.      */
   75:         if (errno != 1) {
   76:            *(fcb + Z_fcberr) = errno;
   77:            *ierr = 1;
   78:            }
   79:      }
   80:                                        /* Close second buffer file   */
   81:                                        /* descriptor.                */
   82:      fd = *(fcb + Z_mfcb + Z_fcbfd);
   83:      if ((close (fd) != 0) && (*ierr == 0)) {
   84:          if (errno !=1 ) {
   85:             *(fcb + Z_mfcb + Z_fcberr) = errno;
   86:             *ierr = 1;
   87:             }
   88:          }
   89:      }
   91:   return;
   92:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPCL2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:26:06 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPMI2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPMI2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPMI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
AIPSCC    : Date       Fri Jul 18 17:26:06 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c:5:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c: In function `ztpmi2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c:67: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c:67: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c:67: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tpmi2__
    2:#include <unistd.h>
    3:#include <string.h>
    4:#include <errno.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void ztpmi2_(char *oper, int *fcb, char *buff, int *nbytes, int *ierr)
    9:#else
   10:   void ztpmi2_(oper, fcb, buff, nbytes, ierr)
   11:   char oper[], buff[];
   12:   int *fcb, *nbytes, *ierr;
   13:#endif
   14:/*--------------------------------------------------------------------*/
   15:/*! read/write from/to a tape device                                  */
   16:/*# IO-basic Tape                                                     */
   17:/*--------------------------------------------------------------------*/
   18:/*;  Copyright (C) 1995, 1997, 2003                                   */
   19:/*;  Associated Universities, Inc. Washington DC, USA.                */
   20:/*;                                                                   */
   21:/*;  This program is free software; you can redistribute it and/or    */
   22:/*;  modify it under the terms of the GNU General Public License as   */
   23:/*;  published by the Free Software Foundation; either version 2 of   */
   24:/*;  the License, or (at your option) any later version.              */
   25:/*;                                                                   */
   26:/*;  This program is distributed in the hope that it will be useful,  */
   27:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   28:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   29:/*;  GNU General Public License for more details.                     */
   30:/*;                                                                   */
   31:/*;  You should have received a copy of the GNU General Public        */
   32:/*;  License along with this program; if not, write to the Free       */
   33:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   34:/*;  MA 02139, USA.                                                   */
   35:/*;                                                                   */
   36:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   37:/*;         Internet email: aipsmail at nrao.edu.                        */
   38:/*;         Postal address: AIPS Project Office                       */
   39:/*;                         National Radio Astronomy Observatory      */
   40:/*;                         520 Edgemont Road                         */
   41:/*;                         Charlottesville, VA 22903-2475 USA        */
   42:/*--------------------------------------------------------------------*/
   43:/*  Read/write "nbytes" 8-bit bytes of data from/to a tape device     */
   44:/*  using "map" I/O (i.e., double buffered, asynchronous I/O).        */
   45:/*  Inputs:                                                           */
   46:/*     oper     C*4    Operation code "READ" or "WRIT"                */
   47:/*     fcb      I(*)   File control block for opened tape drive       */
   48:/*     buff     I(*)   I/O buffer                                     */
   49:/*     nbytes   I      Number of 8-bit bytes to be transferred        */
   50:/*  Output:                                                           */
   51:/*     ierr     I      Error return code: 0 => no error               */
   52:/*                        2 => bad opcode                             */
   53:/*                        3 => I/O error (left for ZTPWA2 now)        */
   54:/*  Generic UNIX version - sysnchronous I/O actually, reports IO error*/
   55:/*  but not End Of File                                               */
   56:/*  Modified for real-time VLA calling olread when fd < 0             */
   57:/*--------------------------------------------------------------------*/
   58:{
   59:                                        /* Offsets to entries in the  */
   60:                                        /* file control blocks        */
   61:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   62:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   64:   int fd, n8 = 8, ifd, ntry, otry, jerr;
   65:   register int i;
   66:   float secs = 100.0;
   67:   char op[5], msgbuf[80], pathname[MAXAPATH] = "ON-LINE";
   68:/*--------------------------------------------------------------------*/
   69:   *ierr = 0;
   70:   pathname[7] = '\0';
   71:                                        /* Form null terminated       */
   72:                                        /* opcode.                    */
   73:   for (i = 0; i < 4; i++)
   74:      op[i] = oper[i];
   75:   op[4] = '\0';
   76:                                        /* Get file descriptor from   */
   77:                                        /* the file control block as  */
   78:                                        /* stored there by ZTPOP2.    */
   79:   fd = *(fcb + Z_fcbfd);
   80:                                        /* Record byte request in the */
   81:                                        /* file control block.        */
   82:   *(fcb + Z_fcbreq) = *nbytes;
   83:                                        /* Also, zero error status &  */
   84:                                        /* transfer count entries.    */
   85:   *(fcb + Z_fcberr) = 0;
   86:   *(fcb + Z_fcbxfr) = 0;
   87:                                        /* Zero byte request just     */
   88:                                        /* initiates double buffered  */
   89:                                        /* I/O.                       */
   90:   if (*(fcb + Z_fcbreq) != 0) {
   91:                                        /* Perform the I/O and record */
   92:                                        /* the # of bytes transferred */
   93:                                        /* in *(fcb + Z_fcbxfr).      */
   94:                                        /* Record the system error    */
   95:                                        /* code (if any) in           */
   96:                                        /* *(fcb + Z_fcberr).         */
   97:      if (strcmp (op, "READ") == 0) {
   98:                                        /* fake fd<0 ==> use Wes'     */
   99:                                        /* on-line device.            */
  100:         if (fd < 0) {
  101:            for (ntry=0; ntry<100; ntry++) {
  102:               *(fcb + Z_fcbxfr) = olread_(&fd, buff, *(fcb + Z_fcbreq));
  103:                                        /* error - close and re-open  */
  104:               if (*(fcb + Z_fcbxfr) == 0) {
  105:                  sprintf (msgbuf, "ZTPMI2: End-of-data: try to reopen");
  106:                  zmsgwr_ (msgbuf, &n8);
  107:                  olclose_(&fd);
  108:                  for (otry=0; otry<100; otry++) {
  109:                     ifd = -99;
  110:                     zdela2_ (&secs, &jerr) ;
  111:                     fd = olopen_(&ifd, pathname, strlen(pathname));
  112:                     sprintf (msgbuf, "ZTPMI2: olopen %d", fd);
  113:                     zmsgwr_ (msgbuf, &n8);
  114:                                        /* open fails */
  115:                     if (fd == -99 || fd >= 0) {
  116:                        sprintf (msgbuf,
  117:                           "ZTPOP2: FAILS TO OPEN ON-LINE - RETRY");
  118:                        if (otry == 99) {
  119:                           sprintf (msgbuf,
  120:                              "ZTPOP2: FAILS TO OPEN ON-LINE - QUIT");
  121:                           ntry = 101;
  122:                           }
  123:                        zmsgwr_ (msgbuf, &n8);
  124:                        }
  125:                     else {
  126:                        *(fcb + Z_fcbfd) = fd;
  127:                        otry = 1000;
  128:                        }
  129:                     }
  130:                  }
  131:               else {
  132:                  ntry=1000;
  133:                  }
  134:               }
  135:            }
  136:         else {
  137:            *(fcb + Z_fcbxfr) = read(fd, buff, *(fcb + Z_fcbreq));
  138:            }
  139:         if (*(fcb + Z_fcbxfr) == -1) {
  140:            *(fcb + Z_fcberr) = errno;
  141:            }
  142:         }
  143:      else if (strcmp (op, "WRIT") == 0) {
  144:         if ((*(fcb + Z_fcbxfr) =
  145:            write (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  146:            *(fcb + Z_fcberr) = errno;
  147:            }
  148:         }
  149:                                        /* Bad opcode.                */
  150:      else {
  151:         *ierr = 2;
  152:         }
  153:      }
  154:                                        /* Exit.                      */
  155:   return;
  156:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPMI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:26:07 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPMID.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPMID.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPMID.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
AIPSCC    : Date       Fri Jul 18 17:26:07 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tpmid__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <string.h>
    5:#include <errno.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void ztpmid_(char *oper, int *blkno, int *fcb, char *buff,
   11:      int *nbytes, int *ierr)
   12:#else
   13:   void ztpmid_(oper, blkno, fcb, buff, nbytes, ierr)
   14:   char oper[], buff[];
   15:   int *fcb, *blkno, *nbytes, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read/write 2880 byte blocks of data from/to disk                  */
   19:/*# Z Tape                                                            */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 1997-1999, 2001                              */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Read/write "nbytes" of data from/to disk at FITS block blkno      */
   47:/*                                                                    */
   48:/*  NOTE: This is for TAPIO type operations only, i.e., LRECL=2880,   */
   49:/*        FTAB(FIND+5) = I   logical record number.                   */
   50:/*                                                                    */
   51:/*  Inputs:                                                           */
   52:/*     oper     C*4    Operation code "READ" or "WRIT"                */
   53:/*     blkno    I      Block number to read/write                     */
   54:/*     fcb      I(*)   File control block for open map disk file      */
   55:/*                     and buffer involved                            */
   56:/*     nbytes   I      Number of real bytes to be transferred         */
   57:/*  In/out:                                                           */
   58:/*     buff     I(*)   I/O buffer                                     */
   59:/*  Output:                                                           */
   60:/*     ierr     I      Error return code: 0 => no error               */
   61:/*                        2 => bad opcode                             */
   62:/*                        3 => I/O error (also see ZWAI2)             */
   63:/*                        4 => end of file (see ZWAI2)                */
   64:/*  "fcb" has syserr for ZTPWAD to return error                       */
   65:/*  Generic UNIX version.                                             */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:                                        /* Offsets to entries in the  */
   69:                                        /* file control blocks        */
   70:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr;
   71:   int fd, n7 = 7;
   72:   off_t firstbyte;
   73:   register int i;
   74:   char op[5], msgbuf[80];
   75:/*--------------------------------------------------------------------*/
   76:   *ierr = 0;
   77:                                        /* Form null terminated       */
   78:                                        /* opcode.                    */
   79:   for (i = 0; i < 4; i++)
   80:      op[i] = oper[i];
   81:   op[4] = '\0';
   82:                                        /* Get file descriptor from   */
   83:                                        /* the file control block as  */
   84:                                        /* stored there by ZDAOPN.    */
   85:   fd = *(fcb + Z_fcbfd);
   86:                                        /* Record byte request in the */
   87:                                        /* file control block.        */
   88:   *(fcb + Z_fcbreq) = *nbytes;
   89:                                        /* Also, zero error status &  */
   90:                                        /* transfer count entries.    */
   91:   *(fcb + Z_fcberr) = 0;
   92:   *(fcb + Z_fcbxfr) = 0;
   93:                                        /* Zero byte request just     */
   94:                                        /* initiates double buffered  */
   95:                                        /* I/O.                       */
   96:   if (*(fcb + Z_fcbreq) != 0) {
   97:                                        /* Only non-zero byte reqest  */
   98:                                        /* is 2880.                   */
   99:      if (*(fcb + Z_fcbreq) != 2880) {
  100:         *ierr = 2;
  101:         }
  102:      else {
  103:                                        /* Calculate the byte offset  */
  104:                                        /* (0-relative) in the file   */
  105:                                        /* that correspond to the     */
  106:                                        /* virtual block number.      */
  107:         firstbyte = (*blkno - 1);
  108:         firstbyte = firstbyte * 2880;
  109:                                        /* Set file pointer of the    */
  110:                                        /* file descriptor to the     */
  111:                                        /* absolute byte address      */
  112:                                        /* "firstbyte".               */
  113:         if (lseek (fd, firstbyte, 0) == -1) {
  114:            *(fcb + Z_fcberr) = errno;
  115:            sprintf (msgbuf,
  116:               "ZTPMID: LSEEK ERROR ON FILE DESCRIPTOR %d", fd);
  117:            zmsgwr_ (msgbuf, &n7);
  118:            sprintf (msgbuf,
  119:               "ZTPMID: POSITIONING FILE POINTER TO BYTE OFFSET %d",
  120:               firstbyte);
  121:            zmsgwr_ (msgbuf, &n7);
  122:            *ierr = 3;
  123:            }
  124:                                        /* Perform the I/O and record */
  125:                                        /* the # of bytes transferred */
  126:                                        /* in *(fcb + Z_fcbxfr).      */
  127:                                        /* Record the system error    */
  128:                                        /* code (if any) in           */
  129:                                        /* *(fcb + Z_fcberr).         */
  130:         else {
  131:            if (strcmp (op, "READ") == 0) {
  132:               if ((*(fcb + Z_fcbxfr) =
  133:                  read (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  134:                  *(fcb + Z_fcberr) = errno;
  135:                  *ierr = 3;
  136:                  }
  137:               }
  138:            else if (strcmp (op, "WRIT") == 0) {
  139:               if ((*(fcb + Z_fcbxfr) =
  140:                  write (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  141:                  *(fcb + Z_fcberr) = errno;
  142:                  *ierr = 3;
  143:                  }
  144:               }
  145:                                        /* Bad opcode.                */
  146:            else {
  147:               *ierr = 2;
  148:               }
  149:            }
  150:         }
  151:      }
  153:   return;
  154:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPMID.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:26:08 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPOP2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPOP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPOP2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
AIPSCC    : Date       Fri Jul 18 17:26:08 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:8:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:11: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c: In function `ztpop2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:71: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:71: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:71: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:71: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tpop2__
    2:#include <unistd.h>
    3:#include <fcntl.h>
    4:#include <stdio.h>
    5:#include <string.h>
    6:#include <errno.h>
    7:#include <sys/file.h>
    8:#include <AIPSPROTO.H>
   10:#if __STDC__
   11:   void ztpop2_(int *fcb, char pname[MAXPNAME], int *mode, int *ierr)
   12:#else
   13:   ztpop2_(fcb, pname, mode, ierr)
   14:   int *fcb, *mode, *ierr;
   15:   char pname[MAXPNAME];
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! open a tape device for double-buffer, asymchronous IO             */
   19:/*# IO-basic Tape                                                     */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 2000, 2003                                   */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Open a tape drive for "map" (double buffered, asynchronous) I/O.  */
   47:/*  Inputs:                                                           */
   48:/*     pname   C*48   Physical file name                              */
   49:/*     mode    I      Mode indicator: 0 => read only                  */
   50:/*                                    2 => read/write                 */
   51:/*  Output:                                                           */
   52:/*     fcb     I(*)   File control block for opened tape drive        */
   53:/*     ierr    I      Error return code: 0 => no error                */
   54:/*                             2 => no such logical device            */
   55:/*                             3 => device not found                  */
   56:/*                             6 => other open error                  */
   57:/*  Generic UNIX version - synchronous I/O only.                      */
   58:/*  Modified for real-time VLA: if pathname = ON-LINE, call olopen and*/
   59:/*  use fd < 0.                                                       */
   60:/*--------------------------------------------------------------------*/
   61:{
   62:                                        /* Offsets to entries in the  */
   63:                                        /* file control blocks        */
   64:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   65:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   66:                                        /* # FTAB elements per map    */
   67:                                        /* file control block         */
   68:   extern int Z_mfcb;
   69:   int llen, xlen, xlnb, jerr, fd, dupfd, ifd, ntry, n8 = 8;
   70:   register int i, j;
   71:   char lognam[MAXPNAME], pathname[MAXAPATH], msgbuf[80];
   72:   float secs = 100.0;
   73:/*--------------------------------------------------------------------*/
   74:   *ierr = 0;
   75:                                        /* Extract logical device.    */
   76:   for (i = 0; i < MAXPNAME && pname[i] != ':'; i++)
   77:      lognam[i] = pname[i];
   78:   lognam[i] = '\0';
   79:                                        /* Translate logical device   */
   80:                                        /* name and null terminate.   */
   81:   llen = MAXPNAME;
   82:   xlen = MAXAPATH;
   83:   ztrlo2_ (&llen, lognam, &xlen, pathname, &xlnb, &jerr);
   84:   if (jerr != 0) {
   85:      *ierr = 3;
   86:      }
   87:   else {
   88:      pathname[xlnb] = '\0';
   89:                                        /* Open the tape drive        */
   90:                                        /* according to "mode".       */
   91:                                        /* If this is Wes' on-line    */
   92:                                        /* device, use special open   */
   93:                                        /* & use fake file descriptor */
   94:      errno = 0;
   95:      if ((strncmp(pathname, "on-line", 7) == 0) ||
   96:         (strncmp(pathname, "ON-LINE", 7)) == 0) {
   97:         for (ntry=0; ntry<100; ntry++) {
   98:            ifd = -99;
   99:            fd = olopen_(&ifd, pathname, strlen(pathname));
  100:            sprintf (msgbuf, "ZTPOP2: olopen %d", fd);
  101:            zmsgwr_ (msgbuf, &n8);
  102:                                        /* open fails */
  103:            if (fd < -99) {
  104:               sprintf (msgbuf,
  105:                  "ZTPOP2: NOT ON-LINE VERSION - QUIT");
  106:                  zmsgwr_ (msgbuf, &n8);
  107:                  *ierr = 3;
  108:                  }
  109:            else if (fd == -99 || fd >= 0) {
  110:               if (ntry == 99) {
  111:                  sprintf (msgbuf,
  112:                     "ZTPOP2: FAILS TO OPEN ON-LINE - QUIT");
  113:                  zmsgwr_ (msgbuf, &n8);
  114:                  *ierr = 6;
  115:                  }
  116:               else {
  117:                  sprintf (msgbuf,
  118:                     "ZTPOP2: FAILS TO OPEN ON-LINE - RETRY");
  119:                  zmsgwr_ (msgbuf, &n8);
  120:                  zdela2_ (&secs, &jerr) ;
  121:                  }
  122:               }
  123:            else
  124:               ntry = 1000;
  125:            }
  126:         }
  127:      else {
  128:         fd = open (pathname, *mode);
  129:         if (fd == -1) {
  130:            *(fcb + Z_fcberr) = errno;
  131:                                        /* Device doesn't exist.      */
  132:            if (errno == ENOENT)
  133:               *ierr = 2;
  134:                                        /* Some other open error.     */
  135:            else
  136:               *ierr = 6;
  137:            }
  138:         }
  139:                                        /* Get duplicate file         */
  140:                                        /* descriptor for 2nd buffer  */
  141:                                        /* (this is only necessary    */
  142:                                        /* for I/O wait servicing).   */
  143:      if (*ierr == 0) {
  144:         *(fcb + Z_fcbfd) = fd;
  145:                                        /* Single buffered            */
  146:         if (fd < 0)
  147:            *(fcb + Z_mfcb + Z_fcbfd) = fd;
  148:         else {
  149:            dupfd = dup(fd);
  150:            if (dupfd == -1) {
  151:                                        /* Store 2nd buffer info in   */
  152:                                        /* 1st buffer FCB for error   */
  153:                                        /* processing (kludge).       */
  154:               *(fcb + Z_mfcb + Z_fcbfd) = dupfd;
  155:               for (i = 0; i < Z_mfcb; i++)
  156:                  *(fcb + i) = *(fcb + Z_mfcb + i);
  157:               *(fcb + Z_fcberr) = errno;
  158:               close (fd);
  159:               *ierr = 6;
  160:               }
  161:            else {
  162:               *(fcb + Z_mfcb + Z_fcbfd) = dupfd;
  163:                                        /* Enable asynchronous mode   */
  164:                                        /* for both buffers here (not */
  165:                                        /* implemented in this        */
  166:                                        /* version).                  */
  167:               }
  168:            }
  169:         }
  170:      }
  172:   return;
  173:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPOP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:26:08 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPOPD.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPOPD.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPOPD.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
AIPSCC    : Date       Fri Jul 18 17:26:09 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:11:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:15: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c: In function `ztpopd_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:73: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:73: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:73: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_tpopd__
    5:#include <unistd.h>
    6:#include <fcntl.h>
    7:#include <string.h>
    8:#include <errno.h>
    9:#include <sys/types.h>
   10:#include <sys/stat.h>
   11:#include <AIPSPROTO.H>
   12:#define PMODE 0666                      /* Creation permission bits.  */
   14:#if __STDC__
   15:   void ztpopd_(int *fcb, char pname[MAXAPATH], int * mode, int *ierr)
   16:#else
   17:   void ztpopd_(fcb, pname, mode, ierr)
   18:   int *fcb, *mode, *ierr ;
   19:   char pname[MAXAPATH] ;
   20:#endif
   21:/*--------------------------------------------------------------------*/
   22:/*! open the specified FITS disk file                                 */
   23:/*# Z2 IO-tape                                                        */
   24:/*--------------------------------------------------------------------*/
   25:/*;  Copyright (C) 1995, 1997, 2001-2002                              */
   26:/*;  Associated Universities, Inc. Washington DC, USA.                */
   27:/*;                                                                   */
   28:/*;  This program is free software; you can redistribute it and/or    */
   29:/*;  modify it under the terms of the GNU General Public License as   */
   30:/*;  published by the Free Software Foundation; either version 2 of   */
   31:/*;  the License, or (at your option) any later version.              */
   32:/*;                                                                   */
   33:/*;  This program is distributed in the hope that it will be useful,  */
   34:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   35:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   36:/*;  GNU General Public License for more details.                     */
   37:/*;                                                                   */
   38:/*;  You should have received a copy of the GNU General Public        */
   39:/*;  License along with this program; if not, write to the Free       */
   40:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   41:/*;  MA 02139, USA.                                                   */
   42:/*;                                                                   */
   43:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   44:/*;         Internet email: aipsmail at nrao.edu.                        */
   45:/*;         Postal address: AIPS Project Office                       */
   46:/*;                         National Radio Astronomy Observatory      */
   47:/*;                         520 Edgemont Road                         */
   48:/*;                         Charlottesville, VA 22903-2475 USA        */
   49:/*--------------------------------------------------------------------*/
   50:/*  Opens a disk file for map (double buffered) or non-map (single    */
   51:/*  buffered) I/O and shared or exclusive use.                        */
   52:/*  Inputs:                                                           */
   53:/*     pname   H*256  Physical file name (H for Macro, C, ...')       */
   54:/*     mode    I      0 -> read only, 2 -> read/write                 */
   55:/*  Output:                                                           */
   56:/*     fcb     I(*)   File control block for disk file involved       */
   57:/*     ierr    I      Error return code: 0 => no error                */
   58:/*                       2 => file not found                          */
   59:/*                       6 => other open error                        */
   60:/*                       7 = illegal file name (translation fails)    */
   61:/*                       8 = 'write' file already exists              */
   62:/*  Generic UNIX version (synchronous I/O only).                      */
   63:/*--------------------------------------------------------------------*/
   64:{
   65:                                        /* Offsets to entries in the  */
   66:                                        /* file control blocks        */
   67:   extern int Z_fcbfd, Z_fcberr;
   68:                                        /* # of FTAB elements per map */
   69:                                        /* file control block         */
   70:   extern int Z_mfcb;
   71:   int llen, xlen, xlnb, jerr, syserr, fd, dupfd, excl;
   72:   register int i, j;
   73:   char pathname[MAXAPATH];
   74:/*--------------------------------------------------------------------*/
   75:   *ierr = 0 ;
   76:                                        /* get full file name         */
   77:   llen = MAXAPATH;
   78:   xlen = MAXAPATH;
   79:   zpath_(&llen, pname, &xlen, pathname, &xlnb, &jerr) ;
   80:   if (jerr != 0) {
   81:      *ierr = 3;
   82:      }
   83:   else {
   84:      pathname[xlnb] = '\0';
   85:                                        /* Open the disk file read    */
   86:                                        /* only or write only.        */
   87:      if (*mode == 0) {
   88:                                        /* Open read only.            */
   89:         excl = 0;
   90:         if ((fd = open (pathname, O_RDONLY)) == -1) {
   91:            *(fcb + Z_fcberr) = errno;
   92:                                        /* File doesn't exist.        */
   93:            if (errno == ENOENT)
   94:               *ierr = 2;
   95:                                        /* Some other open error.     */
   96:            else
   97:               *ierr = 6;
   98:            }
   99:         }
  100:      else if (*mode == 2) {
  101:                                        /* Open read/write.           */
  102:         excl = 1;
  103:         if ((fd = open (pathname, O_CREAT | O_EXCL | O_RDWR, PMODE))
  104:            == -1) {
  105:            *(fcb + Z_fcberr) = errno;
  106:                                        /* File already exists.       */
  107:            if (errno == EEXIST)
  108:               *ierr = 8;
  109:                                        /* Some other open error.     */
  110:            else
  111:               *ierr = 6;
  112:            }
  113:         }
  114:      else {
  115:                                        /* Invalid mode indicator.    */
  116:         *ierr = 6;
  117:         }
  118:                                        /* Proceed if all ok so far.  */
  119:      if (*ierr == 0) {
  120:         *(fcb + Z_fcbfd) = fd;
  121:                                        /* Apply non-blocking lock.   */
  122:         zlock_ (&fd, pname, &excl, &syserr, ierr);
  123:         if (*ierr != 0) {
  124:            *(fcb + Z_fcberr) = syserr;
  125:            close (fd);
  126:            }
  127:         else {
  128:                                        /* Get duplicate file         */
  129:                                        /* descriptor for 2nd buffer  */
  130:                                        /* (this is only necessary    */
  131:                                        /* for I/O wait servicing).   */
  132:            if ((dupfd = dup(fd)) == -1) {
  133:               *(fcb + Z_mfcb + Z_fcberr) = errno;
  134:               close (fd);
  135:               *ierr = 6;
  136:               }
  137:            else {
  138:               *(fcb + Z_mfcb + Z_fcbfd) = dupfd;
  139:               }
  140:            }
  141:         }
  142:      }
  143:                                        /* Exit.                      */
  144:   return;
  145:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPOPD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:26:09 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTOP2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTTOP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTOP2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
AIPSCC    : Date       Fri Jul 18 17:26:09 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:16:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:19: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:26: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c: In function `zttop2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:86: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:86: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:86: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:87: error: `MAXAPATH' undeclared (first use in this function)
/usr/include/ctype.h: At top level:
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:19: error: storage size of `pathname2' isn't known
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ttop2__
    2:#include <unistd.h>
    3:#include <stdlib.h>
    4:#include <stdio.h>
    5:#include <string.h>
    7:#include <errno.h>
    8:#include <sys/types.h>
    9:#include <sys/socket.h>
   10:#include <sys/un.h>
   11:#include <netinet/in.h>
   12:#include <netdb.h>
   13:#include <sys/stat.h>
   14:#include <string.h>
   15:#include <ctype.h>
   16:#include <AIPSPROTO.H>
   17:                                        /* Global data for remembered */
   18:                                        /* translation and flag       */
   19:char pathname2[MAXAPATH];
   20:int remembered=0;
   21:struct sockaddr_un mc_sock_nune;
   22:struct sockaddr_in ms_sock_name;
   23:int msg_fd = -1;
   25:#if __STDC__
   26:   void zttop2_(int *fcb, char pname[MAXPNAME], int *ierr)
   27:#else
   28:   void zttop2_(fcb, pname, ierr)
   29:   int *fcb, *ierr;
   30:   char pname[MAXPNAME];
   31:#endif
   32:/*--------------------------------------------------------------------*/
   33:/*! read/write from/to a message terminal                             */
   34:/*# Graphics                                                          */
   35:/*--------------------------------------------------------------------*/
   36:/*;  Copyright (C) 1995-1998, 2000                                    */
   37:/*;  Associated Universities, Inc. Washington DC, USA.                */
   38:/*;                                                                   */
   39:/*;  This program is free software; you can redistribute it and/or    */
   40:/*;  modify it under the terms of the GNU General Public License as   */
   41:/*;  published by the Free Software Foundation; either version 2 of   */
   42:/*;  the License, or (at your option) any later version.              */
   43:/*;                                                                   */
   44:/*;  This program is distributed in the hope that it will be useful,  */
   45:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   46:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   47:/*;  GNU General Public License for more details.                     */
   48:/*;                                                                   */
   49:/*;  You should have received a copy of the GNU General Public        */
   50:/*;  License along with this program; if not, write to the Free       */
   51:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   52:/*;  MA 02139, USA.                                                   */
   53:/*;                                                                   */
   54:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   55:/*;         Internet email: aipsmail at nrao.edu.                        */
   56:/*;         Postal address: AIPS Project Office                       */
   57:/*;                         National Radio Astronomy Observatory      */
   58:/*;                         520 Edgemont Road                         */
   59:/*;                         Charlottesville, VA 22903-2475 USA        */
   60:/*--------------------------------------------------------------------*/
   61:/*  Open a message terminal for exclusive use.                        */
   62:/*                                                                    */
   63:/*  Inputs:                                                           */
   64:/*     pname   C*48   A "logical", either TTDEVnn or TASKTTn, which   */
   65:/*                      in turn translates to a hostname or hardwired */
   66:/*                      terminal device.  If translation cannot be    */
   67:/*                      accessed as a file, a socket is assumed.      */
   68:/*  Output:                                                           */
   69:/*     fcb     I(*)   File control block for opened device            */
   70:/*     ierr    I      Error return code: 0 => no error                */
   71:/*                             2 => no such logical device            */
   72:/*                             3 => invalid hostname or service       */
   73:/*                             6 => socket or connect call failed     */
   74:/*  Generic UNIX version -- assumes berkeley sockets.                 */
   75:/*  PPM 93/Mar/03: Pat Murphy, NRAO.  Clone of ztkop2, originally     */
   76:/*                 by Jonathan D. Eisenhamer, UCLA.                   */
   77:/*--------------------------------------------------------------------*/
   78:{
   79:                                        /* Offsets to entries in the  */
   80:                                        /* file control blocks        */
   81:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   82:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4, Z_nfcbfd, Z_nfcber;
   84:   int llen, xlen, tlen, xlnb, jerr, fd, isspec;
   85:   register int i;
   86:   char lognam[MAXPNAME],
   87:        pathname[MAXAPATH],
   88:        lnam[6], tlnam[8], *device;
   89:                                        /* Hostname, inet srvc info   */
   90:   struct hostent *hp;
   91:   struct servent *sp;
   92:                                        /* Socket descriptor, name    */
   93:   int s;
   94:/*--------------------------------------------------------------------*/
   95:   *ierr = 0;
   96:                                        /* Extract logical device     */
   97:                                        /* name.                      */
   98:   for (i = 0; i < MAXPNAME && pname[i] != ':' && pname[i] != ' '; i++)
   99:      lognam[i] = pname[i];
  100:   lognam[i] = '\0';
  101:                                        /* Translate logical device   */
  102:                                        /* name and null terminate.   */
  103:   jerr = 0;
  104:   if (remembered == 0) {
  105:      llen = MAXPNAME;
  106:      xlen = MAXAPATH;
  107:      ztrlo2_ (&llen, lognam, &xlen, pathname, &xlnb, &jerr);
  108:      if (jerr != 0) {
  109:         fprintf (stderr, "ZTTOP2: error translating %s\n", lognam);
  110:         *ierr = 2;
  111:         }
  112:      else {
  113:         if ((device = getenv(getenv("TVDEV"))) == NULL) {
  114:                                        /* undefined                  */
  115:            fprintf (stderr, "ZTTOP2: NO SUCH DEVICE = TVDEV\n");
  116:            *ierr = 2;
  117:            jerr = 2;
  118:            }
  119:         }
  120:      }
  121:                                        /* Only do if ztrlo2 worked.. */
  122:   if (jerr == 0) {
  123:                                        /* and if we haven't before.. */
  124:      if (remembered == 0) {
  125:         pathname[xlnb] = '\0';
  126:                                        /* open socket, INET domain   */
  127:         isspec = 2;
  128:         if (strncmp(device,"sssin",5) == 0) isspec = 1;
  129:                                        /* Now, if it's NOT special,  */
  130:                                        /* assume that it is meant to */
  131:                                        /* be an INET domain socket   */
  132:         if (isspec == 1) {
  133:            if ((hp = gethostbyname (pathname)) == 0) {
  134:                                        /* ouch, something is wrong   */
  135:               *(fcb + Z_nfcber) = errno;
  136:               *ierr = 3;
  137:               }
  138:            else if ((sp = getservbyname ("msgserv", "tcp")) == 0) {
  139:                                        /* Get the port on which the  */
  140:                                        /* the msgserver resides.     */
  141:               *(fcb + Z_nfcber) = errno;
  142:               *ierr = 3;
  143:               }
  144:            else {
  145:                                        /* ok, NOW remember this!     */
  146:               strcpy (pathname2, pathname);
  147:               remembered = isspec;
  148:               memset ((char *)&ms_sock_name, 0, sizeof (ms_sock_name));
  149:               memcpy ((char *)&ms_sock_name.sin_addr,
  150:                       (char *)hp->h_addr, hp->h_length);
  151:               ms_sock_name.sin_family = hp->h_addrtype;
  152:               ms_sock_name.sin_port   = sp->s_port;
  153:               }
  154:            }
  155:         else {                      /* INET domain */
  156:            if ((device = getenv(getenv("TTDEV"))) == NULL) {
  157:                                        /* undefined                  */
  158:               fprintf(stderr, "ZTTOP22: NO SUCH DEVICE = TTDEV\n");
  159:               *ierr = 2;
  160:               }
  161:            mc_sock_nune.sun_family = AF_UNIX;
  162:            strcpy(mc_sock_nune.sun_path, device);
  163:            remembered = isspec;
  164:            }
  165:         }
  166:      if (*ierr == 0) {
  167:                                        /* Create the communications  */
  168:                                        /* socket.                    */
  169:         if (remembered == 1) {
  170:            if ((s = socket (ms_sock_name.sin_family, SOCK_STREAM, 0))
  171:                == -1) {
  172:               *(fcb + Z_fcberr) = errno;
  173:               *ierr = 6;
  174:               }
  175:                                        /* Connect to the server.     */
  176:                                        /* From here on, everything   */
  177:                                        /* is treated the same.  Only */
  178:                                        /* thing to watch is how to   */
  179:                                        /* close things (zttcl2)      */
  180:                                        /* Note non-fcp I/O here!!!   */
  181:            else {
  182:               if (connect (s,  (struct sockaddr *) &ms_sock_name,
  183:                  sizeof(ms_sock_name)) == -1) {
  184:                  *(fcb + Z_nfcber) = errno;
  185:                  *ierr = 6;
  186:                  close(s);
  187:                  *(fcb + Z_nfcbfd) = 0;
  188:                  }
  189:               else {
  190:                  *(fcb + Z_nfcbfd) = s;
  191:                  *(fcb + Z_nfcber) = 0;
  192:                  }
  193:               }
  194:            }
  195:         else {
  196:            if ((s = (int)socket(AF_UNIX, SOCK_STREAM, 0)) < 0) {
  197:               perror("TTOP2 socket (UNIX)");
  198:               *(fcb + Z_nfcber) = errno;
  199:               *ierr = 1;
  200:               }
  201:            else {
  202:               if (connect(s, (struct sockaddr *) &mc_sock_nune,
  203:                  (sizeof(mc_sock_nune.sun_path)
  204:                  +sizeof(mc_sock_nune.sun_family))) < 0) {
  205:/*                perror("TTOP2 connect (UNIX)");  */
  206:                  *(fcb + Z_nfcber) = errno;
  207:                  *ierr = 6;
  208:                  close(s);
  209:                  *(fcb + Z_nfcbfd) = 0;
  210:                  }
  211:               else {
  212:                  *(fcb + Z_nfcbfd) = s;
  213:                  *(fcb + Z_nfcber) = 0;
  214:                  }
  215:               }
  216:            }
  217:         }
  218:      }
  219:                                        /* something went amiss, so   */
  220:                                        /* reset TTDEV and quit       */
  221:   if (*ierr != 0) {
  222:      remembered = 0;
  223:      strcpy(lnam, "TTDEV");
  224:      strcpy(tlnam, "TTDEV00");
  225:      llen=strlen(lnam);
  226:      tlen=strlen(tlnam);
  227:      zcrlog_(&llen, lnam, &tlen, tlnam, &jerr);
  228:      if (jerr != 0) {
  229:         fprintf (stderr,
  230:                "ZTTOP2: (info) problem opening socket to msgserver\n");
  231:         fprintf (stderr,
  232:                "ZTTOP2: (info) failed to reset message device\n");
  233:         }
  234:      }
  236:                                       /* store the file descriptor  */
  237:                                       /* so that ZTACV9 can get at  */
  238:                                       /* it                         */
  239:   msg_fd = *(fcb + Z_nfcbfd);
  241:   return;
  242:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTTOP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:26:10 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTXMA2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTXMA2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTXMA2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
AIPSCC    : Date       Fri Jul 18 17:26:10 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c:10:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c: In function `ztxma2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c:72: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c:72: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c:72: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_txma2__
    5:#include <unistd.h>
    6:#include <stdlib.h>
    7:#include <sys/types.h>
    8:#include <string.h>
    9:#include <dirent.h>
   10:#include <AIPSPROTO.H>
   12:#if __STDC__
   13:   void ztxma2_(int *flen, char *filspc, int *nmax, int *iext,
   14:      int *nnam, char *names, int *ierr)
   15:#else
   16:   void ztxma2_(flen, filspc, nmax, iext, nnam, names, ierr)
   17:   int *flen, *nmax, *iext, *nnam, *ierr;
   18:   char filspc[], names[];
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! find all file names matching a given wildcard specification       */
   22:/*# Text                                                              */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995, 1997                                         */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*  Find all file names that match a given wild card specification.   */
   50:/*  Supports <aa>*<bb> only.                                          */
   51:/*  Inputs:                                                           */
   52:/*     flen     I          Length in characters of "filspc"           */
   53:/*     filspc   C*(flen)   File specification                         */
   54:/*     nmax     I          Maximum number of names                    */
   55:/*     iext     I          Extension disposition indicator:           */
   56:/*                            0 => remove extension                   */
   57:/*                            1 => retain extension                   */
   58:/*  Output:                                                           */
   59:/*     nnam     I          Number of matching names found             */
   60:/*     names    H*12(nmax) Array of matching names (H for Macro, C...)*/
   61:/*     ierr     I          Error return code:                         */
   62:/*                            0 => no error                           */
   63:/*                            1 => no matching names found            */
   64:/*                            2 => error opening or closing directory */
   65:/*  Generic UNIX version -                                            */
   66:/*  This is Posix-compliant and simple minded: it can handle name*    */
   67:/*  and *name and not much else.  This is enough for AIPS.            */
   68:/*--------------------------------------------------------------------*/
   69:{
   70:   DIR           *dfd;
   71:   struct dirent *dirp;
   72:   char          dspc[MAXAPATH], fspc[MAXAPATH], bspc[MAXAPATH];
   73:   register int  i, j, k, l;
   74:   int           nf, nb, nt;
   75:/*--------------------------------------------------------------------*/
   76:   *ierr = 0;
   77:   *nnam = 0;
   78:                                        /* Determine the beginning of */
   79:                                        /* the file name (end of      */
   80:                                        /* directory name) as "i".    */
   81:   i = 0;
   82:   for (j = 0; j < *flen; j++)
   83:      if (filspc[j] == '/') i = j;
   84:                                        /* Extract directory name.    */
   85:   for (j = 0; j < i; j++)
   86:      dspc[j] = filspc[j];
   87:   dspc[i] = '\0';
   88:                                        /* Provide for no directory.  */
   89:   if (i == 0)
   90:      i = -1;
   91:                                        /* Collect chars before '*'   */
   92:   nf = 0;
   93:   for (j = i + 1; j < *flen && nf < MAXAPATH && filspc[j] != '*' &&
   94:      filspc[j] != '\0' && filspc[j] != ' '; j++) {
   95:      fspc[nf] = filspc[j];
   96:      nf = nf + 1;
   97:      }
   98:   fspc[nf] = '\0';
   99:                                        /* Collect chars after '*'    */
  100:   nb = 0;
  101:   if (filspc[j] == '*') {
  102:      for (j = j + 1; j < *flen && nb < MAXAPATH && filspc[j] != '\0'
  103:         && filspc[j] != ' '; j++) {
  104:         bspc[nb] = filspc[j];
  105:         nb = nb + 1;
  106:         }
  107:      }
  108:   bspc[nb] = '\0';
  109:                                        /* Open directory             */
  110:   if ((dfd = opendir (dspc)) == NULL)
  111:      *ierr = 2;
  112:                                        /* Collect filenames that     */
  113:                                        /* meet specifications.       */
  114:   else {
  115:      while (((dirp = readdir (dfd)) != NULL) &&  (*nnam < *nmax)) {
  116:                                        /* Directory slot not in use. */
  117:         if (dirp->d_ino == 0)
  118:            continue;
  119:                                        /* Skip self and parent.      */
  120:         if (strcmp (dirp->d_name,".")  == 0 ||
  121:             strcmp (dirp->d_name,"..") == 0)
  122:            continue;
  123:                                        /* Compare forwards.          */
  124:         if (nf > 0) {
  125:            for (i = 0; i < nf && i < MAXAPATH; i++) {
  126:               if (dirp->d_name[i] != fspc[i]) goto skip;
  127:               }
  128:            }
  129:                                        /* Compare backwards.         */
  130:         if (nb > 0) {
  131:                                        /* Get length                 */
  132:            for (nt = 0; nt < MAXAPATH && dirp->d_name[nt] != '\0'
  133:              && dirp->d_name[nt] != ' '; nt++);
  134:            k = 0;
  135:            for (i = nt - 1; i >= 0 && k < nb; i--) {
  136:               if (dirp->d_name[i] != bspc[nb-k-1]) goto skip;
  137:               k = k + 1;
  138:               }
  139:            }
  140:                                        /* Found a match:             */
  141:                                        /* find end & last . of name  */
  142:         k = 0;
  143:         l = 0;
  144:         for (i = 0; i < 12 && dirp->d_name[i] != '\0'; i++) {
  145:             k = i;
  146:             if (dirp->d_name[i] == '.') l = i;
  147:             }
  148:         if (l == 0) l = k + 1;
  149:                                        /* Strip extension.           */
  150:         if (*iext == 0) k = l - 1;
  151:                                        /* copy name, blank fill      */
  152:         for (i = 0; i < 12; i++) {
  153:            j = (*nnam * 12) + i;
  154:            if (i > k)
  155:               names[j] = ' ';
  156:            else
  157:               names[j] = dirp->d_name[i];
  158:            }
  159:                                        /* Increment number found.    */
  160:         *nnam = *nnam + 1;
  161:                                        /* Failed to match: skip      */
  162:   skip:
  163:         continue;
  164:         }
  165:                                        /* Close directory.           */
  166:      if (closedir (dfd) != 0)
  167:         *ierr = 2;
  168:      }
  169:                                        /* If more than one, sort     */
  170:                                        /* alphabetically.            */
  171:   if (*nnam > 1)
  172:#if __STDC__
  173:      qsort ((void *) names, (size_t) *nnam, (size_t) 12,
  174:         (int (*)(const void *, const void *)) strcmp);
  175:#else
  176:      qsort (names, *nnam, 12, strcmp);
  177:#endif
  178:   else if (*nnam == 0)
  179:      *ierr = 1;
  181:   return;
  182:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTXMA2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
INSTEP2   : Failure in $APLGEN/...
INSTEP2   : compilations.
INSTEP2   : Aborts!    Fri Jul 18 17:26:11 CDT 2003
INSTEP2   : Begins     Fri Jul 18 17:41:13 CDT 2003

INSTEP2   : Create any missing binary file directories.

INSTEP2   : Directory /usr/local/aips/31DEC03/LINUX/LIBR
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLNOT
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QOOP
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QSUB
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/YSS
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/YSUB
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LOAD
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/MEMORY
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/ERRORS
INSTEP2   : already exists (no need to create).

INSTEP2   : Grind away on mass compilation of subroutines.
INSTEP2   : This part can take a very long time.

INSTEP2   : Process    $AIPSUB/...
INSTEP2   : subroutines.
INSTEP2   : Library    /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB
INSTEP2   : already exists.
INSTEP2   : Skip       $AIPSUB/...
INSTEP2   : compilations.
INSTEP2   : Process    $APLSUB/...
INSTEP2   : subroutines.
INSTEP2   : Library    /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB
INSTEP2   : already exists.
INSTEP2   : Skip       $APLSUB/...
INSTEP2   : compilations.
INSTEP2   : Process    $APLOOP/...
INSTEP2   : subroutines.
INSTEP2   : Library    /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/SUBLIB
INSTEP2   : already exists.
INSTEP2   : Skip       $APLOOP/...
INSTEP2   : compilations.
INSTEP2   : Process    $APLGEN/...
INSTEP2   : subroutines.
INSTEP2   : File       /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
INSTEP2   : already exists (no need to create).
INSTEP2   : Resume     $APLGEN/...
INSTEP2   : compilations at
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABORS.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZACTV9.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBFLI2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICC2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICO2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDKMID.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGMAI2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIGNAL.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIPAC2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLOCK.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSTRTP.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTRLO2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTCL2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTYI2.C
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZABOR2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZBYTF2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZCMPR2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZCREA2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDAOPN.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDEST2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDICIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDIE2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZDM2DL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZEXIS2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZFI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZGRLHI.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZGRLTC.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZGUEST.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZLASC2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZLPCL2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZM70O2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZM70X2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMKTMP.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZMOUN2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZPATH.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZPRMPT.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRDMF.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRENA2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZRM2RL.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSSSL2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZSSSO2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTAP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTKOP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPCL2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPMI2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPMID.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPOP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTPOPD.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTTOP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/APL/DEV/ZTXMA2.FOR
COMRPL    : Date       Fri Jul 18 17:41:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABORS.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
AIPSCC    : Date       Fri Jul 18 17:41:15 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
/usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c:10:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_abors__
    5:#include <sys/types.h>
    6:#include <unistd.h>
    7:#include <stdio.h>
    8:#include <stdlib.h>
    9:#include <signal.h>
   10:#include <AIPSPROTO.H>
   12:static int num_calls = 0;      /* The number of active calls to
   13:                                  zabors.  Since zabors should not
   14:                                  be called recursively this should
   15:                                  be 0 or 1 */
   17:#if __STDC__
   18:   void zabors_(int isig)
   19:#else
   20:   void zabors_(isig)
   21:   int isig;
   22:#endif
   23:/*--------------------------------------------------------------------*/
   24:/*! does abort handling selected by ZABORT                            */
   25:/*# Z2 System                                                         */
   26:/*--------------------------------------------------------------------*/
   27:/*;  Copyright (C) 1995-1998                                          */
   28:/*;  Associated Universities, Inc. Washington DC, USA.                */
   29:/*;                                                                   */
   30:/*;  This program is free software; you can redistribute it and/or    */
   31:/*;  modify it under the terms of the GNU General Public License as   */
   32:/*;  published by the Free Software Foundation; either version 2 of   */
   33:/*;  the License, or (at your option) any later version.              */
   34:/*;                                                                   */
   35:/*;  This program is distributed in the hope that it will be useful,  */
   36:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   37:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   38:/*;  GNU General Public License for more details.                     */
   39:/*;                                                                   */
   40:/*;  You should have received a copy of the GNU General Public        */
   41:/*;  License along with this program; if not, write to the Free       */
   42:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   43:/*;  MA 02139, USA.                                                   */
   44:/*;                                                                   */
   45:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   46:/*;         Internet email: aipsmail at nrao.edu.                        */
   47:/*;         Postal address: AIPS Project Office                       */
   48:/*;                         National Radio Astronomy Observatory      */
   49:/*;                         520 Edgemont Road                         */
   50:/*;                         Charlottesville, VA 22903-2475 USA        */
   51:/*--------------------------------------------------------------------*/
   52:/*  Abort handler routine.  Error conditions that are being trapped   */
   53:/*  are defined in ZABORT.                                            */
   54:/*  Inputs:                                                           */
   55:/*     isig   I   Signal number (held in the low order 7 bits).       */
   56:/*  Generic UNIX version.                                             */
   57:/*--------------------------------------------------------------------*/
   58:{
   59:   char   msgbuf[80];
   60:   int    i, n3 = 3, n8 = 8;
   61:   pid_t  pid;
   62:/*--------------------------------------------------------------------*/
   63:                                        /* Die immediately if this is */
   64:                                        /* a recursive call           */
   65:   if (num_calls != 0) {
   66:                                        /* Get process id for kill(). */
   67:      pid = getpid ();
   68:                                        /* Reinstate default action   */
   69:                                        /* for illegal instructions.  */
   70:      zignal_ (SIGILL, SIG_DFL);
   71:                                        /* Commit suicide.            */
   72:      kill (pid, SIGILL);
   73:      }
   74:   else {
   75:      num_calls++;
   76:                                        /* Signal number held in low  */
   77:                                        /* order 7 bits.              */
   78:      i = isig & 0177;
   79:                                        /* if AIPS dismount tapes.    */
   80:      zstaip_ ( );
   81:                                        /* Make AIPS accounting entry.*/
   82:      acount_ (&n3);
   83:                                        /* Report signal received.    */
   84:      sprintf (msgbuf, "ZABORS: signal %d received", i);
   85:      zmsgwr_ (msgbuf, &n8);
   86:                                        /* Issue abort message.       */
   87:      sprintf (msgbuf, "ABORT!");
   88:      zmsgwr_ (msgbuf, &n8);
   89:                                        /* clear task id file         */
   90:      zdie_ ( ) ;
   91:                                        /* Just exit on some errors.  */
   92:      i = isig & 0177;
   93:      if (i < 4 || i == 15) {
   94:         exit(1);
   95:         }
   96:                                        /* On others, abort.          */
   97:      else {
   98:                                        /* Get process id for kill(). */
   99:         pid = getpid ();
  100:                                        /* Reinstate default action   */
  101:                                        /* for illegal instructions.  */
  102:         zignal_ (SIGILL, SIG_DFL);
  103:                                        /* Commit suicide.            */
  104:         kill (pid, SIGILL);
  105:         }
  107:      num_calls--;
  108:      }
  110:   return;
  111:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZABORS.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABORS.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZACTV9.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
AIPSCC    : Date       Fri Jul 18 17:41:16 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
/usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c:45:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    5:#include <unistd.h>
    6:                                       /* If <unistd.h> can not be   */
    7:                                       /* found you do not have a    */
    8:                                       /* POSIX.1 compliant system   */
    9:                                       /* and ZACTV9 requires local  */
   10:                                       /* development.               */
   11:#include <sys/wait.h>
   12:#include <sys/types.h>
   13:#include <sys/stat.h>
   14:#include <limits.h>
   15:#include <signal.h>
   16:#include <fcntl.h>
   17:#include <assert.h>
   18:#include <errno.h>
   19:#include <stdio.h>
   21:                                       /* We use our own prototypes   */
   22:                                       /* for string functions if we  */
   23:                                       /* are not using an ANSI C     */
   24:                                       /* compiler so that we don't   */
   25:                                       /* have to worry about the use */
   26:                                       /* of <strings.h> on older BSD */
   27:                                       /* systems.                    */
   28:#ifdef __STDC__
   29:#include <string.h>
   30:#else
   31:extern int strcmp();
   32:extern char *strcpy();
   33:extern int strlen();
   34:#endif
   36:                                       /* The malloc prototype may    */
   37:                                       /* also be stored in           */
   38:                                       /* unpredictable headers if    */
   39:                                       /* not using ANSI C.           */
   40:#ifdef __STDC__
   41:#include <stdlib.h>
   42:#else
   43:extern char *malloc();
   44:#endif
   45:#include <AIPSPROTO.H>
   47:#define PMODE (S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | S_IROTH | S_IWOTH)
   48:#define CMODE (O_WRONLY | O_CREAT | O_TRUNC | O_EXCL)
   50:extern int msg_fd;                    /* Message terminal file        */
   51:                                      /* descriptor (shared by all    */
   52:                                      /* AIPS processes in this       */
   53:                                      /* session) if messages are not */
   54:                                      /* directed to the controlling  */
   55:                                      /* terminal (-1 if they are)    */
   57:#if __STDC__
   58:   void zactv9_(int *flen, char fulnam[], int *plen, char cpname[],
   59:      int *idbg, pid_t *pid, int *syserr, int *ierr)
   60:#else
   61:   void zactv9_(flen, fulnam, plen, cpname, idbg, pid, syserr, ierr)
   62:   int *flen, *plen, *idbg, *pid, *syserr, *ierr;
   63:   char fulnam[], cpname[];
   64:#endif
   65:/*--------------------------------------------------------------------*/
   66:/*! starts requested load module under requested process name         */
   67:/*# Z2 System                                                         */
   68:/*--------------------------------------------------------------------*/
   69:/*;  Copyright (C) 1995, 1997, 2003                                   */
   70:/*;  Associated Universities, Inc. Washington DC, USA.                */
   71:/*;                                                                   */
   72:/*;  This program is free software; you can redistribute it and/or    */
   73:/*;  modify it under the terms of the GNU General Public License as   */
   74:/*;  published by the Free Software Foundation; either version 2 of   */
   75:/*;  the License, or (at your option) any later version.              */
   76:/*;                                                                   */
   77:/*;  This program is distributed in the hope that it will be useful,  */
   78:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   79:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   80:/*;  GNU General Public License for more details.                     */
   81:/*;                                                                   */
   82:/*;  You should have received a copy of the GNU General Public        */
   83:/*;  License along with this program; if not, write to the Free       */
   84:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   85:/*;  MA 02139, USA.                                                   */
   86:/*;                                                                   */
   87:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   88:/*;         Internet email: aipsmail at nrao.edu.                        */
   89:/*;         Postal address: AIPS Project Office                       */
   90:/*;                         National Radio Astronomy Observatory      */
   91:/*;                         520 Edgemont Road                         */
   92:/*;                         Charlottesville, VA 22903-2475 USA        */
   93:/*--------------------------------------------------------------------*/
   94:/*  ZACTV9 will execute the load module "fulnam" as a process/sub-    */
   95:/*  process called "cpname" which consists of the program name with a */
   96:/*  POPS number suffix x (e.g., AIPSx, BATERx, AIPSCx, AIPSBx, QMNGRx */
   97:/*  or <taskname>x).  AIPSx an BATERx are initiated as processes that */
   98:/*  replace the process that invokes ZACTV9 (i.e., without first      */
   99:/*  forking a subprocess).  This means that in the case of AIPSx and  */
  100:/*  BATERx, there is no return from ZACTV9.  The startup programs     */
  101:/*  ZSTRTA and ZSTRTB invoke ZACTV9 (via ZACTV8) as part of the       */
  102:/*  process of initiating an interative AIPS or BATER session.        */
  103:/*  ZACTV9 is only called by ZACTV8. Note that the AIPS daemon        */
  104:/*  DAIPx is treated exactly as AIPSx.                                */
  105:/*                                                                    */
  106:/*  Inputs:                                                           */
  107:/*     FLEN     I          Length in characters of "fulnam"           */
  108:/*     FULNAM   C*(flen)   Full path name of the required executable  */
  109:/*                         module                                     */
  110:/*     PLEN     I          Length in characters of "cpname"           */
  111:/*     CPNAME   C*(plen)   Desired process name (6 characters or      */
  112:/*                         less = program name + POPS number)         */
  113:/*     IDBG     I          1 => start in DEBUGger if possible         */
  114:/*                         0 => use no DEBUGger if possible           */
  115:/*                         Ignore on CPNAME='AIPSn','BATERn'          */
  116:/*  In/Out:                                                           */
  117:/*     PID      I(4)       Process identification information:        */
  118:/*                         In:  *(pid + 0) user number for systems    */
  119:/*                                         use it (= 0 otherwise and  */
  120:/*                                         on all AIPSB invocations)  */
  121:/*                         Out: *(pid + 1) process ID number from     */
  122:/*                                         "fork" or "vfork"          */
  123:/*                              *(pid + 2) not used                   */
  124:/*                              *(pid + 3) not used                   */
  125:/*  Output:                                                           */
  126:/*     SYSERR   I          System error code (i.e., errno) if error   */
  127:/*     IERR     I          Error return code: 0 => no error           */
  128:/*                             1 => error                             */
  129:/*  Generic UNIX version.                                             */
  130:/*  If the OS is does not comply with POSIX.1 then ZACTV9 will issue  */
  131:/*  a message and return an error code.                               */
  132:/*--------------------------------------------------------------------*/
  133:                                       /* If _POSIX_VERSION is not    */
  134:                                       /* defined then we do not have */
  135:                                       /* a POSIX.1 system.           */
  136:#ifndef _POSIX_VERSION
  137:{
  138:   printf("ZACTV9 REQUIRES LOCAL DEVELOPMENT\n");
  139:   *ierr = 1;
  140:   return;
  141:}
  142:/*--------------------------------------------------------------------*/
  143:#else
  144:{
  145:   char *pathname;                     /* pathname of executable.     */
  146:   char *dirname;                      /* directory name of           */
  147:   char procname[7];                   /* desired process name.       */
  148:   char rootname[6];                   /* root name of desired        */
  149:                                       /* process (ie. process name   */
  150:                                       /* without the POPS number.    */
  151:   char *debugger;                     /* pathname of debugger.       */
  152:   struct sigaction newaction;         /* Signal action for INT       */
  153:   struct sigaction saved;             /* Previous signal action for  */
  154:                                       /* INT                         */
  155:   char lockname[_POSIX_PATH_MAX];     /* Name of lock file           */
  156:   int  lockfile;                      /* lock file file descriptor   */
  157:   pid_t child;                        /* PID of child process        */
  158:   pid_t grandchild;                   /* PID of grandchild process   */
  159:   int p[2];                           /* File descriptors for pipe   */
  160:   int i, j, n8 = 8;
  161:   char msg[80];
  162:/*--------------------------------------------------------------------*/
  163:   *syserr = 0;
  164:   if (*plen > 6) {
  165:      *ierr = 2;
  166:      return;
  167:      }
  168:                                       /* Convert pathname of         */
  169:                                       /* executable to null-         */
  170:                                       /* terminated form:            */
  171:   pathname = malloc (*flen+1);
  172:   dirname = malloc (*flen+1);
  173:   for (i = 0; i != *flen && fulnam[i] != ' '; i++) {
  174:                                       /* Invariant: for all k,       */
  175:                                       /* 0 <= k < i,                 */
  176:                                       /* pathname[k] = fulnam[k] and */
  177:                                       /* dirname[k] = fulnam[k]      */
  178:      pathname[i] = fulnam[i];
  179:      dirname[i] = fulnam[i];
  180:      if (fulnam[i] == '/') j = i;
  181:      }
  182:   pathname[i] = '\0';
  183:   dirname[j] = '\0';
  185:                                       /* Convert desired process     */
  186:                                       /* name to null-terminated     */
  187:                                       /* form and save rootname:     */
  188:   for (i = 0; i != *plen && cpname[i] != ' '; i++) {
  189:                                       /* Invariant: for all j,       */
  190:                                       /* 0 <= j < i,                 */
  191:                                       /* procname[j] = cpname[j] and */
  192:                                       /* rootname[j] = cpname[j].    */
  193:      procname[i] = cpname[i];
  194:      rootname[i] = cpname[i];
  195:      }
  196:   procname[i] = '\0';
  197:   rootname[i-1] = '\0';
  199:                                       /* Extract the pathname of the */
  200:                                       /* debugger:                   */
  201:   debugger = NULL;
  202:   if (strcmp (rootname, "AIPS") == 0 ||
  203:       strcmp (rootname, "DAIP") == 0) {
  204:      if (getenv ("AIPSDBUGR") != NULL) {
  205:         debugger = malloc (strlen (getenv ("AIPSDBUGR")) + 1);
  206:         strcpy (debugger, getenv ("AIPSDBUGR"));
  207:         }
  208:      }
  209:   else if (strcmp (rootname, "BATER") == 0) {
  210:      if (getenv ("BATERDBUGR") != NULL) {
  211:         debugger = malloc (strlen (getenv ("BATERDBUGR")) + 1);
  212:         strcpy (debugger, getenv ("BATERDBUGR"));
  213:         }
  214:      }
  215:   else if (*idbg == 1) {
  216:      if (getenv ("DBUGR") != NULL) {
  217:         debugger = malloc (strlen (getenv ("DBUGR")) + 1);
  218:         strcpy (debugger, getenv ("DBUGR"));
  219:         }
  220:      }
  223:                                       /* Check that the executable   */
  224:                                       /* exists and that this        */
  225:                                       /* process can execute it.     */
  226:   if (access (pathname, F_OK) != 0) {
  227:      *syserr = errno;
  228:      *ierr = 1;
  229:      sprintf(msg, "ZACTV9: CANNOT FIND %s", pathname);
  230:      zmsgwr_ (msg, &n8);
  231:      if (errno >= 0) {
  232:         sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  233:         zmsgwr_ (msg, &n8);
  234:         }
  235:      return;
  236:      }
  237:   if (access (pathname, X_OK) != 0) {
  238:      *syserr = errno;
  239:      *ierr = 1;
  240:      sprintf(msg, "ZACTV9: NO EXECUTE PERMISSION FOR %s", pathname);
  241:      zmsgwr_ (msg, &n8);
  242:      if (errno >= 0) {
  243:         sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  244:         zmsgwr_ (msg, &n8);
  245:         }
  246:      return;
  247:      }
  249:   if (debugger != NULL) {
  250:                                       /* Debug mode startup.         */
  252:                                       /* Ignore interrupt signals    */
  253:      newaction.sa_handler = SIG_IGN;
  254:      sigemptyset(&newaction.sa_mask);
  255:      newaction.sa_flags =0;
  256:      if (sigaction (SIGINT, &newaction, &saved) == -1) {
  257:         *syserr = errno;
  258:         *ierr = 1;
  259:         sprintf(msg, "ZACTV9: CANNOT INSTALL SIGINT HANDLER");
  260:         zmsgwr_ (msg, &n8);
  261:         if (errno >= 0) {
  262:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  263:            zmsgwr_ (msg, &n8);
  264:            }
  265:         return;
  266:         }
  268:                                       /* Check that debugger exists  */
  269:                                       /* and is executable:          */
  270:      if (access (debugger, F_OK) == -1) {
  271:         *syserr = errno;
  272:         *ierr = 1;
  273:         sprintf(msg, "ZACTV9: CANNOT FIND %s", debugger);
  274:         zmsgwr_ (msg, &n8);
  275:         if (errno >= 0) {
  276:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  277:            zmsgwr_ (msg, &n8);
  278:            }
  279:         goto restore;
  280:         }
  281:      if (access (debugger, X_OK) == -1) {
  282:         *syserr = errno;
  283:         *ierr = 1;
  284:         sprintf("ZACTV9: NO EXECUTE PERMISSION FOR %s", debugger);
  285:         zmsgwr_ (msg, &n8);
  286:         if (errno >= 0) {
  287:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  288:            zmsgwr_ (msg, &n8);
  289:            }
  290:         goto restore;
  291:         }
  292:                                       /* We need to start the       */
  293:                                       /* program through a link     */
  294:                                       /* otherwise the POPS number  */
  295:                                       /* doesn't propagate through  */
  296:                                       /* the debugger and ZWHOMI    */
  297:                                       /* will fail                  */
  298:      if (chdir (dirname) == -1) {
  299:         *syserr = errno;
  300:         *ierr = 1;
  301:         sprintf(msg, "ZACTV9: CAN NOT CHANGE DIRECTORY TO %s",
  302:            dirname);
  303:         zmsgwr_ (msg, &n8);
  304:         if (errno >= 0) {
  305:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  306:            zmsgwr_ (msg, &n8);
  307:            }
  308:         goto restore;
  309:         }
  310:      unlink(procname);
  311:      if (link (pathname, procname) == -1) {
  312:         *syserr = errno;
  313:         *ierr = 1;
  314:         sprintf(msg, "ZACTV9: CAN NOT CREATE LINK TO %s", procname);
  315:         zmsgwr_ (msg, &n8);
  316:         if (errno >= 0) {
  317:            sprintf (msg, "ERRNO = %d (%s)", errno, strerror(errno));
  318:            zmsgwr_ (msg, &n8);
  319:            }
  320:         goto restore;
  321:         }
  323:      if (strcmp (rootname, "AIPS") == 0 ||
  324:          strcmp (rootname, "BATER") == 0 ||
  325:          strcmp (rootname, "DAIP") == 0) {
  326:                                       /* Execute new program in this */
  327:                                       /* process:                    */
  329:         pid[1] = (int)getpid ();
  330:         sprintf (lockname, "/tmp/%s.%d", procname, pid[1]);
  332:                                       /* Create lock file:           */
  333:         if ((lockfile = open (lockname, CMODE, PMODE)) == -1) {
  334:            *syserr = errno;
  335:            *ierr = 1;
  336:            sprintf(msg, "ZACTV9: CANNOT CREATE LOCK FILE %s",
  337:               lockname);
  338:            zmsgwr_ (msg, &n8);
  339:            if (errno >= 0) {
  340:               sprintf (msg, "ERRNO = %d (%s)", errno,
  341:                  strerror(errno));
  342:               zmsgwr_ (msg, &n8);
  343:               }
  344:            goto restore;
  345:            }
  346:         close (lockfile);
  348:         if (execl (debugger, debugger, procname, NULL) == -1) {
  349:            *syserr = errno;
  350:            *ierr = 1;
  351:            sprintf(msg, "ZACTV9: CANNOT START DEBUGGER");
  352:            zmsgwr_ (msg, &n8);
  353:            if (errno >= 0) {
  354:               sprintf (msg, "ERRNO = %d (%s)", errno,
  355:                  strerror(errno));
  356:               zmsgwr_ (msg, &n8);
  357:               }
  358:            goto restore;
  359:            }
  360:         }
  361:      else {                           /* Not AIPS or BATER           */
  362:         if ((pid[1] = fork()) == 0) { /* Child process               */
  364:                                       /* Close all open file         */
  365:                                       /* descriptors except for      */
  366:                                       /* anything that might be the  */
  367:                                       /* message terminal:           */
  368:            for (i = 0; i != sysconf(_SC_OPEN_MAX); i++) {
  369:               if ((i != msg_fd) && (i > 2)) {
  370:                  close (i);
  371:                  }
  372:               }
  375:            if (execl (debugger, debugger, procname, NULL) == -1) {
  376:               sprintf(msg, "ZACTV9: CANNOT START %s", procname);
  377:               zmsgwr_ (msg, &n8);
  378:               if (errno >= 0) {
  379:                  sprintf (msg, "ERRNO = %d (%s)", errno,
  380:                     strerror(errno));
  381:                  zmsgwr_ (msg, &n8);
  382:                  }
  383:               exit (1);
  384:               }
  386:            exit (0);
  387:            }
  388:         else if (pid[1] == -1) {
  389:            *syserr = errno;
  390:            *ierr = 1;
  391:            sprintf(msg, "ZACTV9: CANNOT SPAWN CHILD PROCESS");
  392:            zmsgwr_ (msg, &n8);
  393:            if (errno >= 0) {
  394:               sprintf (msg, "ERRNO = %d (%s)", errno,
  395:                  strerror(errno));
  396:               zmsgwr_ (msg, &n8);
  397:               }
  398:            goto restore;
  399:            }
  400:         else {                        /* Still parent                */
  401:                                       /* Create lock file:           */
  402:               sprintf(lockname, "/tmp/%s.%d", procname, pid[1]);
  403:               zmsgwr_ (msg, &n8);
  404:               if ((lockfile = open (lockname, CMODE, PMODE)) == -1) {
  405:                  sprintf(msg, "ZACTV9: CANNOT CREATE LOCK FILE");
  406:                  zmsgwr_ (msg, &n8);
  407:                  if (errno >= 0) {
  408:                     sprintf (msg, "ERRNO = %d (%s)", errno,
  409:                        strerror(errno));
  410:                     zmsgwr_ (msg, &n8);
  411:                     }
  412:                  exit (1);
  413:                  }
  414:               close (lockfile);
  416:                                       /* Wait for child:             */
  417:            waitpid (pid[1], &i, 0);
  418:            }
  421:restore:
  422:         free (debugger);
  423:         unlink (procname);
  424:                                       /* Restore signal handling:    */
  425:         if (sigaction (SIGINT, &saved, &newaction) == -1) {
  426:            *syserr = errno;
  427:            *ierr = 1;
  428:            sprintf(msg, "ZACTV9: CANNOT RESTORE SIGNAL HANDLERS");
  429:            zmsgwr_ (msg, &n8);
  430:            if (errno >= 0) {
  431:               sprintf (msg, "ERRNO = %d (%s)", errno,
  432:                  strerror(errno));
  433:               zmsgwr_ (msg, &n8);
  434:               }
  435:            return;
  436:            }
  437:         }
  438:      }
  439:   else {                            /* Non-debug mode            */
  440:      if (strcmp (rootname, "AIPS") == 0 ||
  441:          strcmp (rootname, "BATER") == 0 ||
  442:          strcmp (rootname, "DAIP") == 0) {
  443:                                       /* Execute new program in this */
  444:                                       /* process:                    */
  446:         pid[1] = (int)getpid ();
  447:         sprintf(lockname, "/tmp/%s.%d", procname, pid[1]);
  449:                                       /* Create lock file:           */
  450:         if ((lockfile = open (lockname, CMODE, PMODE)) == -1) {
  451:            *syserr = errno;
  452:            *ierr = 1;
  453:            sprintf(msg, "ZACTV9: CANNOT CREATE LOCK FILE %s",
  454:               lockname);
  455:            zmsgwr_ (msg, &n8);
  456:            if (errno >= 0) {
  457:               sprintf (msg, "ERRNO = %d (%s)", errno,
  458:                  strerror(errno));
  459:               zmsgwr_ (msg, &n8);
  460:               }
  461:            return;
  462:            }
  463:         close (lockfile);
  465:         if (execl (pathname, procname, NULL) == -1) {
  466:            *syserr = errno;
  467:            *ierr = 1;
  468:            sprintf(msg, "ZACTV9: CANNOT START %s", procname);
  469:            zmsgwr_ (msg, &n8);
  470:            if (errno >= 0) {
  471:               sprintf (msg, "ERRNO = %d (%s)", errno,
  472:                  strerror(errno));
  473:               zmsgwr_ (msg, &n8);
  474:               }
  475:            return;
  476:            }
  477:         }
  478:      else {                           /* Not AIPS or BATER           */
  479:                                       /* Spawn new process as a      */
  480:                                       /* grandchild to prevent an    */
  481:                                       /* accumulation of zombies;    */
  482:                                       /* the pid of the grandchild   */
  483:                                       /* will be returned through a  */
  484:                                       /* pipe:                       */
  486:         if (pipe(p) == -1) {
  487:            *syserr = errno;
  488:            *ierr = 1;
  489:            sprintf(msg, "ZACTV9: CANNOT CREATE PIPE TO CHILD");
  490:            zmsgwr_ (msg, &n8);
  491:            if (errno >= 0) {
  492:               sprintf (msg, "ERRNO = %d (%s)", errno,
  493:                  strerror(errno));
  494:               zmsgwr_ (msg, &n8);
  495:               }
  496:            return;
  497:            }
  499:         if ((child = fork()) == 0) {  /* Child process               */
  500:            close(p[0]);
  502:                                       /* Close all open file         */
  503:                                       /* descriptors (apart from the */
  504:                                       /* pipe and anything that      */
  505:                                       /* might be the message        */
  506:                                       /* terminal):                  */
  507:            for (i = 0; i != sysconf(_SC_OPEN_MAX); i++) {
  508:               if ((i != p[1]) && (i != msg_fd) && (i > 2)) {
  509:                  close (i);
  510:                  }
  511:               }
  513:            if ((grandchild = fork()) == 0) {
  514:                                       /* Grandchild process          */
  516:                                       /* No need to close file       */
  517:                                       /* descriptors since they were */
  518:                                       /* already closed in the       */
  519:                                       /* immediate parent.           */
  521:               if (execl (pathname, procname, NULL) == -1) {
  522:                  sprintf(msg, "ZACTV9: CANNOT START %s", procname);
  523:                  zmsgwr_ (msg, &n8);
  524:                  if (errno >= 0) {
  525:                     sprintf (msg, "ERRNO = %d (%s)", errno,
  526:                        strerror(errno));
  527:                     zmsgwr_ (msg, &n8);
  528:                     }
  529:                  exit (1);
  530:                  }
  531:               }
  532:            else if (grandchild == -1) {
  533:               sprintf(msg, "ZACTV9: CANNOT SPAWN GRANDCHILD");
  534:               zmsgwr_ (msg, &n8);
  535:               if (errno >= 0) {
  536:                  sprintf (msg, "ERRNO = %d (%s)", errno,
  537:                     strerror(errno));
  538:                  zmsgwr_ (msg, &n8);
  539:                  }
  540:               exit (1);
  541:               }
  542:            else {                     /* Still child                 */
  543:                                       /* Create lock file:           */
  544:               sprintf(lockname, "/tmp/%s.%d", procname, grandchild);
  545:               if ((lockfile = open (lockname, CMODE, PMODE)) == -1) {
  546:                  sprintf(msg, "ZACTV9: CANNOT CREATE LOCK FILE");
  547:                  zmsgwr_ (msg, &n8);
  548:                  if (errno >= 0) {
  549:                     sprintf (msg, "ERRNO = %d (%s)", errno,
  550:                        strerror(errno));
  551:                     zmsgwr_ (msg, &n8);
  552:                     }
  553:                  exit (1);
  554:                  }
  555:               close (lockfile);
  557:                                       /* Return grandchild pid to    */
  558:                                       /* parent process:             */
  559:               if (write (p[1], &grandchild, sizeof(pid_t)) == -1) {
  560:                  sprintf(msg, "ZACTV9: CANNOT SEND PID TO PARENT");
  561:                  zmsgwr_ (msg, &n8);
  562:                  if (errno >= 0) {
  563:                     sprintf (msg, "ERRNO = %d (%s)", errno,
  564:                        strerror(errno));
  565:                     zmsgwr_ (msg, &n8);
  566:                     }
  567:                  exit (1);
  568:                  }
  569:               close (p[1]);
  571:               exit (0);
  572:               }
  573:            }
  574:         else if (child == -1) {
  575:            *syserr = errno;
  576:            *ierr = 1;
  577:            sprintf(msg, "ZACTV9: CANNOT SPAWN CHILD PROCESS");
  578:            zmsgwr_ (msg, &n8);
  579:            if (errno >= 0) {
  580:               sprintf (msg, "ERRNO = %d (%s)", errno,
  581:                  strerror(errno));
  582:               zmsgwr_ (msg, &n8);
  583:               }
  584:            return;
  585:            }
  586:         else {                        /* Still parent                */
  587:            close(p[1]);
  589:                                       /* Read grandchild pid         */
  590:            if (read (p[0], &grandchild, sizeof(pid_t)) == -1) {
  591:               *syserr = errno;
  592:               *ierr = 1;
  593:               sprintf(msg, "ZACTV9: CANNOT READ PID");
  594:               zmsgwr_ (msg, &n8);
  595:               if (errno >= 0) {
  596:                  sprintf (msg, "ERRNO = %d (%s)", errno,
  597:                     strerror(errno));
  598:                  zmsgwr_ (msg, &n8);
  599:                  }
  600:               return;
  601:               }
  602:            close(p[0]);
  603:            pid[1] = (int)grandchild;
  605:                                       /* Wait for child:             */
  606:            waitpid (child, &i, 0);
  607:            }
  608:         }
  609:      }
  610:   free (pathname);
  611:   free (dirname);
  612:   }
  614:#endif
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZACTV9.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZACTV9.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBFLI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
AIPSCC    : Date       Fri Jul 18 17:41:17 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_bfli2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <stdlib.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zbfli2_(int *nb, int *nvals, int *bytflp, char inbuf[],
    9:      char outbuf[])
   10:#else
   11:   void zbfli2_(nb, nvals, bytflp, inbuf, outbuf)
   12:   char inbuf[], outbuf[];
   13:   int *nb, *nvals, *bytflp;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! swap 8-bit bytes & 16/32-bit words and move from inbuf to outbuf  */
   17:/*# Z2 Binary                                                         */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1998                                               */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Interchange the low order and high order bytes for all words in   */
   45:/*  the input buffer and puts results in output buffer (which may be  */
   46:/*  the same as the input buffer).  The routine is only called by     */
   47:/*  ZBFLIP and only if byte swapping is required on the host machine  */
   48:/*  (e.g., a VAX, PC).  Also does word swaps                          */
   49:/*  Inputs:                                                           */
   50:/*     nb       I      Number of bytes in word (2,4,8 supported)      */
   51:/*     nvals    I      Length of input buffer in nb-bit "words"       */
   52:/*     bytflp   I      Byte/words swapped indicator as set in ZDCHIN  */
   53:/*                        0 => neither are swapped                    */
   54:/*                        1 => byte swapped only                      */
   55:/*                        2 => word swapped only                      */
   56:/*                        3 => both byte and word swapped             */
   57:/*                        All are supported here                      */
   58:/*     inbuf    I(*)   input buffer                                   */
   59:/*  Output:                                                           */
   60:/*     outbuf   I(*)   output buffer containing swapped words         */
   61:/*                        (may be the same as the input buffer)       */
   62:/* Generic UNIX version                                               */
   63:/*--------------------------------------------------------------------*/
   64:{
   65:   int n8 = 8;
   66:   int flipcode;
   67:   register int j, k, i, m, n;
   68:   char temp[8], msgbuf[80];
   69:/*--------------------------------------------------------------------*/
   70:   flipcode = *bytflp;
   71:   m = *nb ;
   72:   if ((m != 2) && (m != 4) && (m != 8)) {
   73:      sprintf (msgbuf,
   74:         "ZBYTF2: INVALID VALUE FOR BYTES/VALUE = %d\n", m);
   75:      zmsgwr_ (msgbuf, &n8);
   76:      exit (8);
   77:      }
   78:   n = m / 2 ;
   79:                                        /* no flip, copy if needed    */
   80:   if (flipcode == 0) {
   81:      if (&inbuf[0] == &outbuf[0]) {
   82:	    ;
   83:	 }
   84:      else {
   85:         for (j = 0; j < *nvals; j++) {
   86:            k = m * j;
   87:            for (i = 0 ; i < m ; i++)
   88:               outbuf[k+i] = inbuf[k+i];
   89:            }
   90:         }
   91:      }
   92:                                        /* Swap bytes only.          */
   93:   else if (flipcode == 1) {
   94:      if (&inbuf[0] == &outbuf[0]) {
   95:         for (j = 0; j < *nvals; j++) {
   96:            k = m * j;
   97:            for (i = 0 ; i < n ; i++) {
   98:               temp[0] = inbuf[k];
   99:               temp[1] = inbuf[k+1];
  100:               outbuf[k+1] = temp[0];
  101:               outbuf[k] = temp[1];
  102:               k = k + 2;
  103:               }
  104:            }
  105:         }
  106:      else {
  107:         for (j = 0; j < *nvals; j++) {
  108:            k = m * j;
  109:            for (i = 0 ; i < n ; i++) {
  110:               outbuf[k+1] = inbuf[k];
  111:               outbuf[k] = inbuf[k+1];
  112:               k = k + 2;
  113:               }
  114:            }
  115:         }
  116:      }
  117:                                        /* Swap bytes & words        */
  118:   else if (flipcode == 3) {
  119:      if (&inbuf[0] == &outbuf[0]) {
  120:         for (j = 0; j < *nvals; j++) {
  121:            k = m * j;
  122:            for (i = 0 ; i < m ; i++)
  123:               temp[i] = inbuf[k+i];
  124:            for (i = 0 ; i < m ; i++)
  125:               outbuf[k+i] = temp[m-1-i];
  126:            }
  127:         }
  128:      else {
  129:         for (j = 0; j < *nvals; j++) {
  130:            k = m * j;
  131:            n = k + m - 1;
  132:            for (i = 0 ; i < m ; i++)
  133:               outbuf[k+i] = inbuf[n-i];
  134:            }
  135:         }
  136:      }
  137:                                        /* Swap words only.          */
  138:   else if (flipcode == 2) {
  139:      if (&inbuf[0] == &outbuf[0]) {
  140:         for (j = 0; j < *nvals; j++) {
  141:            k = m * j;
  142:            for (i = 0 ; i < m ; i++)
  143:               temp[i] = inbuf[k+i];
  144:            for (i = 0 ; i < m ; i=i+2) {
  145:               outbuf[k+1] = temp[m-1-i];
  146:               outbuf[k] = temp[m-2-i];
  147:               k = k + 2;
  148:               }
  149:            }
  150:         }
  151:      else {
  152:         for (j = 0; j < *nvals; j++) {
  153:            k = m * j;
  154:            for (i = 0 ; i < m ; i=i+2) {
  155:               outbuf[k+i+1] = inbuf[k+m-1-i];
  156:               outbuf[k+i] = inbuf[k+m-2-i];
  157:               }
  158:            }
  159:         }
  160:      }
  161:                                        /* Invalid "flipcode".        */
  162:   else {
  163:      sprintf (msgbuf,
  164:         "ZBYTF2: INVALID VALUE FOR BYTFLP = %d\n", flipcode);
  165:      zmsgwr_ (msgbuf, &n8);
  166:      exit (8);
  167:      }
  169:   return;
  170:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZBFLI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBFLI2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICC2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
AIPSCC    : Date       Fri Jul 18 17:41:18 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dicc2__
    2:#include <stdio.h>
    3:#include <stdlib.h>
    4:#include <AIPSPROTO.H>
    6:extern char *dic_filename;              /* Name of Dicomed file       */
    7:extern FILE *dic_file;                  /* Dicomed file stream        */
    8:extern int dic_spool;                   /* Non-zero if file should be */
    9:                                        /* spooled automatically      */
   10:extern int dic_called;                  /* Indicates whether a file   */
   11:                                        /* is open                    */
   13:#if __STDC__
   14:   void zdicc2_(char *fname, int *flen, int *iret)
   15:#else
   16:   void zdicc2_(fname, flen, iret)
   17:   char *fname;
   18:   int *flen, *iret;
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! Close a Dicomed image file and (optionally) spool it              */
   22:/*# Z                                                                 */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995, 1997                                         */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*   Close a Dicomed image file and, if no name was supplied by the   */
   50:/*   user, spool it to the film recorder and delete it.               */
   51:/*                                                                    */
   52:/*   Input:                                                           */
   53:/*      FNAME      C*(*)         Name under which to store file       */
   54:/*      FLEN       I             Number of characters in FNAME; if 0  */
   55:/*                               then file is spooled and deleted.    */
   56:/*                                                                    */
   57:/*   Output:                                                          */
   58:/*      IRET       I             Return status:                       */
   59:/*                                 0 -> success                       */
   60:/*                                                                    */
   61:/*   UNIX version (ignores LUN)                                       */
   62:/*--------------------------------------------------------------------*/
   63:{
   64:    char cmdline[256], file_name[256], msg[80] ;
   65:    int i, n8 = 8;
   66:/*--------------------------------------------------------------------*/
   68:    *iret = 0;
   69:    if (fclose(dic_file) != 0) {
   70:       sprintf (msg, "ZDICCL: ERROR CLOSING FILE\n");
   71:       zmsgwr_ (msg, &n8);
   72:       perror("ZDICCL:");
   73:       *iret = 1;
   74:       return;
   75:       }
   77:   for (i = 0; i < *flen; i++) {
   78:      file_name[i] = fname[i];
   79:      }
   80:   file_name[i] = '\0';
   81:                                        /* The real work is done in   */
   82:                                        /* the ZDICC2 shell script.   */
   83:   sprintf(cmdline, "ZDICC2 %s %s", dic_filename, file_name);
   84:   if (system(cmdline) != 0) {
   85:      sprintf (msg, "ZDICCL: ERROR SPOOLING FILE\n");
   86:      zmsgwr_ (msg, &n8);
   87:      perror("ZIDCCL:");
   88:      *iret = 2;
   89:      }
   90:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDICC2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICC2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICO2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
AIPSCC    : Date       Fri Jul 18 17:41:19 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c:6:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dico2__
    2:#include <stdio.h>
    3:#include <time.h>
    4:#include <errno.h>
    5:#include <stdlib.h>
    6:#include <AIPSPROTO.H>
    8:char *dic_filename;                      /* File name (used by        */
    9:                                         /* ZDICCL).                  */
   10:                                         /* NOTE: storage must be     */
   11:                                         /* malloc'ed or segmentation */
   12:                                         /* violations will occur in  */
   13:                                         /* zdicc2_ under Sun OS.     */
   14:FILE* dic_file;                          /* File stream (used by      */
   15:                                         /* ZDICIO and ZDICCL)        */
   16:int dic_nrows;                           /* number of rows (used by   */
   17:                                         /* ZDICIO)                   */
   18:int dic_called = 0;                      /* Set to 1 when first       */
   19:                                         /* called.                   */
   20:static char *sizes[3] = {"35mm", "2x2", "4x5"};
   21:static char *types[3] = {"ColPos", "ColNeg", "B/W"};
   22:static char *mon[12] = {"Jan", "Feb", "Mar", "Apr", "May", "Jun",
   23:                        "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};
   25:#if __STDC__
   26:   void zdico2_(char *sysnam, int *slen, int *userno, int *flmsiz,
   27:      int *flmtyp, int *copies, int *bppix, int *width, int *height,
   28:      char *commnt, int *clen, int *iret)
   29:#else
   30:   void zdico2_(sysnam, slen, userno, flmsiz, flmtyp, copies, bppix,
   31:      width, height, commnt, clen, iret)
   32:   char *sysnam, *commnt;
   33:   int  *slen, *userno, *flmsiz, *flmtyp, *copies, *bppix, *width,
   34:      *height, *clen, *iret;
   35:#endif
   36:/*--------------------------------------------------------------------*/
   37:/*! Open a Dicomed image file and fill in the header                  */
   38:/*# Z2                                                                */
   39:/*--------------------------------------------------------------------*/
   40:/*;  Copyright (C) 1995, 1997                                         */
   41:/*;  Associated Universities, Inc. Washington DC, USA.                */
   42:/*;                                                                   */
   43:/*;  This program is free software; you can redistribute it and/or    */
   44:/*;  modify it under the terms of the GNU General Public License as   */
   45:/*;  published by the Free Software Foundation; either version 2 of   */
   46:/*;  the License, or (at your option) any later version.              */
   47:/*;                                                                   */
   48:/*;  This program is distributed in the hope that it will be useful,  */
   49:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   50:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   51:/*;  GNU General Public License for more details.                     */
   52:/*;                                                                   */
   53:/*;  You should have received a copy of the GNU General Public        */
   54:/*;  License along with this program; if not, write to the Free       */
   55:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   56:/*;  MA 02139, USA.                                                   */
   57:/*;                                                                   */
   58:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   59:/*;         Internet email: aipsmail at nrao.edu.                        */
   60:/*;         Postal address: AIPS Project Office                       */
   61:/*;                         National Radio Astronomy Observatory      */
   62:/*;                         520 Edgemont Road                         */
   63:/*;                         Charlottesville, VA 22903-2475 USA        */
   64:/*--------------------------------------------------------------------*/
   65:/*   Open a Dicomed image file and fill in the header.                */
   66:/*   Inputs:                                                          */
   67:/*      SYSNAM    C*(*)       System name.                            */
   68:/*      SLEN      I           Length of system name excluding         */
   69:/*                            trailing blanks.                        */
   70:/*      USERNO    I           AIPS user number.                       */
   71:/*      FLMSIZ    I           Film size: 0 -> 35mm                    */
   72:/*                                       1 -> 2"x2"                   */
   73:/*                                       2 -> 4"x5"                   */
   74:/*      FLMTYP    I           Film type: 0 -> colour positive         */
   75:/*                                       1 -> colour negative         */
   76:/*                                       2 -> B/W negative            */
   77:/*      COPIES    I           Number of copies to make.               */
   78:/*      BPPIX     I           Number of bits/pixel.                   */
   79:/*      WIDTH     I           Image width in pixels.                  */
   80:/*      HEIGHT    I           Image height in pixels.                 */
   81:/*      COMMNT    C*(*)       User's comment.                         */
   82:/*      CLEN      I           Length of user's comment excluding      */
   83:/*                            trailing blanks.                        */
   84:/*                                                                    */
   85:/*   Output:                                                          */
   86:/*      IRET      I           Return status: 0 -> success             */
   87:/*                                                                    */
   88:/*--------------------------------------------------------------------*/
   89:{
   90:    int i, n8 = 8;
   91:    time_t t;
   92:    struct tm *current_time;
   93:    char system[9], comment[49], msg[80];
   94:    char *start, *tptr;
   95:/*--------------------------------------------------------------------*/
   96:                                        /* Get creation time:         */
   97:    t = time(0);
   98:    current_time = localtime(&t);
   99:                                        /* Assume success:            */
  100:    *iret = 0;
  101:                                        /* Check that a Dicomed file  */
  102:                                        /* is not already open:       */
  103:    if (dic_called) {
  104:       sprintf (msg, "ZDICO2: A DICOMED FILE IS ALREADY OPEN\n");
  105:       zmsgwr_ (msg, &n8);
  106:       *iret = 1;
  107:       return;
  108:       }
  109:    else {
  110:       dic_called = 1;
  111:       }
  112:                                        /* Save useful information:   */
  113:    dic_nrows  = *height;
  114:    dic_filename = (char *)malloc(24);
  115:                                        /* This form of filename is   */
  116:                                        /* required by NRAO software  */
  117:    sprintf (dic_filename, "/tmp/%04d_%03d_%02d%02d%02d_V1", *userno,
  118:       current_time->tm_yday+1, current_time->tm_hour,
  119:       current_time->tm_min, current_time->tm_sec);
  121:                                        /* Convert strings to C form  */
  122:    for (i = 0; i < *slen && i < 8 && sysnam[i] != '.'; i++)  {
  123:       system[i] = sysnam[i];
  124:       }
  125:    system[i] = '\0';
  126:    for (i = 0; i < *clen && i < 48; i++) {
  127:       comment[i] = commnt[i];
  128:       }
  129:    comment[i] = '\0';
  130:                                       /* Open file:                  */
  131:    if ((dic_file = fopen(dic_filename, "w")) == 0) {
  132:       sprintf (msg, "ZDICO2: ERROR OPENING DICOMED FILE\n");
  133:       zmsgwr_ (msg, &n8);
  134:       perror("ZDICO2:");
  135:       *iret = errno;
  136:       return;
  137:       }
  138:                                       /* Extract file base name:     */
  139:    start = tptr = dic_filename;
  140:    while (*tptr != '\0') {
  141:       if (*(tptr++) == '/') start = tptr;
  142:       }
  144:                                       /* Write header:              */
  145:    errno = 0;
  146:    fprintf(dic_file, "Filename: %-18s", start);
  147:    fprintf(dic_file, "            ");
  148:    fprintf(dic_file, "Origin: %-8s       \n", system);
  149:    fprintf(dic_file, "Date: %02d-%3s-%02d     ",
  150:            current_time->tm_mday, mon[current_time->tm_mon],
  151:            current_time->tm_year);
  152:    fprintf(dic_file, "Time: %02d:%02d:%02d      ",
  153:            current_time->tm_hour, current_time->tm_min,
  154:            current_time->tm_sec);
  155:    fprintf(dic_file, "Userno: %4d           \n", *userno);
  156:    fprintf(dic_file, "Filmsize: %-4s      ", sizes[*flmsiz]);
  157:    fprintf(dic_file, "Filmtype: %-6s    ", types[*flmtyp]);
  158:    fprintf(dic_file, "Copies: %3d            \n", *copies);
  159:    fprintf(dic_file, "Bits/pixel: %2d      ", *bppix);
  160:    fprintf(dic_file, "Columns: %4d       ", *width);
  161:    fprintf(dic_file, "Rows: %4d             \n", *height);
  162:    fprintf(dic_file, "LUTs/pixelbyte: 0   ");
  163:    fprintf(dic_file, "Bits/LUTelement:  0 ");
  164:    fprintf(dic_file, "OFMelements:     0     \n");
  165:    fprintf(dic_file, "LUTpointer:     0   ");
  166:    fprintf(dic_file, "OFMpointer:     0   ");
  167:    fprintf(dic_file, "Datapointer:   512     \n");
  168:    fprintf(dic_file, "Usercomments: %-49s\n", comment);
  169:    fprintf(dic_file, "Recorded: %53s\n", " ");
  170:    if (errno != 0) {
  171:       sprintf (msg, "ZDICO2: ERROR WRITING HEADER\n");
  172:       zmsgwr_ (msg, &n8);
  173:       perror("ZDICO2:");
  174:       }
  176:   return;
  177:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDICO2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICO2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:19 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDKMID.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
AIPSCC    : Date       Fri Jul 18 17:41:19 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dkmid__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <string.h>
    5:#include <errno.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zdkmid_(char *oper, int *blkno, int *fcb, char *buff,
   11:      int *nbytes, int *ierr)
   12:#else
   13:   void zdkmid_(oper, blkno, fcb, buff, nbytes, ierr)
   14:   char oper[], buff[];
   15:   int *fcb, *blkno, *nbytes, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read 2048 byte blocks of data from disk                           */
   19:/*# Z Tape                                                            */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 2002                                               */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Read nbytes of data from/ disk at FILLM block blkno               */
   47:/*                                                                    */
   48:/*  NOTE: This is for TAPIO type operations only, i.e., LRECL=22048   */
   49:/*        FTAB(FIND+5) = I   logical record number.                   */
   50:/*                                                                    */
   51:/*  Inputs:                                                           */
   52:/*     oper     C*4    Operation code "READ"                          */
   53:/*     blkno    I      Block number to read                           */
   54:/*     fcb      I(*)   File control block for open map disk file      */
   55:/*                     and buffer involved                            */
   56:/*     nbytes   I      Number of real bytes to be transferred         */
   57:/*  In/out:                                                           */
   58:/*     buff     I(*)   I/O buffer                                     */
   59:/*  Output:                                                           */
   60:/*     ierr     I      Error return code: 0 => no error               */
   61:/*                        2 => bad opcode                             */
   62:/*                        3 => I/O error (also see ZWAI2)             */
   63:/*                        4 => end of file (see ZWAI2)                */
   64:/*  "fcb" has syserr for ZTPWAD to return error                       */
   65:/*  Generic UNIX version.                                             */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:                                        /* Offsets to entries in the  */
   69:                                        /* file control blocks        */
   70:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr;
   71:   int fd, n7 = 7;
   72:   off_t firstbyte;
   73:   register int i;
   74:   char op[5], msgbuf[80];
   75:/*--------------------------------------------------------------------*/
   76:   *ierr = 0;
   77:                                        /* Form null terminated       */
   78:                                        /* opcode.                    */
   79:   for (i = 0; i < 4; i++)
   80:      op[i] = oper[i];
   81:   op[4] = '\0';
   82:                                        /* Get file descriptor from   */
   83:                                        /* the file control block as  */
   84:                                        /* stored there by ZDAOPN.    */
   85:   fd = *(fcb + Z_fcbfd);
   86:                                        /* Record byte request in the */
   87:                                        /* file control block.        */
   88:   *(fcb + Z_fcbreq) = *nbytes;
   89:                                        /* Also, zero error status &  */
   90:                                        /* transfer count entries.    */
   91:   *(fcb + Z_fcberr) = 0;
   92:   *(fcb + Z_fcbxfr) = 0;
   93:                                        /* Zero byte request just     */
   94:                                        /* initiates double buffered  */
   95:                                        /* I/O.                       */
   96:   if (*(fcb + Z_fcbreq) != 0) {
   97:                                        /* Only non-zero byte reqest  */
   98:                                        /* is 2048.                   */
   99:      i = *nbytes / 2048;
  100:      i = i * 2048;
  101:      if (*nbytes != i) {
  102:         *ierr = 2;
  103:         }
  104:      else {
  105:                                        /* Calculate the byte offset  */
  106:                                        /* (0-relative) in the file   */
  107:                                        /* that correspond to the     */
  108:                                        /* virtual block number.      */
  109:         firstbyte = (*blkno - 1);
  110:         firstbyte = firstbyte * 2048;
  111:                                        /* Set file pointer of the    */
  112:                                        /* file descriptor to the     */
  113:                                        /* absolute byte address      */
  114:                                        /* "firstbyte".               */
  115:         if (lseek (fd, firstbyte, 0) == -1) {
  116:            *(fcb + Z_fcberr) = errno;
  117:            sprintf (msgbuf,
  118:               "ZDKMID: LSEEK ERROR ON FILE DESCRIPTOR %d", fd);
  119:            zmsgwr_ (msgbuf, &n7);
  120:            sprintf (msgbuf,
  121:               "ZDKMID: POSITIONING FILE POINTER TO BYTE OFFSET %d",
  122:               firstbyte);
  123:            zmsgwr_ (msgbuf, &n7);
  124:            *ierr = 3;
  125:            }
  126:                                        /* Perform the I/O and record */
  127:                                        /* the # of bytes transferred */
  128:                                        /* in *(fcb + Z_fcbxfr).      */
  129:                                        /* Record the system error    */
  130:                                        /* code (if any) in           */
  131:                                        /* *(fcb + Z_fcberr).         */
  132:         else {
  133:            if (strcmp (op, "READ") == 0) {
  134:               if ((*(fcb + Z_fcbxfr) =
  135:                  read (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  136:                  *(fcb + Z_fcberr) = errno;
  137:                  *ierr = 3;
  138:                  }
  139:               }
  140:                                        /* Bad opcode.                */
  141:            else {
  142:               *ierr = 2;
  143:               }
  144:            }
  145:         }
  146:      }
  148:   return;
  149:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDKMID.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDKMID.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGMAI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
AIPSCC    : Date       Fri Jul 18 17:41:20 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c:8:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_gmai2__
    2:#define MAXCOM 256
    3:#include <unistd.h>
    4:#include <stdio.h>
    5:#include <stdlib.h>
    6:#include <errno.h>
    7:#include <string.h>
    8:#include <AIPSPROTO.H>
    9:#ifdef __STDC__
   10:#if __STDC__ == 1
   11:extern FILE *popen(const char *, const char *);
   12:extern int  pclose(FILE *);
   13:#endif
   14:#endif
   16:#if __STDC__
   17:   void zgmai2_(char *file, int *lfil, int *stype, int *ierr)
   18:#else
   19:   void zgmai2_(file, lfil, stype, ierr)
   20:   int *lfil, *stype, *ierr;
   21:   char file[];
   22:#endif
   23:/*--------------------------------------------------------------------*/
   24:/*! mail a file to aipsmail and delete it                             */
   25:/*# Z2 System                                                         */
   26:/*--------------------------------------------------------------------*/
   27:/*;  Copyright (C) 1995-1997, 2003                                    */
   28:/*;  Associated Universities, Inc. Washington DC, USA.                */
   29:/*;                                                                   */
   30:/*;  This program is free software; you can redistribute it and/or    */
   31:/*;  modify it under the terms of the GNU General Public License as   */
   32:/*;  published by the Free Software Foundation; either version 2 of   */
   33:/*;  the License, or (at your option) any later version.              */
   34:/*;                                                                   */
   35:/*;  This program is distributed in the hope that it will be useful,  */
   36:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   37:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   38:/*;  GNU General Public License for more details.                     */
   39:/*;                                                                   */
   40:/*;  You should have received a copy of the GNU General Public        */
   41:/*;  License along with this program; if not, write to the Free       */
   42:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   43:/*;  MA 02139, USA.                                                   */
   44:/*;                                                                   */
   45:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   46:/*;         Internet email: aipsmail at nrao.edu.                        */
   47:/*;         Postal address: AIPS Project Office                       */
   48:/*;                         National Radio Astronomy Observatory      */
   49:/*;                         520 Edgemont Road                         */
   50:/*;                         Charlottesville, VA 22903-2475 USA        */
   51:/*--------------------------------------------------------------------*/
   52:/*  Mails "file" to aipsmail at nrao.edu and then deletes it             */
   53:/*  Inputs:                                                           */
   54:/*     file     C*(*)   the fully expanded file name                  */
   55:/*     lfil     I       length of file                                */
   56:/*     stype    I       How to get subject line: 0 -> -s " "          */
   57:/*                         1 -> insert in file                        */
   58:/*  Output:                                                           */
   59:/*     ierr     I       error return: 0 means okay                    */
   60:/*                         1 input command too long                   */
   61:/*                         else = errno, the system error occurred    */
   62:/*  UNIX version uses with popen "rmail"                              */
   63:/*--------------------------------------------------------------------*/
   64:{
   65:   register int i, j;
   66:   char cmd[512], cfil[MAXCOM], msgbuf[80], outbuf[132];
   67:   int n7 = 7, n3 = 3;
   68:   FILE *zptr;
   69:   char *addr1 = "aipgripe at zia.aoc.nrao.edu";
   70:   char *addr2 = "daip at nrao.edu";
   71:/*--------------------------------------------------------------------*/
   72:   *ierr = 0;
   73:   if (*lfil >= MAXCOM)
   74:      *ierr = 1;
   75:                                        /*  make null-terminated      */
   76:   else {
   77:      j = 0;
   78:      for (i = 0; i < MAXCOM && i < *lfil; i++) {
   79:         cfil[i] = file[i];
   80:         if (cfil[i] != ' ') j = i;
   81:         }
   84:      cfil[j+1] = '\0';
   85:                                        /*  mail the file             */
   86:      if (*stype == 1)
   87:         sprintf (cmd,
   88:            "(echo \"Subject: aips_gripe\" ; cat %s ) | mail %s %s",
   89:            cfil, addr1, addr2);
   90:      else
   91:         sprintf (cmd, "mail -s \"aips_gripe\" %s %s < %s",
   92:            addr1, addr2, cfil);
   93:                                        /* Issue the shell command.  */
   94:      errno = 0;
   95:      if ((zptr = popen (cmd, "r")) == NULL ) {
   96:         *ierr = errno;
   97:         sprintf (msgbuf, "ZGMAI2: Cannot pipe command %s\n", cmd);
   98:         zmsgwr_ (msgbuf, &n7);
   99:         }
  100:      else {
  101:         while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
  102:            j = strlen(outbuf);
  103:            if (j > 64) j = 64;
  104:            strncpy (msgbuf, outbuf, j);
  105:            msgbuf[j] = '\0';
  106:            zmsgwr_ (msgbuf, &n3);
  107:            j = strlen(outbuf) - 64;
  108:            if (j > 0) {
  109:               strncpy (msgbuf, &outbuf[64], j);
  110:               msgbuf[j] = '\0';
  111:               zmsgwr_ (msgbuf, &n3);
  112:               }
  113:            }
  114:         *ierr = pclose(zptr);
  115:                                        /* AIX returns ECHILD here    */
  116:                                        /* because of the "sleep".    */
  117:         if ((*ierr != 0) && (errno != ECHILD)) {
  118:            *ierr = errno;
  119:            perror("ZGMAI2");
  120:            sprintf (msgbuf, "ZGMAI2: error %d from pclose()",
  121:               *ierr);
  122:            zmsgwr_ (msgbuf, &n7);
  123:            }
  124:                                         /* delete the file           */
  125:         else {
  126:            *ierr = errno = 0;
  127:            if (unlink (cfil) != 0) *ierr = errno;
  128:            }
  129:         }
  130:      }
  132:   return;
  133:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZGMAI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGMAI2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIGNAL.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
AIPSCC    : Date       Fri Jul 18 17:41:21 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
/usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c:10:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_ignal__
    5:#include <unistd.h>
    6:#include <stdio.h>
    7:#include <signal.h>
    8:#include <stdlib.h>
    9:#include <string.h>
   10:#include <AIPSPROTO.H>
   11:#if __STDC__
   12:   void (*zignal_ (int signo, void (*func)(int)))(int)
   13:#else
   14:   void (*zignal_ (signo, func))()
   15:   int signo;
   16:   void (*func)();
   17:#endif
   18:/*--------------------------------------------------------------------*/
   19:/*! establishes abort handling through call to sigaction              */
   20:/*# Z2 System                                                         */
   21:/*--------------------------------------------------------------------*/
   22:/*;  Copyright (C) 1995, 1997                                         */
   23:/*;  Associated Universities, Inc. Washington DC, USA.                */
   24:/*;                                                                   */
   25:/*;  This program is free software; you can redistribute it and/or    */
   26:/*;  modify it under the terms of the GNU General Public License as   */
   27:/*;  published by the Free Software Foundation; either version 2 of   */
   28:/*;  the License, or (at your option) any later version.              */
   29:/*;                                                                   */
   30:/*;  This program is distributed in the hope that it will be useful,  */
   31:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   32:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   33:/*;  GNU General Public License for more details.                     */
   34:/*;                                                                   */
   35:/*;  You should have received a copy of the GNU General Public        */
   36:/*;  License along with this program; if not, write to the Free       */
   37:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   38:/*;  MA 02139, USA.                                                   */
   39:/*;                                                                   */
   40:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   41:/*;         Internet email: aipsmail at nrao.edu.                        */
   42:/*;         Postal address: AIPS Project Office                       */
   43:/*;                         National Radio Astronomy Observatory      */
   44:/*;                         520 Edgemont Road                         */
   45:/*;                         Charlottesville, VA 22903-2475 USA        */
   46:/*--------------------------------------------------------------------*/
   47:/* reliable version of signal() using POSIX sigaction()               */
   48:/* from W. Richard Stevens "Advanced Programming in the UNIX Envir."  */
   49:/*  Inputs:                                                           */
   50:/*     signo   I   Signal number                                      */
   51:/*     func    F   Function to call: no return, arg int               */
   52:/*  Output:                                                           */
   53:/*     zignal_ F   Previous Function to call: no return, arg int      */
   54:/*  Generic UNIX version                                              */
   55:/*--------------------------------------------------------------------*/
   56:{
   57:   struct sigaction  act, oact;
   59:   act.sa_handler = func;
   60:   sigemptyset (&act.sa_mask);
   61:   act.sa_flags = 0;
   62:   if (signo == SIGALRM) {
   63:#ifdef SA_INTERRUPT
   64:      act.sa_flags |= SA_INTERRUPT;
   65:#endif
   66:      }
   67:   else {
   68:#ifdef SA_RESTART
   69:      act.sa_flags |= SA_RESTART;
   70:#endif
   71:      }
   73:   if (sigaction (signo, &act, &oact) < 0)
   74:      return (SIG_ERR);
   75:   else
   76:      return (oact.sa_handler);
   77:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZIGNAL.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIGNAL.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIPAC2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
AIPSCC    : Date       Fri Jul 18 17:41:22 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ipac2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <stdlib.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zipac2_(int *nvals, int *code, int *bytflp, int *np,
    9:      signed char sbuf[], signed char lbuf[])
   10:#else
   11:   void zipac2_(nvals, code, bytflp, np, sbuf, lbuf)
   12:   signed char sbuf[], lbuf[];
   13:   int *nvals, *code, *bytflp, *np;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! I32 <-> I16 w and w/o byte swap and move between sbuf and lbuf    */
   17:/*# Z2 Binary                                                         */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1998-1999                                          */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Change 16-bit integer buffer into 32-bit and vice versa with and  */
   45:/*  without byte swapping.                                            */
   46:/*  Inputs:                                                           */
   47:/*     nvals    I      Number of integers involved                    */
   48:/*     code     I      Operation code                                 */
   49:/*                        0 => S -> L: neither are swapped            */
   50:/*                        1 => S -> L: byte swapped only              */
   51:/*                        2 => S -> L: word swapped only              */
   52:/*                        3 => S -> L: both byte and word swapped     */
   53:/*                        4 => L -> S: neither are swapped            */
   54:/*                        5 => L -> S: byte swapped only              */
   55:/*                        6 => L -> S: word swapped only              */
   56:/*                        7 => L -> S: both byte and word swapped     */
   57:/*     bytflp   I      Local byte flip code                           */
   58:/*  Output:                                                           */
   59:/*     sbuf   I*2(*)   short int buffer                               */
   60:/*     lbuf   I*4(*)   long int buffer                                */
   61:/*                        (may be the same as the input buffer)       */
   62:/* Generic UNIX version                                               */
   63:/*--------------------------------------------------------------------*/
   64:{
   65:   register int j, k, i, m;
   66:   signed char temp[4], sign, plus, minus;
   67:/*--------------------------------------------------------------------*/
   68:   plus = 0x00;
   69:   minus = 0xff;
   70:   if (*code < 4 ) {
   71:      j = 2 * (*np + *nvals - 2);
   72:      k = 4 * (*nvals -1);
   73:      }
   74:   else {
   75:      j = 2 * (*np - 1);
   76:      k = 0;
   77:      }
   78:   m = 0;
   79:   if ((*bytflp == 1) || (*bytflp == 3)) m = 1;
   80:                                        /* no flip: S->L              */
   81:   if (*code == 0) {
   82:      for (i = 0; i < *nvals; i++) {
   83:         lbuf[k+2] = sbuf[j];
   84:         lbuf[k+3] = sbuf[j+1];
   85:         if (sbuf[j+m] < 0)
   86:            lbuf[k] = minus;
   87:         else
   88:            lbuf[k] = plus;
   89:         lbuf[k+1] = lbuf[k];
   90:         j -= 2;
   91:         k -= 4;
   92:         }
   93:      }
   94:                                        /* Swap bytes: S->L.          */
   95:   else if (*code == 1) {
   96:      for (i = 0; i < *nvals; i++) {
   97:         lbuf[k+3] = sbuf[j];
   98:         lbuf[k+2] = sbuf[j+1];
   99:         if (sbuf[j] < 0)
  100:            lbuf[k] = minus;
  101:         else
  102:            lbuf[k] = plus;
  103:         lbuf[k+i] = lbuf[k];
  104:         j -= 2;
  105:         k -= 4;
  106:         }
  107:      }
  108:                                        /* Swap words: S->L.          */
  109:   else if (*code == 2) {
  110:      for (i = 0; i < *nvals; i++) {
  111:         lbuf[k] = sbuf[j];
  112:         lbuf[k+1] = sbuf[j+1];
  113:         if (sbuf[j+m] < 0)
  114:            lbuf[k+2] = minus;
  115:         else
  116:            lbuf[k+2] = plus;
  117:         lbuf[k+3] = lbuf[k+2];
  118:         j -= 2;
  119:         k -= 4;
  120:         }
  121:      }
  122:                                        /* Swap both: S->L            */
  123:   else if (*code == 3) {
  124:      for (i = 0; i < *nvals; i++) {
  125:         temp[1] = sbuf[j];
  126:         temp[0] = sbuf[j+1];
  127:         lbuf[k+1] = temp[1];
  128:         lbuf[k] = temp[0];
  129:         if (temp[1] < 0)
  130:            lbuf[k+2] = minus;
  131:         else
  132:            lbuf[k+2] = plus;
  133:         lbuf[k+3] = lbuf[k+2];
  134:         j -= 2;
  135:         k -= 4;
  136:         }
  137:      }
  138:                                        /* no flip: L->S              */
  139:   else if (*code == 4) {
  140:      for (i = 0; i < *nvals; i++) {
  141:         sbuf[j] = lbuf[k+2];
  142:         sbuf[j+1] = lbuf[k+3];
  143:         j += 2;
  144:         k += 4;
  145:         }
  146:      }
  147:                                        /* byte flip: L->S            */
  148:   else if (*code == 5) {
  149:      for (i = 0; i < *nvals; i++) {
  150:         sbuf[j] = lbuf[k+3];
  151:         sbuf[j+1] = lbuf[k+2];
  152:         j += 2;
  153:         k += 4;
  154:         }
  155:      }
  156:                                        /* word flip: L->S            */
  157:   else if (*code == 6) {
  158:      for (i = 0; i < *nvals; i++) {
  159:         sbuf[j] = lbuf[k];
  160:         sbuf[j+1] = lbuf[k+1];
  161:         j += 2;
  162:         k += 4;
  163:         }
  164:      }
  165:                                        /* both flip: L->S            */
  166:   else if (*code == 7) {
  167:      for (i = 0; i < *nvals; i++) {
  168:         temp[0] = lbuf[k+1];
  169:         temp[1] = lbuf[k];
  170:         sbuf[j] = temp[0];
  171:         sbuf[j+1] = temp[1];
  172:         j += 2;
  173:         k += 4;
  174:         }
  175:      }
  177:   return;
  178:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZIPAC2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZIPAC2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLOCK.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
AIPSCC    : Date       Fri Jul 18 17:41:22 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:10:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:13: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c: In function `zlock_':
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:72: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:72: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:72: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c:81: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_lock__
    5:#include <unistd.h>
    6:#include <stdio.h>
    7:#include <errno.h>
    8:#include <fcntl.h>                      /* For System V 2.0+ read and */
    9:                                        /* write locks.               */
   10:#include <AIPSPROTO.H>
   12:#if __STDC__
   13:   void zlock_(int *fd, char pname[MAXPNAME], int *excl, int *syserr,
   14:      int *ierr)
   15:#else
   16:   void zlock_(fd, pname, excl, syserr, ierr)
   17:   int *fd, *excl, *syserr, *ierr;
   18:   char pname[MAXPNAME];
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! apply a shared or exclusive lock to a disk file                   */
   22:/*# Z2 IO-basic                                                       */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995, 1997-1998                                    */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*  Open (if necessary) and apply either a shared or exclusive lock   */
   50:/*  a file.  If an error occurs, files are NOT closed.                */
   51:/*  Inputs:                                                           */
   52:/*     pname    C*48   Physical file name                             */
   53:/*     excl     I      Lock type indicator: 0 => shared               */
   54:/*                                          1 => exclusive            */
   55:/*  In/out:                                                           */
   56:/*     fd       I      File descriptor (if -1, open the file as well  */
   57:/*                        as apply the requested lock; return the     */
   58:/*                        file descriptor)                            */
   59:/*  Output:                                                           */
   60:/*     syserr   I      System error code                              */
   61:/*     ierr     I      Error return code: 0 => no error               */
   62:/*                        1 => device not found (fd = -1)             */
   63:/*                        2 => file not found (fd = -1)               */
   64:/*                        3 => open error (fd = -1)                   */
   65:/*                        4 => exclusive use denied                   */
   66:/*                        6 => other lock error                       */
   67:/*  Bell UNIX version; requires Posix fcntl                           */
   68:/*--------------------------------------------------------------------*/
   69:{
   70:   int llen, xlen, xlnb, jerr;
   71:   register int i, j;
   72:   char pathname[MAXAPATH];
   73:   struct flock lock;
   74:/*--------------------------------------------------------------------*/
   75:   *ierr = 0;
   76:   *syserr = 0;
   77:                                        /* If *fd = -1, we need to    */
   78:                                        /* open the file first.       */
   79:   if (*fd == -1) {
   80:                                        /* Translate path name        */
   81:      llen = MAXPNAME;
   82:      xlen = MAXAPATH;
   83:      zpath_ (&llen, pname, &xlen, pathname, &xlnb, &jerr);
   84:      if (jerr != 0) {
   85:         *ierr = 1;
   86:         goto exit;
   87:         }
   88:      else {
   89:         pathname[xlnb] = '\0';
   90:                                        /* Open the disk file         */
   91:                                        /* read/write (= 2)           */
   92:         if ((*fd = open (pathname, O_RDWR)) == -1) {
   93:            *syserr = errno;
   94:                                        /* File doesn't exist.        */
   95:            if (errno == ENOENT)
   96:               *ierr = 2;
   97:                                        /* Some other open error.     */
   98:            else
   99:               *ierr = 3;
  100:            perror ("ZLOCK");
  101:            printf ("ZLOCK: Pathname %s\n",pathname);
  102:            goto exit;
  103:            }
  104:         }
  105:      }
  106:                                        /* Apply non-blocking lock.   */
  107:   lock.l_whence = SEEK_SET;
  108:   lock.l_start = 0;
  109:   lock.l_len = 0;
  110:                                        /* Exclusive lock.            */
  111:   if (*excl == 1) {
  112:      lock.l_type = F_WRLCK;
  113:      }
  114:   else {                               /* Shared lock                */
  115:      lock.l_type = F_RDLCK;
  116:      }
  118:   if ( fcntl (*fd, F_SETLK, &lock) == -1 ) {
  119:      *syserr = errno;
  120:      if ( errno == EACCES || errno == EAGAIN ) {
  121:         *ierr = 4;
  122:         }
  123:      else {                            /* Some other error           */
  124:         perror ("ZLOCK");
  125:         *ierr = 6;
  126:         }
  127:      }
  129:exit:
  130:   return;
  131:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZLOCK.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLOCK.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:23 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSTRTP.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
AIPSCC    : Date       Fri Jul 18 17:41:23 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:6:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c: In function `zstrtp_':
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:61: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:61: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:61: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c:61: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_strtp__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <stdlib.h>
    5:#include <errno.h>
    6:#include <AIPSPROTO.H>
    8:#if __STDC__
    9:   void zstrtp_(int *mypops, int *myprio, int *ierr)
   10:#else
   11:   void zstrtp_(mypops, myprio, ierr)
   12:   int *mypops, *myprio, *ierr;
   13:#endif
   14:/*--------------------------------------------------------------------*/
   15:/*! set the process execution priority based on POPS number           */
   16:/*# System                                                            */
   17:/*--------------------------------------------------------------------*/
   18:/*;  Copyright (C) 1995, 1997, 2000                                   */
   19:/*;  Associated Universities, Inc. Washington DC, USA.                */
   20:/*;                                                                   */
   21:/*;  This program is free software; you can redistribute it and/or    */
   22:/*;  modify it under the terms of the GNU General Public License as   */
   23:/*;  published by the Free Software Foundation; either version 2 of   */
   24:/*;  the License, or (at your option) any later version.              */
   25:/*;                                                                   */
   26:/*;  This program is distributed in the hope that it will be useful,  */
   27:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   28:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   29:/*;  GNU General Public License for more details.                     */
   30:/*;                                                                   */
   31:/*;  You should have received a copy of the GNU General Public        */
   32:/*;  License along with this program; if not, write to the Free       */
   33:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   34:/*;  MA 02139, USA.                                                   */
   35:/*;                                                                   */
   36:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   37:/*;         Internet email: aipsmail at nrao.edu.                        */
   38:/*;         Postal address: AIPS Project Office                       */
   39:/*;                         National Radio Astronomy Observatory      */
   40:/*;                         520 Edgemont Road                         */
   41:/*;                         Charlottesville, VA 22903-2475 USA        */
   42:/*--------------------------------------------------------------------*/
   43:/*  Set the execution priority of this process based on its POPS #.   */
   44:/*  Inputs:                                                           */
   45:/*     mypops   I   POPS # of current process                         */
   46:/*  Output:                                                           */
   47:/*     myprio   I   Execution priority (default = 0)                  */
   48:/*     ierr     I   Error return code: 0 => no error                  */
   49:/*                     1 => error                                     */
   50:/*  Generic UNIX version (uses "nice").                               */
   51:/*  Currently used only by Convex-local ZSTRTA                        */
   52:/*--------------------------------------------------------------------*/
   53:{
   54:#if __STDC__
   55:   pid_t pid;
   56:   uid_t uid;
   57:#else
   58:   int pid, uid ;
   59:#endif
   60:   int  prio, llen, xlen, xlnb, jerr;
   61:   char lognam[MAXPNAME], xlated[MAXAPATH];
   62:/*--------------------------------------------------------------------*/
   63:   *ierr = 0;
   64:                                        /* Default priority to 0.     */
   65:   prio = 0;
   66:   *myprio = 0;
   67:                                        /* Form the name of the       */
   68:                                        /* priority logical (i.e.,    */
   69:                                        /* environment variable) for  */
   70:                                        /* "*mypops" and attempt to   */
   71:                                        /* translate it.              */
   72:   llen = MAXPNAME;
   73:   sprintf (lognam, "PRIO%x", *mypops);
   74:   xlen = MAXAPATH;
   75:   ztrlo2_ (&llen, lognam, &xlen, xlated, &xlnb, &jerr);
   76:                                        /* If defined, extract the    */
   77:                                        /* priority from the          */
   78:                                        /* translated character value */
   79:                                        /* as an integer value.       */
   80:   if (jerr == 0) sscanf (xlated, "%d", &prio);
   81:                                        /* Get current process id.    */
   82:   if ((pid = getpid ()) == -1) {
   83:      *ierr = 1;
   84:      perror ("ZSTRTP: getpid");
   85:      }
   86:                                        /* Set execution priority.    */
   87:                                        /* NOTE: Increasing priority  */
   88:                                        /* requires super-user        */
   89:                                        /* priviledge.                */
   90:   else if (nice (prio) == -1) {
   91:      *ierr = 1;
   92:      perror("ZSTRTP: nice");
   93:      }
   94:   else {
   95:       *myprio = prio;
   96:      }
   97:                                        /* Get current, real user id. */
   98:   if ((uid = getuid ()) == -1) {
   99:      perror ("ZSTRTP: getuid");
  100:                                        /* Self destruct.             */
  101:      abort ();
  102:      }
  103:                                        /* Set the effective user id  */
  104:                                        /* to the real user id.       */
  105:   else if (seteuid (uid) == -1) {
  106:      perror ("ZSTRTP: seteuid");
  107:                                        /* Self destruct.             */
  108:      abort ();
  109:      }
  111:   return;
  112:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZSTRTP.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSTRTP.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTRLO2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
AIPSCC    : Date       Fri Jul 18 17:41:24 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:5:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c: In function `ztrlo2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:60: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:60: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:60: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c:60: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_trlo2__
    2:#include <stdlib.h>
    3:#include <ctype.h>
    4:#include <stdio.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void ztrlo2_(int *llen, char *lognam, int *xlen, char *xlated,
    9:      int *xlnb, int *ierr)
   10:#else
   11:   void ztrlo2_(llen, lognam, xlen, xlated, xlnb, ierr)
   12:   int *llen, *xlen, *xlnb, *ierr;
   13:   char lognam[], xlated[];
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! translate a logical name                                          */
   17:/*# System Z2                                                         */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1995, 1997, 2000                                   */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Translate a logical name (i.e., environment variable).            */
   45:/*  NOTE: This routine is ONLY for use by other Z-routines.           */
   46:/*  Inputs:                                                           */
   47:/*     llen     I          Length of "lognam" (1-relative)            */
   48:/*     lognam   H*(llen)   Logical name (must be null, blank or colon */
   49:/*                         terminated)                                */
   50:/*     xlen     I          Length of "xlated" (1-relative)            */
   51:/*  Output:                                                           */
   52:/*     xlated   H*(xlen)   Translation (blank filled)                 */
   53:/*     xlnb     I          Position of last non-blank in "xlated"     */
   54:/*                         (1-relative)                               */
   55:/*     ierr     I          Error return code: 0 => no error           */
   56:/*                             1 => error                             */
   57:/*  Generic UNIX version - uses "getenv"                              */
   58:/*--------------------------------------------------------------------*/
   59:{
   60:   char envvar[MAXPNAME+1], envval[MAXAPATH+1];
   61:   register int i;
   62:/*--------------------------------------------------------------------*/
   63:   *ierr = 0;
   64:                                        /* Form null terminated       */
   65:                                        /* logical name (i.e.,        */
   66:                                        /* environment variable).     */
   67:                                        /* Terminate on non-          */
   68:                                        /* alphanumeric character.    */
   69:   for (i = 0; i < *llen && i < MAXPNAME && (isalpha (lognam[i]) ||
   70:      isdigit (lognam[i]) || lognam[i] == '_'); i++)
   71:      envvar[i] = lognam[i];
   72:   envvar[i] = '\0';
   73:                                        /* Get value of environment   */
   74:                                        /* variable (if any).         */
   75:   *xlnb = 0;
   76:   envval[0] = '\0';
   77:   if (getenv (envvar) == 0)
   78:      *ierr = 1;
   79:   else {
   80:      sprintf (envval, "%s", getenv (envvar));
   81:      if (envval[0] == '\0')
   82:         *ierr = 1;
   83:      else {
   84:                                        /* Copy translation (up to    */
   85:                                        /* first null) into "xlated". */
   86:         for (i = 0; i < *xlen && i < MAXAPATH && envval[i] != '\0'; i++)
   87:            xlated[i] = envval[i];
   88:                                        /* 1-relative position of     */
   89:                                        /* last non-blank in "xlated".*/
   90:         *xlnb = i;
   91:                                        /* Blank fill remainder of    */
   92:                                        /* "xlated".                  */
   93:         for (i = *xlnb; i < *xlen ; i++)
   94:            xlated[i] = ' ';
   95:         }
   96:      }
   98:   return;
   99:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTRLO2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTRLO2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTCL2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
AIPSCC    : Date       Fri Jul 18 17:41:25 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ttcl2__
    2:#include <unistd.h>
    3:#include <errno.h>
    4:#include <string.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zttcl2_(int *fcb, int *ierr)
    9:#else
   10:   void zttcl2_(fcb, ierr)
   11:   int *fcb, *ierr;
   12:#endif
   13:/*--------------------------------------------------------------------*/
   14:/*! close a Message window                                            */
   15:/*# Graphics                                                          */
   16:/*--------------------------------------------------------------------*/
   17:/*;  Copyright (C) 1995, 1997                                         */
   18:/*;  Associated Universities, Inc. Washington DC, USA.                */
   19:/*;                                                                   */
   20:/*;  This program is free software; you can redistribute it and/or    */
   21:/*;  modify it under the terms of the GNU General Public License as   */
   22:/*;  published by the Free Software Foundation; either version 2 of   */
   23:/*;  the License, or (at your option) any later version.              */
   24:/*;                                                                   */
   25:/*;  This program is distributed in the hope that it will be useful,  */
   26:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   27:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   28:/*;  GNU General Public License for more details.                     */
   29:/*;                                                                   */
   30:/*;  You should have received a copy of the GNU General Public        */
   31:/*;  License along with this program; if not, write to the Free       */
   32:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   33:/*;  MA 02139, USA.                                                   */
   34:/*;                                                                   */
   35:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   36:/*;         Internet email: aipsmail at nrao.edu.                        */
   37:/*;         Postal address: AIPS Project Office                       */
   38:/*;                         National Radio Astronomy Observatory      */
   39:/*;                         520 Edgemont Road                         */
   40:/*;                         Charlottesville, VA 22903-2475 USA        */
   41:/*--------------------------------------------------------------------*/
   42:/*  Close a Message window.                                           */
   43:/*  Inputs:                                                           */
   44:/*     fcb    I(*)   File control block for opened MSGSRV device      */
   45:/*  Output:                                                           */
   46:/*     ierr   I      Error return code: 0 => ok                       */
   47:/*                      1 => error                                    */
   48:/*  Generic UNIX version.                                             */
   49:/*  Contains code that will reset TTDEV to TTDEV00 if there is an     */
   50:/*  error in the close on the socket.                                 */
   51:/*--------------------------------------------------------------------*/
   52:{
   53:                                        /* Offsets to entries in the  */
   54:                                        /* file control blocks        */
   55:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   56:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4, Z_nfcber, Z_nfcbfd;
   57:                                        /* flag from ZTTOP2 for speed */
   58:   extern int remembered;
   59:   int fd, llen, tlen, jerr;
   60:   char lnam[6], tlnam[8];
   61:/*--------------------------------------------------------------------*/
   62:   *ierr = 0;
   63:   *(fcb + Z_nfcber) = 0;
   64:                                        /* Get file descriptor from   */
   65:                                        /* the file control block as  */
   66:                                        /* stored there by ZTTOP2.    */
   67:   fd = *(fcb + Z_nfcbfd);
   68:                                        /* Close Socket to MSGSERVER. */
   69:   if (close (fd) == -1) {
   70:      *(fcb + Z_nfcber) = errno;
   71:      *ierr = 1;
   72:                                        /* is this even necessary?    */
   73:      remembered = 0;
   74:      strcpy (lnam, "TTDEV");
   75:      strcpy (tlnam, "TTDEV00");
   76:      llen = strlen(lnam);
   77:      tlen = strlen(tlnam);
   78:      zcrlog_ (&llen, lnam, &tlen, tlnam, &jerr);
   79:      }
   80:   *(fcb + Z_nfcbfd) = 0;
   82:   return;
   83:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTTCL2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTCL2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTYI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
AIPSCC    : Date       Fri Jul 18 17:41:25 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ttyio__
    2:#include <unistd.h>
    3:#include <string.h>
    4:#include <stdio.h>
    5:#include <errno.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zttyi2_(char *oper, int *fcb, char *buff, int *nbytes,
   11:                int *ierr)
   12:#else
   13:   void zttyi2_(oper, fcb, buff, nbytes, ierr)
   14:   char oper[], buff[];
   15:   int *fcb, *nbytes, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read/write from/to a Terminal device                              */
   19:/*# Graphics                                                          */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 1997                                         */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Read/write "nbytes" of data from/to a message server socket.      */
   47:/*                                                                    */
   48:/*  Inputs:                                                           */
   49:/*     oper     C*4    Operation code "READ" (unsupported) or "WRIT"  */
   50:/*     fcb      I(*)   File control block for opened message terminal */
   51:/*     buff     I(*)   I/O buffer                                     */
   52:/*     nbytes   I      Number of 8-bit bytes to be transferred        */
   53:/*  Output:                                                           */
   54:/*     ierr     I      Error return code: 0 => no error               */
   55:/*                        2 => bad opcode                             */
   56:/*                        3 => I/O error                              */
   57:/*                        4 => end of file                            */
   58:/*                        5 => error reading handshake from socket    */
   59:/*                        6 => handshake did not say "OK"             */
   60:/*  Generic UNIX version.                                             */
   61:/*--------------------------------------------------------------------*/
   62:{
   63:                                        /* Offsets to entries in the  */
   64:                                        /* file control blocks        */
   65:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   66:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4, Z_nfcbfd, Z_nfcber;
   68:   extern int remembered;
   69:   int fd, ndone, nread, llen, tlen, jerr;
   70:   register int i;
   71:   char op[5], lognam[6], tname[8], ok[3];
   72:/*--------------------------------------------------------------------*/
   73:   *ierr = 0;
   74:                                        /* Form null terminated       */
   75:                                        /* opcode.                    */
   76:   for (i = 0; i < 4; i++)
   77:      op[i] = oper[i];
   78:   op[4] = '\0';
   79:                                        /* Get file descriptor from   */
   80:                                        /* the file control block as  */
   81:                                        /* stored there by ZTKOP2.    */
   82:   fd = *(fcb + Z_nfcbfd);
   83:                                        /* Also, zero error status    */
   84:   *(fcb + Z_nfcber) = 0;
   85:                                        /* Perform the I/O and record */
   86:                                        /* the system error code (if  */
   87:                                        /* any) in *(fcb + Z_nfcber). */
   88:   if (strcmp (op, "READ") == 0) {
   89:                                        /* This code never used, and  */
   90:                                        /* CERTAINLY never tested!    */
   91:      if ((ndone=read (fd, buff, *nbytes)) == -1) {
   92:         *(fcb + Z_nfcber) = errno;
   93:         *ierr = 3;
   94:         }
   95:      }
   96:   else if (strcmp (op, "WRIT") == 0) {
   97:                                        /* write to message server    */
   98:      if ((ndone=write (fd, buff, *nbytes)) == -1) {
   99:         *(fcb + Z_nfcber) = errno;
  100:         *ierr = 3;
  101:	 perror ("ZTTYI2: write to msgserver");
  102:         }
  103:      else {
  104:                                        /* Read the "OK" back         */
  105:	 ndone = 2;
  106:	 if (( nread = read (fd, ok, ndone)) == -1) {
  107:	    *ierr = 5;
  108:	    fprintf (stderr, "ZTTYI2: socket from msgserver closed!\n");
  109:            }
  110:	 else if (nread == 0) {
  111:	    *ierr = 5;
  112:	    fprintf (stderr, "ZTTYI2: msgserver sent back NULL!\n");
  113:            }
  114:	 else if (nread != 2) {
  115:	    *ierr = 5;
  116:	    fprintf (stderr, "ZTTYI2: msgserver sent %d bytes != 2\n",
  117:		     nread);
  118:            }
  119:	 else {
  120:	    if (strncmp (ok, "OK", 2) != 0) {
  121:	       *ierr = 6;
  122:	       fprintf (stderr,
  123:			"ZTTYI2: unexpected msgserver text %s\n", ok);
  124:	       }
  125:            }
  126:         }
  127:      if (*ierr != 0) {
  128:                                        /* problems, forget msgserver */
  129:                                        /* but print possibly lost msg */
  130:         fprintf (stderr, "ZTTYI2: Problem with MSGSRV communication\n");
  131:	 fprintf (stderr, "ZTTYI2: %s\n",
  132:		  "Messages will continue here instead; next may be a repeat");
  133:         fprintf (stderr, "%s\n", buff);
  134:	 remembered = 0;
  135:	 llen=5;
  136:	 strcpy (lognam, "TTDEV");
  137:	 tlen=7;
  138:	 strcpy (tname, "TTDEV00");
  139:	 zcrlog_ (&llen, lognam, &tlen, tname, &jerr);
  140:	 if (jerr != 0) {
  141:	    fprintf (stderr,
  142:		     "ZTTYI2: (info) problem writing to msgserver\n");
  143:	    fprintf (stderr,
  144:		     "ZTTYI2: (info) failed to reset message device\n");
  145:            }
  146:         }
  147:      }
  148:                                        /* Bad opcode.                */
  149:   else {
  150:      *ierr = 2;
  151:      return;
  152:      }
  153:                                        /* End of file?               */
  154:   if (ndone == 0)
  155:      *ierr = 4;
  157:   return;
  158:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTTYI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTYI2.C
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:26 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABOR2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZABOR2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZABOR2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
AIPSCC    : Date       Fri Jul 18 17:41:26 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c:7:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c: In function `zabor2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c:102: error: `zabors_' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c:102: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c:102: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_abor2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <signal.h>
    5:#include <stdlib.h>
    6:#include <string.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zabor2_(char tsknam[], int *isalon, int *action)
   11:#else
   12:   zabor2_(tsknam, isalon, action)
   13:   char tsknam[];
   14:   int *isalon, *action;
   15:#endif
   16:/*--------------------------------------------------------------------*/
   17:/*! establishes or carries out (when appropriate) abort handling      */
   18:/*# Z2 System                                                         */
   19:/*--------------------------------------------------------------------*/
   20:/*;  Copyright (C) 1995, 1998                                         */
   21:/*;  Associated Universities, Inc. Washington DC, USA.                */
   22:/*;                                                                   */
   23:/*;  This program is free software; you can redistribute it and/or    */
   24:/*;  modify it under the terms of the GNU General Public License as   */
   25:/*;  published by the Free Software Foundation; either version 2 of   */
   26:/*;  the License, or (at your option) any later version.              */
   27:/*;                                                                   */
   28:/*;  This program is distributed in the hope that it will be useful,  */
   29:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   30:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   31:/*;  GNU General Public License for more details.                     */
   32:/*;                                                                   */
   33:/*;  You should have received a copy of the GNU General Public        */
   34:/*;  License along with this program; if not, write to the Free       */
   35:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   36:/*;  MA 02139, USA.                                                   */
   37:/*;                                                                   */
   38:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   39:/*;         Internet email: aipsmail at nrao.edu.                        */
   40:/*;         Postal address: AIPS Project Office                       */
   41:/*;                         National Radio Astronomy Observatory      */
   42:/*;                         520 Edgemont Road                         */
   43:/*;                         Charlottesville, VA 22903-2475 USA        */
   44:/*--------------------------------------------------------------------*/
   45:/*--------------------------------------------------------------------*/
   46:/*  ZABORT will take one of two actions depending on the value of     */
   47:/*  "action".  If "action" is zero, it establishes abort handling     */
   48:/*  to clean up for programs in the event of an ABORTASK or otherwise */
   49:/*  fatal signal.  Hangup, interrupt (except for AIPS or BATER) and   */
   50:/*  quit are ignored.  If running under the control of a debugger, it */
   51:/*  simply returns (to avoid affecting the debugger signal handling). */
   52:/*  If "action" is non-zero, it will issue an illegal instruction in  */
   53:/*  order to induce the abort handler.  This is mostly to get a       */
   54:/*  traceback for debugging purposes (e.g., when an invalid argument  */
   55:/*  to a subroutine is detected).                                     */
   56:/*                                                                    */
   57:/*  Inputs:                                                           */
   58:/*     tsknam   C*6   Program name                                    */
   59:/*     isalon   I     1 => stand-alone program, else a task           */
   60:/*     action   I     Action indicator code:                          */
   61:/*                       0 => establish abort handling                */
   62:/*                       1 => invoke an illegal instruction           */
   63:/*  Output:                                                           */
   64:/*     none                                                           */
   65:/*  Generic UNIX version (your system may have different/more         */
   66:/*  signals).                                                         */
   67:/*--------------------------------------------------------------------*/
   68:{
   69:   char prog[7];
   70:   register int i;
   71:/*--------------------------------------------------------------------*/
   72:                                        /* Abort?                     */
   73:   if (*action == 1)
   74:      abort ();
   75:                                        /* Else establish handler     */
   77:                                        /* Form null terminated       */
   78:                                        /* program name.              */
   79:   strncpy (prog, tsknam, 7);
   80:                                        /* If we are running in debug */
   81:                                        /* mode, don't disturb signal */
   82:                                        /* processing.                */
   83:   if (strcmp (prog, "ZSTRTA") == 0 || strcmp (prog, "AIPS") == 0) {
   84:      if (getenv ("AIPSDBUGR") != NULL)
   85:         return;
   86:      }
   87:   else if (strcmp (prog, "ZSTRTB") == 0 ||
   88:      strcmp (prog, "BATER") == 0) {
   89:      if (getenv ("BATERDBUGR") != NULL)
   90:         return;
   91:      }
   92:                                        /* ppid > 1 => dbgr           */
   93:   else if ((getenv ("DBUGR") != NULL) && (getppid () > 1))
   94:      return;
   95:                                        /* Your system may have more  */
   96:                                        /* or different signals.  See */
   97:                                        /* signal(3) and              */
   98:                                        /* "/usr/include/signal.h".   */
   99:   if (*isalon == 1 ||
  100:      getenv ("STANDALONE") != 0) {     /* if AIPS, BATER or          */
  101:                                        /* standalone, catch:         */
  102:      zignal_ (SIGINT, zabors_);        /* interrupt                  */
  103:      zignal_ (SIGHUP, zabors_);        /* hangup                     */
  104:      }
  105:   else {                               /* otherwise, ignore:         */
  106:      zignal_ (SIGINT, SIG_IGN);        /* interrupt                  */
  107:      zignal_ (SIGHUP, SIG_IGN);        /* hangup                     */
  108:      }
  109:   zignal_ (SIGQUIT, SIG_IGN);          /* quit (ignore)              */
  110:   zignal_ (SIGILL, zabors_);           /* illegal instruction        */
  111:#ifdef SIGTRAP
  112:   zignal_ (SIGTRAP, zabors_);          /* trace trap                 */
  113:#endif
  114:#ifdef SIGABRT
  115:   zignal_ (SIGABRT, zabors_);          /* abort (IOT) instruction    */
  116:#else
  117:   zignal_ (SIGIOT, zabors_);           /* abort (IOT) instruction    */
  118:#endif
  119:#ifdef SIGEMT
  120:   zignal_ (SIGEMT, zabors_);           /* EMT instruction            */
  121:#endif
  122:   zignal_ (SIGFPE, zabors_);           /* floating-point exception   */
  123:   zignal_ (SIGKILL, SIG_DFL);          /* kill: can't catch or ignore*/
  124:#ifdef SIGBUS
  125:   zignal_ (SIGBUS, zabors_);           /* bus error                  */
  126:#endif
  127:   zignal_ (SIGSEGV, zabors_);          /* segmentation violation     */
  128:#ifdef SIGSYS
  129:   zignal_ (SIGSYS, zabors_);           /* bad argument to system call*/
  130:#endif
  131:   zignal_ (SIGPIPE, zabors_);          /* write on a pipe with no one*/
  132:                                        /*    to read it              */
  133:   zignal_ (SIGTERM, zabors_);          /* software termination       */
  134:                                        /*    (e.g., "ABORTASK")      */
  135:   zignal_ (SIGUSR1, zabors_);          /* user defined signal 1      */
  136:   zignal_ (SIGUSR2, zabors_);          /* user defined signal 2      */
  138:   zignal_ (SIGALRM, zabors_);          /* alarm clock                */
  140:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZABOR2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZABOR2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:27 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBYTF2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZBYTF2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZBYTF2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
AIPSCC    : Date       Fri Jul 18 17:41:27 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_bytf2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <stdlib.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zbytf2_(int *nwords, int *bytflp, int *nbitwd, char inbuf[],
    9:      char outbuf[])
   10:#else
   11:   void zbytf2_(nwords, bytflp, nbitwd, inbuf, outbuf)
   12:   char inbuf[], outbuf[];
   13:   int *nwords, *bytflp, *nbitwd;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! swap low and high order 8-bit bytes and move from inbuf to outbuf */
   17:/*# Z2 Binary                                                         */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1995-1997                                          */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Interchange the low order and high order bytes for all words in   */
   45:/*  the input buffer and puts results in output buffer (which may be  */
   46:/*  the same as the input buffer).  The routine is only called by     */
   47:/*  ZBYTFL and only if byte swapping is required on the host machine  */
   48:/*  (e.g., a VAX).                                                    */
   49:/*  Inputs:                                                           */
   50:/*     nwords   I       Length of input buffer in 16-bit "words"      */
   51:/*     bytflp   I       Byte/words swapped indicator as set in ZDCHIN */
   52:/*                        1 => byte swapped only                      */
   53:/*                        2 => word swapped only                      */
   54:/*                        3 => both byte and word swapped             */
   55:/*     nbitwd   I       Number of bits per integer                    */
   56:/*     inbuf    I*2(*)  input buffer                                  */
   57:/*  Output:                                                           */
   58:/*     outbuf   I*2(*)  output buffer containing swapped words        */
   59:/*                        (may be the same as the input buffer)       */
   60:/* Generic UNIX version (only performs byte-swapping at present;  it  */
   61:/* may be possible to use the UNIX library function "swab" for this   */
   62:/* it's not clear from the documentation if inbuf and outbuf can be   */
   63:/* the same).                                                         */
   64:/* This will probably do bad things if the arrays overlap but don't   */
   65:/* start at the same place.                                           */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:   int n8 = 8;
   69:   int flipcode;
   70:   register int j, k;
   71:   char temp[2], msgbuf[80];
   72:/*--------------------------------------------------------------------*/
   73:   flipcode = *bytflp;
   74:                                        /* Swap bytes only.  If      */
   75:                                        /* inbuf is the same as      */
   76:                                        /* outbuf, use temporary     */
   77:                                        /* storage.                  */
   78:   if ((flipcode == 1) || (flipcode == 3)) {
   79:      if (&inbuf[0] == &outbuf[0]) {
   80:         for (j = 0; j < *nwords; j++) {
   81:            k = 2 * j;
   82:            temp[0] = inbuf[k];
   83:            temp[1] = inbuf[k+1];
   84:            outbuf[k] = temp[1];
   85:            outbuf[k+1] = temp[0];
   86:            }
   87:         }
   88:      else {
   89:         for (j = 0; j < *nwords; j++) {
   90:            k = 2 * j;
   91:            outbuf[k+1] = inbuf[k];
   92:            outbuf[k] = inbuf[k+1];
   93:            }
   94:         }
   95:      }
   96:   else if ((flipcode == 2) || (flipcode == 0)) {
   97:      if (&inbuf[0] == &outbuf[0]) {
   98:	    ;
   99:	 }
  100:      else {
  101:         for (j = 0; j < *nwords; j++) {
  102:            k = 2 * j;
  103:            outbuf[k+1] = inbuf[k+1];
  104:            outbuf[k] = inbuf[k];
  105:            }
  106:         }
  107:      }
  108:   else {
  109:                                        /* Invalid "flipcode".        */
  110:      sprintf (msgbuf,
  111:         "ZBYTF2: INVALID VALUE FOR BYTFLP = %d\n", flipcode);
  112:      zmsgwr_ (msgbuf, &n8);
  113:      exit (8);
  114:      }
  116:   return;
  117:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZBYTF2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZBYTF2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:28 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCMPR2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZCMPR2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCMPR2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
AIPSCC    : Date       Fri Jul 18 17:41:28 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c:7:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c:10: error: `MAXPNAME' undeclared here (not in a function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_cmpr2__
    2:#include <unistd.h>
    3:#include <sys/types.h>
    4:#include <errno.h>
    5:#include <sys/stat.h>
    6:#include <string.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zcmpr2_(int *fcb, char pname[MAXPNAME], int *nblocks, int *map,
   11:      int *syserr, int *ierr)
   12:#else
   13:   void zcmpr2_(fcb, pname, nblocks, map, syserr, ierr)
   14:   int *fcb, *nblocks, *map, *syserr, *ierr;
   15:   char pname[MAXPNAME];
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! truncate a disk file, returning blocks to the system              */
   19:/*# IO-basic                                                          */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 1997                                         */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/* Truncates a disk file.  It is assumed that the file is open.       */
   47:/* Inputs:                                                            */
   48:/*    fcb     I(*)   File descriptor from FTAB file control block     */
   49:/*    pname   C*48   File name                                        */
   50:/*    map     I      I/O type: 0 => non-map (single buffered)         */
   51:/*                             1 => map (double buffered)             */
   52:/* In/Output:                                                         */
   53:/*    nblocks I      Desired size in 256-integer blocks               */
   54:/* Output:                                                            */
   55:/*    ierr    I      Error code: 0 = success                          */
   56:/*                      1 = file name translation fails               */
   57:/*                      2 = error occurred                            */
   58:/*                      3 = temporary file not deleted                */
   59:/* semi-standard (SVR4 and BSD 4.3) function ftruncate used           */
   60:/*--------------------------------------------------------------------*/
   61:{
   62:                                        /* number bytes per AIPS byte */
   63:   extern int  Z_fcbfd, Z_fcbsiz, Z_fcberr, Z_mfcb, Z_nbpab ;
   64:   off_t nbytes, lastiob;
   65:   int fd;
   66:   struct stat fstatbuf;
   67:/*--------------------------------------------------------------------*/
   68:   *ierr = 0;
   69:   *syserr = 0;
   70:   nbytes = *nblocks;
   71:   nbytes = nbytes * 512 * Z_nbpab;
   72:   fd = *(fcb + Z_fcbfd);
   73:                                        /* Truncate file to "nbytes". */
   74:   if (ftruncate (*fcb, nbytes) == -1) {
   75:      *ierr = 2;
   76:      *syserr = errno;
   77:      }
   78:                                        /* Squirrel away file size    */
   79:   else if (fstat (fd, &fstatbuf) == -1) {
   80:      *(fcb + Z_fcberr) = errno;
   81:      *ierr = 6;
   82:      }
   83:   else {
   84:      lastiob = -100;
   85:      *nblocks = fstatbuf.st_size / 512 / Z_nbpab ;
   86:      memcpy ((fcb+Z_fcbsiz), &fstatbuf.st_size, sizeof(off_t)) ;
   87:      memcpy ((fcb+Z_fcbsiz+2), &lastiob, sizeof(off_t)) ;
   88:      if (*map == 1) {
   89:         memcpy ((fcb+Z_mfcb+Z_fcbsiz), &fstatbuf.st_size, sizeof(off_t)) ;
   90:         memcpy ((fcb+Z_mfcb+Z_fcbsiz+2), &lastiob, sizeof(off_t)) ;
   91:         }
   92:      }
   94:   return;
   95:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZCMPR2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZCMPR2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:28 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCREA2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZCREA2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZCREA2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
AIPSCC    : Date       Fri Jul 18 17:41:28 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:10:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:17: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c: In function `zcrea2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:78: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:78: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:78: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c:78: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_crea2__
    2:#include <unistd.h>
    3:#include <sys/types.h>
    4:#include <sys/stat.h>
    5:#include <stdio.h>
    6:#include <fcntl.h>
    7:#include <string.h>
    8:#include <errno.h>
    9:#include <stdlib.h>
   10:#include <AIPSPROTO.H>
   12:#define BUFSIZE 65536                   /* Buffer size for space      */
   13:                                        /* reservation process.       */
   14:#define PMODE (S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | S_IROTH | S_IWOTH)
   16:#if __STDC__
   17:   void zcrea2_(char pname[MAXPNAME], int *ablocks, int *asize,
   18:      int *syserr, int *ierr)
   19:#else
   20:   void zcrea2_(pname, ablocks, asize, syserr, ierr)
   21:   char pname[MAXPNAME];
   22:   int *ablocks, *asize, *syserr, *ierr;
   23:#endif
   24:/*--------------------------------------------------------------------*/
   25:/*! create the specified disk file                                    */
   26:/*# Z2 IO-basic                                                       */
   27:/*--------------------------------------------------------------------*/
   28:/*;  Copyright (C) 1995-1997, 2000, 2002                              */
   29:/*;  Associated Universities, Inc. Washington DC, USA.                */
   30:/*;                                                                   */
   31:/*;  This program is free software; you can redistribute it and/or    */
   32:/*;  modify it under the terms of the GNU General Public License as   */
   33:/*;  published by the Free Software Foundation; either version 2 of   */
   34:/*;  the License, or (at your option) any later version.              */
   35:/*;                                                                   */
   36:/*;  This program is distributed in the hope that it will be useful,  */
   37:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   38:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   39:/*;  GNU General Public License for more details.                     */
   40:/*;                                                                   */
   41:/*;  You should have received a copy of the GNU General Public        */
   42:/*;  License along with this program; if not, write to the Free       */
   43:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   44:/*;  MA 02139, USA.                                                   */
   45:/*;                                                                   */
   46:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   47:/*;         Internet email: aipsmail at nrao.edu.                        */
   48:/*;         Postal address: AIPS Project Office                       */
   49:/*;                         National Radio Astronomy Observatory      */
   50:/*;                         520 Edgemont Road                         */
   51:/*;                         Charlottesville, VA 22903-2475 USA        */
   52:/*--------------------------------------------------------------------*/
   53:/*  Create a disk file of the specified name and size with read/write */
   54:/*  permission.                                                       */
   55:/*  Inputs:                                                           */
   56:/*     pname    C*48   Physical file name (MAXPNAME characters)       */
   57:/*     ablocks  I      Requested size of file in AIPS-blocks          */
   58:/*                        (256 local integers)                        */
   59:/*  Output:                                                           */
   60:/*     asize    I      Actual size of file created in AIPS-blocks     */
   61:/*     syserr   I      System error code                              */
   62:/*     ierr     I      Error return code: 0 => no error               */
   63:/*                        1 => file already exists                    */
   64:/*                        2 => volume not found                       */
   65:/*                        3 => insufficient space                     */
   66:/*                        4 => other                                  */
   67:/*  Bell UNIX version (attempts atomic file creations).               */
   68:/*--------------------------------------------------------------------*/
   69:{
   70:                                        /* # bytes per AIPS-byte      */
   71:   extern int Z_nbpab;
   72:   int llen, xlen, xlnb, jerr, fd, tries, lockfd, tdelay,
   73:      iexcl = 1, n6 = 6, n8 = 8;
   74:   int chunks, rest, xfer;
   75:   off_t bytes;
   76:   register int i, j, k;
   77:   float delay = 2.0;
   78:   char lognam[MAXPNAME], xlated[MAXAPATH], filename[MAXPNAME],
   79:      lname[MAXPNAME], lockname[MAXAPATH], pathname[MAXAPATH], msgbuf[80];
   80:   char *buff = NULL;
   81:   struct stat statbuf;
   82:/*--------------------------------------------------------------------*/
   83:   *asize = 0;
   84:   *syserr = 0;
   85:   *ierr = 0;
   86:                                        /* Extract logical device.    */
   87:   for (i = 0; i < MAXPNAME && pname[i] != ':'; i++)
   88:      lognam[i] = pname[i];
   89:   lognam[i] = '\0';
   91:                                        /* Extract filename.          */
   92:   j = 0;
   93:   for (i = i+1; i < MAXPNAME && pname[i] != ' '; i++) {
   94:      filename[j] = pname[i];
   95:      j++;
   96:      }
   97:   filename[j] = '\0';
   98:                                        /* Convert number of AIPS-    */
   99:                                        /* blocks requested to bytes  */
  100:   bytes = *ablocks * Z_nbpab;
  101:   bytes = bytes * 512;
  102:                                        /* Translate logical device   */
  103:                                        /* name and null terminate.   */
  104:   llen = MAXPNAME;
  105:   xlen = MAXAPATH;
  106:   ztrlo2_ (&llen, lognam, &xlen, xlated, &xlnb, &jerr);
  107:   if (jerr != 0) {
  108:      *ierr = 2;
  109:      sprintf (msgbuf, "ZCREA2: TROUBLE TRANSLATING LOGICAL = %s",
  110:         lognam);
  111:      zmsgwr_ (msgbuf, &n6);
  112:      }
  113:   else if (bytes <= 0) {
  114:      *ierr = 3;
  115:      sprintf (msgbuf, "ZCREA2: BYTES OVERFLOW ? = %d", bytes);
  116:      zmsgwr_ (msgbuf, &n6);
  117:      }
  118:   else {
  119:      xlated[xlnb] = '\0';
  120:                                        /* Build full path name of    */
  121:                                        /* the file to be created.    */
  122:      sprintf (pathname, "%s/%s", xlated, filename);
  123:                                         /* "Stat" full path name.    */
  124:      if (stat (pathname, &statbuf) == 0) {
  125:                                        /* File already exists. Get   */
  126:                                        /* its actual size in AIPS-   */
  127:                                        /* bytes.                     */
  128:         *ierr = 1;
  129:         *asize = statbuf.st_size / Z_nbpab / 512;
  130:         }
  131:      else {
  132:                                        /* Build physical file name   */
  133:                                        /* of space lock file.        */
  134:         sprintf (lname, "%s:SPACE", lognam);
  135:                                        /* Build full path name to    */
  136:                                        /* space lock file.           */
  137:         sprintf (lockname, "%s/SPACE", xlated);
  138:                                        /* Open space lock file.      */
  139:         if ((lockfd = open (lockname, 2)) == -1) {
  140:            *syserr = errno;
  141:                                        /* If space lock file doesn't */
  142:                                        /* exist, create it.          */
  143:            if (errno == ENOENT) {
  144:               if ((lockfd =
  145:                  open (lockname, O_CREAT | O_EXCL | O_WRONLY, PMODE))
  146:                  == -1) {
  147:                  *ierr = 4;
  148:                  sprintf (msgbuf,
  149:                  "ZCREA2: ERROR CREATING SPACE LOCK FILE = %s", lname);
  150:                  zmsgwr_ (msgbuf, &n8);
  151:                  }
  152:               }
  153:                                        /* Some other open error.     */
  154:            else {
  155:               *ierr = 4;
  156:               sprintf (msgbuf,
  157:                  "ZCREA2: ERROR OPENING SPACE LOCK FILE = %s", lname);
  158:               zmsgwr_ (msgbuf, &n8);
  159:               }
  160:            }
  161:         }
  162:                                        /* If no error so far,        */
  163:                                        /* continue.                  */
  164:      if (*ierr == 0) {
  165:                                        /* Apply non-blocking lock to */
  166:                                        /* space lock file.  This is  */
  167:                                        /* an attempt to force AIPS   */
  168:                                        /* file creations to be       */
  169:                                        /* atomic.  If it fails, we   */
  170:                                        /* try to create the file     */
  171:                                        /* anyway.                    */
  172:         tries = 0;
  173:         tdelay = 0;
  174:lock:
  175:         zlock_ (&lockfd, lname, &iexcl, syserr, &jerr);
  176:         tries = tries + 1;
  177:         if (jerr == 4) {
  178:                                        /* Space lock file is busy.   */
  179:                                        /* Wait and try again up to   */
  180:                                        /* 30 times at 2 second       */
  181:                                        /* intervals.                 */
  182:            if (tries <= 30) {
  183:               zdelay_ (&delay, &jerr);
  184:               tdelay = tdelay + delay;
  185:               goto lock;
  186:               }
  187:            tries = tries - 1;
  188:            sprintf (msgbuf, "ZCREA2: SPACE LOCK FILE = %s", lname);
  189:            zmsgwr_ (msgbuf, &n8);
  190:            sprintf (msgbuf,
  191:               "ZCREA2: STILL BUSY AFTER %d TRIES IN %d SECONDS",
  192:               tries, tdelay);
  193:            zmsgwr_ (msgbuf, &n8);
  194:            sprintf (msgbuf,
  195:               "ZCREA2: A STOPPED PROCESS MAY HAVE IT MONOPOLIZED");
  196:            zmsgwr_ (msgbuf, &n8);
  197:            sprintf (msgbuf, "ZCREA2: NOTIFY THE AIPS SYSTEM MANAGER");
  198:            zmsgwr_ (msgbuf, &n8);
  199:            sprintf (msgbuf,
  200:               "ZCREA2: PERFORMING NON-ATOMIC FILE CREATION INSTEAD");
  201:            zmsgwr_ (msgbuf, &n8);
  202:            }
  203:                                        /* Some other error locking   */
  204:                                        /* space lock file.           */
  205:         else if (jerr != 0) {
  206:            *ierr = 4;
  207:            sprintf (msgbuf,
  208:               "ZCREA2: ERROR LOCKING SPACE LOCK FILE = %s", lname);
  209:            zmsgwr_ (msgbuf, &n8);
  210:            sprintf (msgbuf,
  211:               "ZCREA2: PERFORMING NON-ATOMIC FILE CREATION INSTEAD");
  212:            zmsgwr_ (msgbuf, &n8);
  213:            }
  214:                                        /* Build full path name of    */
  215:                                        /* the file to be created.    */
  216:         sprintf (pathname, "%s/%s", xlated, filename);
  217:                                        /* Create the file.           */
  218:         if ((fd = open
  219:            (pathname, O_CREAT | O_EXCL | O_WRONLY, PMODE)) == -1) {
  220:                                        /* File already exists.       */
  221:            if (errno == EEXIST) {
  222:               *ierr = 1;
  223:               }
  224:            else {
  225:               *syserr = errno;
  226:               *ierr = 4;
  227:               sprintf (msgbuf, "ZCREA2: CREATE ERROR = %d", errno);
  228:               zmsgwr_ (msgbuf, &n6);
  229:               }
  230:            }
  231:                                        /* Apply non-blocking lock.   */
  232:         else {
  233:            zlock_ (&fd, pname, &iexcl, syserr, &jerr);
  234:                                        /* Allocate memory for a      */
  235:                                        /* temporary I/O buffer.      */
  236:            if ((buff = (char *) malloc (BUFSIZE)) == NULL) {
  237:               *syserr = errno;
  238:               *ierr = 4;
  239:               sprintf (msgbuf, "ZCREA2: MEMORY ALLOCATION ERROR = %d", errno);
  240:               zmsgwr_ (msgbuf, &n6);
  241:               }
  242:            else {
  243:               memset (buff, 0, BUFSIZE);
  244:                                        /* Convert number of AIPS-    */
  245:                                        /* blocks requested to bytes  */
  246:               bytes = *ablocks * Z_nbpab;
  247:               bytes = bytes * 512;
  248:                                        /* Calculate the number of    */
  249:                                        /* BUFSIZE byte chunks this   */
  250:                                        /* represents plus remainder  */
  251:                                        /* (for the sake of speed,    */
  252:                                        /* disk space is reserved by  */
  253:                                        /* writing the file in        */
  254:                                        /* BUFSIZE chunks, then the   */
  255:                                        /* remainder).                */
  256:               chunks = bytes / BUFSIZE;
  257:               rest = bytes % BUFSIZE;
  258:                                        /* Reserve the disk space by  */
  259:                                        /* writing the entire file.   */
  260:                                        /* We can't just write the    */
  261:                                        /* last byte since this would */
  262:                                        /* leave a "hole".  That is,  */
  263:                                        /* "stat" would return the    */
  264:                                        /* desired file size, but     */
  265:                                        /* only one block would       */
  266:                                        /* actually be allocated.     */
  267:                                        /* UNIX really should have a  */
  268:                                        /* function for this (just    */
  269:                                        /* something that would mark  */
  270:                                        /* the blocks as in use).     */
  271:               bytes = 0;
  272:               xfer = 0;
  273:               for (i = 0; i < chunks && *ierr == 0; i++) {
  274:                  if ((xfer = write (fd, buff, BUFSIZE)) == -1) {
  275:                     *syserr = errno;
  276:                     *ierr = 4;
  277:                     sprintf (msgbuf, "ZCREA2: WRITE ERROR = %d", errno);
  278:                     zmsgwr_ (msgbuf, &n6);
  279:                     }
  280:                                        /* Increment space reserved.  */
  281:                  else {
  282:                     bytes = bytes + xfer;
  283:                                        /* Presume insufficient space */
  284:                     if (xfer != BUFSIZE) {
  285:                        *ierr = 3;
  286:                        }
  287:                     }
  288:                  }
  289:                                        /* If no error so far, write  */
  290:                                        /* the "rest" (if any).       */
  291:               if (*ierr == 0 && rest > 0) {
  292:                  if ((xfer = write (fd, buff, rest)) == -1) {
  293:                     *syserr = errno;
  294:                     *ierr = 4;
  295:                     sprintf (msgbuf, "ZCREA2: WRITE ERROR = %d", errno);
  296:                     zmsgwr_ (msgbuf, &n6);
  297:                     }
  298:                                        /* Increment space reserved.  */
  299:                  else {
  300:                     bytes = bytes + xfer;
  301:                                        /* Presume insufficient space */
  302:                     if (xfer != rest) {
  303:                        *ierr = 3;
  304:                        }
  305:                     }
  306:                  }
  307:                                        /* Free up the memory of the  */
  308:                                        /* temporary I/O buffer.      */
  309:               free (buff);
  310:               }
  311:                                        /* Convert the final 8-bit    */
  312:                                        /* byte file size to          */
  313:                                        /* AIPS-blocks for return     */
  314:            *asize = bytes / Z_nbpab / 512;
  315:                                        /* Close the file.            */
  316:            if (close (fd) == -1) {
  317:               *syserr = errno;
  318:               *ierr = 4;
  319:               sprintf (msgbuf, "ZCREA2: CLOSE ERROR = %d", errno);
  320:               zmsgwr_ (msgbuf, &n6);
  321:               }
  322:                                        /* Did we get what we asked   */
  323:                                        /* for?                       */
  324:                                        /* Presume insufficient space */
  325:            else if (*asize != *ablocks) {
  326:               *ierr = 3;
  327:               }
  328:                                        /* Any errors.                */
  329:            if (*ierr != 0) {
  330:                                        /* Delete the file.           */
  331:               if (unlink (pathname) == -1) {
  332:                  *syserr = errno;
  333:                  *ierr = 4;
  334:                  sprintf (msgbuf, "ZCREA2: DELETE ERROR = %d", errno);
  335:                  zmsgwr_ (msgbuf, &n6);
  336:                  }
  337:               }
  338:            }
  339:                                        /* Close space lock file.     */
  340:         if (close (lockfd) == -1) {
  341:            *syserr = errno;
  342:            *ierr = 4;
  343:            sprintf (msgbuf, "ZCREA2: CLOSE ERROR ON %s", lname);
  344:            zmsgwr_ (msgbuf, &n6);
  345:            }
  346:         }
  347:      }
  349:   return;
  350:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZCREA2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZCREA2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:29 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDAOPN.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDAOPN.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDAOPN.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
AIPSCC    : Date       Fri Jul 18 17:41:29 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:11:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:14: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c: In function `zdaopn_':
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:78: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:78: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:78: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c:83: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_daopn__
    5:#include <unistd.h>
    6:#include <fcntl.h>
    7:#include <string.h>
    8:#include <errno.h>
    9:#include <sys/types.h>
   10:#include <sys/stat.h>
   11:#include <AIPSPROTO.H>
   13:#if __STDC__
   14:   void zdaopn_(int *fcb, char pname[MAXPNAME],int * map, int *excl,
   15:      int *ierr)
   16:#else
   17:   void zdaopn_(fcb, pname, map, excl, ierr)
   18:   int *fcb, *map, *excl, *ierr ;
   19:   char pname[MAXPNAME] ;
   20:#endif
   21:/*--------------------------------------------------------------------*/
   22:/*! open the specified disk file                                      */
   23:/*# Z2 IO-basic                                                       */
   24:/*--------------------------------------------------------------------*/
   25:/*;  Copyright (C) 1995, 1997                                         */
   26:/*;  Associated Universities, Inc. Washington DC, USA.                */
   27:/*;                                                                   */
   28:/*;  This program is free software; you can redistribute it and/or    */
   29:/*;  modify it under the terms of the GNU General Public License as   */
   30:/*;  published by the Free Software Foundation; either version 2 of   */
   31:/*;  the License, or (at your option) any later version.              */
   32:/*;                                                                   */
   33:/*;  This program is distributed in the hope that it will be useful,  */
   34:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   35:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   36:/*;  GNU General Public License for more details.                     */
   37:/*;                                                                   */
   38:/*;  You should have received a copy of the GNU General Public        */
   39:/*;  License along with this program; if not, write to the Free       */
   40:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   41:/*;  MA 02139, USA.                                                   */
   42:/*;                                                                   */
   43:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   44:/*;         Internet email: aipsmail at nrao.edu.                        */
   45:/*;         Postal address: AIPS Project Office                       */
   46:/*;                         National Radio Astronomy Observatory      */
   47:/*;                         520 Edgemont Road                         */
   48:/*;                         Charlottesville, VA 22903-2475 USA        */
   49:/*--------------------------------------------------------------------*/
   50:/*  Opens a disk file for map (double buffered) or non-map (single    */
   51:/*  buffered) I/O and shared or exclusive use.                        */
   52:/*  Inputs:                                                           */
   53:/*     pname   H*48   Physical file name (H for Macro, C, ...')        */
   54:/*     map     I      I/O type: 0 => non-map (single buffered)        */
   55:/*                              1 => map (double buffered)            */
   56:/*     excl    I      Usage mode indicator: 0 => shared               */
   57:/*                                          1 => exclusive            */
   58:/*  Output:                                                           */
   59:/*     fcb     I(*)   File control block for disk file involved       */
   60:/*     ierr    I      Error return code: 0 => no error                */
   61:/*                       2 => file not found                          */
   62:/*                       3 => volume/logical not found                */
   63:/*                       4 => exclusive use requested but not ok      */
   64:/*                       6 => other open error                        */
   65:/*  Generic UNIX version (synchronous I/O only).                      */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:                                        /* Offsets to entries in the  */
   69:                                        /* file control blocks        */
   70:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   71:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   72:                                        /* # of FTAB elements per map */
   73:                                        /* file control block         */
   74:   extern int Z_mfcb;
   75:   int llen, xlen, xlnb, jerr, syserr, fd, dupfd;
   76:   off_t lastiob;
   77:   register int i, j;
   78:   char pathname[MAXAPATH];
   79:   struct stat fstatbuf;
   80:/*--------------------------------------------------------------------*/
   81:   *ierr = 0 ;
   82:                                        /* get full file name         */
   83:   llen = MAXPNAME;
   84:   xlen = MAXAPATH;
   85:   zpath_(&llen, pname, &xlen, pathname, &xlnb, &jerr) ;
   86:   if (jerr != 0) {
   87:      *ierr = 3;
   88:      }
   89:   else {
   90:      pathname[xlnb] = '\0';
   91:                                        /* Open the disk file         */
   92:                                        /* read/write.                */
   93:      fd = open (pathname, O_RDWR);
   94:                                        /* try read only              */
   95:      if ((fd == -1) && (errno == EACCES) && (*excl == 0))
   96:         fd = open (pathname, O_RDONLY);
   97:      if (fd == -1) {
   98:         *(fcb + Z_fcberr) = errno;
   99:                                        /* File doesn't exist.        */
  100:         if (errno == ENOENT)
  101:            *ierr = 2;
  102:                                        /* Some other open error.     */
  103:         else
  104:            *ierr = 6;
  105:         }
  106:      else {
  107:         *(fcb + Z_fcbfd) = fd;
  108:                                        /* Apply non-blocking lock.   */
  109:         zlock_ (&fd, pname, excl, &syserr, ierr);
  110:         if (*ierr != 0) {
  111:            *(fcb + Z_fcberr) = syserr;
  112:            close (fd);
  113:            }
  114:                                        /* Squirrel away file size    */
  115:         else if (fstat (fd, &fstatbuf) == -1) {
  116:            *(fcb + Z_fcberr) = errno;
  117:            *ierr = 6;
  118:            close (fd);
  119:            }
  120:         else {
  121:            lastiob = -100;
  122:            memcpy ((fcb+Z_fcbsiz), &fstatbuf.st_size, sizeof(off_t)) ;
  123:            memcpy ((fcb+Z_fcbsiz+2), &lastiob, sizeof(off_t)) ;
  124:                                        /* If opened for double       */
  125:                                        /* buffered I/O, duplicate    */
  126:                                        /* 1st buffer file control    */
  127:                                        /* block entries in 2nd       */
  128:                                        /* buffer control block.      */
  129:            if (*map == 1) {
  130:                                        /* Get duplicate file         */
  131:                                        /* descriptor for 2nd buffer  */
  132:                                        /* (this is only necessary    */
  133:                                        /* for I/O wait servicing).   */
  134:               if ((dupfd = dup(fd)) == -1) {
  135:                  *(fcb + Z_mfcb + Z_fcberr) = errno;
  136:                  close (fd);
  137:                  *ierr = 6;
  138:                  }
  139:               else {
  140:                  *(fcb + Z_mfcb + Z_fcbfd) = dupfd;
  141:                                        /* Copy file size info.       */
  142:                  memcpy ((fcb+Z_mfcb+Z_fcbsiz), &fstatbuf.st_size,
  143:                      sizeof(off_t)) ;
  144:                  memcpy ((fcb+Z_mfcb+Z_fcbsiz+2), &lastiob,
  145:                      sizeof(off_t)) ;
  146:                                        /* Enable asynchronous mode   */
  147:                                        /* for both buffers here (not */
  148:                                        /* implemented this version)  */
  149:                  }
  150:               }
  151:            }
  152:         }
  153:      }
  154:                                        /* Exit.                      */
  155:   return;
  156:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDAOPN.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDAOPN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:30 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDEST2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDEST2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDEST2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
AIPSCC    : Date       Fri Jul 18 17:41:30 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:6:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:9: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c: In function `zdest2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:59: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:59: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:59: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c:63: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dest2__
    2:#include <unistd.h>
    3:#include <fcntl.h>
    4:#include <stdio.h>
    5:#include <errno.h>
    6:#include <AIPSPROTO.H>
    8:#if __STDC__
    9:   void zdest2_(char pname[MAXPNAME], int *syserr, int *ierr)
   10:#else
   11:   void zdest2_(pname, syserr, ierr)
   12:   char pname[MAXPNAME];
   13:   int *syserr, *ierr;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! delete a disk file                                                */
   17:/*# IO-basic                                                          */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1995, 1997                                         */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Destroy (i.e., delete) a file.  The file should already be closed */
   45:/*  Inputs:                                                           */
   46:/*     pname   H*48   Physical file name (H for Macro...              */
   47:/*  Output:                                                           */
   48:/*     syserr  I      System-level error code (for ZERROR)            */
   49:/*     ierr    I      Error return code: 0 => no error                */
   50:/*                       1 => file not found (no message)             */
   51:/*                       2 => device not found                        */
   52:/*                       3 => file in use                             */
   53:/*                       4 => other                                   */
   54:/*  Generic UNIX version.                                             */
   55:/*--------------------------------------------------------------------*/
   56:{
   57:   register int i, j;
   58:   int llen, xlen, xlnb, jerr, lockfd = -99, excl = 1 ;
   59:   char pathname[MAXAPATH];
   60:/*--------------------------------------------------------------------*/
   61:   *ierr = 0;
   62:                                        /* Translate name             */
   63:   llen = MAXPNAME;
   64:   xlen = MAXAPATH;
   65:   zpath_ (&llen, pname, &xlen, pathname, &xlnb, &jerr);
   66:   if (jerr != 0) {
   67:      *ierr = 2;
   68:      }
   69:   else {
   70:      pathname[xlnb] = '\0';
   71:                                        /* Open the disk file         */
   72:                                        /* read/write.                */
   73:      if ((lockfd = open (pathname, 2)) == -1) {
   74:                                        /* File doesn't exist.        */
   75:         if (errno == ENOENT)
   76:            *ierr = 1;
   77:                                        /* Some other open error.     */
   78:         else {
   79:            *syserr = errno;
   80:            *ierr = 4;
   81:            }
   82:         }
   83:                                        /* Apply non-blocking         */
   84:                                        /* exclusive lock.            */
   85:      else {
   86:         zlock_ (&lockfd, pname, &excl, syserr, ierr);
   87:         if (*ierr != 0) {
   88:                                        /* File in use.               */
   89:            if (*ierr == 4) {
   90:               *ierr = 3;
   91:               }
   92:                                        /* Other file locking error.  */
   93:            else {
   94:               *ierr = 4;
   95:               }
   96:            }
   97:         else if ( unlink (pathname) != 0) {
   98:            *syserr = errno;
   99:            *ierr = 4;
  100:            }
  101:                                        /* Close and unlock file.     */
  102:         close (lockfd);
  103:         }
  104:      }
  105:                                        /* Exit.                      */
  106:   return;
  107:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDEST2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDEST2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:30 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICIO.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDICIO.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDICIO.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
AIPSCC    : Date       Fri Jul 18 17:41:30 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c:5:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dicio__
    2:#include <stdlib.h>
    3:#include <stdio.h>
    4:#include <errno.h>
    5:#include <AIPSPROTO.H>
    7:extern FILE *dic_file;                   /* Output file               */
    8:extern int dic_nrows;
    9:static unsigned char buff [4096 * 3];    /* Dimension should be       */
   10:                                         /* 3*MAXROW where MAXROW is  */
   11:                                         /* defined in the local      */
   12:                                         /* include for TVDIC.        */
   14:#if __STDC__
   15:   void zdicio_(int *lun, int *flmtyp, int *rownum, int *red,
   16:      int *green, int *blue, int *rowlen, int *iret)
   17:#else
   18:   void zdicio_(lun, flmtyp, rownum, red, green, blue, rowlen, iret)
   19:   int *lun, *flmtyp, *rownum, *red, *green, *blue, *rowlen, *iret;
   20:#endif
   21:/*--------------------------------------------------------------------*/
   22:/*! Write an image row to a Dicomed image file.                       */
   23:/*# Z                                                                 */
   24:/*--------------------------------------------------------------------*/
   25:/*;  Copyright (C) 1995, 1997                                         */
   26:/*;  Associated Universities, Inc. Washington DC, USA.                */
   27:/*;                                                                   */
   28:/*;  This program is free software; you can redistribute it and/or    */
   29:/*;  modify it under the terms of the GNU General Public License as   */
   30:/*;  published by the Free Software Foundation; either version 2 of   */
   31:/*;  the License, or (at your option) any later version.              */
   32:/*;                                                                   */
   33:/*;  This program is distributed in the hope that it will be useful,  */
   34:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   35:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   36:/*;  GNU General Public License for more details.                     */
   37:/*;                                                                   */
   38:/*;  You should have received a copy of the GNU General Public        */
   39:/*;  License along with this program; if not, write to the Free       */
   40:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   41:/*;  MA 02139, USA.                                                   */
   42:/*;                                                                   */
   43:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   44:/*;         Internet email: aipsmail at nrao.edu.                        */
   45:/*;         Postal address: AIPS Project Office                       */
   46:/*;                         National Radio Astronomy Observatory      */
   47:/*;                         520 Edgemont Road                         */
   48:/*;                         Charlottesville, VA 22903-2475 USA        */
   49:/*--------------------------------------------------------------------*/
   50:/*   Write an image row to a Dicomed image file.  If the filmtype is  */
   51:/*   B/W (FLMTYP = 2) then only the red channel is written.           */
   52:/*                                                                    */
   53:/*   Inputs:                                                          */
   54:/*      LUN        I            Logical unit number of image file     */
   55:/*      FLMTYP     I            Filmtype: 0 -> colour positive        */
   56:/*                                        1 -> colour negative        */
   57:/*                                        2 -> B/W negative           */
   58:/*      ROWNUM     I            Number of row to write.  Bottom row   */
   59:/*                              is ROWNUM 1.                          */
   60:/*      RED        I(*)         Red values (0-255)                    */
   61:/*      GREEN      I(*)         Green values (0-255)                  */
   62:/*      BLUE       I(*)         Blue values (0-255)                   */
   63:/*      WIDTH      I            Number of pixels in row (> 0)         */
   64:/*                                                                    */
   65:/*   Output:                                                          */
   66:/*      IRET       I            Return status:                        */
   67:/*                                 0 -> success.                      */
   68:/*                                                                    */
   69:/*  Generic UNIX version Ignores LUN.                                 */
   70:/*--------------------------------------------------------------------*/
   71:{
   72:    long int offset;
   73:    int i, n8 = 8;
   74:    char msg[80];
   75:    size_t nitems;
   76:/*--------------------------------------------------------------------*/
   78:    *iret = 0;
   80:    nitems = *rowlen;
   81:    if (*flmtyp == 2) {                  /* Black and white           */
   82:       offset = 512 + *rowlen * (dic_nrows - *rownum);
   83:       if (fseek(dic_file, offset, 0) != 0) {
   84:          sprintf (msg, "ZDICIO: ERROR WRITING ROW %d\n", rownum);
   85:          zmsgwr_ (msg, &n8);
   86:          perror ("ZDICIO:");
   87:          *iret = errno;
   88:          return;
   89:          }
   90:       for (i = 0; i < *rowlen; i++) {
   91:          buff[i] = (unsigned char)red[i];
   92:          }
   93:       if (fwrite(buff, sizeof(char), nitems, dic_file) < nitems) {
   94:          sprintf (msg, "ZDICIO: ERROR WRITING ROW %d\n", rownum);
   95:          zmsgwr_ (msg, &n8);
   96:          perror ("ZDICIO:");
   97:          *iret = errno;
   98:          return;
   99:          }
  100:       }
  101:    else {                              /* Colour                     */
  102:       offset = 512 + 3 * *rowlen * (dic_nrows - *rownum);
  103:       if (fseek(dic_file, offset, 0) != 0) {
  104:          sprintf (msg, "ZDICIO: ERROR WRITING ROW %d\n", rownum);
  105:          zmsgwr_ (msg, &n8);
  106:          perror ("ZDICIO:");
  107:          *iret = errno;
  108:          return;
  109:          }
  110:       for (i = 0; i < *rowlen; i++) {
  111:          buff[3*i] = (unsigned char)red[i];
  112:          buff[3*i+1] = (unsigned char)green[i];
  113:          buff[3*i+2] = (unsigned char)blue[i];
  114:          }
  115:       nitems = nitems * 3;
  116:       if (fwrite(buff, sizeof(char), nitems, dic_file) < nitems) {
  117:          sprintf (msg, "ZDICIO: ERROR WRITING ROW %d\n", rownum);
  118:          zmsgwr_ (msg, &n8);
  119:          perror ("ZDICIO:");
  120:          *iret = errno;
  121:          return;
  122:          }
  123:       }
  125:   return;
  126:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDICIO.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDICIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:31 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDIE2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDIE2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDIE2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
AIPSCC    : Date       Fri Jul 18 17:41:31 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
AIPSCC    : ends with fatal error(s)!

    1:#include <unistd.h>
    2:#include <sys/types.h>
    3:#include <stdio.h>
    4:#include <AIPSPROTO.H>
    5:#if __STDC__
    6:   void zdie2_(char cpname[])
    7:#else
    8:   void zdie2_(cpname)
    9:   char cpname[];
   10:#endif
   11:/*--------------------------------------------------------------------*/
   12:/*! closes a task at system level: delete /tmp/<task><npops>.<pid>    */
   13:/*# Z2 System                                                         */
   14:/*--------------------------------------------------------------------*/
   15:/*;  Copyright (C) 1995, 1997                                         */
   16:/*;  Associated Universities, Inc. Washington DC, USA.                */
   17:/*;                                                                   */
   18:/*;  This program is free software; you can redistribute it and/or    */
   19:/*;  modify it under the terms of the GNU General Public License as   */
   20:/*;  published by the Free Software Foundation; either version 2 of   */
   21:/*;  the License, or (at your option) any later version.              */
   22:/*;                                                                   */
   23:/*;  This program is distributed in the hope that it will be useful,  */
   24:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   25:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   26:/*;  GNU General Public License for more details.                     */
   27:/*;                                                                   */
   28:/*;  You should have received a copy of the GNU General Public        */
   29:/*;  License along with this program; if not, write to the Free       */
   30:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   31:/*;  MA 02139, USA.                                                   */
   32:/*;                                                                   */
   33:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   34:/*;         Internet email: aipsmail at nrao.edu.                        */
   35:/*;         Postal address: AIPS Project Office                       */
   36:/*;                         National Radio Astronomy Observatory      */
   37:/*;                         520 Edgemont Road                         */
   38:/*;                         Charlottesville, VA 22903-2475 USA        */
   39:/*--------------------------------------------------------------------*/
   40:/*   closes a task at system level: delete /tmp/<task><npops>.<pid>   */
   41:/*   Inputs:                                                          */
   42:/*      CPNAME   C(6)   Actual task name including pops number        */
   43:/*--------------------------------------------------------------------*/
   44:{
   45:   int i;
   46:   char procname[7];                   /* desired process name.       */
   47:   char lockname[24]             ;     /* Name of lock file           */
   48:   pid_t mypid;                        /* PID of this process         */
   49:/*--------------------------------------------------------------------*/
   50:                                       /* copy process name           */
   51:   for (i = 0; i != 6 && cpname[i] != ' '; i++) {
   52:      procname[i] = cpname[i];
   53:      }
   54:   procname[i] = '\0';
   55:                                       /* get process id number       */
   56:   mypid = getpid ();
   57:                                       /* make file name              */
   58:   sprintf (lockname, "/tmp/%s.%d", procname, mypid);
   59:                                       /* delete file                 */
   60:   unlink (lockname);
   61:                                       /* copy process name           */
   62:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDIE2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDIE2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:31 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDM2DL.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZDM2DL.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZDM2DL.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
AIPSCC    : Date       Fri Jul 18 17:41:32 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
/usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_dm2dl__
    2:#include <stdlib.h>
    3:#include <stdio.h>
    4:#include <AIPSPROTO.H>
    6:#if __STDC__
    7:   void zdm2dl_(int *nwords, double *inbuf, double *outbuf)
    8:#else
    9:   void zdm2dl_(nwords, inbuf, outbuf)
   10:   int *nwords;
   11:   double *inbuf, *outbuf;
   12:#endif
   13:/*--------------------------------------------------------------------*/
   14:/*! convert ModComp R*6(padded) and R*8 into local double precision   */
   15:/*# Z Binary                                                          */
   16:/*--------------------------------------------------------------------*/
   17:/*;  Copyright (C) 1995, 1997                                         */
   18:/*;  Associated Universities, Inc. Washington DC, USA.                */
   19:/*;                                                                   */
   20:/*;  This program is free software; you can redistribute it and/or    */
   21:/*;  modify it under the terms of the GNU General Public License as   */
   22:/*;  published by the Free Software Foundation; either version 2 of   */
   23:/*;  the License, or (at your option) any later version.              */
   24:/*;                                                                   */
   25:/*;  This program is distributed in the hope that it will be useful,  */
   26:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   27:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   28:/*;  GNU General Public License for more details.                     */
   29:/*;                                                                   */
   30:/*;  You should have received a copy of the GNU General Public        */
   31:/*;  License along with this program; if not, write to the Free       */
   32:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   33:/*;  MA 02139, USA.                                                   */
   34:/*;                                                                   */
   35:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   36:/*;         Internet email: aipsmail at nrao.edu.                        */
   37:/*;         Postal address: AIPS Project Office                       */
   38:/*;                         National Radio Astronomy Observatory      */
   39:/*;                         520 Edgemont Road                         */
   40:/*;                         Charlottesville, VA 22903-2475 USA        */
   41:/*--------------------------------------------------------------------*/
   42:/*  Convert Modcomp R*6 (zero padded to R*8) or R*8 data into local   */
   43:/*  double precision                                                  */
   44:/*  Inputs:                                                           */
   45:/*     nwords   I        Length of the input buffer in words          */
   46:/*     inbuf    R*8(*)   Input buffer containing Modcomp R*6          */
   47:/*                          (zero padded to R*8) or R*8 data          */
   48:/*  Output:                                                           */
   49:/*     outbuf   R*8(*)   Output buffer containing local R*8 data      */
   50:/*  Notes:                                                            */
   51:/*  (1) The INBUF should have its bytes flipped by a call to ZBYTFL   */
   52:/*      which will leave the values split between 2 local integers.   */
   53:/*      Do not call ZI32IL which may swith 16-bit words, or ZI16Il    */
   54:/*      which will expand each 16-bit part to 32-bits.                */
   55:/*  (2) First 32 bits:                                                */
   56:/*        Expects, after word flip on VMS only, a sign bit in bit 31  */
   57:/*        (1=>negative), bits 22:30 are the  exponent biased by 512,  */
   58:/*        bits 0:21 are the normalized fraction.  Negative values are */
   59:/*        obtained by 2's complement of the whole word.               */
   60:/*      Second 32 bits:                                               */
   61:/*        Just extended precision bits.                               */
   62:/*  (3) Should work inplace.                                          */
   63:/*  Generic UNIX version (currently only handles IEEE and VAX G       */
   64:/*  floating-point formats and where Z_nwdpdp is 2).                  */
   65:/*--------------------------------------------------------------------*/
   66:{
   67:                                        /* Host floating-point format */
   68:   extern int Z_nwdpdp, Z_dpfrmt, Z_bytflp;
   69:                                        /* Local variables.           */
   70:   double *pin, *pout;
   71:   int test, n10 = 10;
   72:   short int sitemp;
   73:   unsigned int sign, exponent, mantissa, temp, templo, bits, xsign;
   74:   register int i;
   75:   char msgbuf[80];
   76:   union u_tag {
   77:      double r8;
   78:      unsigned u4[2];
   79:      short int u2[4];
   80:   } what;
   81:/*--------------------------------------------------------------------*/
   82:                                        /* Will this routine work     */
   83:                                        /* for host floating point    */
   84:                                        /* formats and relative       */
   85:                                        /* sizes?                     */
   86:   if ((Z_nwdpdp == 2) && (Z_dpfrmt == 1 || Z_dpfrmt == 3)) {
   87:      pin = inbuf;
   88:      pout = outbuf;
   89:                                        /* Conversion loop.           */
   90:      for (i = 0; i < *nwords; i++) {
   91:                                        /* Get Modcomp value.         */
   92:         what.r8 = *pin++;
   93:                                        /* swap words if needed       */
   94:         if (Z_bytflp > 1) {
   95:            sitemp = what.u2[0];
   96:            what.u2[0] = what.u2[1];
   97:            what.u2[1] = sitemp;
   98:            sitemp = what.u2[2];
   99:            what.u2[2] = what.u2[3];
  100:            what.u2[3] = sitemp;
  101:            }
  102:                                        /* Get hi as unsigned int.    */
  103:         temp = what.u4[0];
  104:                                        /* Mask out sign bit.         */
  105:         xsign = 0x80000000;
  106:         sign = xsign & temp;
  107:                                        /* If negative, 2's           */
  108:                                        /* complement the whole word. */
  109:         if (sign != 0) {
  110:            templo = what.u4[1];
  111:            what.u4[1] = ~templo + 1;
  112:            temp = (~temp);
  113:                                        /* If msb of lo word are      */
  114:                                        /* unchanged, add 1 to high   */
  115:                                        /* word.                      */
  116:            if ((templo & 0x80000000) == (what.u4[1] & 0x80000000))
  117:               temp = temp + 1;
  118:            }
  119:                                        /* Correct for exponent bias  */
  120:                                        /* and trap for 0.            */
  121:         switch (Z_dpfrmt) {
  123:            case 1:
  124:                                        /* IEEE (bias = 766?).        */
  125:               test = ((0x7fc00000 & temp) >> 22) + 766;
  126:               if (test == 766) test = 0;
  127:               break;
  129:            case 3:
  130:                                        /* VAX G (bias = 768).        */
  131:               test = ((0x7fc00000 & temp) >> 22) + 768;
  132:               if (test == 768) test = 0;
  133:               break;
  134:            }
  136:         exponent = test << 20;
  137:         mantissa = (0x001fffff & temp);
  138:                                        /* Move lsb to next word.     */
  139:         bits = (mantissa & 0x1) << 31;
  140:                                        /* Shift high mantissa.       */
  141:         mantissa = mantissa >> 1;
  142:                                        /* Shift low mantissa.        */
  143:         what.u4[1] = what.u4[1] >> 1;
  144:                                        /* Lsb from hi word.          */
  145:         what.u4[1] = what.u4[1] | bits;
  146:         what.u4[0] = sign | exponent | mantissa;
  147:                                        /* swap words if needed       */
  148:         if (Z_bytflp > 1) {
  149:            sitemp = what.u2[0];
  150:            what.u2[0] = what.u2[2];
  151:            what.u2[2] = sitemp;
  152:            sitemp = what.u2[1];
  153:            what.u2[1] = what.u2[3];
  154:            what.u2[3] = sitemp;
  155:            }
  156:                                        /* Store result.              */
  157:         *pout++ = what.r8;
  158:         }
  159:      }
  160:   else {
  161:                                        /* This routine won't work.   */
  162:      sprintf (msgbuf,
  163:         "ZDM2DL: THIS ROUTINE REQUIRES LOCAL DEVELOPMENT");
  164:      zmsgwr_ (msgbuf, &n10);
  165:      abort ();
  166:      }
  167:                                     /* Exit.                      */
  168:   return;
  169:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZDM2DL.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZDM2DL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:32 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZEXIS2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZEXIS2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZEXIS2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
AIPSCC    : Date       Fri Jul 18 17:41:32 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:6:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c: In function `zexis2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:61: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:61: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:61: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c:68: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_exis2__
    2:#include <stdio.h>
    3:#include <errno.h>
    4:#include <sys/types.h>
    5:#include <sys/stat.h>
    6:#include <AIPSPROTO.H>
    8:#if __STDC__
    9:   void zexis2_(char *pname, int *isize, int *syserr, int *ierr)
   10:#else
   11:   void zexis2_(pname, isize, syserr, ierr)
   12:   char pname[];
   13:   int *isize, *syserr, *ierr;
   14:#endif
   15:/*--------------------------------------------------------------------*/
   16:/*! return size of disk file and if  it exists                        */
   17:/*# IO=basic                                                          */
   18:/*--------------------------------------------------------------------*/
   19:/*;  Copyright (C) 1995, 1997                                         */
   20:/*;  Associated Universities, Inc. Washington DC, USA.                */
   21:/*;                                                                   */
   22:/*;  This program is free software; you can redistribute it and/or    */
   23:/*;  modify it under the terms of the GNU General Public License as   */
   24:/*;  published by the Free Software Foundation; either version 2 of   */
   25:/*;  the License, or (at your option) any later version.              */
   26:/*;                                                                   */
   27:/*;  This program is distributed in the hope that it will be useful,  */
   28:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   29:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   30:/*;  GNU General Public License for more details.                     */
   31:/*;                                                                   */
   32:/*;  You should have received a copy of the GNU General Public        */
   33:/*;  License along with this program; if not, write to the Free       */
   34:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   35:/*;  MA 02139, USA.                                                   */
   36:/*;                                                                   */
   37:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   38:/*;         Internet email: aipsmail at nrao.edu.                        */
   39:/*;         Postal address: AIPS Project Office                       */
   40:/*;                         National Radio Astronomy Observatory      */
   41:/*;                         520 Edgemont Road                         */
   42:/*;                         Charlottesville, VA 22903-2475 USA        */
   43:/*--------------------------------------------------------------------*/
   44:/*  Determine the existence of a file and its size in AIPS-bytes      */
   45:/*  (1/2 of a local integer).                                         */
   46:/*  Inputs:                                                           */
   47:/*     pname   C*48   Physical file name                              */
   48:/*  Output:                                                           */
   49:/*     size    I      File size 256-int blocks (if exists, else 0)    */
   50:/*     syserr  I      System error code                               */
   51:/*     ierr    I      Error return code: 0 => file exists             */
   52:/*                       1 => file does not exist                     */
   53:/*                       2 => inputs error                            */
   54:/*                       3 => other error                             */
   55:/*  Generic UNIX version.                                             */
   56:/*--------------------------------------------------------------------*/
   57:{
   58:                                        /* # bytes per AIPS-byte      */
   59:   extern int Z_nbpab;
   60:   int llen, xlen, xlnb, jerr ;
   61:   char pathname[MAXAPATH] ;
   62:   struct stat statbuf;
   63:/*--------------------------------------------------------------------*/
   64:   *ierr = 0;
   65:   *syserr = 0;
   66:                                        /* Translate logical device   */
   67:                                        /* name and null terminate.   */
   68:   llen = MAXPNAME;
   69:   xlen = MAXAPATH;
   70:   zpath_ (&llen, pname, &xlen, pathname, &xlnb, &jerr);
   71:   if (jerr != 0) {
   72:      *ierr = 2;
   73:      }
   74:   else {
   75:      pathname[xlnb] = '\0';
   76:                                        /* "Stat" full path name.     */
   77:      if (stat (pathname, &statbuf) == -1) {
   78:         *isize = 0;
   79:         *syserr = errno ;
   80:                                        /* File doesn't exist.        */
   81:         if (errno == ENOENT)
   82:            *ierr = 1;
   83:                                        /* Some other "stat" error.   */
   84:         else
   85:            *ierr = 3;
   86:         }
   87:      else
   88:         *isize = statbuf.st_size / Z_nbpab / 512;
   89:      }
   91:   return;
   92:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZEXIS2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZEXIS2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:33 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZFI2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZFI2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZFI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
AIPSCC    : Date       Fri Jul 18 17:41:33 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_fi2__
    2:#include <unistd.h>
    3:#include <errno.h>
    4:#include <string.h>
    5:#include <stdio.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zfi2_(char *oper, int *fcb, char *buff, int *nrec, char *msgbuf,
   11:      int *ierr)
   12:#else
   13:   void zfi2_(oper, fcb, buff, nrec, msgbuf, ierr)
   14:   char oper[], buff[], msgbuf[];
   15:   int *fcb, *nrec, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read/write one 256-integer record from/to a non-map disk file     */
   19:/*# IO-basic                                                          */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995-1997, 1999                                    */
   22:/*;  Associated Universities, Inc. Washington DC, USA                 */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Transfer one 256 local integer record between an I/O buffer and   */
   47:/*  disk starting at random access record "nrec" using "non-map" I/O  */
   48:/*  (i.e., single buffered, synchronous I/O).                         */
   49:/*  Inputs:                                                           */
   50:/*     oper   C*4    Operation code "READ" or "WRIT"                  */
   51:/*     fcb    I(*)   File control block for opened non-map disk file  */
   52:/*     nrec   I      Disk record number (1-relative, units of         */
   53:/*                   256-integer records)                             */
   54:/*  In/out:                                                           */
   55:/*     buff   I(256) I/O buffer                                       */
   56:/*  Output:                                                           */
   57:/*     msgbuf C*80   extra error message (null terminated)            */
   58:/*     ierr   I      Error return code: 0 => no error                 */
   59:/*                      2 => bad opcode                               */
   60:/*                      3 => I/O error                                */
   61:/*                      4 => end of file                              */
   62:/*                   1000 + n => read only n (< 256) words)           */
   63:/*  Generic UNIX version.                                             */
   64:/*--------------------------------------------------------------------*/
   65:{
   66:                                        /* Offsets to entries in the  */
   67:                                        /* file control blocks        */
   68:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   69:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   70:                                        /* # of bytes per word        */
   71:   extern int Z_nbpwd;
   72:   off_t firstbyte, lastbyte, sizebytes, checkbytes, lastiob;
   73:   int fd, n1 = 1;
   74:   register int i;
   75:   char op[5];
   76:/*--------------------------------------------------------------------*/
   77:                                        /* Form null terminated       */
   78:                                        /* opcode.                    */
   79:   for (i = 0; i < 4; i++)
   80:      op[i] = oper[i];
   81:   op[4] = '\0';
   82:                                        /* Assume success.            */
   83:   msgbuf[0] = '\0';
   84:   *ierr = 0;
   85:                                        /* Get file descriptor from   */
   86:                                        /* the file control block as  */
   87:                                        /* stored there by ZDAOPN.    */
   88:   fd = *(fcb + Z_fcbfd);
   89:                                        /* Record byte request in the */
   90:                                        /* file control block (always */
   91:                                        /* one 256 local integer      */
   92:                                        /* record).                   */
   93:   *(fcb + Z_fcbreq) = 256 * Z_nbpwd;
   94:                                        /* Also, zero error status &  */
   95:                                        /* transfer count entries.    */
   96:   *(fcb + Z_fcberr) = 0;
   97:   *(fcb + Z_fcbxfr) = 0;
   98:                                        /* Calculate the byte offsets */
   99:                                        /* (0-relative) in the file   */
  100:                                        /* that correspond to the     */
  101:                                        /* requested record.          */
  102:   firstbyte = *nrec - 1;
  103:   firstbyte = (firstbyte * 256) * Z_nbpwd;
  104:   lastbyte = *(fcb + Z_fcbreq) + firstbyte - 1;
  105:                                        /* Unpack the file size in    */
  106:                                        /* bytes from the file        */
  107:                                        /* control block (as packed   */
  108:                                        /* there in ZDAOPN) and make  */
  109:                                        /* sure that "lastbyte" is    */
  110:                                        /* not beyond the end of the  */
  111:                                        /* file.                      */
  112:   memcpy (&sizebytes, (fcb + Z_fcbsiz), sizeof(off_t)) ;
  113:   memcpy (&lastiob, (fcb + Z_fcbsiz + 2), sizeof(off_t)) ;
  114:   checkbytes = lastbyte;
  115:   if (strcmp (op, "READ") == 0) checkbytes = firstbyte;
  116:                                        /* test beyond EOF remember   */
  117:                                        /* size is 1-rel              */
  118:   if (checkbytes >= sizebytes) {
  119:                                        /* This is NOT illegal under  */
  120:                                        /* UNIX but IS under AIPS     */
  121:                                        /* standards, so fake it.     */
  122:      *(fcb + Z_fcberr) = EINVAL;
  123:      *(fcb + Z_fcbxfr) = -1;
  124:      *ierr = 3;
  125:      if (sizeof(long) < sizeof(off_t))
  126:         sprintf (msgbuf,
  127:         "ZFI2: REQUEST FOR BYTES %lld THRU = %lld BEYOND EOF = %lld",
  128:         firstbyte + 1, lastbyte + 1, sizebytes);
  129:      else
  130:         sprintf (msgbuf,
  131:         "ZFI2: REQUEST FOR BYTES %d THRU = %d BEYOND EOF = %d",
  132:         firstbyte + 1, lastbyte + 1, sizebytes);
  133:      }
  134:                                        /* Set file pointer of the    */
  135:                                        /* file descriptor to the     */
  136:                                        /* absolute byte address      */
  137:                                        /* "firstbyte".               */
  138:   else {
  139:      if (firstbyte != lastiob+1) {
  140:         if (lseek (fd, firstbyte, 0) == -1) {
  141:            *(fcb + Z_fcberr) = errno;
  142:            *ierr = 3;
  143:            sprintf (msgbuf,
  144:               "ZFI2: LSEEK ERROR ON FILE DESCRIPTOR %d TO POSITION %d",
  145:               fd, firstbyte);
  146:            }
  147:         }
  148:                                        /* Perform the I/O and record */
  149:                                        /* the # of bytes transferred */
  150:                                        /* in *(fcb + Z_fcbxfr).      */
  151:                                        /* Record the system error    */
  152:                                        /* code (if any) in           */
  153:                                        /* *(fcb + Z_fcberr).         */
  154:      if (*ierr == 0) {
  155:         if (strcmp (op, "READ") == 0) {
  156:            if (lastbyte >= sizebytes)
  157:               *(fcb + Z_fcbreq) = sizebytes - firstbyte;
  158:            if ((*(fcb + Z_fcbxfr) =
  159:               read (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  160:               *(fcb + Z_fcberr) = errno;
  161:               *ierr = 3;
  162:               }
  163:            }
  164:         else if (strcmp (op, "WRIT") == 0) {
  165:            if ((*(fcb + Z_fcbxfr) =
  166:               write (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  167:               *(fcb + Z_fcberr) = errno;
  168:               *ierr = 3;
  169:               }
  170:            }
  171:                                        /* Bad opcode.                */
  172:         else {
  173:            *ierr = 2;
  174:            return;
  175:            }
  176:         }
  177:      }
  178:                                        /* End of file?               */
  179:   if (*(fcb + Z_fcbxfr) == 0)
  180:      *ierr = 4;
  181:                                        /* Partial read?              */
  182:   if ((*ierr == 0) && (*(fcb + Z_fcbxfr) != 256 * Z_nbpwd))
  183:      *ierr = *(fcb + Z_fcbxfr) / Z_nbpwd + 1000;
  184:   if (*ierr == 0)
  185:      memcpy ((fcb + Z_fcbsiz + 2), &lastbyte, sizeof(off_t)) ;
  187:                                        /* Exit.                      */
  188:   return;
  189:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZFI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZFI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:33 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZGRLHI.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZGRLHI.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZGRLHI.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
AIPSCC    : Date       Fri Jul 18 17:41:34 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:4:31: NOTST/GNU/history.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:7:32: NOTST/GNU/readline.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:8:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:11: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c: In function `zgrlhi_':
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:64: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:64: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:64: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:67: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:84: error: `rl_readline_name' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c:90: error: `history_length' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_grlhi__
    2:#include <stdio.h>
    3:#include <stdlib.h>
    4:#include <NOTST/GNU/history.h>
    6:#define HAVE_STRING_H
    7:#include <NOTST/GNU/readline.h>
    8:#include <AIPSPROTO.H>
   10:#if __STDC__
   11:   void zgrlhi_(int *opcode, char phname[MAXPNAME], int *ierr)
   12:#else
   13:   zgrlhi_(opcode, phname, ierr)
   14:   int *opcode;
   15:   char phname[MAXPNAME];
   16:   int *ierr;
   17:#endif
   18:/*--------------------------------------------------------------------*/
   19:/*! set up use of GNU readline library for POPS command line          */
   20:/*# Terminal                                                          */
   21:/*--------------------------------------------------------------------*/
   22:/*;  Copyright (C) 1995                                               */
   23:/*;  Associated Universities, Inc. Washington DC, USA.                */
   24:/*;                                                                   */
   25:/*;  This program is free software; you can redistribute it and/or    */
   26:/*;  modify it under the terms of the GNU General Public License as   */
   27:/*;  published by the Free Software Foundation; either version 2 of   */
   28:/*;  the License, or (at your option) any later version.              */
   29:/*;                                                                   */
   30:/*;  This program is distributed in the hope that it will be useful,  */
   31:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   32:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   33:/*;  GNU General Public License for more details.                     */
   34:/*;                                                                   */
   35:/*;  You should have received a copy of the GNU General Public        */
   36:/*;  License along with this program; if not, write to the Free       */
   37:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   38:/*;  MA 02139, USA.                                                   */
   39:/*;                                                                   */
   40:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   41:/*;         Internet email: aipsmail at nrao.edu.                        */
   42:/*;         Postal address: AIPS Project Office                       */
   43:/*;                         National Radio Astronomy Observatory      */
   44:/*;                         520 Edgemont Road                         */
   45:/*;                         Charlottesville, VA 22903-2475 USA        */
   46:/*--------------------------------------------------------------------*/
   47:/* ZGRLHI initializes the GNU readline library for AIPS, unless       */
   48:/* disabled by starting AIPS with the "norl" option.                  */
   49:/*                                                                    */
   50:/* Input:                                                             */
   51:/*    OPCODE I      1 => open, 2 => close                             */
   52:/*    PHNAME C*48   Physical filename                                 */
   53:/* Output:                                                            */
   54:/*    IERR   I      Error return code: 0 => ok                        */
   55:/*                     <other> => error or disabled                   */
   56:/*                                                                    */
   57:/* Generic UNIX version for OS's implementing GNU's libreadline       */
   58:/*                                                                    */
   59:/* JAU 26 Jul 95: Jeff Uphoff, NRAO.                                  */
   60:/* JAU 29 Aug 95: Jeff Uphoff, NRAO.  Added "norl" disable option.    */
   61:/* JAU 22 Sep 95: Jeff Uphoff, NRAO.  Zapped TAB kill; done elsewhere */
   62:/*--------------------------------------------------------------------*/
   63:{
   64:   char histfile[MAXAPATH];
   65:   char xlated[MAXAPATH];
   66:   char *rlenv = NULL;
   67:   int llen = MAXPNAME;
   68:   int xlen = MAXAPATH;
   69:   int xlnb;
   70:/*--------------------------------------------------------------------*/
   71:   *ierr = 0;
   73:                                        /* Check if readline disabled */
   74:   if (((rlenv = getenv ("READLINE")) != NULL) &&
   75:       !strcmp (rlenv, "NO")) {         /* If so, skip the rest.      */
   76:      *ierr = 1;
   77:      return;
   78:   }
   80:   if (*opcode == 1) {                  /* OPEN history.              */
   82:      using_history ();                 /* Initialize some variables. */
   84:      rl_readline_name = "AIPS";        /* For ~/.inputrc branching.  */
   86:      rl_read_init_file (NULL);         /* Reread to get any AIPS-    */
   87:                                        /* specific options/bindings. */
   88:                                        /* (Ignore any errors...)     */
   90:      if (history_length > 1)           /* Must be a restart...       */
   91:         return;                        /* Don't reread file.         */
   93:                                        /* Translate logical to path. */
   94:      zpath_ (&llen, phname, &xlen, xlated, &xlnb, ierr);
   95:      if (*ierr)
   96:         return;
   98:      sprintf (histfile, "%.*s", xlnb, xlated);
   99:                                        /* Skip first history entry   */
  100:                                        /* to prevent a long list of  */
  101:                                        /* user numbers at top.       */
  102:      *ierr = read_history_range (histfile, 1, -1);
  103:      return;
  104:   }
  106:   if (*opcode == 2) {                  /* CLOS (close) history.      */
  108:                                        /* Translate logical to path. */
  109:      zpath_ (&llen, phname, &xlen, xlated, &xlnb, ierr);
  110:      if (*ierr)
  111:         return;
  113:      sprintf (histfile, "%.*s", xlnb, xlated);
  114:                                        /* Write out this session's   */
  115:                                        /* (and possibly previous     */
  116:                                        /* sessions') history.        */
  117:      if (*ierr = write_history (histfile))
  118:         return;
  120:                                        /* Trim the saved history     */
  121:                                        /* file to 500 lines.         */
  122:      *ierr = history_truncate_file (histfile, 500);
  123:      return;
  124:   }
  126:   *ierr = 1;                           /* zgrlhi() improperly called */
  127:   return;
  128:}
  130:/*
  131: * Local Variables:
  132: * c-basic-offset: 3
  133: * comment-column: 40
  134: * indent-tabs-mode: nil
  135: * End:
  136: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZGRLHI.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZGRLHI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:34 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZGRLTC.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZGRLTC.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZGRLTC.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
AIPSCC    : Date       Fri Jul 18 17:41:34 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:9:32: NOTST/GNU/readline.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:10:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:11:28: NOTST/GNU/TABS.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c: In function `zgrltc_':
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:74: error: `LISTBUFLEN' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:74: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:74: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:75: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:92: error: `HLPLISTFILE' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:122: error: `rl_attempted_completion_function' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:122: error: `CPPFunction' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:122: error: parse error before ')' token
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:124: error: `rl_completion_entry_function' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:124: error: `Function' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:124: error: parse error before ')' token
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:125: error: `rl_completer_quote_characters' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:126: error: `rl_complete' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c: In function `zgrltc_acf':
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:155: error: `rl_line_buffer' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c:162: warning: return makes pointer from integer without a cast
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_grltc__
    2:#include <ctype.h>
    3:#include <errno.h>
    4:#include <stdio.h>
    5:#include <stdlib.h>
    6:#include <string.h>
    8:#define HAVE_STRING_H
    9:#include <NOTST/GNU/readline.h>
   10:#include <AIPSPROTO.H>
   11:#include <NOTST/GNU/TABS.H>
   13:static char **te_list = (char **)NULL;
   14:static char *zgrltc_cm ();
   15:static char *zgrltc_dup ();
   16:static char **zgrltc_acf ();
   17:static int quoted;
   18:static int tasks_ok;
   21:#if __STDC__
   22:   void zgrltc_ (int *ierr)
   23:#else
   24:   void zgrltc_ (ierr)
   25:   int *ierr;
   26:#endif
   27:/*--------------------------------------------------------------------*/
   28:/*! inizializes completion list for TAB-key completion of commands    */
   29:/*# Terminal                                                          */
   30:/*--------------------------------------------------------------------*/
   31:/*;  Copyright (C) 1995-1996, 2003                                    */
   32:/*;  Associated Universities, Inc. Washington DC, USA.                */
   33:/*;                                                                   */
   34:/*;  This program is free software; you can redistribute it and/or    */
   35:/*;  modify it under the terms of the GNU General Public License as   */
   36:/*;  published by the Free Software Foundation; either version 2 of   */
   37:/*;  the License, or (at your option) any later version.              */
   38:/*;                                                                   */
   39:/*;  This program is distributed in the hope that it will be useful,  */
   40:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   41:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   42:/*;  GNU General Public License for more details.                     */
   43:/*;                                                                   */
   44:/*;  You should have received a copy of the GNU General Public        */
   45:/*;  License along with this program; if not, write to the Free       */
   46:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   47:/*;  MA 02139, USA.                                                   */
   48:/*;                                                                   */
   49:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   50:/*;         Internet email: aipsmail at nrao.edu.                        */
   51:/*;         Postal address: AIPS Project Office                       */
   52:/*;                         National Radio Astronomy Observatory      */
   53:/*;                         520 Edgemont Road                         */
   54:/*;                         Charlottesville, VA 22903-2475 USA        */
   55:/*--------------------------------------------------------------------*/
   56:/* ZGRLTC initializes the list(s) used for TAB-completion of commands */
   57:/* and sets appropriate "hooks" in the GNU readline library for its   */
   58:/* use.  If AIPS is started with the "norl" option, this feature is   */
   59:/* disabled.                                                          */
   60:/*                                                                    */
   61:/* Input:                                                             */
   62:/*    None.                                                           */
   63:/* Output:                                                            */
   64:/*    IERR   I      Error return code: 0 => ok                        */
   65:/*                     <other> => error or disabled                   */
   66:/*                                                                    */
   67:/* Generic UNIX version for OS's implementing GNU's libreadline       */
   68:/*                                                                    */
   69:/* JAU 21 Sep 95: Jeff Uphoff, NRAO.                                  */
   70:/* JAU 25 Sep 95: Jeff Uphoff, NRAO.  Made smarter about quoted arg's */
   71:/* JAU 23 Feb 96: Jeff Uphoff, NRAO.  strdup() cleanup, dynamic list. */
   72:/*--------------------------------------------------------------------*/
   73:{
   74:   char buf[LISTBUFLEN];
   75:   char file[MAXAPATH];
   76:   char *envp = NULL;
   77:   int i = 0;
   78:   FILE *fp;
   79:/*--------------------------------------------------------------------*/
   80:   *ierr = 1;                           /* Assume abject failure.     */
   82:                                        /* Check if readline disabled */
   83:   if (((envp = getenv ("READLINE")) != NULL) &&
   84:       !strcmp (envp, "NO"))
   85:      return;                           /* If so, skip the rest.      */
   87:                                        /* Check for help file dir.   */
   88:   if ((envp = getenv ("AIPS_VERSION")) == NULL)
   89:      return;                           /* None defined?  Give up...  */
   91:                                        /* Build filename for list.   */
   92:   sprintf (file, "%s/HELP/%s", envp, HLPLISTFILE);
   93:                                        /* Open completion list file. */
   94:   if ((fp = fopen (file, "r")) == NULL)
   95:      return;                           /* Argh!  Run to mama...      */
   97:                                        /* Do initial malloc--not all */
   98:                                        /* OS's need this, but some   */
   99:                                        /* do for the later reallocs. */
  100:   if (!(te_list = (char **)malloc (sizeof (char *)))) {
  101:      perror ("ZGRLTC: malloc failed");
  102:      exit (errno);
  103:   }
  104:                                        /* Read file, build list.     */
  105:   while (fgets (buf, LISTBUFLEN, fp) != NULL) {
  106:      if (!(te_list = (char **)realloc (te_list,
  107:                                        sizeof (char *) * (i + 1)))) {
  108:         perror ("ZGRLTC: realloc failed");
  109:         exit (errno);
  110:      }
  111:      te_list[i++] = zgrltc_dup (strtok (buf, "\n"));
  112:   }
  113:   fclose (fp);
  114:                                        /* Terminate list. Thanx HP.  */
  115:   if (!(te_list = (char **)realloc (te_list,
  116:                                     sizeof (char *) * (i + 1)))) {
  117:      perror ("ZGRLTC: terminating realloc failed");
  118:      exit (errno);
  119:   }
  120:   te_list[i] = 0;
  121:                                        /* Set completion function.   */
  122:   rl_attempted_completion_function = (CPPFunction *)zgrltc_acf;
  123:                                        /* Block filename completions */
  124:   rl_completion_entry_function = (Function *)zgrltc_cm;
  125:   rl_completer_quote_characters = "'"; /* Quoted strings are special */
  126:   rl_bind_key ('\t', rl_complete);     /* Set default completion key */
  127:   rl_read_init_file (NULL);            /* For key-binding overrides. */
  128:   *ierr = 0;                           /* All is well.               */
  129:}
  130:/*--------------------------------------------------------------------*/
  133:#if __STDC__
  134:   static char **zgrltc_acf (char *user_txt, int start, int end)
  135:#else
  136:   static char **zgrltc_acf (user_txt, start, end)
  137:   char *user_txt;
  138:   int start, end;
  139:#endif
  140:/*--------------------------------------------------------------------*/
  141:/*! Performs TAB-key completion of commands                           */
  142:/*# Terminal                                                          */
  143:/*--------------------------------------------------------------------*/
  144:/* ZGRLTC_ACF is used *internally* to perform TAB-key completions.    */
  145:/*                                                                    */
  146:/* Input and output are determined by the GNU readline library's      */
  147:/* internal functionality.                                            */
  148:/*--------------------------------------------------------------------*/
  149:{
  150:   int i;
  151:/*--------------------------------------------------------------------*/
  152:   tasks_ok = 0;                        /* Assume first arg.          */
  154:   for (i = 0; i < start; i++)          /* Check for non-whitespace.  */
  155:      if (rl_line_buffer[i] != ' ' && rl_line_buffer[i] != '\'') {
  156:         tasks_ok = 1;                  /* Found some, tasks now OK.  */
  157:         break;
  158:      }
  159:                                        /* Check for quoted arg.      */
  160:   quoted = start && rl_line_buffer[start - 1] == '\'' ? 1 : 0;
  161:                                        /* Call GNU-RL and start work */
  162:   return (completion_matches (user_txt, zgrltc_cm));
  163:}
  164:/*--------------------------------------------------------------------*/
  167:#if __STDC__
  168:   static char *zgrltc_cm (char *user_txt, int state)
  169:#else
  170:   static char *zgrltc_cm (user_txt, state)
  171:   char *user_txt;
  172:   int state;
  173:#endif
  174:/*--------------------------------------------------------------------*/
  175:/*! Generates matches for TAB-key completion of commands              */
  176:/*# Terminal                                                          */
  177:/*--------------------------------------------------------------------*/
  178:/* ZGRLTC_CM is used *internally* to generate matches for TAB-key     */
  179:/* completions.                                                       */
  180:/*                                                                    */
  181:/* Input and output are determined by the GNU readline library's      */
  182:/* internal functionality.                                            */
  183:/*--------------------------------------------------------------------*/
  184:{
  185:   static int len, list_index;          /* Sticky across calls.       */
  186:   int i;
  187:/*--------------------------------------------------------------------*/
  188:   if (!state) {                        /* Check for new completion.  */
  189:      list_index = 0;                   /* Yes?  Reset list index.    */
  190:      len = strlen (user_txt);          /* Count our pennies.         */
  192:      if (!quoted)                      /* Check for quoted arg.      */
  193:         for (i = 0; i < len; i++)      /* No?  Then lowercase it.    */
  194:            user_txt[i] = tolower (user_txt[i]);
  195:   }
  197:   while (te_list[list_index]) {        /* Walk the list.             */
  199:                                        /* Tasks are prefixed with    */
  200:                                        /* '-' in the completion list */
  201:                                        /* found in HLPLISTFILE.      */
  203:                                        /* Check if task.             */
  204:      if (te_list[list_index][0] == '-') {
  206:                                        /* Now check for match and    */
  207:                                        /* whether tasks are allowed. */
  208:         if (!strncmp (&te_list[list_index][1], user_txt, len) &&
  209:             tasks_ok)
  210:            return (zgrltc_dup (&te_list[list_index++][1]));
  212:      } else {                          /* Not a task.                */
  213:         if (!strncmp (te_list[list_index], user_txt, len))
  214:            return (zgrltc_dup (te_list[list_index++]));
  215:      }
  216:      ++list_index;
  217:   }
  218:   return ((char *)NULL);               /* No matches, or end of list */
  219:}
  220:/*--------------------------------------------------------------------*/
  223:#if __STDC__
  224:   static char *zgrltc_dup (const char *todup)
  225:#else
  226:   static char *zgrltc_dup (todup)
  227:   char *todup;
  228:#endif
  229:/*--------------------------------------------------------------------*/
  230:/*! Does string duplication for TAB-key completion of commands        */
  231:/*# Terminal                                                          */
  232:/*--------------------------------------------------------------------*/
  233:/* ZGRLTC_DUP is used *internally* to emulate the SVID/BSD strdup(3)  */
  234:/* library function.                                                  */
  235:/*                                                                    */
  236:/* Input and output are determined by the GNU readline library's      */
  237:/* internal functionality requrements.                                */
  238:/*--------------------------------------------------------------------*/
  239:{
  240:   char *duped;
  241:/*--------------------------------------------------------------------*/
  242:   if (!(duped = (char *)malloc (strlen (todup) + 1))) {
  243:      perror ("ZGRLTC: zgrltc_dup() malloc failed");
  244:      exit (errno);                     /* Cancel Christmas!          */
  245:   }
  246:   return (strcpy (duped, todup));
  247:}
  248:/*--------------------------------------------------------------------*/
  250:/*
  251: * Local Variables:
  252: * c-basic-offset: 3
  253: * comment-column: 40
  254: * indent-tabs-mode: nil
  255: * End:
  256: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZGRLTC.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZGRLTC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:35 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGUEST.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZGUEST.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZGUEST.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
AIPSCC    : Date       Fri Jul 18 17:41:35 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
/usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
AIPSCC    : ends with fatal error(s)!

    1:#include <unistd.h>
    2:#include <sys/types.h>
    3:#include <fcntl.h>
    4:#include <stdio.h>
    5:#include <errno.h>
    6:#include <sys/stat.h>
    7:#include <AIPSPROTO.H>
    9:#define PMODE (S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | S_IROTH | S_IWOTH)
   10:#define CMODE (O_WRONLY | O_CREAT | O_TRUNC | O_EXCL)
   12:#if __STDC__
   13:   void zguest_(int *create, int *nmax, int *nfil)
   14:#else
   15:   void zguest_(create, nmax, nfil)
   16:   int *create, *nmax, *nfil;
   17:#endif
   18:/*--------------------------------------------------------------------*/
   19:/*! creates/deletes lock files for guest TV assignments /tmp/GUESTVn  */
   20:/*# Z2 System                                                         */
   21:/*--------------------------------------------------------------------*/
   22:/*;  Copyright (C) 1995-1997                                          */
   23:/*;  Associated Universities, Inc. Washington DC, USA.                */
   24:/*;                                                                   */
   25:/*;  This program is free software; you can redistribute it and/or    */
   26:/*;  modify it under the terms of the GNU General Public License as   */
   27:/*;  published by the Free Software Foundation; either version 2 of   */
   28:/*;  the License, or (at your option) any later version.              */
   29:/*;                                                                   */
   30:/*;  This program is distributed in the hope that it will be useful,  */
   31:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   32:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   33:/*;  GNU General Public License for more details.                     */
   34:/*;                                                                   */
   35:/*;  You should have received a copy of the GNU General Public        */
   36:/*;  License along with this program; if not, write to the Free       */
   37:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   38:/*;  MA 02139, USA.                                                   */
   39:/*;                                                                   */
   40:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   41:/*;         Internet email: aipsmail at nrao.edu.                        */
   42:/*;         Postal address: AIPS Project Office                       */
   43:/*;                         National Radio Astronomy Observatory      */
   44:/*;                         520 Edgemont Road                         */
   45:/*;                         Charlottesville, VA 22903-2475 USA        */
   46:/*--------------------------------------------------------------------*/
   47:/*   creates/deletes lock files for guest TV assignments /tmp/GUESTVn */
   48:/*   Inputs:                                                          */
   49:/*      CREATE   I   1 -> create, 0 -> delete                         */
   50:/*      NMAX     I   on create: largest NFIL allowed                  */
   51:/*   In/Out:                                                          */
   52:/*      NFIL     I   file number to delete, file number created       */
   53:/*--------------------------------------------------------------------*/
   54:{
   55:   int i;
   56:   int  lockfile;                      /* lock file file descriptor   */
   57:   char filename[14];                  /* desired file name.          */
   58:/* static char zhex[36] = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;    */
   59:   char *zhex = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;
   60:   char ahex[2] ;
   61:/*--------------------------------------------------------------------*/
   62:                                       /* create                      */
   63:   ahex[1] = '\0';
   64:   if (*create > 0) {
   65:      *nfil = 0;
   66:      for (i = 1; i <= *nmax; i++) {
   67:         ahex[0] = zhex[i];
   68:         sprintf (filename, "/tmp/GUESTV%s", ahex);
   69:                                       /* Create lock file:           */
   70:         if ((lockfile = open (filename, CMODE, PMODE)) == -1) {
   71:            if (errno != EEXIST) i = *nmax + 1;
   72:            }
   73:         else {
   74:            close (lockfile);
   75:            *nfil = i;
   76:            i = *nmax + 1 ;
   77:            }
   78:         }
   79:      }
   80:                                       /* destroy                     */
   81:   else {
   82:      ahex[0] = zhex[*nfil];
   83:      sprintf (filename, "/tmp/GUESTV%s", ahex);
   84:                                       /* delete file                 */
   85:      unlink (filename);
   86:      }
   87:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZGUEST.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZGUEST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:35 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLASC2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZLASC2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLASC2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
AIPSCC    : Date       Fri Jul 18 17:41:36 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:8:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:13: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c: In function `zlasc2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:70: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:70: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c:70: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_lasc2__
    2:#define _XOPEN_SOURCE                      /* Needed for popen/pclose */
    3:#include <unistd.h>
    4:#include <stdlib.h>
    5:#include <stdio.h>
    6:#include <errno.h>
    7:#include <string.h>
    8:#include <AIPSPROTO.H>
   10:#define ZL2_DELAY 10                        /* delay min 10 sec       */
   12:#if __STDC__
   13:   void zlasc2_(int *flen, char filnam[MAXAPATH], int *delfil,
   14:      int *syserr)
   15:#else
   16:   void zlasc2_(flen, filnam, delfil, syserr)
   17:   char filnam[MAXAPATH];
   18:   int *flen, *delfil, *syserr;
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! spool a graphics file to the appropriate printer and delete it    */
   22:/*# Z2 Printer Plot-util                                              */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995-1997                                          */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*  Spool a laser plotter file for printing/plotting, then delete it  */
   50:/*  Inputs:                                                           */
   51:/*     flen     I       Length of "filnam" in characters              */
   52:/*     filnam   C*(*)   Full path name of the file to be queued       */
   53:/*     delfil   I       Disposition indicator code:                   */
   54:/*                         0 => keep after printing                   */
   55:/*                         1 => delete after printing                 */
   56:/*  Output:                                                           */
   57:/*     syserr   I          System error code (0 okay)                 */
   58:/*  Generic UNIX version (invokes a shell script called ZLASCL)       */
   59:/*                                                                    */
   60:/*  The delete-after-printing option will shed a process to delete    */
   61:/*  the file after a small delay.  If the print command in the ZLASCL */
   62:/*  shell script causes a symbolic link to be made to the file, and   */
   63:/*  the spooler is backed up, it is possible that the file will be    */
   64:/*  deleted here before being printed.  Not all spooling programs     */
   65:/*  (e.g. lp on System V) have an option for deleting after printing. */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:   int n7 = 7, n3 = 3, zlpid, idel;
   69:   register int i, j;
   70:   char cmd[256], pathname[MAXAPATH], msgbuf[80], outbuf[132];
   71:   FILE *zptr;
   72:/*--------------------------------------------------------------------*/
   73:   *syserr = 0;
   74:                                        /* Form null terminated path  */
   75:                                        /* name.                      */
   76:   for (i = 0; i < MAXAPATH && i < *flen && filnam[i] != ' '; i++)
   77:      pathname[i] = filnam[i];
   78:   pathname[i] = '\0';
   79:                                        /* Does file exist?           */
   80:   if (access (pathname, 0) == -1) {
   81:      *syserr = errno;
   82:      }
   83:                                        /* Use shell script ZLASCL to */
   84:                                        /* do the actual printing.    */
   85:   else {
   86:      sprintf (cmd, "ZLASCL %s", pathname);
   87:                                        /* Issue the shell command.   */
   88:      errno = 0;
   89:      if ((zptr = popen (cmd, "r")) == NULL ) {
   90:         *syserr = errno;
   91:         sprintf (msgbuf, "ZLASC2: Cannot pipe command %s\n", cmd);
   92:         zmsgwr_ (msgbuf, &n7);
   93:         }
   94:      else {
   95:         while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
   96:            j = strlen(outbuf);
   97:            if (j > 64) j = 64;
   98:            strncpy (msgbuf, outbuf, j);
   99:            msgbuf[j] = '\0';
  100:            zmsgwr_ (msgbuf, &n3);
  101:            j = strlen(outbuf) - 64;
  102:            if (j > 0) {
  103:               strncpy (msgbuf, &outbuf[64], j);
  104:               msgbuf[j] = '\0';
  105:               zmsgwr_ (msgbuf, &n3);
  106:               }
  107:            }
  108:         *syserr = pclose(zptr);
  109:                                        /* AIX returns ECHILD here    */
  110:                                        /* because of the "sleep".    */
  111:         if ((*syserr != 0) && (errno != ECHILD)) {
  112:            *syserr = errno;
  113:            perror("ZLASC2");
  114:            sprintf (msgbuf, "ZLASC2: ignoring error %d from pclose()",
  115:                     *syserr);
  116:            zmsgwr_ (msgbuf, &n3);
  117:            }
  118:         *syserr = errno = 0;
  119:         }
  120:                                        /* Delete the file.           */
  121:      if ((*delfil > 0) && (*syserr == 0)) {
  122:         idel = ZL2_DELAY;
  123:         if (*delfil > idel) idel = *delfil;
  124:         sprintf (cmd,
  125:            "((sleep %d; rm -f %s\n)&) >/dev/null 2>/dev/null",
  126:            idel, pathname);
  127:         if ((zptr = popen (cmd, "r")) == NULL ) {
  128:            *syserr = errno;
  129:            sprintf (msgbuf, "ZLASC2: Will NOT delete file %s\n", cmd);
  130:            zmsgwr_ (msgbuf, &n7);
  131:            sprintf (msgbuf, "ZLASC2: (because 'popen' failed)\n");
  132:            zmsgwr_ (msgbuf, &n7);
  133:            }
  134:         else {
  135: 	    while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
  136:	       j = strlen(outbuf);
  137:	       if (j > 64) j = 64;
  138:	       strncpy (msgbuf, outbuf, j);
  139:	       msgbuf[j] = '\0';
  140:	       zmsgwr_ (msgbuf, &n3);
  141:	       j = strlen(outbuf) - 64;
  142:	       if (j > 0) {
  143:		  strncpy (msgbuf, &outbuf[64], j);
  144:		  msgbuf[j] = '\0';
  145:		  zmsgwr_ (msgbuf, &n3);
  146:                  }
  147:               }
  148:            *syserr = pclose(zptr);
  149:                                        /* AIX returns ECHILD here    */
  150:                                        /* because of the "sleep".    */
  151:            if ((*syserr != 0) && (errno != ECHILD)) {
  152:               *syserr = errno;
  153:               perror("ZLASC2");
  154:               sprintf (msgbuf,
  155:                        "ZLASC2: ignoring error %d from 2nd pclose()",
  156:                        *syserr);
  157:               zmsgwr_ (msgbuf, &n3);
  158:               }
  159:            *syserr = errno = 0;
  160:                                        /* give a message     */
  161:            sprintf (msgbuf,
  162:                     "a child process will delete %s in %d seconds",
  163:                     pathname, idel);
  164:            zmsgwr_ (msgbuf, &n3);
  165:            }
  166:         }
  167:      }
  168:   return;
  169:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZLASC2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZLASC2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:36 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLPCL2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZLPCL2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZLPCL2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
AIPSCC    : Date       Fri Jul 18 17:41:36 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:8:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:13: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c: In function `zlpcl2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:73: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:73: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c:73: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_lpcl2__
    2:#define _XOPEN_SOURCE                      /* Needed for popen/pclose */
    3:#include <unistd.h>
    4:#include <stdlib.h>
    5:#include <stdio.h>
    6:#include <errno.h>
    7:#include <string.h>
    8:#include <AIPSPROTO.H>
   10:#define ZL2_DELAY 10                        /* delay min 10 seconds   */
   12:#if __STDC__
   13:   void zlpcl2_(int *llen, char lprfil[MAXAPATH], int *delfil,
   14:      int *prtmax, int *syserr, int *ierr)
   15:#else
   16:   void zlpcl2_(llen, lprfil, delfil, prtmax, syserr, ierr)
   17:   int *llen, *delfil, *prtmax, *syserr, *ierr;
   18:   char lprfil[MAXAPATH];
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! spool a text file to the appropriate printer and delete it        */
   22:/*# Z2 Printer                                                        */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995-1997                                          */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*  Spool a line printer file to a printer, then delete it            */
   50:/*  Inputs:                                                           */
   51:/*     llen     I       Length of "lprfil" in characters              */
   52:/*     lprfil   C*(*)   Name of the line printer file to queue        */
   53:/*     delfil   I       Disposition indicator code:                   */
   54:/*                         0 => keep after printing                   */
   55:/*                         >0 => delete after delfil seconds          */
   56:/*     prtmax   I       Length of a line printer page                 */
   57:/*  Output:                                                           */
   58:/*     syserr   I       System error code                             */
   59:/*     ierr     I       Error return code: 0 => no error              */
   60:/*                         1 => error                                 */
   61:/*  Generic UNIX version  - invokes a shell script called ZLPCL2      */
   62:/*                                                                    */
   63:/*  The delete-after-printing option will shed a process to delete    */
   64:/*  the file after a small delay.  If the print command in the ZLASCL */
   65:/*  shell script causes a symbolic link to be made to the file, and   */
   66:/*  the spooler is backed up, it is possible that the file will be    */
   67:/*  deleted here before being printed.  Not all spooling programs     */
   68:/*  (e.g. lp on System V) have an option for deleting after printing. */
   69:/*--------------------------------------------------------------------*/
   70:{
   71:   int n7 = 7, n3 = 3, zlpid, idel;
   72:   register int i, j;
   73:   char cmd[256], pathname[MAXAPATH], msgbuf[80], outbuf[132];
   74:   FILE *zptr;
   75:/*--------------------------------------------------------------------*/
   76:   *ierr = 0;
   77:                                        /* Form null terminated path  */
   78:                                        /* name.                      */
   79:   for (i = 0; i < MAXAPATH && i < *llen && lprfil[i] != ' '; i++)
   80:      pathname[i] = lprfil[i];
   81:   pathname[i] = '\0';
   82:                                        /* Does file exist?           */
   83:   if (access (pathname, 0) == -1) {
   84:      *syserr = errno;
   85:      *ierr = 1;
   86:      }
   87:                                        /* Use shell script ZLPCL2 to */
   88:                                        /* do the actual printing.    */
   89:   else {
   90:      sprintf(cmd, "ZLPCL2 %s %d", pathname, *prtmax);
   91:                                        /* Issue the shell command.   */
   92:      errno = 0;
   93:      if ((zptr = popen (cmd, "r")) == NULL ) {
   94:         *ierr = 1;
   95:         *syserr = errno;
   96:         sprintf (msgbuf, "ZLPCL2: Cannot pipe command %s", cmd);
   97:         zmsgwr_ (msgbuf, &n7);
   98:         }
   99:      else {
  100:         while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
  101:            j = strlen(outbuf);
  102:            if (j > 64) j = 64;
  103:            strncpy (msgbuf, outbuf, j);
  104:            msgbuf[j] = '\0';
  105:            zmsgwr_ (msgbuf, &n3);
  106:            j = strlen(outbuf) - 64;
  107:            if (j > 0) {
  108:               strncpy (msgbuf, &outbuf[64], j);
  109:               msgbuf[j] = '\0';
  110:               zmsgwr_ (msgbuf, &n3);
  111:               }
  112:            }
  113:         *syserr = pclose(zptr);
  114:                                        /* AIX returns ECHILD here    */
  115:                                        /* because of the "sleep".    */
  116:         if ((*syserr != 0) && (errno != ECHILD)) {
  117:            *syserr = errno;
  118:            perror("ZLPCL2");
  119:            sprintf (msgbuf, "ZLPCL2: ignoring error %d from pclose()",
  120:                     *syserr);
  121:            zmsgwr_ (msgbuf, &n3);
  122:            *syserr = 0;
  123:            }
  124:         }
  125:                                        /* Delete the file.           */
  126:      if ((*delfil > 0) && (*ierr == 0)) {
  127:         idel = ZL2_DELAY;
  128:         if (*delfil > idel) idel = *delfil;
  129:         sprintf (cmd,
  130:             "((sleep %d; rm -f %s)&) >/dev/null 2>/dev/null",
  131:             idel, pathname);
  132:         if ((zptr = popen (cmd, "r")) == NULL ) {
  133:            *ierr = 1;
  134:            *syserr = errno;
  135:            sprintf (msgbuf, "ZLPCL2: Will NOT delete file %s", cmd);
  136:            zmsgwr_ (msgbuf, &n7);
  137:            sprintf (msgbuf, "ZLPCL2: (because 'popen' failed)");
  138:            zmsgwr_ (msgbuf, &n7);
  139:            }
  140:         else {
  141:	    while (fgets(outbuf, sizeof(outbuf), zptr) != NULL) {
  142:	       j = strlen(outbuf);
  143:	       if (j > 64) j = 64;
  144:	       strncpy (msgbuf, outbuf, j);
  145:	       msgbuf[j] = '\0';
  146:	       zmsgwr_ (msgbuf, &n3);
  147:	       j = strlen(outbuf) - 64;
  148:	       if (j > 0) {
  149:		  strncpy (msgbuf, &outbuf[64], j);
  150:		  msgbuf[j] = '\0';
  151:		  zmsgwr_ (msgbuf, &n3);
  152:                  }
  153:               }
  154:            *syserr = pclose(zptr);
  155:            *ierr = 0;
  156:                                        /* give a message     */
  157:            sprintf (msgbuf,
  158:               "a child process will delete %s in %d seconds",
  159:               pathname, idel);
  160:            zmsgwr_ (msgbuf, &n3);
  161:            }
  162:         }
  163:      }
  164:   return;
  165:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZLPCL2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZLPCL2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:37 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZM70O2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZM70O2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZM70O2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
AIPSCC    : Date       Fri Jul 18 17:41:37 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:5:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:8: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c: In function `zm70o2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:63: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:63: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:63: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c:63: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_m70o2__
    2:#include <stdio.h>
    3:#include <fcntl.h>
    4:#include <errno.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void zm70o2_(int *fcb, char pname[MAXPNAME], int *ierr)
    9:#else
   10:   void zm70o2_(fcb, pname, ierr)
   11:   int *fcb, *ierr ;
   12:   char pname[MAXPNAME] ;
   13:#endif
   14:/*--------------------------------------------------------------------*/
   15:/*! open an IIS Model 70/75 device                                    */
   16:/*# TV-IO                                                             */
   17:/*--------------------------------------------------------------------*/
   18:/*;  Copyright (C) 1995, 1997, 2000                                   */
   19:/*;  Associated Universities, Inc. Washington DC, USA.                */
   20:/*;                                                                   */
   21:/*;  This program is free software; you can redistribute it and/or    */
   22:/*;  modify it under the terms of the GNU General Public License as   */
   23:/*;  published by the Free Software Foundation; either version 2 of   */
   24:/*;  the License, or (at your option) any later version.              */
   25:/*;                                                                   */
   26:/*;  This program is distributed in the hope that it will be useful,  */
   27:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   28:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   29:/*;  GNU General Public License for more details.                     */
   30:/*;                                                                   */
   31:/*;  You should have received a copy of the GNU General Public        */
   32:/*;  License along with this program; if not, write to the Free       */
   33:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   34:/*;  MA 02139, USA.                                                   */
   35:/*;                                                                   */
   36:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   37:/*;         Internet email: aipsmail at nrao.edu.                        */
   38:/*;         Postal address: AIPS Project Office                       */
   39:/*;                         National Radio Astronomy Observatory      */
   40:/*;                         520 Edgemont Road                         */
   41:/*;                         Charlottesville, VA 22903-2475 USA        */
   42:/*--------------------------------------------------------------------*/
   43:/*  Open an IIS model 70 TV device for non-map,(single buffered) I/O. */
   44:/*                                                                    */
   45:/*  Inputs:                                                           */
   46:/*     pname   C*48   Physical file name (e.g., "TVDEV1: ")           */
   47:/*  Output:                                                           */
   48:/*     fcb     I(*)   File control block for opened TV device         */
   49:/*     ierr    I      Error return code: 0 => no error                */
   50:/*                       2 => no such logical device                  */
   51:/*                       3 => invalid device name                     */
   52:/*                       6 => other open error                        */
   53:/*  Generic UNIX version.                                             */
   54:/*--------------------------------------------------------------------*/
   55:{
   56:                                        /* Offsets to entries in the  */
   57:                                        /* file control blocks        */
   58:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   59:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   61:   int llen, xlen, xlnb, jerr;
   62:   register int i;
   63:   char lognam[MAXPNAME], pathname[MAXAPATH] ;
   64:/*--------------------------------------------------------------------*/
   65:   *ierr = 0;
   66:                                        /* Extract logical device     */
   67:                                        /* name.                      */
   68:   for (i = 0; i < MAXPNAME && pname[i] != ':'; i++)
   69:      lognam[i] = pname[i];
   70:   lognam[i] = '\0';
   71:                                        /* Translate logical device   */
   72:                                        /* name and null terminate.   */
   73:   llen = MAXPNAME;
   74:   xlen = MAXAPATH;
   75:   ztrlo2_(&llen, lognam, &xlen, pathname, &xlnb, &jerr);
   76:   if (jerr != 0) {
   77:      *ierr = 2;
   78:      }
   79:   else {
   80:      pathname[xlnb] = '\0';
   81:                                        /* Open the TV device         */
   82:                                        /* read/write.                */
   83:      if ((*(fcb + Z_fcbfd) = open (pathname, 2)) == -1) {
   84:         *(fcb + Z_fcberr) = errno;
   85:                                        /* Device doesn't exist.      */
   86:         if (errno == ENOENT)
   87:            *ierr = 3;
   88:                                        /* Some other open error.     */
   89:         else
   90:            *ierr = 6;
   91:         }
   92:      }
   94:   return;
   95:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZM70O2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZM70O2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:37 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZM70X2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZM70X2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZM70X2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
AIPSCC    : Date       Fri Jul 18 17:41:37 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c:6:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_m70x2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <string.h>
    5:#include <errno.h>
    6:#include <AIPSPROTO.H>
    8:#define  NONE 0                         /* Have not yet done r/w      */
    9:#define  READ 1
   10:#define  WRITE 2
   11:#define  ILLEGAL 3
   12:static char *op_names[] = {"NONE","READ","WRITE","ILLEGAL"};
   13:#define MAX_BAD 5                       /* Maximum number of bad xfers*/
   14:                                        /* that we lie about and say  */
   15:                                        /* succeeds.                  */
   17:#define DEBUG_LEVEL 1                   /* 1 for debugging info, 2 for*/
   18:                                        /* Copious output, 0 for none */
   19:                                        /* Undef should generate dead */
   20:                                        /* code for the compiler to   */
   21:                                        /* take out.                  */
   23:                                        /* For debugging use an int   */
   24:                                        /* to set the level so we can */
   25:                                        /* change it on the fly with a*/
   26:                                        /* debugger.                  */
   27:#ifdef DEBUG_LEVEL
   28:static int debug = DEBUG_LEVEL;
   29:#define DEBUG if (debug) printf
   30:#define LOG if (debug>1) printf
   31:#else
   32:#define DEBUG if (0) printf
   33:#define LOG if (0) printf
   34:#endif /* DEBUG_LEVEL */
   36:#if __STDC__
   37:   void zm70x2_(char *oper, int *fcb, char *buff, int *nbytes,
   38:      int *ierr)
   39:#else
   40:   void zm70x2_(oper, fcb, buff, nbytes, ierr)
   41:   char oper[], buff[];
   42:   int *fcb, *nbytes, *ierr;
   43:#endif
   44:/*--------------------------------------------------------------------*/
   45:/*! read/write from/to IIS Model 70/75 device                         */
   46:/*# TV-IO                                                             */
   47:/*--------------------------------------------------------------------*/
   48:/*;  Copyright (C) 1995, 1997                                         */
   49:/*;  Associated Universities, Inc. Washington DC, USA.                */
   50:/*;                                                                   */
   51:/*;  This program is free software; you can redistribute it and/or    */
   52:/*;  modify it under the terms of the GNU General Public License as   */
   53:/*;  published by the Free Software Foundation; either version 2 of   */
   54:/*;  the License, or (at your option) any later version.              */
   55:/*;                                                                   */
   56:/*;  This program is distributed in the hope that it will be useful,  */
   57:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   58:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   59:/*;  GNU General Public License for more details.                     */
   60:/*;                                                                   */
   61:/*;  You should have received a copy of the GNU General Public        */
   62:/*;  License along with this program; if not, write to the Free       */
   63:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   64:/*;  MA 02139, USA.                                                   */
   65:/*;                                                                   */
   66:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   67:/*;         Internet email: aipsmail at nrao.edu.                        */
   68:/*;         Postal address: AIPS Project Office                       */
   69:/*;                         National Radio Astronomy Observatory      */
   70:/*;                         520 Edgemont Road                         */
   71:/*;                         Charlottesville, VA 22903-2475 USA        */
   72:/*--------------------------------------------------------------------*/
   73:/*  Transfer "nbytes" of data between an IIS Model 70 TV device.      */
   74:/*  Inputs:                                                           */
   75:/*     oper     C*4    Operation code "READ" or "WRIT"                */
   76:/*     fcb      I(*)   File control block for opened TV device        */
   77:/*     nbytes   I      Number of 8-bit bytes to be transferred        */
   78:/*  In/out:                                                           */
   79:/*     buff     I(*)   I/O buffer                                     */
   80:/*  Output:                                                           */
   81:/*     ierr     I*2    Error return code: 0 => no error               */
   82:/*                        2 => bad opcode                             */
   83:/*                        3 => I/O error                              */
   84:/*                        4 => end of file                            */
   85:/*  Generic UNIX version - assumes 'read' and 'write' will be okay    */
   86:/*--------------------------------------------------------------------*/
   87:{
   88:                                        /* Offsets to entries in the  */
   89:                                        /* file control blocks        */
   90:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   91:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   93:   int fd;
   94:   register int i;
   95:   char op[5];
   96:   static int last_op = NONE;           /* Keep track of statistics   */
   97:   static int call_number = 0;
   98:   static int n_bad = 0;
   99:   int call_type;
  100:/*--------------------------------------------------------------------*/
  101:   call_number++;
  102:   *ierr = 0;
  103:                                        /* Form null terminated       */
  104:                                        /* opcode.                    */
  105:   for (i = 0; i < 4; i++)
  106:      op[i] = oper[i];
  107:   op[4] = '\0';
  108:                                        /* Get file descriptor from   */
  109:                                        /* the file control block as  */
  110:                                        /* stored there by ZM70O2.    */
  111:   fd = *(fcb + Z_fcbfd);
  112:                                        /* Record byte request in the */
  113:                                        /* file control block.        */
  114:   *(fcb + Z_fcbreq) = *nbytes;
  115:                                        /* Also, zero error status &  */
  116:                                        /* transfer count entries.    */
  117:   *(fcb + Z_fcberr) = 0;
  118:   *(fcb + Z_fcbxfr) = 0;
  119:   LOG ("ZM70X2 enter: call=%d op=%s last=%s nbytes=%d\n",
  120:      call_number, op, op_names[last_op], *nbytes);
  121:                                        /* Zero byte request okay.    */
  122:                                        /* Just return.               */
  123:   if (n_bad && *nbytes < 16) {
  124:      n_bad++;
  125:      DEBUG("ZM70X2: *nbytes=%d, THROW AWAY, nbad=%d\n",*nbytes,n_bad);
  126:      return;
  127:      }
  128:   if (*(fcb + Z_fcbreq) != 0) {
  129:      if (*nbytes == 0)
  130:         DEBUG ("ZM70X2 0 byte return: call=%d\n", call_number);
  131:                                        /* Perform the I/O and record */
  132:                                        /* the # of bytes transferred */
  133:                                        /* in *(fcb + Z_fcbxfr).      */
  134:                                        /* Record the system error    */
  135:                                        /* code (if any) in           */
  136:                                        /* *(fcb + Z_fcberr).         */
  137:      if (strcmp (op, "READ") == 0) {
  138:         call_type = READ;
  139:         if ((*(fcb + Z_fcbxfr) = read (fd, buff, *(fcb + Z_fcbreq)))
  140:            != *nbytes) {
  141:           DEBUG("ZM70X2 read: FAILS call=%d op=%s last=%s nbytes=%d transferred = %d",
  142:              call_number, op, op_names[last_op], *nbytes, *(fcb + Z_fcbxfr));
  143:            n_bad++;
  144:            *(fcb + Z_fcberr) = errno;
  145:            *ierr = 3;
  146:            }
  147:         }
  148:      else if (strcmp (op, "WRIT") == 0) {
  149:         call_type = WRITE;
  150:         if ((*(fcb + Z_fcbxfr) = write (fd, buff, *(fcb + Z_fcbreq)))
  151:            != *nbytes) {
  152:            DEBUG("ZM70X2 write: FAILS call=%d op=%s last=%s nbytes=%d transferred = %d",
  153:               call_number, op, op_names[last_op], *nbytes, *(fcb + Z_fcbxfr));
  154:            n_bad++;
  155:            *(fcb + Z_fcberr) = errno;
  156:            *ierr = 3;
  157:            }
  158:         }
  159:                                        /* Bad opcode.                */
  160:      else {
  161:         *ierr = 2;
  162:         last_op = ILLEGAL;
  163:         DEBUG("ZM70X2 leave: FAILS call=%d, ILLEGAL opcode\n",call_number);
  164:         return;
  165:         }
  166:                                        /* End of file?               */
  167:      if (*(fcb + Z_fcbxfr) == 0)
  168:         *ierr = 4;
  169:      }
  170:   if (*ierr == 0) {
  171:      n_bad = 0;
  172:      }
  173:   else if (n_bad < MAX_BAD) {
  174:      DEBUG("ZM70X2: LIE - turn FAIL into succeed, n_bad=%d\n, try MC",n_bad);
  175:      *(fcb + Z_fcberr) = 0;
  176:      *ierr = 0;
  177:      zm70m2_(fcb, ierr);
  178:      if (*ierr) {
  179:         DEBUG("ZM70X2: Master CLEAR FAILS\n");
  180:         }
  181:      }
  182:   last_op = call_type;
  183:   LOG("ZM70X2 leave: normal, call=%d, ierr=%d\n",call_number,*ierr);
  185:   return;
  186:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZM70X2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZM70X2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:38 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMI2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZMI2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
AIPSCC    : Date       Fri Jul 18 17:41:38 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_mi2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <string.h>
    5:#include <errno.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void zmi2_(char *oper, int *fcb, char *buff, int *nblock,
   11:      int *nbytes, int *ierr)
   12:#else
   13:   void zmi2_(oper, fcb, buff, nblock, nbytes, ierr)
   14:   char oper[], buff[];
   15:   int *fcb, *nblock, *nbytes, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read/write large blocks of data from/to disk, quick return        */
   19:/*# IO-basic                                                          */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 1997-1999                                    */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Read/write "nbytes" of data from/to disk starting at virtual      */
   47:/*  block "nblock" using "map" I/O (i.e., double buffered,            */
   48:/*  asynchronous I/O).  Block sizes are determined by the value       */
   49:/*  assigned to NBPS as AIPS-bytes in ZDCHIN which is converted to    */
   50:/*  bytes in ZDCHI2 and assigned to Z_nbps.                           */
   51:/*  Inputs:                                                           */
   52:/*     oper     C*4    Operation code "READ" or "WRIT"                */
   53:/*     fcb      I(*)   File control block for open map disk file      */
   54:/*                     and buffer involved                            */
   55:/*     nblock   I      Virtual starting block (1-relative)            */
   56:/*     nbytes   I      Number of AIPS-bytes (1/2 of a local integer)  */
   57:/*                     to be transferred                              */
   58:/*  In/out:                                                           */
   59:/*     buff     I(*)   I/O buffer                                     */
   60:/*  Output:                                                           */
   61:/*     ierr     I      Error return code: 0 => no error               */
   62:/*                        2 => bad opcode                             */
   63:/*                        3 => I/O error (also see ZWAI2)             */
   64:/*                        4 => end of file (see ZWAI2)                */
   65:/*  Generic UNIX version.                                             */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:                                        /* Offsets to entries in the  */
   69:                                        /* file control blocks        */
   70:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   71:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   72:                                        /* # of bytes per AIPS-byte   */
   73:   extern int Z_nbpab;
   74:                                        /* # of bytes per disk sector */
   75:   extern int Z_nbps;
   76:   int fd, n7 = 7;
   77:   off_t firstbyte, lastbyte, sizebytes, lastiob;
   78:   register int i;
   79:   char op[5], msgbuf[80];
   80:/*--------------------------------------------------------------------*/
   81:   *ierr = 0;
   82:                                        /* Form null terminated       */
   83:                                        /* opcode.                    */
   84:   for (i = 0; i < 4; i++)
   85:      op[i] = oper[i];
   86:   op[4] = '\0';
   87:                                        /* Get file descriptor from   */
   88:                                        /* the file control block as  */
   89:                                        /* stored there by ZDAOPN.    */
   90:   fd = *(fcb + Z_fcbfd);
   91:                                        /* Record byte request in the */
   92:                                        /* file control block.        */
   93:   *(fcb + Z_fcbreq) = *nbytes * Z_nbpab;
   94:                                        /* Also, zero error status &  */
   95:                                        /* transfer count entries.    */
   96:   *(fcb + Z_fcberr) = 0;
   97:   *(fcb + Z_fcbxfr) = 0;
   98:                                        /* Zero byte request just     */
   99:                                        /* initiates double buffered  */
  100:                                        /* I/O.                       */
  101:   if (*(fcb + Z_fcbreq) != 0) {
  102:                                        /* Calculate the byte offsets */
  103:                                        /* (0-relative) in the file   */
  104:                                        /* that correspond to the     */
  105:                                        /* I/O request.               */
  106:      firstbyte = (*nblock - 1);
  107:      firstbyte = firstbyte * Z_nbps;
  108:      lastbyte = *(fcb + Z_fcbreq) + firstbyte - 1;
  109:                                        /* Unpack the file size in    */
  110:                                        /* bytes from the file        */
  111:                                        /* control block (as packed   */
  112:                                        /* there in ZDAOPN) and make  */
  113:                                        /* sure that "lastbyte" is    */
  114:                                        /* not beyond the end of the  */
  115:                                        /* file.                      */
  116:      memcpy (&sizebytes, (fcb + Z_fcbsiz), sizeof(off_t)) ;
  117:      memcpy (&lastiob, (fcb + Z_fcbsiz + 2), sizeof(off_t)) ;
  118:      if ((lastbyte + 1) > sizebytes) {
  119:                                        /* This is NOT illegal under  */
  120:                                        /* UNIX but IS under AIPS     */
  121:                                        /* design standards, so fake  */
  122:                                        /* it.                        */
  123:         *(fcb + Z_fcberr) = EINVAL;
  124:         *(fcb + Z_fcbxfr) = -1;
  125:         *ierr = 3;
  126:         if (sizeof(long) < sizeof(off_t))
  127:            sprintf (msgbuf,
  128:            "ZMI2: REQUEST FOR BYTES %lld THRU = %lld BEYOND EOF = %lld",
  129:            firstbyte + 1, lastbyte + 1, sizebytes);
  130:         else
  131:            sprintf (msgbuf,
  132:            "ZMI2: REQUEST FOR BYTES %d THRU = %d BEYOND EOF = %d",
  133:            firstbyte + 1, lastbyte + 1, sizebytes);
  134:         zmsgwr_ (msgbuf, &n7);
  135:         }
  136:                                        /* Set file pointer of the    */
  137:                                        /* file descriptor to the     */
  138:                                        /* absolute byte address      */
  139:                                        /* "firstbyte".               */
  140:      else {
  141:         if (firstbyte != lastiob+1) {
  142:            if (lseek (fd, firstbyte, 0) == -1) {
  143:               *(fcb + Z_fcberr) = errno;
  144:               sprintf (msgbuf,
  145:               "ZMI2: LSEEK ERROR ON FILE DESCRIPTOR %d TO POSITION %d",
  146:                  fd, firstbyte);
  147:               zmsgwr_ (msgbuf, &n7);
  148:               *ierr = 3;
  149:               }
  150:            }
  151:                                        /* Perform the I/O and record */
  152:                                        /* the # of bytes transferred */
  153:                                        /* in *(fcb + Z_fcbxfr).      */
  154:                                        /* Record the system error    */
  155:                                        /* code (if any) in           */
  156:                                        /* *(fcb + Z_fcberr).         */
  157:         if (*ierr == 0) {
  158:            if (strcmp (op, "READ") == 0) {
  159:               if ((*(fcb + Z_fcbxfr) =
  160:                  read (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  161:                  *(fcb + Z_fcberr) = errno;
  162:                  *ierr = 3;
  163:                  }
  164:               }
  165:            else if (strcmp (op, "WRIT") == 0) {
  166:               if ((*(fcb + Z_fcbxfr) =
  167:                  write (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  168:                  *(fcb + Z_fcberr) = errno;
  169:                  *ierr = 3;
  170:                  }
  171:               }
  172:                                        /* Bad opcode.                */
  173:            else {
  174:               *ierr = 2;
  175:               }
  176:            }
  177:         }
  179:      if (*ierr == 0)
  180:         memcpy ((fcb + Z_fcbsiz + 2), &lastbyte, sizeof(off_t)) ;
  181:      }
  183:   return;
  184:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZMI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZMI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:39 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMKTMP.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZMKTMP.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZMKTMP.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
AIPSCC    : Date       Fri Jul 18 17:41:39 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:9:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:12: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c: In function `zmktmp_':
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:64: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:64: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c:64: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_mktmp__
    2:#include <unistd.h>
    3:#include <sys/types.h>
    4:#include <errno.h>
    5:#include <stdio.h>
    6:#include <stdlib.h>
    7:#include <ctype.h>
    8:#include <string.h>
    9:#include <AIPSPROTO.H>
   11:#if __STDC__
   12:   void zmktmp_(int *flen, char filnam[MAXAPATH], int *ierr)
   13:#else
   14:   void zmktmp_(flen, filnam, ierr)
   15:   int *flen, *ierr;
   16:   char filnam[MAXAPATH];
   17:#endif
   18:/*--------------------------------------------------------------------*/
   19:/*! convert a "temporary" file name into a unique name                */
   20:/*# IO-basic                                                          */
   21:/*--------------------------------------------------------------------*/
   22:/*;  Copyright (C) 1995, 1997                                         */
   23:/*;  Associated Universities, Inc. Washington DC, USA.                */
   24:/*;                                                                   */
   25:/*;  This program is free software; you can redistribute it and/or    */
   26:/*;  modify it under the terms of the GNU General Public License as   */
   27:/*;  published by the Free Software Foundation; either version 2 of   */
   28:/*;  the License, or (at your option) any later version.              */
   29:/*;                                                                   */
   30:/*;  This program is distributed in the hope that it will be useful,  */
   31:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   32:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   33:/*;  GNU General Public License for more details.                     */
   34:/*;                                                                   */
   35:/*;  You should have received a copy of the GNU General Public        */
   36:/*;  License along with this program; if not, write to the Free       */
   37:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   38:/*;  MA 02139, USA.                                                   */
   39:/*;                                                                   */
   40:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   41:/*;         Internet email: aipsmail at nrao.edu.                        */
   42:/*;         Postal address: AIPS Project Office                       */
   43:/*;                         National Radio Astronomy Observatory      */
   44:/*;                         520 Edgemont Road                         */
   45:/*;                         Charlottesville, VA 22903-2475 USA        */
   46:/*--------------------------------------------------------------------*/
   47:/*  Form a unique, fully qualified, temporary file name.              */
   48:/*  Inputs:                                                           */
   49:/*     flen     I       Length of "filnam"                            */
   50:/*  In/Out:                                                           */
   51:/*     filnam   C*(*)   File name with the extension .XXXXXX, (e.g.,  */
   52:/*                      "ZXLPRT.XXXXXX").  The extension will be      */
   53:/*                      transformed by 'mktemp' to make "filnam" a    */
   54:/*                      unique file name.                             */
   55:/*  Output:                                                           */
   56:/*     ierr     I       Error return code: 0 => no error              */
   57:/*                         1 => inputs wrong                          */
   58:/*                         2 => filenames used up                     */
   59:/*                         3 => filnam too short                      */
   60:/*                         3 => I/O error on access to file           */
   61:/*  Generic UNIX version.                                             */
   62:/*--------------------------------------------------------------------*/
   63:{
   64:   char tmpnam[MAXAPATH+1], cwd[MAXAPATH+1], *pp;
   65:   register int i, j;
   66:   size_t tlen ;
   67:   pid_t  pid ;
   68:   char   cid[10] ;
   69:/*--------------------------------------------------------------------*/
   70:   *ierr = 0;
   71:                                        /* Form null-terminated file  */
   72:                                        /* name template out of input;*/
   73:                                        /* Test for "filnam" given as */
   74:                                        /* pathname at same time.     */
   75:   j = 0;
   76:   for (i = 0; i<*flen && filnam[i] != ' ' && filnam[i] != '\0'; i++) {
   77:      tmpnam[i] = filnam[i];
   78:                                        /* Is this a pathname?        */
   79:      if (tmpnam[i] == '/') j = 1;
   80:      }
   81:   tmpnam[i] = '\0';
   82:                                        /* If not already a pathname, */
   83:                                        /* make it one.               */
   84:   if (j == 0) {
   85:                                        /* Get current working        */
   86:                                        /* directory.                 */
   87:      tlen = MAXAPATH+1;
   88:      pp = getcwd (cwd, tlen);
   89:                                        /* Fill in directory name.    */
   90:      for (i = 0; i < *flen && i < MAXAPATH && cwd[i] != ' ' &&
   91:         cwd[i] != '\0' && cwd[i] != '\n'; i++)
   92:         filnam[i] = cwd[i];
   93:                                        /* Append "/" and file name.  */
   94:      filnam[i] = '/';
   95:      i = i + 1;
   96:      for (j = 0; j < MAXAPATH && i+j < *flen && tmpnam[j] != ' ' &&
   97:         tmpnam[j] != '\0'; j++)
   98:         filnam[i+j] = tmpnam[j];
   99:      filnam[i+j] = '\0';
  100:      }
  101:                                        /* Just copy pathname "tmpnam"*/
  102:                                        /* to "filnam".               */
  103:   else {
  104:      sprintf (filnam, "%s", tmpnam);
  105:      }
  106:                                        /* Get unique file name.      */
  107:   tlen = strlen (filnam) ;
  108:   if (tlen < 6)
  109:      *ierr = 3;
  111:   else {
  112:      pid = getpid ( );
  113:      sprintf (cid, "%010d", pid);
  114:      for (i = 1; i < 6; i++) {
  115:         if ((filnam[tlen-i] = cid[10-i]) == ' ')
  116:            filnam[tlen-i] = '0';
  117:         }
  118:      filnam[tlen-6] = 'a';
  120:      *ierr = 2;
  121:      for (i=0; i < 26; i++) {
  122:          errno = 0;
  123:          if (access (filnam, F_OK) != 0) {
  124:             if (errno == ENOENT)
  125:                *ierr = 0;
  126:             else
  127:                *ierr = 4;
  128:             break;
  129:             }
  130:          filnam[tlen-6]++ ;
  131:          }
  132:      }
  133:                                        /* blank fill                 */
  134:   for (i = 1; i < *flen && filnam[i] != '\0'; i++) {
  135:      j = i ;
  136:      }
  137:   for (i = j + 1; i < *flen; i++) {
  138:      filnam[i] = ' ' ;
  139:      }
  141:   return;
  142:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZMKTMP.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZMKTMP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:39 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZMOUN2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZMOUN2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZMOUN2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
AIPSCC    : Date       Fri Jul 18 17:41:40 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c:26:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c: In function `zmoun2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c:97: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c:97: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c:97: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_moun2__
    3:#define MT_Debug 0                      /* debug message control      */
    5:                                        /* Must not claim POSIX_SOURCE*/
    6:                                        /* types.h would not define   */
    7:                                        /* things needed in mtio.h    */
    8:#ifdef _POSIX_SOURCE
    9:#undef _POSIX_SOURCE
   10:#endif
   12:#include <unistd.h>
   13:#include <stdlib.h>
   14:#include <sys/types.h>
   15:#include <sys/ioctl.h>
   16:#include <sys/mtio.h>
   17:#include <errno.h>
   18:#include <fcntl.h>
   19:#include <stdio.h>
   20:#include <sys/file.h>
   21:#include <string.h>
   22:                                        /* Useful macros              */
   23:#ifndef min
   24:#define min(a,b) ((a)<(b)?(a):(b))
   25:#endif
   26:#include <AIPSPROTO.H>
   27:                                        /* For patch use (15OCT96).   */
   28:#ifndef MAXEHEX
   29:#define MAXEHEX 36
   30:#endif
   32:#if __STDC__
   33:   void zmoun2_(int *mount, int *idrive, int *idens, int *ntaped,
   34:      int *npops, int *nuser, char *msg, int *syserr, int *ierr)
   35:#else
   36:   zmoun2_(mount, idrive, idens, ntaped, npops, nuser, msg, syserr, ierr)
   37:   int *mount, *idrive, *idens, *ntaped, *npops, *nuser, *syserr, *ierr;
   38:   char msg[];
   39:#endif
   40:/*--------------------------------------------------------------------*/
   41:/*! mount or dismount magnetic tape device - lowest level Z           */
   42:/*# Tape Z2                                                           */
   43:/*--------------------------------------------------------------------*/
   44:/*;  Copyright (C) 1995, 1997, 1999-2000                              */
   45:/*;  Associated Universities, Inc. Washington DC, USA.                */
   46:/*;                                                                   */
   47:/*;  This program is free software; you can redistribute it and/or    */
   48:/*;  modify it under the terms of the GNU General Public License as   */
   49:/*;  published by the Free Software Foundation; either version 2 of   */
   50:/*;  the License, or (at your option) any later version.              */
   51:/*;                                                                   */
   52:/*;  This program is distributed in the hope that it will be useful,  */
   53:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   54:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   55:/*;  GNU General Public License for more details.                     */
   56:/*;                                                                   */
   57:/*;  You should have received a copy of the GNU General Public        */
   58:/*;  License along with this program; if not, write to the Free       */
   59:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   60:/*;  MA 02139, USA.                                                   */
   61:/*;                                                                   */
   62:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   63:/*;         Internet email: aipsmail at nrao.edu.                        */
   64:/*;         Postal address: AIPS Project Office                       */
   65:/*;                         National Radio Astronomy Observatory      */
   66:/*;                         520 Edgemont Road                         */
   67:/*;                         Charlottesville, VA 22903-2475 USA        */
   68:/*--------------------------------------------------------------------*/
   69:/*  Issue a software tape mount or dismount requests.                 */
   70:/*  Inputs:                                                           */
   71:/*     mount    I      Operation indicator code:                      */
   72:/*                        1 => mount                                  */
   73:/*                        0 => dismount                               */
   74:/*     idrive   I      Drive number                                   */
   75:/*     idens    I      Density                                        */
   76:/*     ntaped   I      Number of tape drives                          */
   77:/*     npops    I      Pops number                                    */
   78:/*     nuser    I      User AIPS number                               */
   79:/*  Output:                                                           */
   80:/*     msg      C*80   Error or mount type message buffer             */
   81:/*     syserr   I      System error code: 0 => no error               */
   82:/*     ierr     I      Error return code: 0 => no error               */
   83:/*                        1 => error                                  */
   84:/*                        2 => device doesn't exist                   */
   85:/*                        3 => i/o error to device                    */
   86:/*                        4 => device already allocated               */
   87:/*                        6 => other device open errors               */
   88:/*                                                                    */
   89:/*  JAU 97/Feb/01: Linux DAT and Exabyte version.                     */
   90:/*  Modified to set/restore tape block size--needed for Exabytes.     */
   91:/*--------------------------------------------------------------------*/
   92:{
   93:   static int fd;
   94:   int    jerr, llen, xlen, xlnb, tfd, density, ir;
   95:   struct mtop top;
   96:   struct mtget stat;
   97:   char   command[40], da00[5], lockfile[MAXAPATH+7], tape[7],
   98:          xlated[MAXAPATH], densities[4];
   99:   struct flock lock;
  100:                                        /* Gleaned from mt.c in the */
  101:                                        /* mt-st-0.4 distribution.  */
  102:   struct {
  103:      int code;
  104:      char *name;
  105:   } density_tbl[] = {
  106:                                        /* Not a comprehensive list; */
  107:                                        /* only types AIPS knows it */
  108:                                        /* can use.  Needs more info.*/
  109:      {0x13, "DDS"},
  110:      {0x14, "EXB-8200"},
  111:      {0x15, "EXB-8500"},
  112:      {0x24, "DDS-2"},
  113:      {140, "EXB-8505 compressed"},
  114:      {144, "EXB-8205 compressed"},
  115:      {-1, NULL}
  116:   };
  117:   static int blocksize_detected[MAXEHEX];
  118:/*--------------------------------------------------------------------*/
  119:   *ierr = 0;
  120:   *syserr = 0;
  121:   errno = 0;
  122:   sprintf (msg, "   ");
  123:   sprintf (tape, "TAPE%x", *idrive);
  124:   densities[0] = 'l';
  125:   densities[1] = 'm';
  126:   densities[2] = 'h';
  127:   densities[3] = 'h';
  128:                                        /* Form the lock file name    */
  129:   llen = 5;
  130:   xlen = MAXAPATH;
  131:   sprintf (da00, "DA00");
  132:   ztrlo2_ (&llen, da00, &xlen, xlated, &xlnb, &jerr);
  133:   if (jerr != 0) {
  134:      sprintf (msg, "ZMOUN2: Couldn't translate logical %s", da00);
  135:      *ierr = 1;
  136:      goto exit;
  137:      }
  138:   xlated[xlnb] = '\0';
  139:   sprintf (lockfile, "%s/%s.lock", xlated, tape);
  140:                                        /* Translate logical TAPEn    */
  141:   sprintf (tape, "AMT0%x", *idrive);
  142:   llen = 5;
  143:   xlen = MAXAPATH;
  144:   ztrlo2_ (&llen, tape, &xlen, xlated, &xlnb, &jerr);
  145:   if (jerr != 0) {
  146:      sprintf (msg, "ZMOUN2: Couldn't translate logical %s", tape);
  147:      *ierr = 1;
  148:      goto exit;
  149:      }
  150:   xlated[xlnb] = '\0';
  151:                                        /* MOUNT                      */
  152:   if (*mount == 1) {
  153:                                        /* Create/open the lock file  */
  154:      if ((fd = open (lockfile, O_RDWR | O_CREAT, 0666)) == -1) {
  155:         sprintf (msg, "ZMOUN2: Couldn't open lock file %s", lockfile);
  156:         *syserr = errno;
  157:         *ierr = 1;
  158:         goto exit;
  159:         }
  160:#if MT_Debug
  161:      fprintf (stderr, "ZMOUN2: opened lock file %s\n", lockfile);
  162:#endif
  163:                                        /* Try to put a lock on it    */
  164:                                        /* Apply non-blocking lock.   */
  165:      lock.l_whence = SEEK_SET;
  166:      lock.l_start = 0;
  167:      lock.l_len = 0;
  168:                                        /* Exclusive lock.            */
  169:      lock.l_type = F_WRLCK;
  170:      if ((ir = fcntl (fd, F_SETLK, &lock)) == -1) {
  171:         if ((errno == EACCES) || (errno == EAGAIN)) {
  172:            sprintf (msg,
  173:               "(POSIX lock) Tape %d is currently in use.", *idrive);
  174:            *ierr = 4;
  175:            }
  176:         else {
  177:                                        /* Some other error           */
  178:            sprintf (msg, "ZMOUN2: POSIX lockfile error %d", errno);
  179:            *ierr = 1;
  180:            *syserr = errno;
  181:            }
  182:         goto cleanup;
  183:         }
  184:#if MT_Debug
  185:      else {
  186:         fprintf (stderr,
  187:                  "ZMOUN2: POSIX fcntl return = %d errno = %d\n",
  188:                  ir, errno);
  189:         }
  190:#endif
  191:                                        /* open root device name      */
  192:      if ((strncmp(xlated, "on-line", 7) == 0) ||
  193:         (strncmp(xlated, "ON-LINE", 7)) == 0) {
  194:         sprintf (msg, "Mounted on-line tape device");
  195:         }
  196:      else {
  197:         tfd = open (xlated, O_RDONLY | O_NONBLOCK) ;
  198:         if (tfd == -1) {
  199:                                        /* Device doesn't exist.      */
  200:            if (errno == ENOENT)
  201:               *ierr = 2;
  202:                                        /* Some other open error.     */
  203:            else
  204:               *ierr = 6;
  205:            *syserr = errno;
  206:            sprintf (msg, "ZMOUN2: Couldn't open tape device %s",
  207:               xlated);
  208:            goto cleanup;
  209:            }
  210:                                        /* Need to perform a no-op on */
  211:                                        /* device in order to get its */
  212:                                        /* status.  Close if error! */
  213:         top.mt_count = 1;
  214:         top.mt_op = MTNOP;
  215:         if (ioctl(tfd,MTIOCTOP,&top) != 0) {
  216:            *ierr = 3;
  217:            sprintf(msg,
  218:               "ZMOUN2: error performing null op on tape drive");
  219:	    close(tfd);
  220:            goto cleanup;
  221:            }
  222:         if (ioctl(tfd,MTIOCGET,&stat) != 0) {
  223:            *ierr = 3;
  224:            sprintf(msg, "ZMOUN2: error getting drive status");
  225:	    close(tfd);
  226:            goto cleanup;
  227:            }
  228:                                        /* AIPS density code */
  229:         density = 0;
  230:         if (*idens == 800) density = 1;
  231:         if (*idens == 1600) density = 2;
  232:         if (*idens == 6250) density = 3;
  233:         if (*idens == 22500) density = 4;
  234:                                        /* Only allow density changes */
  235:                                        /* for appropriate devices */
  236:         switch (stat.mt_type) {
  237:            case MT_ISDDS1 :
  238:               density = 0;
  239:               sprintf (msg, "Mounted on standard DAT tape");
  240:               break;
  241:            case MT_ISDDS2 :
  242:               density = 0;
  243:               sprintf (msg,
  244:                        "Mounted on PARTITIONED DAT tape?  Good Luck!");
  245:               break;
  246:            case MT_ISSCSI1 :
  247:               density = 0;
  248:               sprintf (msg, "Mounted on ANSI SCSI 1 tape");
  249:               break;
  250:            case MT_ISSCSI2 :
  251:               density = 0;
  252:               sprintf (msg, "Mounted on ANSI SCSI 2 tape");
  253:               break;
  254:            default :
  255:               density = 0;
  256:               sprintf (msg, "Mounted SCSI tape device type %x, a ????",
  257:                  stat.mt_type);
  258:               break;
  259:            }
  260:                                        /* If it's a SCSI 1 or SCSI 2 */
  261:                                        /* tape drive, let's find out */
  262:                                        /* and display more info. */
  263:                                        /* Also, save current block */
  264:                                        /* size, set it to zero for */
  265:                                        /* the session, and restore */
  266:                                        /* the old value on dismount. */
  267:                                        /* This routine was also */
  268:                                        /* inspired by Linux's */
  269:                                        /* mt-st-0.4 distribution. */
  270:         if (stat.mt_type == MT_ISSCSI1 || stat.mt_type == MT_ISSCSI2) {
  271:            int density_detected =
  272:              (stat.mt_dsreg & MT_ST_DENSITY_MASK) >>
  273:               MT_ST_DENSITY_SHIFT;
  274:            if (blocksize_detected[*idrive] =
  275:                ((stat.mt_dsreg & MT_ST_BLKSIZE_MASK) >>
  276:                 MT_ST_BLKSIZE_SHIFT)) {
  277:#if MT_Debug
  278:               fprintf (stderr,
  279:                        "ZMOUN2: Tape blksiz detected: %d, drive %d\n",
  280:                        blocksize_detected[*idrive], *idrive);
  281:#endif
  282:               top.mt_op = MTSETBLK;
  283:               top.mt_count = 0;
  284:               if (ioctl (tfd, MTIOCTOP, &top) != 0) {
  285:                  *ierr = 3;
  286:                  sprintf (msg,
  287:                           "ZMOUN2: error setting tape blksiz to 0");
  288:		  close(tfd);
  289:                  goto cleanup;
  290:               }
  291:            }
  292:            if (density_detected) {
  293:               int density_counter = 0;
  294:               for (density_counter;
  295:                    density_tbl[density_counter].code >= 0;
  296:                    density_counter++) {
  297:                  if (density_tbl[density_counter].code ==
  298:                      density_detected) {
  299:                     /* Watch buffer length! */
  300:                     strcat (msg, " (");
  301:                     strcat (msg, density_tbl[density_counter].name);
  302:                     strcat (msg, ")");
  303:                     break;
  304:                  }
  305:               }
  306:            }
  307:         }
  308:         close (tfd);
  309:                                        /* reset logical              */
  310:         if (density) {
  311:            xlated[xlnb-1] = densities[density-1];
  312:            zcrlog_(&llen, tape, &xlnb, xlated, &jerr);
  313:            if (jerr != 0) {
  314:               sprintf (msg,
  315:                  "ZMOUN2: Couldn't create logical %s", xlated);
  316:               *ierr = 1;
  317:               goto cleanup;
  318:               }
  319:            }
  320:         }
  321:      }
  322:                                        /* DISMOUNT                   */
  323:   else {
  324:                                        /* Take the Exabyte offline */
  325:      if ((strncmp(xlated, "on-line", 7) != 0) &&
  326:         (strncmp(xlated, "ON-LINE", 7)) != 0) {
  327:         tfd = open (xlated, O_RDONLY | O_NONBLOCK) ;
  328:         if (tfd == -1) {
  329:                                        /* Device doesn't exist.      */
  330:            if (errno == ENOENT)
  331:               *ierr = 2;
  332:                                        /* Some other open error.     */
  333:            else
  334:               *ierr = 6;
  335:            *syserr = errno;
  336:            sprintf (msg, "ZMOUN2: Couldn't open tape device %s",
  337:               xlated);
  338:            goto cleanup;
  339:            }
  340:                                        /* Now set the tape blocksize */
  341:                                        /* back the way we found it   */
  342:         if (blocksize_detected[*idrive]) {
  343:#if MT_Debug
  344:            fprintf (stderr, "ZMOUN2: %s %d, drive %d.\n",
  345:                     "Resetting tape block size back to",
  346:                     blocksize_detected[*idrive], *idrive);
  347:#endif
  348:            top.mt_op = MTSETBLK;
  349:            top.mt_count = blocksize_detected[*idrive];
  350:                                        /* Failure is non-fatal, but */
  351:                                        /* warn if debugging. */
  352:#if MT_Debug
  353:            if (ioctl (tfd, MTIOCTOP, &top) != 0) {
  354:               fprintf (stderr, "ZMOUN2: %s %d, drive %d!\n",
  355:                        "warning resetting block size back to",
  356:                        blocksize_detected[*idrive], *idrive);
  357:            }
  358:#else
  359:            ioctl (tfd, MTIOCTOP, &top);
  360:#endif
  361:         }
  362:         top.mt_count = 1;
  363:#if MT_Debug
  364:                                        /* Don't eject the tape when */
  365:                                        /* debugging--it's annoying! */
  366:         top.mt_op = MTREW;
  367:         fprintf (stderr, "ZMOUN2: debug, won't spit the tape out!\n");
  368:#else
  369:         top.mt_op = MTOFFL;
  370:#endif
  371:         if (ioctl(tfd,MTIOCTOP,&top) != 0) {
  372:            *ierr = 3;
  373:            sprintf(msg,
  374:                    "ZMOUN2: error rewinding/unloading tape drive");
  375:            }
  376:         close (tfd) ;
  377:         }
  378:cleanup:
  379:                                        /* Release the lock file      */
  380:      unlink (lockfile);
  381:      close (fd);
  382:      }
  384:exit:
  385:   return;
  386:}
  388:/*
  389: * Local Variables:
  390: * c-basic-offset: 3
  391: * comment-column: 40
  392: * indent-tabs-mode: nil
  393: * End:
  394: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZMOUN2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZMOUN2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:40 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZPATH.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZPATH.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZPATH.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
AIPSCC    : Date       Fri Jul 18 17:41:40 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c:3:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c: In function `zpath_':
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c:62: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c:62: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c:62: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_path__
    2:#include <stdio.h>
    3:#include <AIPSPROTO.H>
    5:#if __STDC__
    6:   void zpath_(int *llen, char *logfil, int *flen, char *fulnam,
    7:      int *fact, int *ierr)
    8:#else
    9:   void zpath_(llen, logfil, flen, fulnam, fact, ierr)
   10:   int *llen, *flen, *fact, *ierr;
   11:   char logfil[], fulnam[];
   12:#endif
   13:/*--------------------------------------------------------------------*/
   14:/*! convert a file name 'Logical:file' to full path name              */
   15:/*# IO-basic                                                          */
   16:/*--------------------------------------------------------------------*/
   17:/*;  Copyright (C) 1995, 1997, 2000, 2002                             */
   18:/*;  Associated Universities, Inc. Washington DC, USA.                */
   19:/*;                                                                   */
   20:/*;  This program is free software; you can redistribute it and/or    */
   21:/*;  modify it under the terms of the GNU General Public License as   */
   22:/*;  published by the Free Software Foundation; either version 2 of   */
   23:/*;  the License, or (at your option) any later version.              */
   24:/*;                                                                   */
   25:/*;  This program is distributed in the hope that it will be useful,  */
   26:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   27:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   28:/*;  GNU General Public License for more details.                     */
   29:/*;                                                                   */
   30:/*;  You should have received a copy of the GNU General Public        */
   31:/*;  License along with this program; if not, write to the Free       */
   32:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   33:/*;  MA 02139, USA.                                                   */
   34:/*;                                                                   */
   35:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   36:/*;         Internet email: aipsmail at nrao.edu.                        */
   37:/*;         Postal address: AIPS Project Office                       */
   38:/*;                         National Radio Astronomy Observatory      */
   39:/*;                         520 Edgemont Road                         */
   40:/*;                         Charlottesville, VA 22903-2475 USA        */
   41:/*--------------------------------------------------------------------*/
   42:/*  Translate a file specifcation of the form "logical:file" to a     */
   43:/*  full path name.  "/..." absolute path name is also allowed.       */
   44:/*  Inputs:                                                           */
   45:/*     llen     I          Length of "logfil" (1-relative)            */
   46:/*     logfil   C*(*)      File specification (may contain a valid,   */
   47:/*                         colon terminated logicalvariable)          */
   48:/*     flen     I          Length of "fulnam" (1-relative)            */
   49:/*  Output:                                                           */
   50:/*     fulnam   C*(flen)   Full path name (blank filled)              */
   51:/*     fact     I          Position of last non-blank in "fulnam"     */
   52:/*                         (1-relative)                               */
   53:/*     ierr     I          Error return code: 0 => no error           */
   54:/*                             1 => improper combination of inputs    */
   55:/*                             2 => no translation for "logical"      */
   56:/*                             3 => "fulnam" too short                */
   57:/*                             4 => logical name required             */
   58:/*  Generic UNIX version  - "logical" => environment variable is      */
   59:/*  required by UNIX (IERR = 4 otherwise).                            */
   60:/*--------------------------------------------------------------------*/
   61:{
   62:   char envvar[MAXAPATH+1], xlated[MAXAPATH+1], filename[MAXAPATH+1],
   63:      pathname[MAXAPATH+1];
   64:   int elen, xlen, xlnb, jerr;
   65:   register int i, j;
   66:/*--------------------------------------------------------------------*/
   67:   *ierr = 0;
   68:                                        /* Extract logical.           */
   69:   for (i = 0; logfil[i] != ':' && i < *llen && i < MAXAPATH; i++)
   70:      envvar[i] = logfil[i];
   71:   envvar[i] = '\0';
   72:   if (logfil[i] != ':') {
   73:      elen = 0;
   74:      i = -1;
   75:      }
   76:   else
   77:      elen = i;
   78:                                        /* Extract filename.          */
   79:   j = 0;
   80:   for (i = i+1; i < *llen && logfil[i] != ' '; i++) {
   81:      filename[j] = logfil[i];
   82:      j++;
   83:      }
   84:   filename[j] = '\0';
   85:                                        /* Check for no file name     */
   86:   if (j == 0)
   87:     *ierr = 4;
   88:                                        /* no logical                 */
   89:   else if (elen == 0) {
   90:                                        /* Copy full path name to     */
   91:                                        /* "fulnam".                  */
   92:      for (i = 0; i < *flen && filename[i] != '\0'; i++)
   93:         fulnam[i] = filename[i];
   94:                                        /* Record actual full file    */
   95:                                        /* name length in characters  */
   96:                                        /* (1-relative).              */
   97:      *fact = i;
   98:                                        /* Fill remainder of "fulnam" */
   99:                                        /* with blanks.               */
  100:      for (i = i; i < *flen; i++)
  101:         fulnam[i] = ' ';
  102:      }
  103:                                        /* Translate logical and null */
  104:                                        /* terminate.                 */
  105:   else {
  106:      xlen = MAXAPATH + 1;
  107:      ztrlo2_ (&elen, envvar, &xlen, xlated, &xlnb, &jerr);
  108:      if (jerr != 0) {
  109:         *ierr = 2;
  110:         }
  111:      else {
  112:         xlated[xlnb] = '\0';
  113:                                        /* Build full path name.      */
  114:         sprintf (pathname, "%s/%s", xlated, filename);
  115:                                        /* Copy full path name to     */
  116:                                        /* "fulnam".                  */
  117:         for (i = 0; i < *flen && pathname[i] != '\0'; i++)
  118:            fulnam[i] = pathname[i];
  119:                                        /* Record actual full file    */
  120:                                        /* name length in characters  */
  121:                                        /* (1-relative).              */
  122:         *fact = i;
  123:                                        /* Fill remainder of "fulnam" */
  124:                                        /* with blanks.               */
  125:         for (i = i; i < *flen; i++)
  126:            fulnam[i] = ' ';
  127:         }
  128:      }
  130:   return;
  131:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZPATH.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZPATH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:41 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZPRMPT.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZPRMPT.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZPRMPT.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
AIPSCC    : Date       Fri Jul 18 17:41:41 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c:7:31: NOTST/GNU/history.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c:10:32: NOTST/GNU/readline.h: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c:11:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c: In function `zprmpt_':
/usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c:133: warning: assignment makes pointer from integer without a cast
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_prmpt__
    2:#include <errno.h>
    3:#include <signal.h>
    4:#include <stdio.h>
    5:#include <stdlib.h>
    6:#include <unistd.h>
    7:#include <NOTST/GNU/history.h>
    9:#define HAVE_STRING_H                   /* Needed inside readline.h   */
   10:#include <NOTST/GNU/readline.h>
   11:#include <AIPSPROTO.H>
   13:                                        /* Local signal-handler.      */
   14:#if __STDC__
   15:   static void zprmpt_sigs(int sig)
   16:#else
   17:   static void zprmpt_sigs(sig)
   18:   int sig;
   19:#endif
   20:{
   21:   extern int _rl_meta_flag;
   22:   extern int kill ();                  /* Arg...some OS's...really!  */
   23:   extern void rl_prep_terminal ();
   25:   kill (getpid (), SIGTSTP);
   26:   rl_prep_terminal (_rl_meta_flag);
   27:}
   29:#if __STDC__
   30:   void zprmpt_(char ipc[1], char buff[80], int *ierr)
   31:#else
   32:   void zprmpt_(ipc, buff, ierr)
   33:   char ipc[1], buff[80];
   34:   int *ierr;
   35:#endif
   36:/*--------------------------------------------------------------------*/
   37:/*! prompt user and read 80 characters from CRT screen                */
   38:/*# Terminal                                                          */
   39:/*--------------------------------------------------------------------*/
   40:/*;  Copyright (C) 1995-1997, 2003                                    */
   41:/*;  Associated Universities, Inc. Washington DC, USA.                */
   42:/*;                                                                   */
   43:/*;  This program is free software; you can redistribute it and/or    */
   44:/*;  modify it under the terms of the GNU General Public License as   */
   45:/*;  published by the Free Software Foundation; either version 2 of   */
   46:/*;  the License, or (at your option) any later version.              */
   47:/*;                                                                   */
   48:/*;  This program is distributed in the hope that it will be useful,  */
   49:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   50:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   51:/*;  GNU General Public License for more details.                     */
   52:/*;                                                                   */
   53:/*;  You should have received a copy of the GNU General Public        */
   54:/*;  License along with this program; if not, write to the Free       */
   55:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   56:/*;  MA 02139, USA.                                                   */
   57:/*;                                                                   */
   58:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   59:/*;         Internet email: aipsmail at nrao.edu.                        */
   60:/*;         Postal address: AIPS Project Office                       */
   61:/*;                         National Radio Astronomy Observatory      */
   62:/*;                         520 Edgemont Road                         */
   63:/*;                         Charlottesville, VA 22903-2475 USA        */
   64:/*--------------------------------------------------------------------*/
   65:/* ZPRMPT prompts user on CRT screen and reads a line of user input   */
   66:/* via the GNU readline (+history) library.  The input line is placed */
   67:/* in a buffer and either truncated to 80 characters or space-padded  */
   68:/* to 80 characters prior to return.  Non-empty lines are added to a  */
   69:/* history list for possible later access/reuse via the               */
   70:/* history-manipulation key-bindings (a la Bash/Ksh/Emacs--or even    */
   71:/* vi).  If the user is not on an interactive tty, say by giving AIPS */
   72:/* input via a shell-script "here document," then the old             */
   73:/* (non-readline) behavior is used and the input line is not added to */
   74:/* the history.  Use of the readline library can be disabled by       */
   75:/* starting AIPS with the "norl" option.                              */
   76:/*                                                                    */
   77:/* Input:                                                             */
   78:/*    IPC    C*1    prompt character                                  */
   79:/* Output:                                                            */
   80:/*    BUFF   C*80   line of user input.                               */
   81:/*    IERR   I      Error return code: 0 => ok                        */
   82:/*                     1 => read/write error (not implemented/set)    */
   83:/*                                                                    */
   84:/* UNIX GNU-readline version (with terminal-reset signal-handler).    */
   85:/*                                                                    */
   86:/* JAU 26 Jul 95: Jeff Uphoff, NRAO.  Added GNU readline support.     */
   87:/* JAU 29 Aug 95: Jeff Uphoff, NRAO.  Overhaul of several portions.   */
   88:/* JAU 22 Sep 95: Jeff Uphoff, NRAO.  Added check for userno prompt.  */
   89:/* JAU 25 Jun 97: Jeff Uphoff, NRAO.  Fix prompt bug.                 */
   90:/*--------------------------------------------------------------------*/
   91:{
   92:   char *rlenv = NULL;
   93:   char *temp = NULL;
   94:   register int i, ttyp;
   95:/*--------------------------------------------------------------------*/
   96:   *ierr = 0;
   98:   buff[0] = '\0';                      /* Initialize buffer.         */
  100:                                        /* Check if readline disabled */
  101:   if (!(ttyp = isatty (0)) ||          /* or if not interactive tty. */
  102:         (((rlenv = getenv ("READLINE")) != NULL) &&
  103:         !strcmp (rlenv, "NO"))) {
  105:      char pc = ipc[0];                 /* OK, fall back to old       */
  106:                                        /* prompting and input-       */
  107:                                        /* handling behavior.         */
  108:      if(!(temp = (char *)malloc (81))) {
  109:         perror ("ZPRMPT: malloc failed");
  110:         exit (errno);                  /* This is *very* bad!        */
  111:      }
  112:      putchar (pc);                     /* Display prompt.            */
  114:                                        /* Use old input method.      */
  115:      if (fgets (temp, 81, stdin) == NULL) {
  116:         free (temp);
  117:         temp = NULL;
  118:      }
  119:      ttyp = 0;                         /* We'll fake this for later. */
  121:   } else {                             /* Use GNU readline for input */
  122:      char prompt[2];
  124:      if (ipc[0] == '?')                /* Check if userno. prompt.   */
  125:         rl_bind_key ('\t', NULL);      /* If so, disable TAB's.      */
  127:      zignal_ (SIGTTIN, zprmpt_sigs);   /* All of these signal-       */
  128:      zignal_ (SIGTTOU, zprmpt_sigs);   /* handling shenanigans are   */
  129:                                        /* due to general insanity.   */
  131:      prompt[0] = ipc[0];               /* Ensure prompt sanity.      */
  132:      prompt[1] = '\0';
  133:      temp = readline (prompt);         /* Use readline to prompt     */
  134:                                        /* user and return pointer    */
  135:                                        /* to line of user input.     */
  136:                                        /* readline() does the        */
  137:                                        /* malloc() for us, but we    */
  138:                                        /* must free() the pointer.   */
  140:      zignal_ (SIGTTIN, SIG_DFL);       /* More fun with signals.     */
  141:      zignal_ (SIGTTOU, SIG_DFL);
  142:   }
  144:   if (temp == NULL)                    /* NULL pointer means EOF at  */
  145:      sprintf (buff, "EXIT");           /* *beginning* of user input. */
  147:   else {                               /* Non-NULL means good input. */
  149:      if (*temp && ttyp)                /* If not blank (and          */
  150:         add_history (temp);            /* interactive), put in hist. */
  151:                                        /* unless readline disabled   */
  152:                                        /* (the reason for "faking"   */
  153:                                        /* ttyp = 0 earlier).         */
  155:                                        /* readline() strips the new- */
  156:                                        /* line for us.  We need to   */
  157:                                        /* find the first null and    */
  158:                                        /* then pad the output buffer */
  159:                                        /* with trailing spaces.      */
  160:                                        /* The 80-column limit is     */
  161:                                        /* historical...              */
  162:      for (i = 0; i < 80 && temp[i] != '\0'; i++)
  163:         buff[i] = temp[i];             /* Copy up to first null.     */
  164:      for (i = i; i < 80; i++)
  165:         buff[i] = ' ';                 /* Pad remainder with spaces. */
  166:      if (temp)
  167:         free (temp);                   /* Free the readline pointer. */
  168:   }
  169:   return;
  170:}
  172:/*
  173: * Local Variables:
  174: * c-basic-offset: 3
  175: * comment-column: 40
  176: * indent-tabs-mode: nil
  177: * End:
  178: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZPRMPT.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZPRMPT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:41 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRDMF.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZRDMF.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRDMF.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
AIPSCC    : Date       Fri Jul 18 17:41:42 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
/usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c:3:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_rdmf__
    2:#include <stdio.h>
    3:#include <AIPSPROTO.H>
    5:#if __STDC__
    6:   void zrdmf_(int *nwords, unsigned char *inbuf, int *outbuf, int *flag)
    7:#else
    8:   void zrdmf_(nwords, inbuf, outbuf, flag)
    9:   int *nwords, *outbuf, *flag;
   10:   unsigned char *inbuf;
   11:#endif
   12:/*--------------------------------------------------------------------*/
   13:/*! convert DEC (36 bits in 40) magtape format to 2 local integers    */
   14:/*# Binary                                                            */
   15:/*--------------------------------------------------------------------*/
   16:/*;  Copyright (C) 1995, 1997                                         */
   17:/*;  Associated Universities, Inc. Washington DC, USA.                */
   18:/*;                                                                   */
   19:/*;  This program is free software; you can redistribute it and/or    */
   20:/*;  modify it under the terms of the GNU General Public License as   */
   21:/*;  published by the Free Software Foundation; either version 2 of   */
   22:/*;  the License, or (at your option) any later version.              */
   23:/*;                                                                   */
   24:/*;  This program is distributed in the hope that it will be useful,  */
   25:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   26:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   27:/*;  GNU General Public License for more details.                     */
   28:/*;                                                                   */
   29:/*;  You should have received a copy of the GNU General Public        */
   30:/*;  License along with this program; if not, write to the Free       */
   31:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   32:/*;  MA 02139, USA.                                                   */
   33:/*;                                                                   */
   34:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   35:/*;         Internet email: aipsmail at nrao.edu.                        */
   36:/*;         Postal address: AIPS Project Office                       */
   37:/*;                         National Radio Astronomy Observatory      */
   38:/*;                         520 Edgemont Road                         */
   39:/*;                         Charlottesville, VA 22903-2475 USA        */
   40:/*--------------------------------------------------------------------*/
   41:/*  Convert data packed in DEC-Magtape format (DMF) to 2 local        */
   42:/*  32-bit integers                                                   */
   43:/*                                                                    */
   44:/*  The DMF format is:                                                */
   45:/*                                                                    */
   46:/*     Track    1    2    3    4    5    6    7    8                  */
   47:/*     Byte                                                           */
   48:/*       1      F0   F1   F2   F3   F4   F5   F6   F7                 */
   49:/*       2      F8   F9  F10  F11  F12  F13  F14  F15                 */
   50:/*       3      F16  F17  R0   R1   R2   R3   R4   R5                 */
   51:/*       4      R6   R7   R8   R9  R10  R11  R12  R13                 */
   52:/*       5       0    0    0    0  R14  R15  R16  R17                 */
   53:/*                                                                    */
   54:/*  where Rn refers to the right halfword, Fn to the left halfword.   */
   55:/*                                                                    */
   56:/*  Since the purpose of this routine is to read Modcomp tapes        */
   57:/*  written with this peculiar format, F16, F17, R16 and R17 (the     */
   58:/*  high order bits) are zero for VLA data, but are used for the      */
   59:/*  word count.                                                       */
   60:/*                                                                    */
   61:/*  The first word (5 bytes) of a tape block contains the word count  */
   62:/*  of the block.  The word count is a 16-bit twos-complement integer */
   63:/*  comprised of bits R2-R17.  All other words are treated as pairs   */
   64:/*  of 16-bit, twos-complement integers comprising bits F0-F15 and    */
   65:/*  R0-R15.                                                           */
   66:/*                                                                    */
   67:/*  Input data is assumed to be packed into 1 1/4 integers and output */
   68:/*  data will be returned in a pair of local integers per DEC-10      */
   69:/*  word.  The first integer of each pair corresponds to the left     */
   70:/*  DEC-10 halfword (zero for the word count) and the second to the   */
   71:/*  right halfword.  The sign of each half-word is preserved on       */
   72:/*  expansion to a local integer.                                     */
   73:/*                                                                    */
   74:/*  Inputs:                                                           */
   75:/*     nwords   I      Length of the input buffer in DEC-10 words     */
   76:/*     inbuf    I(*)   Input buffer containing DMF format data        */
   77:/*     flag     I      If > 0, the first word word is the beginning of*/
   78:/*                     a tape block                                   */
   79:/*  Output:                                                           */
   80:/*     outbuf   I(*)   Output buffer containing two local integers per*/
   81:/*                     input DEC-10 word                              */
   82:/*  Generic UNIX version - only for 32-bit twos-complement local      */
   83:/*  integers; have to live with this since the tape contains mixed    */
   84:/*  binary data).                                                     */
   85:/*--------------------------------------------------------------------*/
   86:{
   87:                                        /* # of bits per word         */
   88:   extern int Z_nbitwd;
   89:   int loop, n, *pout, n8 = 8;
   90:   unsigned char *pin;
   91:   char msgbuf[80];
   92:   union u_tag {
   93:      unsigned char bword[4];
   94:      int lword;
   95:   } what;
   96:/*--------------------------------------------------------------------*/
   97:                                        /* This version only good for */
   98:                                        /* 32-bit local integers.     */
   99:   if (Z_nbitwd != 32) {
  100:      sprintf (msgbuf,
  101:         "ZRDMF: THIS VERSION ONLY GOOD FOR 32-BIT LOCAL INTEGERS");
  102:      zmsgwr_ (msgbuf, &n8);
  103:      }
  104:   else {
  105:                                        /* Initialize loop counter    */
  106:                                        /* pointers.                  */
  107:      n = *nwords;
  108:      pin = inbuf;
  109:      pout = outbuf;
  110:                                        /* Special treatment for      */
  111:                                        /* first word in tape block   */
  112:      if (*flag > 0) {
  113:	                                /* First half                 */
  114:	 pin +=2;
  115:	 *pout++ = 0;
  116:	                                /* Second half                */
  117:	 what.bword[2] = *pin++ << 4;
  118:	 what.bword[2] |= *pin >> 4;
  119:	 what.bword[3] = *pin++ << 4;
  120:	 what.bword[3] |= *pin++;
  121:	                                /* Sign extension             */
  122:	 if (what.bword[2] & 0x80)
  123:	    what.bword[0] = what.bword[1] = 0xff;
  124:	 else
  125:	    what.bword[0] = what.bword[1] = 0x00;
  126:	 *pout++ = what.lword;
  127:	 n--;
  128:         }
  129:                                        /* Loop over values.          */
  130:      for (loop = 0; loop < n; loop++) {
  131:                                        /* First half.                */
  132:         what.bword[2] = *pin++;
  133:         what.bword[3] = *pin++;
  134:                                        /* Sign extension             */
  135:	 if (what.bword[2] & 0x80)
  136:	    what.bword[0] = what.bword[1] = 0xff;
  137:	 else
  138:	    what.bword[0] = what.bword[1] = 0x00;
  139:         *pout++ = what.lword;
  140:                                        /* Second half.               */
  141:         what.bword[2] = *pin++ << 2;
  142:	 what.bword[2] |= *pin >> 6;
  143:         what.bword[3] = *pin++ << 2;
  144:	 what.bword[3] |= *pin++ >> 2;
  145:         if (what.bword[2] & 0x80)
  146:	    what.bword[0] = what.bword[1] = 0xff;
  147:	 else
  148:	    what.bword[0] = what.bword[1] = 0x00;
  149:         *pout++ = what.lword;
  150:         }
  151:      }
  152:                                        /* Exit.                      */
  153:   return;
  154:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZRDMF.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZRDMF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:42 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRENA2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZRENA2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRENA2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
AIPSCC    : Date       Fri Jul 18 17:41:42 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:6:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:9: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:9: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c: In function `zrena2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:62: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:62: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:62: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c:67: error: `MAXPNAME' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_rena2__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <fcntl.h>
    5:#include <errno.h>
    6:#include <AIPSPROTO.H>
    8:#if __STDC__
    9:   void zrena2_(char oldnam[MAXPNAME], char newnam[MAXPNAME],
   10:      int *syserr, int *ierr)
   11:#else
   12:   void zrena2_(oldnam, newnam, syserr, ierr)
   13:   char oldnam[MAXPNAME], newnam[MAXPNAME];
   14:   int *syserr, *ierr;
   15:#endif
   16:/*--------------------------------------------------------------------*/
   17:/*! rename a file                                                     */
   18:/*# IO-basic                                                          */
   19:/*--------------------------------------------------------------------*/
   20:/*;  Copyright (C) 1995, 1997                                         */
   21:/*;  Associated Universities, Inc. Washington DC, USA.                */
   22:/*;                                                                   */
   23:/*;  This program is free software; you can redistribute it and/or    */
   24:/*;  modify it under the terms of the GNU General Public License as   */
   25:/*;  published by the Free Software Foundation; either version 2 of   */
   26:/*;  the License, or (at your option) any later version.              */
   27:/*;                                                                   */
   28:/*;  This program is distributed in the hope that it will be useful,  */
   29:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   30:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   31:/*;  GNU General Public License for more details.                     */
   32:/*;                                                                   */
   33:/*;  You should have received a copy of the GNU General Public        */
   34:/*;  License along with this program; if not, write to the Free       */
   35:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   36:/*;  MA 02139, USA.                                                   */
   37:/*;                                                                   */
   38:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   39:/*;         Internet email: aipsmail at nrao.edu.                        */
   40:/*;         Postal address: AIPS Project Office                       */
   41:/*;                         National Radio Astronomy Observatory      */
   42:/*;                         520 Edgemont Road                         */
   43:/*;                         Charlottesville, VA 22903-2475 USA        */
   44:/*--------------------------------------------------------------------*/
   45:/*  Renames a file.                                                   */
   46:/*  Inputs:                                                           */
   47:/*     oldnam   C*48   Old physical file name                         */
   48:/*     newnam   C*48   New physical file name                         */
   49:/*  Output:                                                           */
   50:/*     syserr   I      System error code                              */
   51:/*     ierr     I      Error return code: 0 => no error               */
   52:/*                        2 => old file not found                     */
   53:/*                        3 => device not found                       */
   54:/*                        4 => old file busy                          */
   55:/*                        6 => new name already exists                */
   56:/*                        7 => other                                  */
   57:/*  Generic UNIX version.                                             */
   58:/*--------------------------------------------------------------------*/
   59:{
   60:   register int i, j;
   61:   int llen, xlen, xlnb, jerr, lockfd = -99, excl = 1;
   62:   char oldpathname[MAXAPATH], newpathname[MAXAPATH];
   63:/*--------------------------------------------------------------------*/
   64:   *ierr = 0;
   65:   *syserr = 0;
   66:                                        /* Build full old path name.  */
   67:   llen = MAXPNAME;
   68:   xlen = MAXAPATH;
   69:   zpath_ (&llen, oldnam, &xlen, oldpathname, &xlnb, &jerr);
   70:   if (jerr != 0) {
   71:      *ierr = 3;
   72:      }
   73:   else {
   74:      oldpathname[xlnb] = '\0';
   75:      if ((lockfd = open (oldpathname, 2)) == -1) {
   76:                                        /* Old path name doesn't exist*/
   77:         if (errno == ENOENT)
   78:            *ierr = 2;
   79:                                        /* Some other open error.     */
   80:         else {
   81:           *syserr = errno;
   82:            *ierr = 7;
   83:            }
   84:         }
   85:                                        /* Apply non-blocking         */
   86:                                        /* exclusive lock to old      */
   87:                                        /* pathname.                  */
   88:      else {
   89:         zlock_ (&lockfd, oldnam, &excl, syserr, ierr);
   90:         if (*ierr != 0) {
   91:            if (*ierr != 4) *ierr = 7;
   92:            }
   93:                                        /* Build new full path name   */
   94:         else {
   95:            llen = MAXPNAME;
   96:            xlen = MAXAPATH;
   97:            zpath_ (&llen, newnam, &xlen, newpathname, &xlnb, &jerr);
   98:            if (jerr != 0) {
   99:               *ierr = 3;
  100:               }
  101:            else {
  102:               newpathname[xlnb] = '\0';
  103:                                        /* Test path name existence.  */
  104:               if (access (newpathname, 0) == 0) {
  105:                  *ierr = 6;
  106:                  }
  107:                                        /* Rename by forming link of  */
  108:                                        /* new to old path name, then */
  109:                                        /* unlink old path name.      */
  110:               else {
  111:                  if (link (oldpathname, newpathname) != 0) {
  112:                    *syserr = errno;
  113:                     *ierr = 7;
  114:                     }
  115:                  else if (unlink (oldpathname) != 0) {
  116:                    *syserr = errno;
  117:                     *ierr = 7;
  118:                     }
  119:                  }
  120:               }
  121:            }
  122:                                        /* Close and unlock file.     */
  123:         close (lockfd);
  124:         }
  125:      }
  127:   return;
  128:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZRENA2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZRENA2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:42 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRM2RL.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZRM2RL.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZRM2RL.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
AIPSCC    : Date       Fri Jul 18 17:41:43 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
/usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_rm2rl__
    2:#include <stdio.h>
    3:#include <stdlib.h>
    4:#include <AIPSPROTO.H>
    6:#if __STDC__
    7:   void zrm2rl_(int *nwords, float *inbuf, float *outbuf)
    8:#else
    9:   void zrm2rl_(nwords, inbuf, outbuf)
   10:   int *nwords;
   11:   float *inbuf, *outbuf;
   12:#endif
   13:/*--------------------------------------------------------------------*/
   14:/*! convert ModComp single precision floating to local                */
   15:/*# Binary                                                            */
   16:/*--------------------------------------------------------------------*/
   17:/*;  Copyright (C) 1995, 1997                                         */
   18:/*;  Associated Universities, Inc. Washington DC, USA.                */
   19:/*;                                                                   */
   20:/*;  This program is free software; you can redistribute it and/or    */
   21:/*;  modify it under the terms of the GNU General Public License as   */
   22:/*;  published by the Free Software Foundation; either version 2 of   */
   23:/*;  the License, or (at your option) any later version.              */
   24:/*;                                                                   */
   25:/*;  This program is distributed in the hope that it will be useful,  */
   26:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   27:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   28:/*;  GNU General Public License for more details.                     */
   29:/*;                                                                   */
   30:/*;  You should have received a copy of the GNU General Public        */
   31:/*;  License along with this program; if not, write to the Free       */
   32:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   33:/*;  MA 02139, USA.                                                   */
   34:/*;                                                                   */
   35:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   36:/*;         Internet email: aipsmail at nrao.edu.                        */
   37:/*;         Postal address: AIPS Project Office                       */
   38:/*;                         National Radio Astronomy Observatory      */
   39:/*;                         520 Edgemont Road                         */
   40:/*;                         Charlottesville, VA 22903-2475 USA        */
   41:/*--------------------------------------------------------------------*/
   42:/*  Convert Modcomp single precision floating point data into local   */
   43:/*  single precision floating point.                                  */
   44:/*  Inputs:                                                           */
   45:/*     nwords   I   Length of the input buffer in words               */
   46:/*     inbuf    R   Input buffer containing Modcomp R*4 data          */
   47:/*  Output:                                                           */
   48:/*     outbuf   R   Output buffer containing local REAL data          */
   49:/*                                                                    */
   50:/*  Notes:                                                            */
   51:/*                                                                    */
   52:/*     Before call, input buffer should have its bytes flipped via    */
   53:/*     ZI32IL which will leave the values in one 32-bit integer       */
   54:/*                                                                    */
   55:/*     Expects, after word flip, sign bit in bit 31 (1=>negative),    */
   56:/*     bits 22:30 are the  exponent biased by 256(?), bits 0:21 are   */
   57:/*     the normalized fraction.  Negative values are obtained by 2's  */
   58:/*     complement of the whole word.                                  */
   59:/*                                                                    */
   60:/*     Should work inplace.                                           */
   61:/*                                                                    */
   62:/*  Generic UNIX version (currently only handles IEEE and VAX F       */
   63:/*  floating-point formats).                                          */
   64:/*--------------------------------------------------------------------*/
   65:{
   66:                                        /* Host single precision      */
   67:                                        /* floating-point format      */
   68:   extern int Z_spfrmt, Z_bytflp;
   69:   float *pin, *pout;
   70:   int test, n10 = 10;
   71:   unsigned sign, exponent, mantissa, temp;
   72:   register int i;
   73:   short int sitemp;
   74:   char msgbuf[80];
   75:   union u_tag {
   76:      float r4;
   77:      unsigned u4;
   78:      short int u2[2];
   79:   } what;
   80:/*--------------------------------------------------------------------*/
   81:                                        /* routine works IEEE, VAX F  */
   82:   if (Z_spfrmt == 1 || Z_spfrmt == 2) {
   83:      pin = inbuf;
   84:      pout = outbuf;
   85:                                        /* Conversion loop.           */
   86:      for (i = 0; i < *nwords; i++) {
   87:                                        /* Get Modcomp value.         */
   88:         what.r4 = *pin++;
   89:                                        /* swap words if needed       */
   90:         if (Z_bytflp > 1) {
   91:            sitemp = what.u2[0];
   92:            what.u2[0] = what.u2[1];
   93:            what.u2[1] = sitemp;
   94:            }
   95:                                        /* Get as unsigned int.       */
   96:         temp = what.u4;
   97:                                        /* Mask out sign bit.         */
   98:         sign = 0x80000000 & temp;
   99:                                        /* If negative, 2's           */
  100:                                        /* complement the whole word. */
  101:         if (sign == 0x80000000) temp = (~temp) + 1;
  102:                                        /* Correct for exponent bias. */
  103:         switch (Z_spfrmt) {
  104:                                        /* IEEE (bias = -130?).       */
  105:            case 1:
  106:               test = ((0x7fc00000 & temp) >> 22) - 130;
  107:               break;
  108:                                        /* VAX F (bias = -128).       */
  109:            case 2:
  110:               test = ((0x7fc00000 & temp) >> 22) - 128;
  111:               break;
  112:            }
  114:         exponent = test << 23;
  115:         mantissa = (0x001fffff & temp) << 2;
  116:         what.u4 = sign | exponent | mantissa;
  117:                                        /* Overflow.                  */
  118:         if (test > 255)
  119:            what.u4 = ~0x0;
  120:                                        /* Underflow.                 */
  121:         else if (test < 1)
  122:            what.u4 = 0;
  123:                                        /* Store result.              */
  124:         *pout++ = what.r4;
  125:         }
  126:      }
  127:                                        /* This routine won't work.   */
  128:   else {
  129:      sprintf (msgbuf,
  130:         "ZRM2RL: THIS ROUTINE REQUIRES LOCAL DEVELOPMENT");
  131:      zmsgwr_ (msgbuf, &n10);
  132:      abort ();
  133:      }
  135:   return;
  136:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZRM2RL.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZRM2RL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:43 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSL2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSSSL2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSL2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
AIPSCC    : Date       Fri Jul 18 17:41:43 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c:16:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_sssl2__
    2:#include <unistd.h>
    3:#include <stdlib.h>
    4:#include <stdio.h>
    5:#include <string.h>
    7:#include <errno.h>
    8:#include <sys/types.h>
    9:#include <sys/socket.h>
   10:#include <sys/un.h>
   11:#include <netinet/in.h>
   12:#include <netdb.h>
   13:#include <sys/stat.h>
   14:#include <string.h>
   15:#include <ctype.h>
   16:#include <AIPSPROTO.H>
   18:int TVLremember=0;
   19:struct sockaddr_un TVL_sock_un;
   20:struct sockaddr_in TVL_sock_in;
   22:#if __STDC__
   23:   void zsssl2_ (int *fcb, char pname[48], int *lock, int *ierr)
   24:#else
   25:   void zsssl2_ (fcb, pname, lock, ierr)
   26:   int *fcb, *lock, *ierr;
   27:   char pname[48];
   28:#endif
   29:/*--------------------------------------------------------------------*/
   30:/*! Lock/unlock SUN-Screen-Server device                              */
   31:/*# TV-IO                                                             */
   32:/*--------------------------------------------------------------------*/
   33:/*;  Copyright (C) 1997, 1999                                         */
   34:/*;  Associated Universities, Inc. Washington DC, USA.                */
   35:/*;  Eric W. Greisen                                                  */
   36:/*;                                                                   */
   37:/*;  This program is free software; you can redistribute it and/or    */
   38:/*;  modify it under the terms of the GNU General Public License as   */
   39:/*;  published by the Free Software Foundation; either version 2 of   */
   40:/*;  the License, or (at your option) any later version.              */
   41:/*;                                                                   */
   42:/*;  This program is distributed in the hope that it will be useful,  */
   43:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   44:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   45:/*;  GNU General Public License for more details.                     */
   46:/*;                                                                   */
   47:/*;  You should have received a copy of the GNU General Public        */
   48:/*;  License along with this program; if not, write to the Free       */
   49:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   50:/*;  MA 02139, USA.                                                   */
   51:/*;                                                                   */
   52:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   53:/*;         Internet email: aipsmail at nrao.edu.                        */
   54:/*;         Postal address: AIPS Project Office                       */
   55:/*;                         National Radio Astronomy Observatory      */
   56:/*;                         520 Edgemont Road                         */
   57:/*;                         Charlottesville, VA 22903-2475 USA        */
   58:/*--------------------------------------------------------------------*/
   59:/*  Assign an i/o channel for TVlock device, send lock/unlock command */
   60:/*  and then deassign the channel.  Uses BSD sockets                  */
   61:/*  Inputs:                                                           */
   62:/*     pname  C*48  'logical' name of TV device. Contains a pathname  */
   63:/*                  for Unix domain sockets or a name of the form     */
   64:/*                  sssin:machine_name for Internet domain sockets.   */
   65:/*                  Must begin with the string "TVDEV".               */
   66:/*  Outputs:                                                          */
   67:/*     fcb    I(*)  File descriptor (part of FTAB).                   */
   68:/*     ierr   I     Error code: 0 => success                          */
   69:/*                     1 => failure                                   */
   70:/*                     2 => invalid device name                       */
   71:/*                     3 => I/O error                                 */
   72:/*                     4 => Locked by someone else                    */
   73:/*  SUN - Berkeley 4.2 UNIX version.                                  */
   74:/*--------------------------------------------------------------------*/
   75:{
   76:                                        /* Offsets to entries in the  */
   77:                                        /* file control blocks        */
   78:   extern int Z_fcbfd, Z_fcberr;
   80:   char *device, shvar[10], data[3];
   81:   int i, optlen, mbytes, lbytes, s, isspec;
   82:   char *machine_in;
   83:   struct servent *sp;
   84:   struct hostent *hp;
   85:/*--------------------------------------------------------------------*/
   86:   *ierr = 0;
   87:   errno = 0;
   88:                                        /* Extract logical device name*/
   89:   for (i=0; i < 10 && pname[i] != ':' && pname[i] != '\0'; i++)
   90:      shvar[i] = pname[i];
   91:   shvar[i] = '\0';
   92:                                        /* Value for TVDEVn/TVLCKn    */
   93:   if (TVLremember == 0) {
   94:      if (strncmp(shvar,"TVDEV",5) == 0) {
   95:                                        /* definition                 */
   96:         if ((device = getenv(shvar)) == NULL) {
   97:            fprintf(stderr, "ZSSSL2: NO SUCH DEVICE = %s\n",shvar);
   98:            *ierr = 2;
   99:            }
  100:         }
  101:      else {
  102:         fprintf(stderr, "ZSSSL2: NO SUCH DEVICE = %s\n",shvar);
  103:         *ierr = 2;
  104:         }
  105:      }
  106:   if (*ierr == 0) {
  107:      if (TVLremember == 0) {
  108:         isspec = 2;
  109:         if (strncmp(device,"sssin",5) == 0) isspec = 1;
  110:                                        /* open socket, INET domain   */
  111:         if (isspec == 1) {
  112:           if ((machine_in = strchr (device,':')) == NULL) {
  113:              fprintf(stderr,
  114:                "ZSSSL2: NO REMOTE MACHINE SPECIFIED IN %s\n",shvar);
  115:               *ierr = 2;
  116:               goto exit;
  117:               }
  118:            else {
  119:               machine_in++;
  120:                                        /* malformed names go here    */
  121:               if (!isalnum(*machine_in)) {
  122:                  fprintf(stderr, "ZSSSL2: MALFORMED NAME = %s\n",
  123:                     machine_in);
  124:                  *ierr = 2;
  125:                  }
  126:               else if ((hp = gethostbyname(machine_in)) == NULL) {
  127:                  fprintf(stderr,"ZSSSL2: %s: UNKNOWN HOST\n",
  128:                     machine_in);
  129:                  *ierr = 2;
  130:                  }
  131:               else if ((sp = getservbyname("ssslock","tcp")) == NULL) {
  132:                  fprintf(stderr,"ZSSSL2: tcp/ssslock NOT A SERVICE\n");
  133:                  *ierr = 2;
  134:                  }
  135:               else {
  136:                  memset ((char *)&TVL_sock_in, 0, sizeof(TVL_sock_in));
  137:                  memcpy ((char *)&TVL_sock_in.sin_addr,
  138:                     (char *)hp->h_addr, hp->h_length);
  139:                  TVL_sock_in.sin_family = hp->h_addrtype;
  140:                  TVL_sock_in.sin_port = sp->s_port;
  141:                  }
  142:               }
  143:            }
  144:                                        /* UNIX domain   */
  145:         else {
  146:            if ((device = getenv(getenv("TVLOK"))) == NULL) {
  147:                                        /* undefined                  */
  148:               fprintf(stderr, "ZSSSL2: NO SUCH DEVICE = TVLOK\n");
  149:               *ierr = 2;
  150:               }
  151:            TVL_sock_un.sun_family = AF_UNIX;
  152:            strcpy(TVL_sock_un.sun_path, device);
  153:            }
  154:         TVLremember = isspec;
  155:         }
  156:      }
  157:                                        /* open socket                */
  158:   if (*ierr == 0) {
  159:                                        /* INET domain                */
  160:      if (TVLremember == 1) {
  161:         if ((s = (int)socket(TVL_sock_in.sin_family, SOCK_STREAM, 0))
  162:            < 0) {
  163:            perror("ZSSSL2 socket (INET)");
  164:            *ierr = 1;
  165:             }
  166:         else if (connect(s, (struct sockaddr *) &TVL_sock_in,
  167:            sizeof(TVL_sock_in)) < 0){
  168:            perror("ZSSSL2 connect (INET)");
  169:            *ierr = 1;
  170:            *(fcb + Z_fcberr) = errno;
  171:            close (s);
  172:            *(fcb + Z_fcbfd) = 0;
  173:            }
  174:         else {
  175:            *(fcb + Z_fcbfd) = s;
  176:            *(fcb + Z_fcberr) = 0;
  177:            }
  178:         }
  179:                                        /* UNIX domain                */
  180:      else {
  181:         if ((s = (int)socket(AF_UNIX, SOCK_STREAM, 0)) < 0) {
  182:            perror("ZSSSL2 socket (UNIX)");
  183:            *ierr = 1;
  184:            }
  185:         else if (connect((s), (struct sockaddr *) &TVL_sock_un,
  186:            (sizeof(TVL_sock_un.sun_path)
  187:            +sizeof(TVL_sock_un.sun_family))) < 0) {
  188:            perror("ZSSSL2 connect (UNIX)");
  189:            *ierr = 1;
  190:            *(fcb + Z_fcberr) = errno;
  191:            close(s);
  192:            *(fcb + Z_fcbfd) = 0;
  193:            }
  194:         else {
  195:            *(fcb + Z_fcbfd) = s;
  196:            *(fcb + Z_fcberr) = 0;
  197:            }
  198:         }
  199:      }
  200:                                        /* send data                  */
  201:   if (*ierr == 0) {
  202:      data[0] = '1';
  203:      if (*lock > 0)
  204:         data[1] = 'L';
  205:      else
  206:         data[1] = 'U';
  207:      data[2] = '\0';
  209:      lbytes = 2;
  210:      if ((mbytes = write (s, data, lbytes)) != lbytes) {
  211:         perror("ZSSSL2 write data");
  212:         *ierr = 3;
  213:         *(fcb + Z_fcberr) = errno;
  214:         }
  215:                                        /* answer                     */
  216:      else if ((mbytes = read (s, data, lbytes)) != lbytes) {
  217:         perror("ZSSSL2 read answer");
  218:         *ierr = 3;
  219:         *(fcb + Z_fcberr) = errno;
  220:         }
  221:      if ((*lock > 0) && (data[0] == 'N')) *ierr = 4;
  222:      if (close(s) != 0) {
  223:         perror("ZSSSL2 close socket");
  224:         *ierr = 3;
  225:         *(fcb + Z_fcberr) = errno;
  226:         }
  227:      }
  228:                                        /* system error in FTAB      */
  229:exit:
  230:   if (*ierr != 0) TVLremember = 0;
  232:   return;
  233:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZSSSL2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZSSSL2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:44 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSO2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZSSSO2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZSSSO2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
AIPSCC    : Date       Fri Jul 18 17:41:44 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c:16:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ssso2__
    2:#include <unistd.h>
    3:#include <stdlib.h>
    4:#include <stdio.h>
    5:#include <string.h>
    7:#include <errno.h>
    8:#include <sys/types.h>
    9:#include <sys/socket.h>
   10:#include <sys/un.h>
   11:#include <netinet/in.h>
   12:#include <netdb.h>
   13:#include <sys/stat.h>
   14:#include <string.h>
   15:#include <ctype.h>
   16:#include <AIPSPROTO.H>
   18:   int Z_sndbufs, Z_rcvbufs, Z_sndinis, Z_rcvinis;
   20:int SSSremember=0;
   21:struct sockaddr_un SSS_sock_un;
   22:struct sockaddr_in SSS_sock_in;
   24:int buffered;
   25:#define PACKSIZE (4096/sizeof(short int)+6)
   26:   short int packet_int[PACKSIZE];
   27:   int pack_offset;
   28:#define TRUE 1
   30:#define NUMOP 83       /* Largest opcode                              */
   31:int bufferop[NUMOP+1]; /* bufferop[OPCODE] >0 --> no status return    */
   32:                       /* if buffered                                 */
   33:#define OPEN    11     /* Opens the XAS connection                    */
   34:#define CLOSE   12     /* Close the XAS, allows new connections       */
   35:#define INTGT   13     /* Interrogate: get XAS major parameters       */
   36:#define WINDO   14     /* Read, write the X window size               */
   37:#define INIT    15     /* init the TV                                 */
   38:#define VIEW    16     /* Do/hold screen updates                      */
   39:#define PSAVE   17     /* save DTVC.INC parameters                    */
   40:#define XDIE    18     /* close down XAS and lock servers             */
   41:#define IMWRT   21     /* Write image line to some channel            */
   42:#define IMRD    22     /* Read image line from some channel           */
   43:#define FILL    23     /* fill area in some or all channels           */
   44:#define CLEAR   24     /* Clear some or all channels                  */
   45:#define VECT    25     /* connect two points with line                */
   46:#define CHARS   26     /* write character string                      */
   47:#define CATIN   31     /* Init image catalog                          */
   48:#define CATRD   32     /* Read image catalog                          */
   49:#define CATWR   33     /* Write image catalog                         */
   50:#define CATOV   34     /* Use image catalog - covered?                */
   51:#define CATFI   35     /* Find from image catalog                     */
   52:#define WLUT    41     /* Write LUT to a channel.                     */
   53:#define RLUT    42     /* Read LUT to a channel.                      */
   54:#define WOFM    43     /* Write OFM.                                  */
   55:#define ROFM    44     /* Read OFM.                                   */
   56:#define GRAPH   45     /* On/off graphics channel(s)                  */
   57:#define SPLOT   46     /* On/off image channels(s) - obsolete         */
   58:#define SPLIT   47     /* On/off image channels(s)                    */
   59:#define WGRFX   51     /* Write graphics/cursor colours               */
   60:#define RGRFX   52     /* Read  graphics/cursor colours               */
   61:#define RCURS   61     /* Read the cursor position.                   */
   62:#define RBUTT   62     /* Read the status of the buttons              */
   63:#define WCURS   63     /* Write the cursor position.                  */
   64:#define RCURB   64     /* Read the cursor position and buttons        */
   65:#define WZSCR   83     /* Write zoom/scroll to XAS using ULC          */
   67:#if __STDC__
   68:   void zssso2_ (int *fcb, char pname[48], int *ierr)
   69:#else
   70:   void zssso2_ (fcb, pname, ierr)
   71:   int *fcb, *ierr;
   72:   char pname[48];
   73:#endif
   74:/*--------------------------------------------------------------------*/
   75:/*! Open SUN-Screen-Server device, set-up any buffer                  */
   76:/*# TV-IO                                                             */
   77:/*--------------------------------------------------------------------*/
   78:/*;  Copyright (C) 1995-1999                                          */
   79:/*;  Associated Universities, Inc. Washington DC, USA.                */
   80:/*;                                                                   */
   81:/*;  This program is free software; you can redistribute it and/or    */
   82:/*;  modify it under the terms of the GNU General Public License as   */
   83:/*;  published by the Free Software Foundation; either version 2 of   */
   84:/*;  the License, or (at your option) any later version.              */
   85:/*;                                                                   */
   86:/*;  This program is distributed in the hope that it will be useful,  */
   87:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   88:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   89:/*;  GNU General Public License for more details.                     */
   90:/*;                                                                   */
   91:/*;  You should have received a copy of the GNU General Public        */
   92:/*;  License along with this program; if not, write to the Free       */
   93:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   94:/*;  MA 02139, USA.                                                   */
   95:/*;                                                                   */
   96:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   97:/*;         Internet email: aipsmail at nrao.edu.                        */
   98:/*;         Postal address: AIPS Project Office                       */
   99:/*;                         National Radio Astronomy Observatory      */
  100:/*;                         520 Edgemont Road                         */
  101:/*;                         Charlottesville, VA 22903-2475 USA        */
  102:/*--------------------------------------------------------------------*/
  103:/*  Assign an i/o channel (i.e., open) for SSS TV device.  Uses BSD   */
  104:/*  internet or UNIX sockets                                          */
  105:/*  Inputs:                                                           */
  106:/*     pname  C*48  'logical' name of TV device. Contains a pathname  */
  107:/*                  for Unix domain sockets or a name of the form     */
  108:/*                  sssin:machine_name for Internet domain sockets.   */
  109:/*                  Must begin with the string "TVDEV".               */
  110:/*  Outputs:                                                          */
  111:/*     fcb    I(*)  File descriptor (part of FTAB).                   */
  112:/*     ierr   I     Error code: 0 => success                          */
  113:/*                     1 => failure                                   */
  114:/*                     2 => invalid device name                       */
  115:/*  SUN - Berkeley 4.2 UNIX version.                                  */
  116:/*--------------------------------------------------------------------*/
  117:{
  118:                                        /* Offsets to entries in the  */
  119:                                        /* file control blocks        */
  120:   extern int Z_fcbfd, Z_fcberr;
  122:   char *device, shvar[10];
  123:   int i, optlen, s, isspec;
  124:   char *machine_in;
  125:   struct servent *sp;
  126:   struct hostent *hp;
  127:/*--------------------------------------------------------------------*/
  128:   *ierr = 0;
  129:   errno = 0;
  130:   buffered = 0;
  131:   pack_offset = 0;
  132:                                        /* Extract logical device name*/
  133:   for (i=0; i < 10 && pname[i] != ':' && pname[i] != '\0'; i++)
  134:      shvar[i] = pname[i];
  135:   shvar[i] = '\0';
  136:                                        /* Get value for TVDEVn       */
  137:   if (SSSremember == 0) {
  138:      if (strncmp(shvar,"TVDEV",5) == 0) {
  139:         if ((device = getenv(shvar)) == NULL) {
  140:                                        /* undefined                  */
  141:            fprintf(stderr, "ZSSSO2: NO SUCH DEVICE = %s\n",shvar);
  142:            *ierr = 2;
  143:            }
  144:         }
  145:      else {
  146:         fprintf(stderr, "ZSSSO2: NO SUCH DEVICE = %s\n",shvar);
  147:         *ierr = 2;
  148:         }
  149:      }
  150:   if (*ierr == 0) {
  151:      if (SSSremember == 0) {
  152:         isspec = 2;
  153:         if (strncmp(device,"sssin",5) == 0) isspec = 1;
  154:                                        /* open socket, INET domain   */
  155:                                        /* open socket, INET domain   */
  156:         if (strncmp(device,"sssinb",6) == 0) buffered = 1;
  157:         if (isspec == 1) {
  158:            if (( machine_in = strchr (device,':')) == NULL) {
  159:               fprintf(stderr,
  160:                  "ZSSSO2: NO REMOTE MACHINE SPECIFIED IN %s\n", shvar);
  161:               *ierr = 2;
  162:               }
  163:            else {
  164:               machine_in++;
  165:                                        /* malformed names go here    */
  166:               if (!isalnum(*machine_in)) {
  167:                  fprintf(stderr, "ZSSSO2: MALFORMED NAME = %s\n",
  168:                     machine_in);
  169:                  *ierr = 2;
  170:                  }
  171:               else if ((sp = getservbyname("sssin","tcp")) == NULL) {
  172:                  fprintf(stderr,"ZSSSO2: tcp/sssin NOT A SERVICE\n");
  173:                  *ierr = 2;
  174:                  }
  175:               else if (( hp = gethostbyname(machine_in)) == NULL) {
  176:                  fprintf(stderr,"ZSSSO2: %s: UNKNOWN HOST\n",
  177:                     machine_in);
  178:                  *ierr = 2;
  179:                  }
  180:               else {
  181:                  memset ((char *)&SSS_sock_in, 0, sizeof(SSS_sock_in));
  182:                  memcpy ((char *)&SSS_sock_in.sin_addr,
  183:                     (char *)hp->h_addr, hp->h_length);
  184:                  SSS_sock_in.sin_family = hp->h_addrtype;
  185:                  SSS_sock_in.sin_port = sp->s_port;
  186:                  }
  187:               }
  188:            }
  189:                                        /* UNIX domain   */
  190:         else {
  191:            SSS_sock_un.sun_family = AF_UNIX;
  192:            strcpy(SSS_sock_un.sun_path, device);
  193:            }
  194:         SSSremember = isspec;
  195:         }
  196:      }
  197:                                        /* open socket                */
  198:   if (*ierr == 0) {
  199:                                        /* INET domain                */
  200:      if (SSSremember == 1) {
  201:         if ((s = (int)socket(AF_INET, SOCK_STREAM, 0)) < 0) {
  202:            perror("ZSSSO2 socket (INET)");
  203:            *ierr = 1;
  204:            }
  205:         else if (connect(s, (struct sockaddr *) &SSS_sock_in,
  206:            sizeof(SSS_sock_in)) < 0){
  207:            perror("ZSSSO2 connect (INET)");
  208:            *ierr = 1;
  209:            *(fcb + Z_fcberr) = errno;
  210:            close (s);
  211:            *(fcb + Z_fcbfd) = 0;
  212:            }
  213:         else {
  214:            *(fcb + Z_fcbfd) = s;
  215:            *(fcb + Z_fcberr) = 0;
  216:            }
  217:         }
  218:                                        /* UNIX domain                */
  219:      else {
  220:         if ((s = (int)socket(AF_UNIX, SOCK_STREAM, 0)) < 0) {
  221:            perror("ZSSSO2 socket (UNIX)");
  222:            *ierr = 1;
  223:            }
  224:         else if (connect(s, (struct sockaddr *) &SSS_sock_un,
  225:            (sizeof(SSS_sock_un.sun_path)
  226:            +sizeof(SSS_sock_un.sun_family))) < 0) {
  227:            perror("ZSSSO2 connect (UNIX)");
  228:            *ierr = 1;
  229:            *(fcb + Z_fcberr) = errno;
  230:            close(s);
  231:            *(fcb + Z_fcbfd) = 0;
  232:            }
  233:         else {
  234:            *(fcb + Z_fcbfd) = s;
  235:            *(fcb + Z_fcberr) = 0;
  236:            }
  237:         }
  238:      }
  239:                                        /* send data                  */
  240:   if (*ierr == 0) {
  241:      optlen = sizeof (Z_sndbufs);
  242:      if (getsockopt (*fcb, SOL_SOCKET, SO_SNDBUF, (char *) &Z_sndbufs,
  243:         &optlen) < 0) {
  244:         perror("ZSSSO2 SO_SNDBUF get");
  245:         Z_sndbufs = 4096;
  246:         }
  247:      optlen = sizeof (Z_rcvbufs);
  248:      if (getsockopt (*fcb, SOL_SOCKET, SO_RCVBUF, (char *) &Z_rcvbufs,
  249:         &optlen) < 0) {
  250:         perror("ZSSSO2 SO_RCVBUF get");
  251:         Z_rcvbufs = 4096;
  252:         }
  253:      Z_sndinis = Z_sndbufs;
  254:      Z_rcvinis = Z_rcvbufs;
  255:   }
  256:                                        /* system error in FTAB      */
  257:exit:
  258:   if (*ierr != 0) SSSremember = 0;
  259:   if (!buffered) {
  260:      for (i=0; i<(NUMOP+1); i++) bufferop[i]=0;
  261:      }
  262:   else {
  263:      for (i=0; i<(NUMOP+1); i++) bufferop[i]=0;
  264:      bufferop[INIT]=TRUE;
  265:      bufferop[FILL]=TRUE;
  266:      bufferop[CLEAR]=TRUE;
  267:      bufferop[VECT]=TRUE;
  268:      bufferop[PSAVE]=TRUE;
  269:      bufferop[CHARS]=TRUE;
  270:      bufferop[VIEW]=TRUE;
  271:      bufferop[IMWRT]=TRUE;
  272:      bufferop[WLUT]=TRUE;
  273:      bufferop[WOFM]=TRUE;
  274:      bufferop[WCURS]=TRUE;
  275:      bufferop[GRAPH]=TRUE;
  276:      bufferop[SPLOT]=TRUE;
  277:      bufferop[SPLIT]=TRUE;
  278:      bufferop[WGRFX]=TRUE;
  279:      bufferop[WZSCR]=TRUE;
  280:      bufferop[CATIN]=TRUE;
  281:      bufferop[CATWR]=TRUE;
  282:      }
  284:   return;
  285:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZSSSO2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZSSSO2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:45 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZTAP2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTAP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/BELL/LINUX/ZTAP2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
AIPSCC    : Date       Fri Jul 18 17:41:45 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c:19:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tap2__
    2:                                        /* Must not claim POSIX_SOURCE*/
    3:                                        /* types.h would not define   */
    4:                                        /* things needed in mtio.h    */
    5:#ifdef _POSIX_SOURCE
    6:#undef _POSIX_SOURCE
    7:#endif
    9:#define MT_Debug 0                      /* debug message control      */
   12:#include <unistd.h>
   13:#include <sys/types.h>
   14:#include <string.h>
   15:#include <stdio.h>
   16:#include <sys/ioctl.h>
   17:#include <sys/mtio.h>
   18:#include <errno.h>
   19:#include <AIPSPROTO.H>
   21:#if __STDC__
   22:   void ztap2_(char opr[4], int *count, int *fcb, int *ierr)
   23:#else
   24:   ztap2_(opr, count, fcb, ierr)
   25:   int *count, *fcb, *ierr;
   26:   char opr[4];
   27:#endif
   28:/*--------------------------------------------------------------------*/
   29:/*! tape movements as called by ZTAPE                                 */
   30:/*# Tape                                                              */
   31:/*--------------------------------------------------------------------*/
   32:/*;  Copyright (C) 1995, 1996                                         */
   33:/*;  Associated Universities, Inc. Washington DC, USA.                */
   34:/*;                                                                   */
   35:/*;  This program is free software; you can redistribute it and/or    */
   36:/*;  modify it under the terms of the GNU General Public License as   */
   37:/*;  published by the Free Software Foundation; either version 2 of   */
   38:/*;  the License, or (at your option) any later version.              */
   39:/*;                                                                   */
   40:/*;  This program is distributed in the hope that it will be useful,  */
   41:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   42:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   43:/*;  GNU General Public License for more details.                     */
   44:/*;                                                                   */
   45:/*;  You should have received a copy of the GNU General Public        */
   46:/*;  License along with this program; if not, write to the Free       */
   47:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   48:/*;  MA 02139, USA.                                                   */
   49:/*;                                                                   */
   50:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   51:/*;         Internet email: aipsmail at nrao.edu.                        */
   52:/*;         Postal address: AIPS Project Office                       */
   53:/*;                         National Radio Astronomy Observatory      */
   54:/*;                         520 Edgemont Road                         */
   55:/*;                         Charlottesville, VA 22903-2475 USA        */
   56:/*--------------------------------------------------------------------*/
   57:/*--------------------------------------------------------------------*/
   58:/*  Performs standard tape manipulating functions.                    */
   59:/*                                                                    */
   60:/* Inputs:                                                            */
   61:/*    opr    C*4   Operation to be performed:                         */
   62:/*                 'REWI' = rewind tape                               */
   63:/*                 'ADVF' = advance file                              */
   64:/*                 'BAKF' = backspace file                            */
   65:/*                 'ADVR' = advance record                            */
   66:/*                 'BAKR' = backspace record                          */
   67:/*                 'WEOF' = write end of file                         */
   68:/*                 'BEGW' = mark to begin write                       */
   69:/*                 'AEOI' = advance to end-of-medium                  */
   70:/*  In/out:                                                           */
   71:/*    count  I     Number of times to do operation                    */
   72:/*    fcb    I(*)  File descriptor from FTAB file control block       */
   73:/*  Output:                                                           */
   74:/*    ierr   I     Error code: 0 = success                            */
   75:/*                    2 = input specification error                   */
   76:/*                    3 = i/o error                                   */
   77:/*                    4 = tape mark encountered                       */
   78:/*                    5 = tape at load point                          */
   79:/*                    6 = tape at physical end                        */
   80:/*  Linux version                                                     */
   81:/*                                                                    */
   82:/* JAU 17 May 96: Jeff Uphoff, NRAO.  Fixed (some) for newer kernels. */
   83:/*--------------------------------------------------------------------*/
   84:{
   85:   extern int Z_fcbfd;
   86:   struct mtop top;
   87:   struct mtget stat;
   88:   char   op[5], record[32768];
   89:   long   filenumb;
   90:   int    i, jc, nr, status, wasatbot ;
   91:/*--------------------------------------------------------------------*/
   92:   errno = 0;
   93:   for(i = 0; i < 4; i++)
   94:      op[i] = opr[i];
   95:   op[4] = '\0';
   96:   *ierr = 0;
   97:                                        /* fake fd<0 ==> use Wes'     */
   98:                                        /* on-line device.  No tape   */
   99:                                        /* motions.                   */
  100:   if (*(fcb + Z_fcbfd) < 0) return;
  102:   top.mt_count = *count;
  104:   top.mt_op = MTNOP;
  105:   if ((status = ioctl(*fcb,MTIOCTOP,&top)) != 0) {
  106:      *ierr = 3;
  107:      printf("ZTAP2: error performing null op on tape drive\n");
  108:      perror("ZTAP2");
  109:      }
  110:   else if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  111:      *ierr = 3;
  112:      printf("ZTAP2: error getting drive status\n");
  113:      perror("ZTAP2");
  114:      }
  115:   else {
  116:#if MT_Debug                              /* NOTE - debug            */
  117:      printf("ZTAP2 at NOP-0: op = %s top.mt_op = %d ierr = %d\n",
  118:         op,top.mt_op,*ierr);
  119:      printf("ZTAP2: Status of I/O was %d errno %d\n", status, errno);
  120:      printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  121:         stat.mt_gstat,stat.mt_erreg);
  122:      printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  123:         stat.mt_type,stat.mt_resid);
  124:      printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  125:      printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  126:         stat.mt_fileno,stat.mt_blkno);
  127:#endif
  129:      if (strcmp(op,"REWI") == 0)
  130:         top.mt_op = MTREW;
  131:      else if (strcmp(op,"ADVF") == 0)
  132:         top.mt_op = MTFSF;
  133:                                        /* leaves out cartridge tap*/
  134:                                        /* ok 1/2inch, DAT, Exabyte*/
  135:      else if (strcmp(op,"BAKF") == 0)
  136:         top.mt_op = MTBSF;
  137:                                        /* Only way to detect tape */
  138:                                        /* marks.                  */
  139:      else if (strcmp(op,"ADVR") == 0) {
  140:         top.mt_count = 1;
  141:         for (i=0; i < *count; i++) {
  142:            nr = read (*fcb, record, 32768);
  143:            if (nr == 0) {
  144:               *ierr = 4;
  145:               if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  146:                  printf("ZTAP2: error getting drive status\n");
  147:                  perror("ZTAP2");
  148:                  }
  149:               else {
  150:#if MT_Debug                              /* NOTE - debug            */
  151:                  printf("ZTAP2: nbytes of I/O was %x (hex)\n", nr);
  152:                  printf("ZTAP2 at ADVR: op = %s top.mt_op = %d ierr = %d\n",
  153:                     op,top.mt_op,*ierr);
  154:                  printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  155:                     stat.mt_gstat,stat.mt_erreg);
  156:                  printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  157:                     stat.mt_type,stat.mt_resid);
  158:                  printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  159:                  printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  160:                     stat.mt_fileno,stat.mt_blkno);
  161:#endif
  162:                  }
  163:               if (GMT_BOT(stat.mt_gstat))      *ierr = 5;
  164:               else if (GMT_EOF(stat.mt_gstat)) *ierr = 4;
  165:               else if (GMT_EOT(stat.mt_gstat)) *ierr = 6;
  166:               else if (GMT_EOD(stat.mt_gstat)) *ierr = 6;
  167:               i = *count;
  168:               }
  169:            }
  170:         top.mt_op = MTNOP;
  171:         }
  172:                                        /* Only way to detect tape */
  173:                                        /* marks.  UGLYYY          */
  174:      else if (strcmp(op,"BAKR") == 0) {
  175:         top.mt_count = 1;
  176:         for (i=0; i < *count; i++) {
  177:            top.mt_op = MTBSR;
  178:            if (ioctl(*fcb,MTIOCTOP,&top) != 0)
  179:               *ierr = 3;
  180:            else if ((nr = read(*fcb,record,32768)) == 0)
  181:               *ierr = 4;
  182:            else if (ioctl(*fcb,MTIOCTOP,&top) != 0)
  183:               *ierr = 3;
  184:            if (*ierr != 0) i = *count;
  185:            }
  186:         top.mt_op = MTNOP;
  187:         }
  188:                                        /* WEOF and BEGW             */
  189:      else if ((strcmp(op,"WEOF") == 0) || (strcmp(op,"BEGW") == 0)) {
  190:         wasatbot = 0;
  191:         if (strcmp(op,"BEGW") == 0) {
  192:            top.mt_op = MTBSF;
  193:            top.mt_count = 1;
  194:            status = ioctl(*fcb,MTIOCTOP,&top);
  195:            if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  196:               *ierr = 3;
  197:               printf("ZTAP2: error getting drive status\n");
  198:               perror("ZTAP2");
  199:               }
  200:            else {
  201:#if MT_Debug                              /* NOTE - debug            */
  202:               printf("ZTAP2 at BEGW: op=%s top.mt_op=%d ierr = %d\n",
  203:                  "BSF1",top.mt_op,*ierr);
  204:               printf("ZTAP2: Status of I/O was %d errno %d\n",
  205:                  status, errno);
  206:               printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  207:                  stat.mt_gstat,stat.mt_erreg);
  208:               printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  209:                  stat.mt_type,stat.mt_resid);
  210:               printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  211:               printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  212:                  stat.mt_fileno,stat.mt_blkno);
  213:#endif
  214:               if (status == -1)                *ierr = 5;
  215:               if (GMT_BOT(stat.mt_gstat))      *ierr = 5;
  216:               else if (GMT_EOF(stat.mt_gstat)) *ierr = 4;
  217:               else if (GMT_EOT(stat.mt_gstat)) *ierr = 6;
  218:               else if (GMT_EOD(stat.mt_gstat)) *ierr = 6;
  219:               }
  220:            }
  221:         if (*ierr == 5) {
  222:            wasatbot = 1;
  223:            *ierr = 0;
  224:            }
  225:         if (*ierr == 0) {
  226:            top.mt_op = MTWEOF;
  227:            top.mt_count = 1;
  228:                                             /* 2 EOFs 1/2 inch */
  229:            status = ioctl(*fcb,MTIOCTOP,&top);
  230:            if (status != 0) {
  231:               *ierr = 3;
  232:               printf("ZTAP2: Status of I/O was %d errno %d\n", status, errno);
  233:               }
  234:            else {
  235:               if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  236:                  *ierr = 3;
  237:                  printf("ZTAP2: error getting drive status\n");
  238:                  perror("ZTAP2");
  239:                  }
  240:               else {
  241:/*                                           NOTE - debug */
  242:#if MT_Debug
  243:                  printf("ZTAP2 at WEOF: op = %s top.mt_op = %d ierr = %d\n",
  244:                     op,top.mt_op,*ierr);
  245:                  printf("ZTAP2: Status of I/O was %d errno %d\n",
  246:                     status, errno);
  247:                  printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  248:                     stat.mt_gstat,stat.mt_erreg);
  249:                  printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  250:                     stat.mt_type,stat.mt_resid);
  251:                  printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  252:                  printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  253:                     stat.mt_fileno,stat.mt_blkno);
  254:#endif
  255:/*                  top.mt_count -= 1;                    kludge */
  256:/*                  if (wasatbot) top.mt_count++;         kludge */
  257:                  if (top.mt_count) {
  258:                     top.mt_op = MTBSF;
  259:/*                                    insert for kludge */
  260:                     if (!wasatbot) top.mt_op = MTNOP;
  261:                     status = ioctl (*fcb, MTIOCTOP, &top);
  262:                     if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  263:                        *ierr = 3;
  264:                        printf("ZTAP2: error getting drive status\n");
  265:                        perror("ZTAP2");
  266:                        }
  267:                     else {
  268:#if MT_Debug                             /* NOTE - debug            */
  269:                        printf("ZTAP2 at WEOF: op=%s top.mt_op=%d ierr = %d\n",
  270:                           "BSF ",top.mt_op,*ierr);
  271:                        printf("ZTAP2: Status of I/O was %d errno %d\n",
  272:                           status, errno);
  273:                        printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  274:                           stat.mt_gstat,stat.mt_erreg);
  275:                        printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  276:                           stat.mt_type,stat.mt_resid);
  277:                        printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  278:                        printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  279:                           stat.mt_fileno,stat.mt_blkno);
  280:#endif
  281:                        }
  282:                     }
  283:/*                top.mt_count = 1;              kludge */
  284:/*                top.mt_op = MTNOP;             kludge */
  285:/*                                    insert for kludge */
  286:                  top.mt_op = MTBSF;
  287:                  if (wasatbot) top.mt_op = MTNOP;
  288:                  }
  289:               }
  290:            }
  291:         }
  292:                                        /* MTEOM while Exabyte is  */
  293:                                        /* at EOM causes problems  */
  294:      else if ((strcmp(op,"EOM ") == 0) || (strcmp(op,"AEOI") == 0)) {
  295:         if ((stat.mt_type == MT_ISDDS1) || (stat.mt_type == MT_ISDDS2) ||
  296:             (stat.mt_type == MT_ISSCSI1) || (stat.mt_type == MT_ISSCSI2)) {
  297:            top.mt_count = 1;
  298:            top.mt_op = MTEOM;
  299:                                        /* cannot get a file number */
  300:            *count = 0;
  301:         }
  302:         else {                         /* Block fails for Linux. */
  303:            for (i = 0; i < 32000; i++) {
  304:               nr = read (*fcb, record, 32768);
  305:               if (nr <= 0) {
  306:                  if (nr < 0) *ierr = 3;
  307:                  if ((nr == -1) && (errno == 5)) *ierr = 6;
  308:                  status = nr - 1000;
  309:                  break;
  310:                  }
  311:               else {
  312:                  top.mt_op = MTFSF;
  313:                  top.mt_count = 1;
  314:                  status = ioctl(*fcb,MTIOCTOP,&top);
  315:                  if (status != 0) {
  316:                     *ierr = 3;
  317:                     printf("ZTAP2: Status of I/O was %x (hex)\n", status);
  318:                     break;
  319:                     }
  320:                  }
  321:               }
  322:            *count = -i - 1;
  323:            if (*ierr == 3) {
  324:               if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  325:                  *ierr = 3;
  326:                  printf("ZTAP2: error getting drive status\n");
  327:                  perror("ZTAP2");
  328:                  }
  329:#if MT_Debug                              /* NOTE - debug            */
  330:               else {
  331:                  printf("ZTAP2 at AEOM: op=%s top.mt_op=%d ierr = %d\n",
  332:                     "AVF ",top.mt_op,*ierr);
  333:                  printf("ZTAP2: Status of I/O was %d errno %d\n",
  334:                     status, errno);
  335:                  printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  336:                     stat.mt_gstat,stat.mt_erreg);
  337:                  printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  338:                     stat.mt_type,stat.mt_resid);
  339:                  printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  340:                  printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  341:                     stat.mt_fileno,stat.mt_blkno);
  342:                  }
  343:#endif
  344:               if (GMT_BOT(stat.mt_gstat))      *ierr = 5;
  345:               else if (GMT_EOF(stat.mt_gstat)) *ierr = 4;
  346:               else if (GMT_EOT(stat.mt_gstat)) *ierr = 6;
  347:               else if (GMT_EOD(stat.mt_gstat)) *ierr = 6;
  348:               }
  349:            top.mt_op = MTBSF;
  350:            top.mt_count = 2;
  351:            if (*ierr == 6) top.mt_count = 1;
  352:            if ((*ierr == 6) || (*ierr == 4)) *ierr = 0;
  353:            }
  354:         }
  355:      else *ierr = 2;
  357:      if (*ierr == 0) {
  358:         status = ioctl(*fcb,MTIOCTOP,&top);
  359:         if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  360:            *ierr = 3;
  361:            printf("ZTAP2: error getting drive status\n");
  362:            perror("ZTAP2");
  363:            }
  364:         else {
  365:#if MT_Debug                              /* NOTE - debug            */
  366:            printf("ZTAP2 at main op: op = %s top.mt_op = %d ierr = %d\n",
  367:               op,top.mt_op,*ierr);
  368:            printf("ZTAP2: Status of I/O was %d errno %d\n", status, errno);
  369:            printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  370:               stat.mt_gstat,stat.mt_erreg);
  371:            printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  372:               stat.mt_type,stat.mt_resid);
  373:            printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  374:            printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  375:               stat.mt_fileno,stat.mt_blkno);
  376:#endif
  377:            }
  379:         if ((top.mt_op == MTBSF) && (status == -1)) *ierr = 5;
  380:         else if (GMT_BOT(stat.mt_gstat))      *ierr = 5;
  381:         else if (GMT_EOF(stat.mt_gstat)) *ierr = 4;
  382:         else if (GMT_EOT(stat.mt_gstat)) *ierr = 6;
  383:         else if (GMT_EOD(stat.mt_gstat)) *ierr = 6;
  385:                                        /* advance over last EOF   */
  386:         if ((top.mt_op == MTBSF) && ((*ierr == 0) || (*ierr == 4))) {
  387:            top.mt_op = MTFSF;
  388:            top.mt_count = 1;
  389:            status = ioctl(*fcb,MTIOCTOP,&top);
  390:            if (status != 0) {
  391:               *ierr = 3;
  392:               printf("ZTAP2: Status of I/O was %d errno %d\n", status, errno);
  393:               }
  394:            else if (ioctl(*fcb,MTIOCGET,&stat) != 0) {
  395:               *ierr = 3;
  396:               printf("ZTAP2: error getting drive status\n");
  397:               perror("ZTAP2");
  398:               }
  399:#if MT_Debug                              /* NOTE - debug            */
  400:            else {
  401:               printf("ZTAP2 at FSF: op = %s top.mt_op = %d ierr = %d\n",
  402:                  op,top.mt_op,*ierr);
  403:               printf("ZTAP2: Status of I/O was %d errno %d\n",
  404:                  status, errno);
  405:               printf("ZTAP2: stat.mt_gstat, erreg (hex) = %x , %x\n",
  406:                  stat.mt_gstat,stat.mt_erreg);
  407:               printf("ZTAP2: stat.mt_type = %d, out resid = %d\n",
  408:                  stat.mt_type,stat.mt_resid);
  409:               printf("ZTAP2: stat.mt_dsreg = %x\n", stat.mt_dsreg);
  410:               printf("ZTAP2: stat.mt_fileno mt_blkno = %d %d\n",
  411:                 stat.mt_fileno,stat.mt_blkno);
  412:               }
  413:#endif
  414:            }
  415:         }
  417:      if (*ierr == 3)
  418:         *(fcb + 2) = errno;
  419:      else
  420:         *(fcb + 2) = 0;
  421:      }
  423:   return;
  424:}
  426:/*
  427: * Local Variables:
  428: * c-basic-offset: 3
  429: * comment-column: 40
  430: * indent-tabs-mode: nil
  431: * End:
  432: */
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTAP2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTAP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:46 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTKOP2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTKOP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTKOP2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
AIPSCC    : Date       Fri Jul 18 17:41:46 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:17:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:23: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c: In function `ztkop2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:87: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:87: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:87: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c:87: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tkop2__
    2:#include <unistd.h>
    3:#include <stdlib.h>
    4:#include <stdio.h>
    5:#include <string.h>
    6:#include <fcntl.h>
    7:#ifndef __linux__
    8:#include <sgtty.h>
    9:#endif
   10:#include <errno.h>
   11:#include <sys/types.h>
   12:#include <sys/socket.h>
   13:#include <sys/un.h>
   14:#include <netinet/in.h>
   15:#include <netdb.h>
   16:#include <sys/stat.h>
   17:#include <AIPSPROTO.H>
   18:#ifdef __linux__
   19:#include <linux/termios.h>
   20:#endif
   22:#if __STDC__
   23:   void ztkop2_(int *fcb, char pname[MAXPNAME], int *tktype, int *ierr)
   24:#else
   25:   void ztkop2_(fcb, pname, tktype, ierr)
   26:   int *fcb, *tktype, *ierr;
   27:   char pname[MAXPNAME];
   28:#endif
   29:/*--------------------------------------------------------------------*/
   30:/*! read/write from/to a Tektronix device                             */
   31:/*# Graphics                                                          */
   32:/*--------------------------------------------------------------------*/
   33:/*;  Copyright (C) 1995-1998, 2000                                    */
   34:/*;  Associated Universities, Inc. Washington DC, USA.                */
   35:/*;                                                                   */
   36:/*;  This program is free software; you can redistribute it and/or    */
   37:/*;  modify it under the terms of the GNU General Public License as   */
   38:/*;  published by the Free Software Foundation; either version 2 of   */
   39:/*;  the License, or (at your option) any later version.              */
   40:/*;                                                                   */
   41:/*;  This program is distributed in the hope that it will be useful,  */
   42:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   43:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   44:/*;  GNU General Public License for more details.                     */
   45:/*;                                                                   */
   46:/*;  You should have received a copy of the GNU General Public        */
   47:/*;  License along with this program; if not, write to the Free       */
   48:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   49:/*;  MA 02139, USA.                                                   */
   50:/*;                                                                   */
   51:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   52:/*;         Internet email: aipsmail at nrao.edu.                        */
   53:/*;         Postal address: AIPS Project Office                       */
   54:/*;                         National Radio Astronomy Observatory      */
   55:/*;                         520 Edgemont Road                         */
   56:/*;                         Charlottesville, VA 22903-2475 USA        */
   57:/*--------------------------------------------------------------------*/
   58:/*  Open a Tektronix device for exclusive use.                        */
   59:/*                                                                    */
   60:/*  Inputs:                                                           */
   61:/*     pname   C*48   Physical file name (e.g., "TEKTK1: ")           */
   62:/*  Output:                                                           */
   63:/*     fcb     I(*)   File control block for opened Tektronix device  */
   64:/*     ierr    I      Error return code: 0 => no error                */
   65:/*                             2 => no such logical device            */
   66:/*                             3 => invalid device name               */
   67:/*                             4 => exclusive use requested but not   */
   68:/*                                  available                         */
   69:/*                             6 => other open error                  */
   70:/*  Berkeley UNIX version                                             */
   71:/*  JDE 89/Mar/23: Jonathan D. Eisenhamer, UCLA, added ability to     */
   72:/*                 talk to a "server" for a separate tektool window.  */
   73:/*  JDE 89/Apr/05: Added ability to use the INET domain to talk to    */
   74:/*                 the tektool service.  The server is tekserver.     */
   75:/*                 The environmental variable TEKTK* should be set to */
   76:/*                 the machine name which has the server.             */
   77:/*--------------------------------------------------------------------*/
   78:{
   79:                                        /* Offsets to entries in the  */
   80:                                        /* file control blocks        */
   81:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   82:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   84:   int llen, xlen, xlnb, jerr, fd;
   85:   register int i;
   86:   struct stat mybuf;
   87:   char lognam[MAXPNAME], pathname[MAXAPATH], *device, *dtemp, end;
   88:   struct hostent *hp;                  /* Host name */
   89:   struct servent *sp;                  /* Internet service info. */
   90:   int s;                               /* Socket descriptor. */
   91:   struct sockaddr_in sock_name;        /* Socket name. */
   92:   struct sockaddr_un client;
   93:   int ishost;                          /* == 1 if it is a host name. */
   94:   int isspec;
   95:/*--------------------------------------------------------------------*/
   96:   *ierr = 0;
   97:   *tktype = 0;
   98:   end = '\0' ;
   99:   device = &end;
  100:   if ((dtemp = getenv("TVDEV")) != NULL) {
  101:      if ((device = getenv (dtemp)) == NULL) device = &end;
  102:      }
  104:                                        /* Extract logical device     */
  105:                                        /* name.                      */
  106:   for (i = 0; i < MAXPNAME && pname[i] != ':'; i++)
  107:      lognam[i] = pname[i];
  108:   lognam[i] = '\0';
  109:                                        /* Translate logical device   */
  110:                                        /* name and null terminate.   */
  111:   llen = MAXPNAME;
  112:   xlen = MAXAPATH;
  113:   ztrlo2_ (&llen, lognam, &xlen, pathname, &xlnb, &jerr);
  114:   if (jerr != 0) {
  115:      *ierr = 2;
  116:      }
  117:   else {
  118:      pathname[xlnb] = '\0';
  119:                                        /* Now, if it's NOT special,  */
  120:                                        /* assume that it is meant to */
  121:                                        /* be an INET domain socket   */
  122:      if (strncmp(device,"sssin",5) == 0) {
  123:         if ((hp = gethostbyname (pathname)) == 0) {
  124:            *(fcb + Z_fcberr) = errno;
  125:            *ierr = 3;
  126:            return;
  127:            }
  128:                                        /* JDE 89/Apr/04:             */
  129:                                        /* Get the port on which the  */
  130:                                        /* the tekserver resides.     */
  131:         if ((sp = getservbyname ("tekserv", "tcp")) == 0) {
  132:            *(fcb + Z_fcberr) = errno;
  133:            *ierr = 3;
  134:            return;
  135:            }
  136:                                        /* Construct the address of   */
  137:                                        /* service.                   */
  138:         memset ((char *)&sock_name, 0, sizeof (sock_name));
  139:         memcpy ((char *)&sock_name.sin_addr, hp->h_addr, hp->h_length);
  140:         sock_name.sin_family = hp->h_addrtype;
  141:         sock_name.sin_port = sp->s_port;
  142:                                        /* Create the communications  */
  143:                                        /* socket.                    */
  144:         if ((s = socket (hp->h_addrtype, SOCK_STREAM, 0)) == -1) {
  145:            *(fcb + Z_fcberr) = errno;
  146:            *ierr = 6;
  147:            return;
  148:            }
  149:                                        /* Connect to the server.     */
  150:                                        /* From here on, everything   */
  151:                                        /* is treated the same.  Only */
  152:                                        /* thing to watch is how to   */
  153:                                        /* close things (ztkcl2)      */
  154:         if (connect (s, (struct sockaddr *)&sock_name,
  155:            sizeof(sock_name)) == -1) {
  156:            *(fcb + Z_fcberr) = errno;
  157:            *ierr = 6;
  158:            }
  159:         else {
  160:             *tktype = 1;
  161:             *(fcb + Z_fcbfd) = s;
  162:             }
  163:         }
  164:                                        /* Test path name existence,  */
  165:                                        /* but DO NOT be fooled by    */
  166:                                        /* files other than a socket  */
  167:                                        /* or a device (char/block)   */
  168:      else {
  169:                                        /* no such file, not special  */
  170:         isspec = 0;
  171:         if ((stat(pathname, &mybuf)) == -1) {
  172:            isspec = 0;
  173:                                        /* Found a socket; special    */
  174:         } else if (S_ISSOCK(mybuf.st_mode)) {
  175:            isspec = 2;
  176:                                        /* Found a FIFO; special      */
  177:         } else if (S_ISFIFO(mybuf.st_mode)) {
  178:            isspec = 2;
  179:                                        /* character special device   */
  180:         } else if (S_ISCHR(mybuf.st_mode)) {
  181:            isspec = 3;
  182:                                        /* block special device       */
  183:         } else if (S_ISBLK(mybuf.st_mode)) {
  184:            isspec = 4;
  185:            }
  186:                                        /* UNIX socket */
  187:         if (isspec== 2) {   /* ????? */
  188:            device = &end;
  189:            if ((dtemp = getenv("TKDEV")) != NULL) {
  190:               if ((device = getenv(dtemp)) == NULL) device = &end;
  191:               }
  192:                                        /* undefined                  */
  193:            if (device == &end) {
  194:               fprintf(stderr, "ZTKOP2: NO SUCH DEVICE = TKDEV\n");
  195:               *ierr = 2;
  196:               return;
  197:               }
  198:            if ((*fcb = (int)socket(AF_UNIX, SOCK_STREAM, 0)) < 0) {
  199:               perror("ZTKOP2 socket (UNIX)");
  200:               *ierr = 1;
  201:               return;
  202:               }
  203:            client.sun_family = AF_UNIX;
  204:            strcpy(client.sun_path, device);
  205:            if (connect((*fcb), (struct sockaddr *) &client,
  206:               (sizeof(client.sun_path)+sizeof(client.sun_family)))
  207:               < 0) {
  208:               perror("ZTKOP2 connect (UNIX)");
  209:               *ierr = 1;
  210:               return;
  211:               }
  212:            *tktype = 1;
  213:            }
  214:                                        /* Blindly change the device  */
  215:                                        /* permissions to make it     */
  216:                                        /* readable/writeable.  Don't */
  217:                                        /* worry about any errors in  */
  218:                                        /* doing so because "open"    */
  219:                                        /* will detect any failure.   */
  220:                                        /* This is done simply to     */
  221:                                        /* allow /dev/ttyp* opens.    */
  222:         else {
  223:            chmod (pathname, 0662);
  224:                                        /* Open the Tektronix device  */
  225:                                        /* read/write.                */
  226:            if ((*(fcb + Z_fcbfd) = open (pathname, 2)) == -1) {
  227:               *(fcb + Z_fcberr) = errno;
  228:               if (errno == EBUSY)
  229:                  *ierr = 4;
  230:               else
  231:                  *ierr = 6;
  232:               }
  233:            else {
  234:               fd = *(fcb + Z_fcbfd);
  235:                                        /* If the device pathname is  */
  236:                                        /* the same as the process    */
  237:                                        /* control tty, don't try to  */
  238:                                        /* take exclusive use since   */
  239:                                        /* this would always fail.    */
  240:               if (strcmp (pathname, "/dev/tty\0") != 0) {
  241:                  if (ioctl (fd, TIOCEXCL, 0) == -1) {
  242:                     *(fcb + Z_fcberr) = errno;
  243:                     *ierr = 6;
  244:                     close (fd);
  245:                     return;
  246:                     }
  247:                  }
  248:               }
  249:            }
  250:         }
  251:      }
  253:   return;
  254:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTKOP2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTKOP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:47 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPCL2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPCL2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPCL2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
AIPSCC    : Date       Fri Jul 18 17:41:47 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c:4:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tpcl2__
    2:#include <unistd.h>
    3:#include <errno.h>
    4:#include <AIPSPROTO.H>
    6:#if __STDC__
    7:   void ztpcl2_(int *fcb, int *ierr)
    8:#else
    9:   void ztpcl2_(fcb, ierr)
   10:   int *fcb, *ierr;
   11:#endif
   12:/*--------------------------------------------------------------------*/
   13:/*! close a tape device                                               */
   14:/*# Tape                                                              */
   15:/*--------------------------------------------------------------------*/
   16:/*;  Copyright (C) 1995, 1997                                         */
   17:/*;  Associated Universities, Inc. Washington DC, USA.                */
   18:/*;                                                                   */
   19:/*;  This program is free software; you can redistribute it and/or    */
   20:/*;  modify it under the terms of the GNU General Public License as   */
   21:/*;  published by the Free Software Foundation; either version 2 of   */
   22:/*;  the License, or (at your option) any later version.              */
   23:/*;                                                                   */
   24:/*;  This program is distributed in the hope that it will be useful,  */
   25:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   26:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   27:/*;  GNU General Public License for more details.                     */
   28:/*;                                                                   */
   29:/*;  You should have received a copy of the GNU General Public        */
   30:/*;  License along with this program; if not, write to the Free       */
   31:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   32:/*;  MA 02139, USA.                                                   */
   33:/*;                                                                   */
   34:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   35:/*;         Internet email: aipsmail at nrao.edu.                        */
   36:/*;         Postal address: AIPS Project Office                       */
   37:/*;                         National Radio Astronomy Observatory      */
   38:/*;                         520 Edgemont Road                         */
   39:/*;                         Charlottesville, VA 22903-2475 USA        */
   40:/*--------------------------------------------------------------------*/
   41:/*  Close a tape drive.                                               */
   42:/*  Inputs:                                                           */
   43:/*     fcb    I(*)   File control block for opened tape drive         */
   44:/*  Output:                                                           */
   45:/*     ierr   I      Error return code: 0 => ok                       */
   46:/*                      1 => error                                    */
   47:/*  Generic UNIX version - synchronous I/O only; masks error 1        */
   48:/*  Modified for real-time VLA to call olclose on fd < 0              */
   49:/*--------------------------------------------------------------------*/
   50:{
   51:                                        /* Offsets to entries in the  */
   52:                                        /* file control blocks        */
   53:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   54:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   55:                                        /* # FTAB elements per map    */
   56:                                        /* file control block         */
   57:   extern int Z_mfcb;
   58:   int fd, i;
   59:/*--------------------------------------------------------------------*/
   60:   *ierr = 0;
   61:                                        /* Close first buffer file    */
   62:                                        /* descriptor.                */
   63:   fd = *(fcb + Z_fcbfd);
   64:                                        /* If this is Wes' on-line    */
   65:                                        /* device, use special close. */
   66:   if (fd < 0) {
   67:      olclose_(&fd);
   68:      }
   69:   else {
   70:      if (close (fd) != 0) {
   71:                                        /* In at least the case of a  */
   72:                                        /* Solbourne running Sun OS   */
   73:                                        /* 4.0 a spurious errno=1 is  */
   74:                                        /* returned.  Ignore it.      */
   75:         if (errno != 1) {
   76:            *(fcb + Z_fcberr) = errno;
   77:            *ierr = 1;
   78:            }
   79:      }
   80:                                        /* Close second buffer file   */
   81:                                        /* descriptor.                */
   82:      fd = *(fcb + Z_mfcb + Z_fcbfd);
   83:      if ((close (fd) != 0) && (*ierr == 0)) {
   84:          if (errno !=1 ) {
   85:             *(fcb + Z_mfcb + Z_fcberr) = errno;
   86:             *ierr = 1;
   87:             }
   88:          }
   89:      }
   91:   return;
   92:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPCL2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPCL2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:47 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPMI2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPMI2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPMI2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
AIPSCC    : Date       Fri Jul 18 17:41:48 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c:5:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c: In function `ztpmi2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c:67: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c:67: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c:67: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tpmi2__
    2:#include <unistd.h>
    3:#include <string.h>
    4:#include <errno.h>
    5:#include <AIPSPROTO.H>
    7:#if __STDC__
    8:   void ztpmi2_(char *oper, int *fcb, char *buff, int *nbytes, int *ierr)
    9:#else
   10:   void ztpmi2_(oper, fcb, buff, nbytes, ierr)
   11:   char oper[], buff[];
   12:   int *fcb, *nbytes, *ierr;
   13:#endif
   14:/*--------------------------------------------------------------------*/
   15:/*! read/write from/to a tape device                                  */
   16:/*# IO-basic Tape                                                     */
   17:/*--------------------------------------------------------------------*/
   18:/*;  Copyright (C) 1995, 1997, 2003                                   */
   19:/*;  Associated Universities, Inc. Washington DC, USA.                */
   20:/*;                                                                   */
   21:/*;  This program is free software; you can redistribute it and/or    */
   22:/*;  modify it under the terms of the GNU General Public License as   */
   23:/*;  published by the Free Software Foundation; either version 2 of   */
   24:/*;  the License, or (at your option) any later version.              */
   25:/*;                                                                   */
   26:/*;  This program is distributed in the hope that it will be useful,  */
   27:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   28:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   29:/*;  GNU General Public License for more details.                     */
   30:/*;                                                                   */
   31:/*;  You should have received a copy of the GNU General Public        */
   32:/*;  License along with this program; if not, write to the Free       */
   33:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   34:/*;  MA 02139, USA.                                                   */
   35:/*;                                                                   */
   36:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   37:/*;         Internet email: aipsmail at nrao.edu.                        */
   38:/*;         Postal address: AIPS Project Office                       */
   39:/*;                         National Radio Astronomy Observatory      */
   40:/*;                         520 Edgemont Road                         */
   41:/*;                         Charlottesville, VA 22903-2475 USA        */
   42:/*--------------------------------------------------------------------*/
   43:/*  Read/write "nbytes" 8-bit bytes of data from/to a tape device     */
   44:/*  using "map" I/O (i.e., double buffered, asynchronous I/O).        */
   45:/*  Inputs:                                                           */
   46:/*     oper     C*4    Operation code "READ" or "WRIT"                */
   47:/*     fcb      I(*)   File control block for opened tape drive       */
   48:/*     buff     I(*)   I/O buffer                                     */
   49:/*     nbytes   I      Number of 8-bit bytes to be transferred        */
   50:/*  Output:                                                           */
   51:/*     ierr     I      Error return code: 0 => no error               */
   52:/*                        2 => bad opcode                             */
   53:/*                        3 => I/O error (left for ZTPWA2 now)        */
   54:/*  Generic UNIX version - sysnchronous I/O actually, reports IO error*/
   55:/*  but not End Of File                                               */
   56:/*  Modified for real-time VLA calling olread when fd < 0             */
   57:/*--------------------------------------------------------------------*/
   58:{
   59:                                        /* Offsets to entries in the  */
   60:                                        /* file control blocks        */
   61:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   62:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   64:   int fd, n8 = 8, ifd, ntry, otry, jerr;
   65:   register int i;
   66:   float secs = 100.0;
   67:   char op[5], msgbuf[80], pathname[MAXAPATH] = "ON-LINE";
   68:/*--------------------------------------------------------------------*/
   69:   *ierr = 0;
   70:   pathname[7] = '\0';
   71:                                        /* Form null terminated       */
   72:                                        /* opcode.                    */
   73:   for (i = 0; i < 4; i++)
   74:      op[i] = oper[i];
   75:   op[4] = '\0';
   76:                                        /* Get file descriptor from   */
   77:                                        /* the file control block as  */
   78:                                        /* stored there by ZTPOP2.    */
   79:   fd = *(fcb + Z_fcbfd);
   80:                                        /* Record byte request in the */
   81:                                        /* file control block.        */
   82:   *(fcb + Z_fcbreq) = *nbytes;
   83:                                        /* Also, zero error status &  */
   84:                                        /* transfer count entries.    */
   85:   *(fcb + Z_fcberr) = 0;
   86:   *(fcb + Z_fcbxfr) = 0;
   87:                                        /* Zero byte request just     */
   88:                                        /* initiates double buffered  */
   89:                                        /* I/O.                       */
   90:   if (*(fcb + Z_fcbreq) != 0) {
   91:                                        /* Perform the I/O and record */
   92:                                        /* the # of bytes transferred */
   93:                                        /* in *(fcb + Z_fcbxfr).      */
   94:                                        /* Record the system error    */
   95:                                        /* code (if any) in           */
   96:                                        /* *(fcb + Z_fcberr).         */
   97:      if (strcmp (op, "READ") == 0) {
   98:                                        /* fake fd<0 ==> use Wes'     */
   99:                                        /* on-line device.            */
  100:         if (fd < 0) {
  101:            for (ntry=0; ntry<100; ntry++) {
  102:               *(fcb + Z_fcbxfr) = olread_(&fd, buff, *(fcb + Z_fcbreq));
  103:                                        /* error - close and re-open  */
  104:               if (*(fcb + Z_fcbxfr) == 0) {
  105:                  sprintf (msgbuf, "ZTPMI2: End-of-data: try to reopen");
  106:                  zmsgwr_ (msgbuf, &n8);
  107:                  olclose_(&fd);
  108:                  for (otry=0; otry<100; otry++) {
  109:                     ifd = -99;
  110:                     zdela2_ (&secs, &jerr) ;
  111:                     fd = olopen_(&ifd, pathname, strlen(pathname));
  112:                     sprintf (msgbuf, "ZTPMI2: olopen %d", fd);
  113:                     zmsgwr_ (msgbuf, &n8);
  114:                                        /* open fails */
  115:                     if (fd == -99 || fd >= 0) {
  116:                        sprintf (msgbuf,
  117:                           "ZTPOP2: FAILS TO OPEN ON-LINE - RETRY");
  118:                        if (otry == 99) {
  119:                           sprintf (msgbuf,
  120:                              "ZTPOP2: FAILS TO OPEN ON-LINE - QUIT");
  121:                           ntry = 101;
  122:                           }
  123:                        zmsgwr_ (msgbuf, &n8);
  124:                        }
  125:                     else {
  126:                        *(fcb + Z_fcbfd) = fd;
  127:                        otry = 1000;
  128:                        }
  129:                     }
  130:                  }
  131:               else {
  132:                  ntry=1000;
  133:                  }
  134:               }
  135:            }
  136:         else {
  137:            *(fcb + Z_fcbxfr) = read(fd, buff, *(fcb + Z_fcbreq));
  138:            }
  139:         if (*(fcb + Z_fcbxfr) == -1) {
  140:            *(fcb + Z_fcberr) = errno;
  141:            }
  142:         }
  143:      else if (strcmp (op, "WRIT") == 0) {
  144:         if ((*(fcb + Z_fcbxfr) =
  145:            write (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  146:            *(fcb + Z_fcberr) = errno;
  147:            }
  148:         }
  149:                                        /* Bad opcode.                */
  150:      else {
  151:         *ierr = 2;
  152:         }
  153:      }
  154:                                        /* Exit.                      */
  155:   return;
  156:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPMI2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPMI2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:48 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPMID.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPMID.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPMID.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
AIPSCC    : Date       Fri Jul 18 17:41:49 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c:7:23: AIPSPROTO.H: No such file or directory
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tpmid__
    2:#include <unistd.h>
    3:#include <stdio.h>
    4:#include <string.h>
    5:#include <errno.h>
    6:#include <sys/types.h>
    7:#include <AIPSPROTO.H>
    9:#if __STDC__
   10:   void ztpmid_(char *oper, int *blkno, int *fcb, char *buff,
   11:      int *nbytes, int *ierr)
   12:#else
   13:   void ztpmid_(oper, blkno, fcb, buff, nbytes, ierr)
   14:   char oper[], buff[];
   15:   int *fcb, *blkno, *nbytes, *ierr;
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! read/write 2880 byte blocks of data from/to disk                  */
   19:/*# Z Tape                                                            */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 1997-1999, 2001                              */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Read/write "nbytes" of data from/to disk at FITS block blkno      */
   47:/*                                                                    */
   48:/*  NOTE: This is for TAPIO type operations only, i.e., LRECL=2880,   */
   49:/*        FTAB(FIND+5) = I   logical record number.                   */
   50:/*                                                                    */
   51:/*  Inputs:                                                           */
   52:/*     oper     C*4    Operation code "READ" or "WRIT"                */
   53:/*     blkno    I      Block number to read/write                     */
   54:/*     fcb      I(*)   File control block for open map disk file      */
   55:/*                     and buffer involved                            */
   56:/*     nbytes   I      Number of real bytes to be transferred         */
   57:/*  In/out:                                                           */
   58:/*     buff     I(*)   I/O buffer                                     */
   59:/*  Output:                                                           */
   60:/*     ierr     I      Error return code: 0 => no error               */
   61:/*                        2 => bad opcode                             */
   62:/*                        3 => I/O error (also see ZWAI2)             */
   63:/*                        4 => end of file (see ZWAI2)                */
   64:/*  "fcb" has syserr for ZTPWAD to return error                       */
   65:/*  Generic UNIX version.                                             */
   66:/*--------------------------------------------------------------------*/
   67:{
   68:                                        /* Offsets to entries in the  */
   69:                                        /* file control blocks        */
   70:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr;
   71:   int fd, n7 = 7;
   72:   off_t firstbyte;
   73:   register int i;
   74:   char op[5], msgbuf[80];
   75:/*--------------------------------------------------------------------*/
   76:   *ierr = 0;
   77:                                        /* Form null terminated       */
   78:                                        /* opcode.                    */
   79:   for (i = 0; i < 4; i++)
   80:      op[i] = oper[i];
   81:   op[4] = '\0';
   82:                                        /* Get file descriptor from   */
   83:                                        /* the file control block as  */
   84:                                        /* stored there by ZDAOPN.    */
   85:   fd = *(fcb + Z_fcbfd);
   86:                                        /* Record byte request in the */
   87:                                        /* file control block.        */
   88:   *(fcb + Z_fcbreq) = *nbytes;
   89:                                        /* Also, zero error status &  */
   90:                                        /* transfer count entries.    */
   91:   *(fcb + Z_fcberr) = 0;
   92:   *(fcb + Z_fcbxfr) = 0;
   93:                                        /* Zero byte request just     */
   94:                                        /* initiates double buffered  */
   95:                                        /* I/O.                       */
   96:   if (*(fcb + Z_fcbreq) != 0) {
   97:                                        /* Only non-zero byte reqest  */
   98:                                        /* is 2880.                   */
   99:      if (*(fcb + Z_fcbreq) != 2880) {
  100:         *ierr = 2;
  101:         }
  102:      else {
  103:                                        /* Calculate the byte offset  */
  104:                                        /* (0-relative) in the file   */
  105:                                        /* that correspond to the     */
  106:                                        /* virtual block number.      */
  107:         firstbyte = (*blkno - 1);
  108:         firstbyte = firstbyte * 2880;
  109:                                        /* Set file pointer of the    */
  110:                                        /* file descriptor to the     */
  111:                                        /* absolute byte address      */
  112:                                        /* "firstbyte".               */
  113:         if (lseek (fd, firstbyte, 0) == -1) {
  114:            *(fcb + Z_fcberr) = errno;
  115:            sprintf (msgbuf,
  116:               "ZTPMID: LSEEK ERROR ON FILE DESCRIPTOR %d", fd);
  117:            zmsgwr_ (msgbuf, &n7);
  118:            sprintf (msgbuf,
  119:               "ZTPMID: POSITIONING FILE POINTER TO BYTE OFFSET %d",
  120:               firstbyte);
  121:            zmsgwr_ (msgbuf, &n7);
  122:            *ierr = 3;
  123:            }
  124:                                        /* Perform the I/O and record */
  125:                                        /* the # of bytes transferred */
  126:                                        /* in *(fcb + Z_fcbxfr).      */
  127:                                        /* Record the system error    */
  128:                                        /* code (if any) in           */
  129:                                        /* *(fcb + Z_fcberr).         */
  130:         else {
  131:            if (strcmp (op, "READ") == 0) {
  132:               if ((*(fcb + Z_fcbxfr) =
  133:                  read (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  134:                  *(fcb + Z_fcberr) = errno;
  135:                  *ierr = 3;
  136:                  }
  137:               }
  138:            else if (strcmp (op, "WRIT") == 0) {
  139:               if ((*(fcb + Z_fcbxfr) =
  140:                  write (fd, buff, *(fcb + Z_fcbreq))) == -1) {
  141:                  *(fcb + Z_fcberr) = errno;
  142:                  *ierr = 3;
  143:                  }
  144:               }
  145:                                        /* Bad opcode.                */
  146:            else {
  147:               *ierr = 2;
  148:               }
  149:            }
  150:         }
  151:      }
  153:   return;
  154:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPMID.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPMID.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:49 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPOP2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPOP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPOP2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
AIPSCC    : Date       Fri Jul 18 17:41:49 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:8:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:11: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c: In function `ztpop2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:71: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:71: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:71: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c:71: error: `MAXAPATH' undeclared (first use in this function)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_tpop2__
    2:#include <unistd.h>
    3:#include <fcntl.h>
    4:#include <stdio.h>
    5:#include <string.h>
    6:#include <errno.h>
    7:#include <sys/file.h>
    8:#include <AIPSPROTO.H>
   10:#if __STDC__
   11:   void ztpop2_(int *fcb, char pname[MAXPNAME], int *mode, int *ierr)
   12:#else
   13:   ztpop2_(fcb, pname, mode, ierr)
   14:   int *fcb, *mode, *ierr;
   15:   char pname[MAXPNAME];
   16:#endif
   17:/*--------------------------------------------------------------------*/
   18:/*! open a tape device for double-buffer, asymchronous IO             */
   19:/*# IO-basic Tape                                                     */
   20:/*--------------------------------------------------------------------*/
   21:/*;  Copyright (C) 1995, 2000, 2003                                   */
   22:/*;  Associated Universities, Inc. Washington DC, USA.                */
   23:/*;                                                                   */
   24:/*;  This program is free software; you can redistribute it and/or    */
   25:/*;  modify it under the terms of the GNU General Public License as   */
   26:/*;  published by the Free Software Foundation; either version 2 of   */
   27:/*;  the License, or (at your option) any later version.              */
   28:/*;                                                                   */
   29:/*;  This program is distributed in the hope that it will be useful,  */
   30:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   31:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   32:/*;  GNU General Public License for more details.                     */
   33:/*;                                                                   */
   34:/*;  You should have received a copy of the GNU General Public        */
   35:/*;  License along with this program; if not, write to the Free       */
   36:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   37:/*;  MA 02139, USA.                                                   */
   38:/*;                                                                   */
   39:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   40:/*;         Internet email: aipsmail at nrao.edu.                        */
   41:/*;         Postal address: AIPS Project Office                       */
   42:/*;                         National Radio Astronomy Observatory      */
   43:/*;                         520 Edgemont Road                         */
   44:/*;                         Charlottesville, VA 22903-2475 USA        */
   45:/*--------------------------------------------------------------------*/
   46:/*  Open a tape drive for "map" (double buffered, asynchronous) I/O.  */
   47:/*  Inputs:                                                           */
   48:/*     pname   C*48   Physical file name                              */
   49:/*     mode    I      Mode indicator: 0 => read only                  */
   50:/*                                    2 => read/write                 */
   51:/*  Output:                                                           */
   52:/*     fcb     I(*)   File control block for opened tape drive        */
   53:/*     ierr    I      Error return code: 0 => no error                */
   54:/*                             2 => no such logical device            */
   55:/*                             3 => device not found                  */
   56:/*                             6 => other open error                  */
   57:/*  Generic UNIX version - synchronous I/O only.                      */
   58:/*  Modified for real-time VLA: if pathname = ON-LINE, call olopen and*/
   59:/*  use fd < 0.                                                       */
   60:/*--------------------------------------------------------------------*/
   61:{
   62:                                        /* Offsets to entries in the  */
   63:                                        /* file control blocks        */
   64:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   65:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4;
   66:                                        /* # FTAB elements per map    */
   67:                                        /* file control block         */
   68:   extern int Z_mfcb;
   69:   int llen, xlen, xlnb, jerr, fd, dupfd, ifd, ntry, n8 = 8;
   70:   register int i, j;
   71:   char lognam[MAXPNAME], pathname[MAXAPATH], msgbuf[80];
   72:   float secs = 100.0;
   73:/*--------------------------------------------------------------------*/
   74:   *ierr = 0;
   75:                                        /* Extract logical device.    */
   76:   for (i = 0; i < MAXPNAME && pname[i] != ':'; i++)
   77:      lognam[i] = pname[i];
   78:   lognam[i] = '\0';
   79:                                        /* Translate logical device   */
   80:                                        /* name and null terminate.   */
   81:   llen = MAXPNAME;
   82:   xlen = MAXAPATH;
   83:   ztrlo2_ (&llen, lognam, &xlen, pathname, &xlnb, &jerr);
   84:   if (jerr != 0) {
   85:      *ierr = 3;
   86:      }
   87:   else {
   88:      pathname[xlnb] = '\0';
   89:                                        /* Open the tape drive        */
   90:                                        /* according to "mode".       */
   91:                                        /* If this is Wes' on-line    */
   92:                                        /* device, use special open   */
   93:                                        /* & use fake file descriptor */
   94:      errno = 0;
   95:      if ((strncmp(pathname, "on-line", 7) == 0) ||
   96:         (strncmp(pathname, "ON-LINE", 7)) == 0) {
   97:         for (ntry=0; ntry<100; ntry++) {
   98:            ifd = -99;
   99:            fd = olopen_(&ifd, pathname, strlen(pathname));
  100:            sprintf (msgbuf, "ZTPOP2: olopen %d", fd);
  101:            zmsgwr_ (msgbuf, &n8);
  102:                                        /* open fails */
  103:            if (fd < -99) {
  104:               sprintf (msgbuf,
  105:                  "ZTPOP2: NOT ON-LINE VERSION - QUIT");
  106:                  zmsgwr_ (msgbuf, &n8);
  107:                  *ierr = 3;
  108:                  }
  109:            else if (fd == -99 || fd >= 0) {
  110:               if (ntry == 99) {
  111:                  sprintf (msgbuf,
  112:                     "ZTPOP2: FAILS TO OPEN ON-LINE - QUIT");
  113:                  zmsgwr_ (msgbuf, &n8);
  114:                  *ierr = 6;
  115:                  }
  116:               else {
  117:                  sprintf (msgbuf,
  118:                     "ZTPOP2: FAILS TO OPEN ON-LINE - RETRY");
  119:                  zmsgwr_ (msgbuf, &n8);
  120:                  zdela2_ (&secs, &jerr) ;
  121:                  }
  122:               }
  123:            else
  124:               ntry = 1000;
  125:            }
  126:         }
  127:      else {
  128:         fd = open (pathname, *mode);
  129:         if (fd == -1) {
  130:            *(fcb + Z_fcberr) = errno;
  131:                                        /* Device doesn't exist.      */
  132:            if (errno == ENOENT)
  133:               *ierr = 2;
  134:                                        /* Some other open error.     */
  135:            else
  136:               *ierr = 6;
  137:            }
  138:         }
  139:                                        /* Get duplicate file         */
  140:                                        /* descriptor for 2nd buffer  */
  141:                                        /* (this is only necessary    */
  142:                                        /* for I/O wait servicing).   */
  143:      if (*ierr == 0) {
  144:         *(fcb + Z_fcbfd) = fd;
  145:                                        /* Single buffered            */
  146:         if (fd < 0)
  147:            *(fcb + Z_mfcb + Z_fcbfd) = fd;
  148:         else {
  149:            dupfd = dup(fd);
  150:            if (dupfd == -1) {
  151:                                        /* Store 2nd buffer info in   */
  152:                                        /* 1st buffer FCB for error   */
  153:                                        /* processing (kludge).       */
  154:               *(fcb + Z_mfcb + Z_fcbfd) = dupfd;
  155:               for (i = 0; i < Z_mfcb; i++)
  156:                  *(fcb + i) = *(fcb + Z_mfcb + i);
  157:               *(fcb + Z_fcberr) = errno;
  158:               close (fd);
  159:               *ierr = 6;
  160:               }
  161:            else {
  162:               *(fcb + Z_mfcb + Z_fcbfd) = dupfd;
  163:                                        /* Enable asynchronous mode   */
  164:                                        /* for both buffers here (not */
  165:                                        /* implemented in this        */
  166:                                        /* version).                  */
  167:               }
  168:            }
  169:         }
  170:      }
  172:   return;
  173:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPOP2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPOP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:50 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPOPD.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTPOPD.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTPOPD.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
AIPSCC    : Date       Fri Jul 18 17:41:50 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:11:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:15: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c: In function `ztpopd_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:73: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:73: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c:73: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_tpopd__
    5:#include <unistd.h>
    6:#include <fcntl.h>
    7:#include <string.h>
    8:#include <errno.h>
    9:#include <sys/types.h>
   10:#include <sys/stat.h>
   11:#include <AIPSPROTO.H>
   12:#define PMODE 0666                      /* Creation permission bits.  */
   14:#if __STDC__
   15:   void ztpopd_(int *fcb, char pname[MAXAPATH], int * mode, int *ierr)
   16:#else
   17:   void ztpopd_(fcb, pname, mode, ierr)
   18:   int *fcb, *mode, *ierr ;
   19:   char pname[MAXAPATH] ;
   20:#endif
   21:/*--------------------------------------------------------------------*/
   22:/*! open the specified FITS disk file                                 */
   23:/*# Z2 IO-tape                                                        */
   24:/*--------------------------------------------------------------------*/
   25:/*;  Copyright (C) 1995, 1997, 2001-2002                              */
   26:/*;  Associated Universities, Inc. Washington DC, USA.                */
   27:/*;                                                                   */
   28:/*;  This program is free software; you can redistribute it and/or    */
   29:/*;  modify it under the terms of the GNU General Public License as   */
   30:/*;  published by the Free Software Foundation; either version 2 of   */
   31:/*;  the License, or (at your option) any later version.              */
   32:/*;                                                                   */
   33:/*;  This program is distributed in the hope that it will be useful,  */
   34:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   35:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   36:/*;  GNU General Public License for more details.                     */
   37:/*;                                                                   */
   38:/*;  You should have received a copy of the GNU General Public        */
   39:/*;  License along with this program; if not, write to the Free       */
   40:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   41:/*;  MA 02139, USA.                                                   */
   42:/*;                                                                   */
   43:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   44:/*;         Internet email: aipsmail at nrao.edu.                        */
   45:/*;         Postal address: AIPS Project Office                       */
   46:/*;                         National Radio Astronomy Observatory      */
   47:/*;                         520 Edgemont Road                         */
   48:/*;                         Charlottesville, VA 22903-2475 USA        */
   49:/*--------------------------------------------------------------------*/
   50:/*  Opens a disk file for map (double buffered) or non-map (single    */
   51:/*  buffered) I/O and shared or exclusive use.                        */
   52:/*  Inputs:                                                           */
   53:/*     pname   H*256  Physical file name (H for Macro, C, ...')       */
   54:/*     mode    I      0 -> read only, 2 -> read/write                 */
   55:/*  Output:                                                           */
   56:/*     fcb     I(*)   File control block for disk file involved       */
   57:/*     ierr    I      Error return code: 0 => no error                */
   58:/*                       2 => file not found                          */
   59:/*                       6 => other open error                        */
   60:/*                       7 = illegal file name (translation fails)    */
   61:/*                       8 = 'write' file already exists              */
   62:/*  Generic UNIX version (synchronous I/O only).                      */
   63:/*--------------------------------------------------------------------*/
   64:{
   65:                                        /* Offsets to entries in the  */
   66:                                        /* file control blocks        */
   67:   extern int Z_fcbfd, Z_fcberr;
   68:                                        /* # of FTAB elements per map */
   69:                                        /* file control block         */
   70:   extern int Z_mfcb;
   71:   int llen, xlen, xlnb, jerr, syserr, fd, dupfd, excl;
   72:   register int i, j;
   73:   char pathname[MAXAPATH];
   74:/*--------------------------------------------------------------------*/
   75:   *ierr = 0 ;
   76:                                        /* get full file name         */
   77:   llen = MAXAPATH;
   78:   xlen = MAXAPATH;
   79:   zpath_(&llen, pname, &xlen, pathname, &xlnb, &jerr) ;
   80:   if (jerr != 0) {
   81:      *ierr = 3;
   82:      }
   83:   else {
   84:      pathname[xlnb] = '\0';
   85:                                        /* Open the disk file read    */
   86:                                        /* only or write only.        */
   87:      if (*mode == 0) {
   88:                                        /* Open read only.            */
   89:         excl = 0;
   90:         if ((fd = open (pathname, O_RDONLY)) == -1) {
   91:            *(fcb + Z_fcberr) = errno;
   92:                                        /* File doesn't exist.        */
   93:            if (errno == ENOENT)
   94:               *ierr = 2;
   95:                                        /* Some other open error.     */
   96:            else
   97:               *ierr = 6;
   98:            }
   99:         }
  100:      else if (*mode == 2) {
  101:                                        /* Open read/write.           */
  102:         excl = 1;
  103:         if ((fd = open (pathname, O_CREAT | O_EXCL | O_RDWR, PMODE))
  104:            == -1) {
  105:            *(fcb + Z_fcberr) = errno;
  106:                                        /* File already exists.       */
  107:            if (errno == EEXIST)
  108:               *ierr = 8;
  109:                                        /* Some other open error.     */
  110:            else
  111:               *ierr = 6;
  112:            }
  113:         }
  114:      else {
  115:                                        /* Invalid mode indicator.    */
  116:         *ierr = 6;
  117:         }
  118:                                        /* Proceed if all ok so far.  */
  119:      if (*ierr == 0) {
  120:         *(fcb + Z_fcbfd) = fd;
  121:                                        /* Apply non-blocking lock.   */
  122:         zlock_ (&fd, pname, &excl, &syserr, ierr);
  123:         if (*ierr != 0) {
  124:            *(fcb + Z_fcberr) = syserr;
  125:            close (fd);
  126:            }
  127:         else {
  128:                                        /* Get duplicate file         */
  129:                                        /* descriptor for 2nd buffer  */
  130:                                        /* (this is only necessary    */
  131:                                        /* for I/O wait servicing).   */
  132:            if ((dupfd = dup(fd)) == -1) {
  133:               *(fcb + Z_mfcb + Z_fcberr) = errno;
  134:               close (fd);
  135:               *ierr = 6;
  136:               }
  137:            else {
  138:               *(fcb + Z_mfcb + Z_fcbfd) = dupfd;
  139:               }
  140:            }
  141:         }
  142:      }
  143:                                        /* Exit.                      */
  144:   return;
  145:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTPOPD.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTPOPD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:50 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTOP2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTTOP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTTOP2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
AIPSCC    : Date       Fri Jul 18 17:41:50 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:16:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:19: error: `MAXAPATH' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:26: error: `MAXPNAME' undeclared here (not in a function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c: In function `zttop2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:86: error: `MAXPNAME' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:86: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:86: error: for each function it appears in.)
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:87: error: `MAXAPATH' undeclared (first use in this function)
/usr/include/ctype.h: At top level:
/usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c:19: error: storage size of `pathname2' isn't known
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
AIPSCC    : ends with fatal error(s)!

    1:#define Z_ttop2__
    2:#include <unistd.h>
    3:#include <stdlib.h>
    4:#include <stdio.h>
    5:#include <string.h>
    7:#include <errno.h>
    8:#include <sys/types.h>
    9:#include <sys/socket.h>
   10:#include <sys/un.h>
   11:#include <netinet/in.h>
   12:#include <netdb.h>
   13:#include <sys/stat.h>
   14:#include <string.h>
   15:#include <ctype.h>
   16:#include <AIPSPROTO.H>
   17:                                        /* Global data for remembered */
   18:                                        /* translation and flag       */
   19:char pathname2[MAXAPATH];
   20:int remembered=0;
   21:struct sockaddr_un mc_sock_nune;
   22:struct sockaddr_in ms_sock_name;
   23:int msg_fd = -1;
   25:#if __STDC__
   26:   void zttop2_(int *fcb, char pname[MAXPNAME], int *ierr)
   27:#else
   28:   void zttop2_(fcb, pname, ierr)
   29:   int *fcb, *ierr;
   30:   char pname[MAXPNAME];
   31:#endif
   32:/*--------------------------------------------------------------------*/
   33:/*! read/write from/to a message terminal                             */
   34:/*# Graphics                                                          */
   35:/*--------------------------------------------------------------------*/
   36:/*;  Copyright (C) 1995-1998, 2000                                    */
   37:/*;  Associated Universities, Inc. Washington DC, USA.                */
   38:/*;                                                                   */
   39:/*;  This program is free software; you can redistribute it and/or    */
   40:/*;  modify it under the terms of the GNU General Public License as   */
   41:/*;  published by the Free Software Foundation; either version 2 of   */
   42:/*;  the License, or (at your option) any later version.              */
   43:/*;                                                                   */
   44:/*;  This program is distributed in the hope that it will be useful,  */
   45:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   46:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   47:/*;  GNU General Public License for more details.                     */
   48:/*;                                                                   */
   49:/*;  You should have received a copy of the GNU General Public        */
   50:/*;  License along with this program; if not, write to the Free       */
   51:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   52:/*;  MA 02139, USA.                                                   */
   53:/*;                                                                   */
   54:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   55:/*;         Internet email: aipsmail at nrao.edu.                        */
   56:/*;         Postal address: AIPS Project Office                       */
   57:/*;                         National Radio Astronomy Observatory      */
   58:/*;                         520 Edgemont Road                         */
   59:/*;                         Charlottesville, VA 22903-2475 USA        */
   60:/*--------------------------------------------------------------------*/
   61:/*  Open a message terminal for exclusive use.                        */
   62:/*                                                                    */
   63:/*  Inputs:                                                           */
   64:/*     pname   C*48   A "logical", either TTDEVnn or TASKTTn, which   */
   65:/*                      in turn translates to a hostname or hardwired */
   66:/*                      terminal device.  If translation cannot be    */
   67:/*                      accessed as a file, a socket is assumed.      */
   68:/*  Output:                                                           */
   69:/*     fcb     I(*)   File control block for opened device            */
   70:/*     ierr    I      Error return code: 0 => no error                */
   71:/*                             2 => no such logical device            */
   72:/*                             3 => invalid hostname or service       */
   73:/*                             6 => socket or connect call failed     */
   74:/*  Generic UNIX version -- assumes berkeley sockets.                 */
   75:/*  PPM 93/Mar/03: Pat Murphy, NRAO.  Clone of ztkop2, originally     */
   76:/*                 by Jonathan D. Eisenhamer, UCLA.                   */
   77:/*--------------------------------------------------------------------*/
   78:{
   79:                                        /* Offsets to entries in the  */
   80:                                        /* file control blocks        */
   81:   extern int Z_fcbfd, Z_fcbreq, Z_fcberr, Z_fcbxfr, Z_fcbsiz,
   82:      Z_fcbsp1, Z_fcbsp2, Z_fcbsp3, Z_fcbsp4, Z_nfcbfd, Z_nfcber;
   84:   int llen, xlen, tlen, xlnb, jerr, fd, isspec;
   85:   register int i;
   86:   char lognam[MAXPNAME],
   87:        pathname[MAXAPATH],
   88:        lnam[6], tlnam[8], *device;
   89:                                        /* Hostname, inet srvc info   */
   90:   struct hostent *hp;
   91:   struct servent *sp;
   92:                                        /* Socket descriptor, name    */
   93:   int s;
   94:/*--------------------------------------------------------------------*/
   95:   *ierr = 0;
   96:                                        /* Extract logical device     */
   97:                                        /* name.                      */
   98:   for (i = 0; i < MAXPNAME && pname[i] != ':' && pname[i] != ' '; i++)
   99:      lognam[i] = pname[i];
  100:   lognam[i] = '\0';
  101:                                        /* Translate logical device   */
  102:                                        /* name and null terminate.   */
  103:   jerr = 0;
  104:   if (remembered == 0) {
  105:      llen = MAXPNAME;
  106:      xlen = MAXAPATH;
  107:      ztrlo2_ (&llen, lognam, &xlen, pathname, &xlnb, &jerr);
  108:      if (jerr != 0) {
  109:         fprintf (stderr, "ZTTOP2: error translating %s\n", lognam);
  110:         *ierr = 2;
  111:         }
  112:      else {
  113:         if ((device = getenv(getenv("TVDEV"))) == NULL) {
  114:                                        /* undefined                  */
  115:            fprintf (stderr, "ZTTOP2: NO SUCH DEVICE = TVDEV\n");
  116:            *ierr = 2;
  117:            jerr = 2;
  118:            }
  119:         }
  120:      }
  121:                                        /* Only do if ztrlo2 worked.. */
  122:   if (jerr == 0) {
  123:                                        /* and if we haven't before.. */
  124:      if (remembered == 0) {
  125:         pathname[xlnb] = '\0';
  126:                                        /* open socket, INET domain   */
  127:         isspec = 2;
  128:         if (strncmp(device,"sssin",5) == 0) isspec = 1;
  129:                                        /* Now, if it's NOT special,  */
  130:                                        /* assume that it is meant to */
  131:                                        /* be an INET domain socket   */
  132:         if (isspec == 1) {
  133:            if ((hp = gethostbyname (pathname)) == 0) {
  134:                                        /* ouch, something is wrong   */
  135:               *(fcb + Z_nfcber) = errno;
  136:               *ierr = 3;
  137:               }
  138:            else if ((sp = getservbyname ("msgserv", "tcp")) == 0) {
  139:                                        /* Get the port on which the  */
  140:                                        /* the msgserver resides.     */
  141:               *(fcb + Z_nfcber) = errno;
  142:               *ierr = 3;
  143:               }
  144:            else {
  145:                                        /* ok, NOW remember this!     */
  146:               strcpy (pathname2, pathname);
  147:               remembered = isspec;
  148:               memset ((char *)&ms_sock_name, 0, sizeof (ms_sock_name));
  149:               memcpy ((char *)&ms_sock_name.sin_addr,
  150:                       (char *)hp->h_addr, hp->h_length);
  151:               ms_sock_name.sin_family = hp->h_addrtype;
  152:               ms_sock_name.sin_port   = sp->s_port;
  153:               }
  154:            }
  155:         else {                      /* INET domain */
  156:            if ((device = getenv(getenv("TTDEV"))) == NULL) {
  157:                                        /* undefined                  */
  158:               fprintf(stderr, "ZTTOP22: NO SUCH DEVICE = TTDEV\n");
  159:               *ierr = 2;
  160:               }
  161:            mc_sock_nune.sun_family = AF_UNIX;
  162:            strcpy(mc_sock_nune.sun_path, device);
  163:            remembered = isspec;
  164:            }
  165:         }
  166:      if (*ierr == 0) {
  167:                                        /* Create the communications  */
  168:                                        /* socket.                    */
  169:         if (remembered == 1) {
  170:            if ((s = socket (ms_sock_name.sin_family, SOCK_STREAM, 0))
  171:                == -1) {
  172:               *(fcb + Z_fcberr) = errno;
  173:               *ierr = 6;
  174:               }
  175:                                        /* Connect to the server.     */
  176:                                        /* From here on, everything   */
  177:                                        /* is treated the same.  Only */
  178:                                        /* thing to watch is how to   */
  179:                                        /* close things (zttcl2)      */
  180:                                        /* Note non-fcp I/O here!!!   */
  181:            else {
  182:               if (connect (s,  (struct sockaddr *) &ms_sock_name,
  183:                  sizeof(ms_sock_name)) == -1) {
  184:                  *(fcb + Z_nfcber) = errno;
  185:                  *ierr = 6;
  186:                  close(s);
  187:                  *(fcb + Z_nfcbfd) = 0;
  188:                  }
  189:               else {
  190:                  *(fcb + Z_nfcbfd) = s;
  191:                  *(fcb + Z_nfcber) = 0;
  192:                  }
  193:               }
  194:            }
  195:         else {
  196:            if ((s = (int)socket(AF_UNIX, SOCK_STREAM, 0)) < 0) {
  197:               perror("TTOP2 socket (UNIX)");
  198:               *(fcb + Z_nfcber) = errno;
  199:               *ierr = 1;
  200:               }
  201:            else {
  202:               if (connect(s, (struct sockaddr *) &mc_sock_nune,
  203:                  (sizeof(mc_sock_nune.sun_path)
  204:                  +sizeof(mc_sock_nune.sun_family))) < 0) {
  205:/*                perror("TTOP2 connect (UNIX)");  */
  206:                  *(fcb + Z_nfcber) = errno;
  207:                  *ierr = 6;
  208:                  close(s);
  209:                  *(fcb + Z_nfcbfd) = 0;
  210:                  }
  211:               else {
  212:                  *(fcb + Z_nfcbfd) = s;
  213:                  *(fcb + Z_nfcber) = 0;
  214:                  }
  215:               }
  216:            }
  217:         }
  218:      }
  219:                                        /* something went amiss, so   */
  220:                                        /* reset TTDEV and quit       */
  221:   if (*ierr != 0) {
  222:      remembered = 0;
  223:      strcpy(lnam, "TTDEV");
  224:      strcpy(tlnam, "TTDEV00");
  225:      llen=strlen(lnam);
  226:      tlen=strlen(tlnam);
  227:      zcrlog_(&llen, lnam, &tlen, tlnam, &jerr);
  228:      if (jerr != 0) {
  229:         fprintf (stderr,
  230:                "ZTTOP2: (info) problem opening socket to msgserver\n");
  231:         fprintf (stderr,
  232:                "ZTTOP2: (info) failed to reset message device\n");
  233:         }
  234:      }
  236:                                       /* store the file descriptor  */
  237:                                       /* so that ZTACV9 can get at  */
  238:                                       /* it                         */
  239:   msg_fd = *(fcb + Z_nfcbfd);
  241:   return;
  242:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTTOP2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTTOP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
COMRPL    : Date       Fri Jul 18 17:41:51 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTXMA2.C
COMRPL    : for        /usr/local/aips/31DEC03/APL/DEV/ZTXMA2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/APL/DEV/UNIX/ZTXMA2.C
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
AIPSCC    : Date       Fri Jul 18 17:41:51 CDT 2003
AIPSCC    : Interpret  AIPSCC  \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
AIPSCC    : as         LIST=FALSE PURGE=TRUE
AIPSCC    : plus       /usr/local/bin/gcc -c -O3 -fomit-frame-pointer -funroll-loops -I/usr/local/aips/31DEC02/INC -D_FILE_OFFSET_BITS=64 -DHAVE_LINUX_GLIBC -DHAVE_LINUX_GLIBC \
AIPSCC    :            /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c:10:23: AIPSPROTO.H: No such file or directory
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c: In function `ztxma2_':
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c:72: error: `MAXAPATH' undeclared (first use in this function)
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c:72: error: (Each undeclared identifier is reported only once
/usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c:72: error: for each function it appears in.)
AIPSCC    : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
AIPSCC    : ends with fatal error(s)!

    1:#ifndef _POSIX_SOURCE
    2:#define _POSIX_SOURCE
    3:#endif
    4:#define Z_txma2__
    5:#include <unistd.h>
    6:#include <stdlib.h>
    7:#include <sys/types.h>
    8:#include <string.h>
    9:#include <dirent.h>
   10:#include <AIPSPROTO.H>
   12:#if __STDC__
   13:   void ztxma2_(int *flen, char *filspc, int *nmax, int *iext,
   14:      int *nnam, char *names, int *ierr)
   15:#else
   16:   void ztxma2_(flen, filspc, nmax, iext, nnam, names, ierr)
   17:   int *flen, *nmax, *iext, *nnam, *ierr;
   18:   char filspc[], names[];
   19:#endif
   20:/*--------------------------------------------------------------------*/
   21:/*! find all file names matching a given wildcard specification       */
   22:/*# Text                                                              */
   23:/*--------------------------------------------------------------------*/
   24:/*;  Copyright (C) 1995, 1997                                         */
   25:/*;  Associated Universities, Inc. Washington DC, USA.                */
   26:/*;                                                                   */
   27:/*;  This program is free software; you can redistribute it and/or    */
   28:/*;  modify it under the terms of the GNU General Public License as   */
   29:/*;  published by the Free Software Foundation; either version 2 of   */
   30:/*;  the License, or (at your option) any later version.              */
   31:/*;                                                                   */
   32:/*;  This program is distributed in the hope that it will be useful,  */
   33:/*;  but WITHOUT ANY WARRANTY; without even the implied warranty of   */
   34:/*;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    */
   35:/*;  GNU General Public License for more details.                     */
   36:/*;                                                                   */
   37:/*;  You should have received a copy of the GNU General Public        */
   38:/*;  License along with this program; if not, write to the Free       */
   39:/*;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,     */
   40:/*;  MA 02139, USA.                                                   */
   41:/*;                                                                   */
   42:/*;  Correspondence concerning AIPS should be addressed as follows:   */
   43:/*;         Internet email: aipsmail at nrao.edu.                        */
   44:/*;         Postal address: AIPS Project Office                       */
   45:/*;                         National Radio Astronomy Observatory      */
   46:/*;                         520 Edgemont Road                         */
   47:/*;                         Charlottesville, VA 22903-2475 USA        */
   48:/*--------------------------------------------------------------------*/
   49:/*  Find all file names that match a given wild card specification.   */
   50:/*  Supports <aa>*<bb> only.                                          */
   51:/*  Inputs:                                                           */
   52:/*     flen     I          Length in characters of "filspc"           */
   53:/*     filspc   C*(flen)   File specification                         */
   54:/*     nmax     I          Maximum number of names                    */
   55:/*     iext     I          Extension disposition indicator:           */
   56:/*                            0 => remove extension                   */
   57:/*                            1 => retain extension                   */
   58:/*  Output:                                                           */
   59:/*     nnam     I          Number of matching names found             */
   60:/*     names    H*12(nmax) Array of matching names (H for Macro, C...)*/
   61:/*     ierr     I          Error return code:                         */
   62:/*                            0 => no error                           */
   63:/*                            1 => no matching names found            */
   64:/*                            2 => error opening or closing directory */
   65:/*  Generic UNIX version -                                            */
   66:/*  This is Posix-compliant and simple minded: it can handle name*    */
   67:/*  and *name and not much else.  This is enough for AIPS.            */
   68:/*--------------------------------------------------------------------*/
   69:{
   70:   DIR           *dfd;
   71:   struct dirent *dirp;
   72:   char          dspc[MAXAPATH], fspc[MAXAPATH], bspc[MAXAPATH];
   73:   register int  i, j, k, l;
   74:   int           nf, nb, nt;
   75:/*--------------------------------------------------------------------*/
   76:   *ierr = 0;
   77:   *nnam = 0;
   78:                                        /* Determine the beginning of */
   79:                                        /* the file name (end of      */
   80:                                        /* directory name) as "i".    */
   81:   i = 0;
   82:   for (j = 0; j < *flen; j++)
   83:      if (filspc[j] == '/') i = j;
   84:                                        /* Extract directory name.    */
   85:   for (j = 0; j < i; j++)
   86:      dspc[j] = filspc[j];
   87:   dspc[i] = '\0';
   88:                                        /* Provide for no directory.  */
   89:   if (i == 0)
   90:      i = -1;
   91:                                        /* Collect chars before '*'   */
   92:   nf = 0;
   93:   for (j = i + 1; j < *flen && nf < MAXAPATH && filspc[j] != '*' &&
   94:      filspc[j] != '\0' && filspc[j] != ' '; j++) {
   95:      fspc[nf] = filspc[j];
   96:      nf = nf + 1;
   97:      }
   98:   fspc[nf] = '\0';
   99:                                        /* Collect chars after '*'    */
  100:   nb = 0;
  101:   if (filspc[j] == '*') {
  102:      for (j = j + 1; j < *flen && nb < MAXAPATH && filspc[j] != '\0'
  103:         && filspc[j] != ' '; j++) {
  104:         bspc[nb] = filspc[j];
  105:         nb = nb + 1;
  106:         }
  107:      }
  108:   bspc[nb] = '\0';
  109:                                        /* Open directory             */
  110:   if ((dfd = opendir (dspc)) == NULL)
  111:      *ierr = 2;
  112:                                        /* Collect filenames that     */
  113:                                        /* meet specifications.       */
  114:   else {
  115:      while (((dirp = readdir (dfd)) != NULL) &&  (*nnam < *nmax)) {
  116:                                        /* Directory slot not in use. */
  117:         if (dirp->d_ino == 0)
  118:            continue;
  119:                                        /* Skip self and parent.      */
  120:         if (strcmp (dirp->d_name,".")  == 0 ||
  121:             strcmp (dirp->d_name,"..") == 0)
  122:            continue;
  123:                                        /* Compare forwards.          */
  124:         if (nf > 0) {
  125:            for (i = 0; i < nf && i < MAXAPATH; i++) {
  126:               if (dirp->d_name[i] != fspc[i]) goto skip;
  127:               }
  128:            }
  129:                                        /* Compare backwards.         */
  130:         if (nb > 0) {
  131:                                        /* Get length                 */
  132:            for (nt = 0; nt < MAXAPATH && dirp->d_name[nt] != '\0'
  133:              && dirp->d_name[nt] != ' '; nt++);
  134:            k = 0;
  135:            for (i = nt - 1; i >= 0 && k < nb; i--) {
  136:               if (dirp->d_name[i] != bspc[nb-k-1]) goto skip;
  137:               k = k + 1;
  138:               }
  139:            }
  140:                                        /* Found a match:             */
  141:                                        /* find end & last . of name  */
  142:         k = 0;
  143:         l = 0;
  144:         for (i = 0; i < 12 && dirp->d_name[i] != '\0'; i++) {
  145:             k = i;
  146:             if (dirp->d_name[i] == '.') l = i;
  147:             }
  148:         if (l == 0) l = k + 1;
  149:                                        /* Strip extension.           */
  150:         if (*iext == 0) k = l - 1;
  151:                                        /* copy name, blank fill      */
  152:         for (i = 0; i < 12; i++) {
  153:            j = (*nnam * 12) + i;
  154:            if (i > k)
  155:               names[j] = ' ';
  156:            else
  157:               names[j] = dirp->d_name[i];
  158:            }
  159:                                        /* Increment number found.    */
  160:         *nnam = *nnam + 1;
  161:                                        /* Failed to match: skip      */
  162:   skip:
  163:         continue;
  164:         }
  165:                                        /* Close directory.           */
  166:      if (closedir (dfd) != 0)
  167:         *ierr = 2;
  168:      }
  169:                                        /* If more than one, sort     */
  170:                                        /* alphabetically.            */
  171:   if (*nnam > 1)
  172:#if __STDC__
  173:      qsort ((void *) names, (size_t) *nnam, (size_t) 12,
  174:         (int (*)(const void *, const void *)) strcmp);
  175:#else
  176:      qsort (names, *nnam, 12, strcmp);
  177:#endif
  178:   else if (*nnam == 0)
  179:      *ierr = 1;
  181:   return;
  182:}
COMRPL    : Compile failed!
COMRPL    : Deleted    /usr/local/aips/31DEC03/LINUX/PREP/ZTXMA2.c
COMRPL    : Leave      /usr/local/aips/31DEC03/APL/DEV/ZTXMA2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/APLGEN.LIS
COMRPL    : unchanged as it FAILED to compile.
INSTEP2   : Failure in $APLGEN/...
INSTEP2   : compilations.
INSTEP2   : Aborts!    Fri Jul 18 17:41:52 CDT 2003
INSTEP2   : Begins     Tue Jul 22 14:17:36 CDT 2003

INSTEP2   : Create any missing binary file directories.

INSTEP2   : Directory /usr/local/aips/31DEC03/LINUX/LIBR
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLNOT
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QOOP
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/QSUB
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/YSS
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LIBR/YSUB
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/LOAD
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/MEMORY
INSTEP2   : already exists (no need to create).
INSTEP2   : Directory  /usr/local/aips/31DEC03/LINUX/ERRORS
INSTEP2   : already exists (no need to create).

INSTEP2   : Grind away on mass compilation of subroutines.
INSTEP2   : This part can take a very long time.

INSTEP2   : Process    $AIPSUB/...
INSTEP2   : subroutines.
INSTEP2   : Library    /usr/local/aips/31DEC03/LINUX/LIBR/AIPSUB/SUBLIB
INSTEP2   : already exists.
INSTEP2   : Skip       $AIPSUB/...
INSTEP2   : compilations.
INSTEP2   : Process    $APLSUB/...
INSTEP2   : subroutines.
INSTEP2   : Library    /usr/local/aips/31DEC03/LINUX/LIBR/APLSUB/SUBLIB
INSTEP2   : already exists.
INSTEP2   : Skip       $APLSUB/...
INSTEP2   : compilations.
INSTEP2   : Process    $APLOOP/...
INSTEP2   : subroutines.
INSTEP2   : Library    /usr/local/aips/31DEC03/LINUX/LIBR/APLOOP/SUBLIB
INSTEP2   : already exists.
INSTEP2   : Skip       $APLOOP/...
INSTEP2   : compilations.
INSTEP2   : Process    $APLGEN/...
INSTEP2   : subroutines.
INSTEP2   : Library    /usr/local/aips/31DEC03/LINUX/LIBR/APLLINUX/SUBLIB
INSTEP2   : already exists.
INSTEP2   : Skip       $APLGEN/...
INSTEP2   : compilations.
INSTEP2   : Process    $YGEN/...
INSTEP2   : subroutines.
MAKEAT    : Making     YGEN.LIS
INSTEP2   : Begin      $YGEN/...
INSTEP2   : compilations of
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YALUCT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YCHRW.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YCINIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YCNECT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YCONST.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YCOVER.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YCRCTL.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YCREAD.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YCUCOR.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YCURSE.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YCWRIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YDIE.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YDTVC.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YFDBCK.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YFILL.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YFIND.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YGGRAM.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YGRAFE.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YGRAFX.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YGRAPH.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YGYHDR.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YHOLD.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YIFM.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YIMGIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YINIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YISDRM.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YISDSC.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YISJMP.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YISLOD.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YISMPM.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YLOCAT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YLOWON.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YLUT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YMAGIC.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YMKCUR.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YMKHDR.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YMNMAX.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YOFM.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YRHIST.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YSCROL.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YSHIFT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YSLECT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YSPLIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YSTCUR.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YTCOMP.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YTVCIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YTVCL2.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YTVCLS.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YTVMC.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YTVOP2.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YTVOPN.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YWINDO.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YZERO.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/DEV/YZOOMC.FOR
COMRPL    : Date       Tue Jul 22 14:17:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YALUCT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YALUCT.f
FC        : Date       Tue Jul 22 14:17:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YALUCT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YALUCT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YALUCT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YALUCT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YALUCT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YALUCT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YALUCT.FOR
COMRPL    : Date       Tue Jul 22 14:17:40 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YCHRW.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YCHRW.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YCHRW.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YCHRW.f
FC        : Date       Tue Jul 22 14:17:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCHRW.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCHRW.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YCHRW.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YCHRW.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YCHRW.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YCHRW.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YCHRW.FOR
COMRPL    : Date       Tue Jul 22 14:17:41 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YCINIT.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YCINIT.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YCINIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YCINIT.f
FC        : Date       Tue Jul 22 14:17:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCINIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCINIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YCINIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YCINIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YCINIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YCINIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YCINIT.FOR
COMRPL    : Date       Tue Jul 22 14:17:42 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YCNECT.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YCNECT.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YCNECT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YCNECT.f
FC        : Date       Tue Jul 22 14:17:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCNECT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCNECT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YCNECT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YCNECT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YCNECT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YCNECT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YCNECT.FOR
COMRPL    : Date       Tue Jul 22 14:17:42 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YCONST.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YCONST.f
FC        : Date       Tue Jul 22 14:17:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCONST.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCONST.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YCONST.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YCONST.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YCONST.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YCONST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YCONST.FOR
COMRPL    : Date       Tue Jul 22 14:17:43 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YCOVER.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YCOVER.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YCOVER.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YCOVER.f
FC        : Date       Tue Jul 22 14:17:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCOVER.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCOVER.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YCOVER.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YCOVER.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YCOVER.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YCOVER.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YCOVER.FOR
COMRPL    : Date       Tue Jul 22 14:17:44 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YCRCTL.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YCRCTL.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YCRCTL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YCRCTL.f
FC        : Date       Tue Jul 22 14:17:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCRCTL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCRCTL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YCRCTL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YCRCTL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YCRCTL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YCRCTL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YCRCTL.FOR
COMRPL    : Date       Tue Jul 22 14:17:45 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YCREAD.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YCREAD.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YCREAD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YCREAD.f
FC        : Date       Tue Jul 22 14:17:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCREAD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCREAD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YCREAD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YCREAD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YCREAD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YCREAD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YCREAD.FOR
COMRPL    : Date       Tue Jul 22 14:17:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YCUCOR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YCUCOR.f
FC        : Date       Tue Jul 22 14:17:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCUCOR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCUCOR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YCUCOR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YCUCOR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YCUCOR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YCUCOR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YCUCOR.FOR
COMRPL    : Date       Tue Jul 22 14:17:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YCURSE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YCURSE.f
FC        : Date       Tue Jul 22 14:17:48 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCURSE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCURSE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YCURSE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YCURSE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YCURSE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YCURSE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YCURSE.FOR
COMRPL    : Date       Tue Jul 22 14:17:48 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YCWRIT.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YCWRIT.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YCWRIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YCWRIT.f
FC        : Date       Tue Jul 22 14:17:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCWRIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YCWRIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YCWRIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YCWRIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YCWRIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YCWRIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YCWRIT.FOR
COMRPL    : Date       Tue Jul 22 14:17:49 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YDIE.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YDIE.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YDIE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YDIE.f
FC        : Date       Tue Jul 22 14:17:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YDIE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YDIE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YDIE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YDIE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YDIE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YDIE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YDIE.FOR
COMRPL    : Date       Tue Jul 22 14:17:50 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YDTVC.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YDTVC.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YDTVC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YDTVC.f
FC        : Date       Tue Jul 22 14:17:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YDTVC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YDTVC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YDTVC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YDTVC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YDTVC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YDTVC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YDTVC.FOR
COMRPL    : Date       Tue Jul 22 14:17:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YFDBCK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YFDBCK.f
FC        : Date       Tue Jul 22 14:17:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YFDBCK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YFDBCK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YFDBCK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YFDBCK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YFDBCK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YFDBCK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YFDBCK.FOR
COMRPL    : Date       Tue Jul 22 14:17:52 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YFILL.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YFILL.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YFILL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YFILL.f
FC        : Date       Tue Jul 22 14:17:52 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YFILL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YFILL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YFILL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YFILL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YFILL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YFILL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YFILL.FOR
COMRPL    : Date       Tue Jul 22 14:17:53 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YFIND.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YFIND.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YFIND.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YFIND.f
FC        : Date       Tue Jul 22 14:17:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YFIND.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YFIND.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YFIND.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YFIND.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YFIND.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YFIND.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YFIND.FOR
COMRPL    : Date       Tue Jul 22 14:17:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YGGRAM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YGGRAM.f
FC        : Date       Tue Jul 22 14:17:54 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YGGRAM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YGGRAM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YGGRAM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YGGRAM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YGGRAM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YGGRAM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YGGRAM.FOR
COMRPL    : Date       Tue Jul 22 14:17:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YGRAFE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YGRAFE.f
FC        : Date       Tue Jul 22 14:17:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YGRAFE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YGRAFE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YGRAFE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YGRAFE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YGRAFE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YGRAFE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YGRAFE.FOR
COMRPL    : Date       Tue Jul 22 14:17:55 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YGRAFX.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YGRAFX.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YGRAFX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YGRAFX.f
FC        : Date       Tue Jul 22 14:17:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YGRAFX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YGRAFX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YGRAFX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YGRAFX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YGRAFX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YGRAFX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YGRAFX.FOR
COMRPL    : Date       Tue Jul 22 14:17:56 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YGRAPH.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YGRAPH.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YGRAPH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YGRAPH.f
FC        : Date       Tue Jul 22 14:17:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YGRAPH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YGRAPH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YGRAPH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YGRAPH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YGRAPH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YGRAPH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YGRAPH.FOR
COMRPL    : Date       Tue Jul 22 14:17:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YGYHDR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YGYHDR.f
FC        : Date       Tue Jul 22 14:17:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YGYHDR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YGYHDR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YGYHDR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YGYHDR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YGYHDR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YGYHDR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YGYHDR.FOR
COMRPL    : Date       Tue Jul 22 14:17:57 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YHOLD.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YHOLD.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YHOLD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YHOLD.f
FC        : Date       Tue Jul 22 14:17:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YHOLD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YHOLD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YHOLD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YHOLD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YHOLD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YHOLD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YHOLD.FOR
COMRPL    : Date       Tue Jul 22 14:17:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YIFM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YIFM.f
FC        : Date       Tue Jul 22 14:17:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YIFM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YIFM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YIFM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YIFM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YIFM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YIFM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YIFM.FOR
COMRPL    : Date       Tue Jul 22 14:17:58 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YIMGIO.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YIMGIO.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YIMGIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YIMGIO.f
FC        : Date       Tue Jul 22 14:17:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YIMGIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YIMGIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YIMGIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YIMGIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YIMGIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YIMGIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YIMGIO.FOR
COMRPL    : Date       Tue Jul 22 14:17:58 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YINIT.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YINIT.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YINIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YINIT.f
FC        : Date       Tue Jul 22 14:17:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YINIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YINIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YINIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YINIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YINIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YINIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YINIT.FOR
COMRPL    : Date       Tue Jul 22 14:18:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YISDRM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YISDRM.f
FC        : Date       Tue Jul 22 14:18:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YISDRM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YISDRM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YISDRM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YISDRM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YISDRM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YISDRM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YISDRM.FOR
COMRPL    : Date       Tue Jul 22 14:18:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YISDSC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YISDSC.f
FC        : Date       Tue Jul 22 14:18:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YISDSC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YISDSC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YISDSC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YISDSC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YISDSC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YISDSC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YISDSC.FOR
COMRPL    : Date       Tue Jul 22 14:18:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YISJMP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YISJMP.f
FC        : Date       Tue Jul 22 14:18:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YISJMP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YISJMP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YISJMP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YISJMP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YISJMP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YISJMP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YISJMP.FOR
COMRPL    : Date       Tue Jul 22 14:18:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YISLOD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YISLOD.f
FC        : Date       Tue Jul 22 14:18:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YISLOD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YISLOD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YISLOD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YISLOD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YISLOD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YISLOD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YISLOD.FOR
COMRPL    : Date       Tue Jul 22 14:18:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YISMPM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YISMPM.f
FC        : Date       Tue Jul 22 14:18:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YISMPM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YISMPM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YISMPM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YISMPM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YISMPM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YISMPM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YISMPM.FOR
COMRPL    : Date       Tue Jul 22 14:18:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YLOCAT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YLOCAT.f
FC        : Date       Tue Jul 22 14:18:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YLOCAT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YLOCAT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YLOCAT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YLOCAT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YLOCAT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YLOCAT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YLOCAT.FOR
COMRPL    : Date       Tue Jul 22 14:18:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YLOWON.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YLOWON.f
FC        : Date       Tue Jul 22 14:18:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YLOWON.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YLOWON.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YLOWON.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YLOWON.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YLOWON.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YLOWON.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YLOWON.FOR
COMRPL    : Date       Tue Jul 22 14:18:06 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YLUT.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YLUT.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YLUT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YLUT.f
FC        : Date       Tue Jul 22 14:18:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YLUT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YLUT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YLUT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YLUT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YLUT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YLUT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YLUT.FOR
COMRPL    : Date       Tue Jul 22 14:18:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YMAGIC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YMAGIC.f
FC        : Date       Tue Jul 22 14:18:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YMAGIC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YMAGIC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YMAGIC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YMAGIC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YMAGIC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YMAGIC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YMAGIC.FOR
COMRPL    : Date       Tue Jul 22 14:18:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YMKCUR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YMKCUR.f
FC        : Date       Tue Jul 22 14:18:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YMKCUR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YMKCUR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YMKCUR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YMKCUR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YMKCUR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YMKCUR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YMKCUR.FOR
COMRPL    : Date       Tue Jul 22 14:18:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YMKHDR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YMKHDR.f
FC        : Date       Tue Jul 22 14:18:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YMKHDR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YMKHDR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YMKHDR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YMKHDR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YMKHDR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YMKHDR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YMKHDR.FOR
COMRPL    : Date       Tue Jul 22 14:18:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YMNMAX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YMNMAX.f
FC        : Date       Tue Jul 22 14:18:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YMNMAX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YMNMAX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YMNMAX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YMNMAX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YMNMAX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YMNMAX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YMNMAX.FOR
COMRPL    : Date       Tue Jul 22 14:18:10 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YOFM.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YOFM.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YOFM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YOFM.f
FC        : Date       Tue Jul 22 14:18:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YOFM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YOFM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YOFM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YOFM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YOFM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YOFM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YOFM.FOR
COMRPL    : Date       Tue Jul 22 14:18:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YRHIST.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YRHIST.f
FC        : Date       Tue Jul 22 14:18:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YRHIST.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YRHIST.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YRHIST.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YRHIST.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YRHIST.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YRHIST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YRHIST.FOR
COMRPL    : Date       Tue Jul 22 14:18:12 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YSCROL.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YSCROL.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YSCROL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YSCROL.f
FC        : Date       Tue Jul 22 14:18:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YSCROL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YSCROL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YSCROL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YSCROL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YSCROL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YSCROL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YSCROL.FOR
COMRPL    : Date       Tue Jul 22 14:18:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YSHIFT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YSHIFT.f
FC        : Date       Tue Jul 22 14:18:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YSHIFT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YSHIFT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YSHIFT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YSHIFT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YSHIFT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YSHIFT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YSHIFT.FOR
COMRPL    : Date       Tue Jul 22 14:18:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YSLECT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YSLECT.f
FC        : Date       Tue Jul 22 14:18:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YSLECT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YSLECT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YSLECT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YSLECT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YSLECT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YSLECT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YSLECT.FOR
COMRPL    : Date       Tue Jul 22 14:18:15 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YSPLIT.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YSPLIT.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YSPLIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YSPLIT.f
FC        : Date       Tue Jul 22 14:18:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YSPLIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YSPLIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YSPLIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YSPLIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YSPLIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YSPLIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YSPLIT.FOR
COMRPL    : Date       Tue Jul 22 14:18:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YSTCUR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YSTCUR.f
FC        : Date       Tue Jul 22 14:18:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YSTCUR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YSTCUR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YSTCUR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YSTCUR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YSTCUR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YSTCUR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YSTCUR.FOR
COMRPL    : Date       Tue Jul 22 14:18:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YTCOMP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YTCOMP.f
FC        : Date       Tue Jul 22 14:18:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YTCOMP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YTCOMP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YTCOMP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YTCOMP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YTCOMP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YTCOMP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YTCOMP.FOR
COMRPL    : Date       Tue Jul 22 14:18:17 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YTVCIN.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YTVCIN.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YTVCIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YTVCIN.f
FC        : Date       Tue Jul 22 14:18:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YTVCIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YTVCIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YTVCIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YTVCIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YTVCIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YTVCIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YTVCIN.FOR
COMRPL    : Date       Tue Jul 22 14:18:18 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YTVCL2.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YTVCL2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YTVCL2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YTVCL2.f
FC        : Date       Tue Jul 22 14:18:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YTVCL2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YTVCL2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YTVCL2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YTVCL2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YTVCL2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YTVCL2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YTVCL2.FOR
COMRPL    : Date       Tue Jul 22 14:18:19 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YTVCLS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YTVCLS.f
FC        : Date       Tue Jul 22 14:18:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YTVCLS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YTVCLS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YTVCLS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YTVCLS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YTVCLS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YTVCLS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YTVCLS.FOR
COMRPL    : Date       Tue Jul 22 14:18:20 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YTVMC.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YTVMC.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YTVMC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YTVMC.f
FC        : Date       Tue Jul 22 14:18:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YTVMC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YTVMC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YTVMC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YTVMC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YTVMC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YTVMC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YTVMC.FOR
COMRPL    : Date       Tue Jul 22 14:18:21 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YTVOP2.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YTVOP2.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YTVOP2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YTVOP2.f
FC        : Date       Tue Jul 22 14:18:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YTVOP2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YTVOP2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YTVOP2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YTVOP2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YTVOP2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YTVOP2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YTVOP2.FOR
COMRPL    : Date       Tue Jul 22 14:18:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/YTVOPN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YTVOPN.f
FC        : Date       Tue Jul 22 14:18:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YTVOPN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YTVOPN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YTVOPN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YTVOPN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YTVOPN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YTVOPN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YTVOPN.FOR
COMRPL    : Date       Tue Jul 22 14:18:23 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YWINDO.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YWINDO.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YWINDO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YWINDO.f
FC        : Date       Tue Jul 22 14:18:23 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YWINDO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YWINDO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YWINDO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YWINDO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YWINDO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YWINDO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YWINDO.FOR
COMRPL    : Date       Tue Jul 22 14:18:24 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YZERO.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YZERO.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YZERO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YZERO.f
FC        : Date       Tue Jul 22 14:18:24 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YZERO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YZERO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YZERO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YZERO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YZERO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YZERO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YZERO.FOR
COMRPL    : Date       Tue Jul 22 14:18:24 CDT 2003
COMRPL    : Substitute /usr/local/aips/31DEC03/Y/DEV/SS/YZOOMC.FOR
COMRPL    : for        /usr/local/aips/31DEC03/Y/DEV/YZOOMC.FOR
PP        : Preprocess /usr/local/aips/31DEC03/Y/DEV/SS/YZOOMC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/YZOOMC.f
FC        : Date       Tue Jul 22 14:18:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YZOOMC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/YZOOMC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/YZOOMC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/YZOOMC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/YZOOMC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/DEV/YZOOMC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YGEN.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/DEV/YZOOMC.FOR
INSTEP2   : End of     $YGEN/...
INSTEP2   : compilations.
INSTEP2   : Begin      /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB
INSTEP2   : library creation.
LIBR      : Create new /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB.23748
LIBR      : created
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB.23748
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YALUCT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCHRW.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCINIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCNECT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCONST.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCOVER.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCRCTL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCREAD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCUCOR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCURSE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCWRIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YDIE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YDTVC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YFDBCK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YFILL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YFIND.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YGGRAM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YGRAFE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YGRAFX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YGRAPH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YGYHDR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YHOLD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YIFM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YIMGIO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YINIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YISDRM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YISDSC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YISJMP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YISLOD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YISMPM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YLOCAT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YLOWON.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YLUT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YMAGIC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YMKCUR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YMKHDR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YMNMAX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YOFM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YRHIST.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YSCROL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YSHIFT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YSLECT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YSPLIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YSTCUR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YTCOMP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YTVCIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YTVCL2.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YTVCLS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YTVMC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YTVOP2.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YTVOPN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YWINDO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YZERO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YZOOMC.o
LIBR      : Randomize  /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB.23748
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB.23748
LIBR      : randomized.
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YALUCT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCHRW.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCINIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCNECT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCONST.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCOVER.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCRCTL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCREAD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCUCOR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCURSE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YCWRIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YDIE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YDTVC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YFDBCK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YFILL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YFIND.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YGGRAM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YGRAFE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YGRAFX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YGRAPH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YGYHDR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YHOLD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YIFM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YIMGIO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YINIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YISDRM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YISDSC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YISJMP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YISLOD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YISMPM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YLOCAT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YLOWON.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YLUT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YMAGIC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YMKCUR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YMKHDR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YMNMAX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YOFM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YRHIST.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YSCROL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YSHIFT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YSLECT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YSPLIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YSTCUR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YTCOMP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YTVCIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YTVCL2.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YTVCLS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YTVMC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YTVOP2.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YTVOPN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YWINDO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YZERO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/YZOOMC.o
LIBR      : Moved      /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB.23748
LIBR      : to         /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB
INSTEP2   : End of     /usr/local/aips/31DEC03/LINUX/LIBR/YSS/SUBLIB
INSTEP2   : library creation.
INSTEP2   : Process    $YSUB/...
INSTEP2   : subroutines.
INSTEP2   : Library    /usr/local/aips/31DEC03/LINUX/LIBR/YSUB/SUBLIB
INSTEP2   : already exists.
INSTEP2   : Skip       $YSUB/...
INSTEP2   : compilations.
INSTEP2   : Process    $YNOT/...
INSTEP2   : subroutines.
MAKEAT    : Making     YNOT.LIS
INSTEP2   : Begin      $YNOT/...
INSTEP2   : compilations of
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/AITOFF.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/IMOPEN.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/MODPLT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/PLAXES.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/PLCLOS.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/PLDRW.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/PLEND.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/PLINIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/PLLINE.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/PLMAKE.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/PLOTDA.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/PLPGO.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/PLPNT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/PLRANG.FOR
INSTEP2   : /usr/local/aips/31DEC03/Y/SUB/NOTST/PLTSET.FOR
COMRPL    : Date       Tue Jul 22 14:18:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/AITOFF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AITOFF.f
FC        : Date       Tue Jul 22 14:18:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AITOFF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AITOFF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AITOFF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AITOFF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AITOFF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/AITOFF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/AITOFF.FOR
COMRPL    : Date       Tue Jul 22 14:18:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/IMOPEN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/IMOPEN.f
FC        : Date       Tue Jul 22 14:18:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMOPEN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMOPEN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/IMOPEN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/IMOPEN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/IMOPEN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/IMOPEN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/IMOPEN.FOR
COMRPL    : Date       Tue Jul 22 14:18:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/MODPLT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MODPLT.f
FC        : Date       Tue Jul 22 14:18:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MODPLT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MODPLT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MODPLT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MODPLT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MODPLT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/MODPLT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/MODPLT.FOR
COMRPL    : Date       Tue Jul 22 14:18:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/PLAXES.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PLAXES.f
FC        : Date       Tue Jul 22 14:18:30 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLAXES.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLAXES.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PLAXES.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PLAXES.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PLAXES.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/PLAXES.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/PLAXES.FOR
COMRPL    : Date       Tue Jul 22 14:18:30 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/PLCLOS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PLCLOS.f
FC        : Date       Tue Jul 22 14:18:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLCLOS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLCLOS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PLCLOS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PLCLOS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PLCLOS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/PLCLOS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/PLCLOS.FOR
COMRPL    : Date       Tue Jul 22 14:18:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/PLDRW.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PLDRW.f
FC        : Date       Tue Jul 22 14:18:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLDRW.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLDRW.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PLDRW.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PLDRW.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PLDRW.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/PLDRW.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/PLDRW.FOR
COMRPL    : Date       Tue Jul 22 14:18:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/PLEND.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PLEND.f
FC        : Date       Tue Jul 22 14:18:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLEND.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLEND.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PLEND.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PLEND.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PLEND.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/PLEND.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/PLEND.FOR
COMRPL    : Date       Tue Jul 22 14:18:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/PLINIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PLINIT.f
FC        : Date       Tue Jul 22 14:18:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLINIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLINIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PLINIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PLINIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PLINIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/PLINIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/PLINIT.FOR
COMRPL    : Date       Tue Jul 22 14:18:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/PLLINE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PLLINE.f
FC        : Date       Tue Jul 22 14:18:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLLINE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLLINE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PLLINE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PLLINE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PLLINE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/PLLINE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/PLLINE.FOR
COMRPL    : Date       Tue Jul 22 14:18:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/PLMAKE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PLMAKE.f
FC        : Date       Tue Jul 22 14:18:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLMAKE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLMAKE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PLMAKE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PLMAKE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PLMAKE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/PLMAKE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/PLMAKE.FOR
COMRPL    : Date       Tue Jul 22 14:18:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/PLOTDA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PLOTDA.f
FC        : Date       Tue Jul 22 14:18:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLOTDA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLOTDA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PLOTDA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PLOTDA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PLOTDA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/PLOTDA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/PLOTDA.FOR
COMRPL    : Date       Tue Jul 22 14:18:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/PLPGO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PLPGO.f
FC        : Date       Tue Jul 22 14:18:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLPGO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLPGO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PLPGO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PLPGO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PLPGO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/PLPGO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/PLPGO.FOR
COMRPL    : Date       Tue Jul 22 14:18:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/PLPNT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PLPNT.f
FC        : Date       Tue Jul 22 14:18:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLPNT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLPNT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PLPNT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PLPNT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PLPNT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/PLPNT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/PLPNT.FOR
COMRPL    : Date       Tue Jul 22 14:18:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/PLRANG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PLRANG.f
FC        : Date       Tue Jul 22 14:18:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLRANG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLRANG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PLRANG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PLRANG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PLRANG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/PLRANG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/PLRANG.FOR
COMRPL    : Date       Tue Jul 22 14:18:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Y/SUB/NOTST/PLTSET.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PLTSET.f
FC        : Date       Tue Jul 22 14:18:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLTSET.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PLTSET.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PLTSET.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PLTSET.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PLTSET.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Y/SUB/NOTST/PLTSET.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/YNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Y/SUB/NOTST/PLTSET.FOR
INSTEP2   : End of     $YNOT/...
INSTEP2   : compilations.
INSTEP2   : Begin      /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/SUBLIB
INSTEP2   : library creation.
LIBR      : Create new /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/SUBLIB
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/SUBLIB.27049
LIBR      : created
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/SUBLIB.27049
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/AITOFF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/IMOPEN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/MODPLT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLAXES.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLCLOS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLDRW.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLEND.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLINIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLLINE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLMAKE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLOTDA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLPGO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLPNT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLRANG.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLTSET.o
LIBR      : Randomize  /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/SUBLIB.27049
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/SUBLIB.27049
LIBR      : randomized.
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/AITOFF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/IMOPEN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/MODPLT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLAXES.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLCLOS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLDRW.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLEND.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLINIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLLINE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLMAKE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLOTDA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLPGO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLPNT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLRANG.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/PLTSET.o
LIBR      : Moved      /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/SUBLIB.27049
LIBR      : to         /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/SUBLIB
INSTEP2   : End of     /usr/local/aips/31DEC03/LINUX/LIBR/YNOT/SUBLIB
INSTEP2   : library creation.
INSTEP2   : Process    $APLNOT/...
INSTEP2   : subroutines.
INSTEP2   : Library    /usr/local/aips/31DEC03/LINUX/LIBR/APLNOT/SUBLIB
INSTEP2   : already exists.
INSTEP2   : Skip       $APLNOT/...
INSTEP2   : compilations.
INSTEP2   : Process    $QDEV/...
INSTEP2   : subroutines.
MAKEAT    : Making     QDEV.LIS
INSTEP2   : Begin      $QDEV/...
INSTEP2   : compilations of
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/Q1FIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/Q1GRD.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QBAKSU.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QBOXSU.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFFT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT1D.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT1I.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT2D.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT2I.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT3D.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT3I.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCGAUS.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCLNSU.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCLNSZ.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCRVMU.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCSQTR.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCTLUT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVCMU.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVCON.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVEXP.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVJAD.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMAG.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMMA.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMOV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMUL.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVSDI.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVSMA.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVSMS.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QDFT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QDIRAD.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QFINGR.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGADIV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGASUB.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGET2.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGET.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD1.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD2.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD3.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD4.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD5.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD6.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD7.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD8.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRDCC.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRDFI.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRDMI.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRIDA.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRID.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QGSP.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QHIST.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QIHIST.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QINIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QINTG.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QINTP.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QLSORT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QLVGT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QMAKMS.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QMAXMI.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QMAXV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QMCALC.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QMENT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QMINV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QMTRAN.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QMTYP.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QMULCL.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QOSORT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QPERMA.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QPHSRO.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QPOLAR.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QPTADC.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QPTDIV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QPTFAZ.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QPTSUB.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QPUT2.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QPUT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QRECT1.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QRECT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QRFFT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QRFT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QRLSE.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QSEARC.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QSORT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QSPDIV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QSPSUB.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QSVE.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QSVESQ.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QTAPER.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QUVIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QUVINT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVABS.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVADD.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVCLIP.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVCLR.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVCOS.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVDIV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVEXP.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVFILL.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVFIX.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVFLT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVIDIV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVINDE.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVLN.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVMA.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVMOV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVMUL.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVNEG.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVRVRS.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSADD.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMAF.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMA.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMSA.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMUL.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSQ.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSQRT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSUB.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSWAP.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVTRAN.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QVTSMU.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QWAIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QWD.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QWR.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QWTCNT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QWTGET.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QWTGRD.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QWTSUM.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QXFOR2.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QXFOUR.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/DEV/PSAP/QXXPTS.FOR
COMRPL    : Date       Tue Jul 22 14:18:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/Q1FIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/Q1FIN.f
FC        : Date       Tue Jul 22 14:18:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/Q1FIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/Q1FIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/Q1FIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/Q1FIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/Q1FIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/Q1FIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/Q1FIN.FOR
COMRPL    : Date       Tue Jul 22 14:18:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/Q1GRD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/Q1GRD.f
FC        : Date       Tue Jul 22 14:18:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/Q1GRD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/Q1GRD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/Q1GRD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/Q1GRD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/Q1GRD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/Q1GRD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/Q1GRD.FOR
COMRPL    : Date       Tue Jul 22 14:18:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QBAKSU.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QBAKSU.f
FC        : Date       Tue Jul 22 14:18:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QBAKSU.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QBAKSU.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QBAKSU.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QBAKSU.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QBAKSU.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QBAKSU.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QBAKSU.FOR
COMRPL    : Date       Tue Jul 22 14:18:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QBOXSU.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QBOXSU.f
FC        : Date       Tue Jul 22 14:18:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QBOXSU.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QBOXSU.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QBOXSU.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QBOXSU.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QBOXSU.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QBOXSU.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QBOXSU.FOR
COMRPL    : Date       Tue Jul 22 14:18:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFFT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCFFT.f
FC        : Date       Tue Jul 22 14:18:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCFFT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCFFT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCFFT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCFFT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCFFT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFFT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCFFT.FOR
COMRPL    : Date       Tue Jul 22 14:18:48 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT1D.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCFT1D.f
FC        : Date       Tue Jul 22 14:18:48 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCFT1D.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCFT1D.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCFT1D.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCFT1D.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCFT1D.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT1D.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT1D.FOR
COMRPL    : Date       Tue Jul 22 14:18:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT1I.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCFT1I.f
FC        : Date       Tue Jul 22 14:18:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCFT1I.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCFT1I.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCFT1I.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCFT1I.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCFT1I.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT1I.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT1I.FOR
COMRPL    : Date       Tue Jul 22 14:18:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT2D.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCFT2D.f
FC        : Date       Tue Jul 22 14:18:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCFT2D.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCFT2D.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCFT2D.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCFT2D.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCFT2D.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT2D.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT2D.FOR
COMRPL    : Date       Tue Jul 22 14:18:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT2I.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCFT2I.f
FC        : Date       Tue Jul 22 14:18:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCFT2I.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCFT2I.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCFT2I.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCFT2I.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCFT2I.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT2I.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT2I.FOR
COMRPL    : Date       Tue Jul 22 14:18:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT3D.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCFT3D.f
FC        : Date       Tue Jul 22 14:18:52 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCFT3D.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCFT3D.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCFT3D.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCFT3D.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCFT3D.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT3D.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT3D.FOR
COMRPL    : Date       Tue Jul 22 14:18:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT3I.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCFT3I.f
FC        : Date       Tue Jul 22 14:18:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCFT3I.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCFT3I.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCFT3I.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCFT3I.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCFT3I.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT3I.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCFT3I.FOR
COMRPL    : Date       Tue Jul 22 14:18:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCGAUS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCGAUS.f
FC        : Date       Tue Jul 22 14:18:54 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCGAUS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCGAUS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCGAUS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCGAUS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCGAUS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCGAUS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCGAUS.FOR
COMRPL    : Date       Tue Jul 22 14:18:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCLNSU.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCLNSU.f
FC        : Date       Tue Jul 22 14:18:54 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCLNSU.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCLNSU.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCLNSU.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCLNSU.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCLNSU.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCLNSU.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCLNSU.FOR
COMRPL    : Date       Tue Jul 22 14:18:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCLNSZ.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCLNSZ.f
FC        : Date       Tue Jul 22 14:18:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCLNSZ.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCLNSZ.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCLNSZ.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCLNSZ.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCLNSZ.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCLNSZ.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCLNSZ.FOR
COMRPL    : Date       Tue Jul 22 14:18:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCRVMU.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCRVMU.f
FC        : Date       Tue Jul 22 14:18:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCRVMU.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCRVMU.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCRVMU.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCRVMU.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCRVMU.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCRVMU.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCRVMU.FOR
COMRPL    : Date       Tue Jul 22 14:18:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCSQTR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCSQTR.f
FC        : Date       Tue Jul 22 14:18:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCSQTR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCSQTR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCSQTR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCSQTR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCSQTR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCSQTR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCSQTR.FOR
COMRPL    : Date       Tue Jul 22 14:18:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCTLUT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCTLUT.f
FC        : Date       Tue Jul 22 14:18:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCTLUT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCTLUT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCTLUT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCTLUT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCTLUT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCTLUT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCTLUT.FOR
COMRPL    : Date       Tue Jul 22 14:18:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVCMU.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCVCMU.f
FC        : Date       Tue Jul 22 14:18:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVCMU.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVCMU.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCVCMU.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCVCMU.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCVCMU.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVCMU.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCVCMU.FOR
COMRPL    : Date       Tue Jul 22 14:18:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVCON.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCVCON.f
FC        : Date       Tue Jul 22 14:19:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVCON.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVCON.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCVCON.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCVCON.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCVCON.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVCON.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCVCON.FOR
COMRPL    : Date       Tue Jul 22 14:19:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVEXP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCVEXP.f
FC        : Date       Tue Jul 22 14:19:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVEXP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVEXP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCVEXP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCVEXP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCVEXP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVEXP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCVEXP.FOR
COMRPL    : Date       Tue Jul 22 14:19:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVJAD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCVJAD.f
FC        : Date       Tue Jul 22 14:19:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVJAD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVJAD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCVJAD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCVJAD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCVJAD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVJAD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCVJAD.FOR
COMRPL    : Date       Tue Jul 22 14:19:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMAG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCVMAG.f
FC        : Date       Tue Jul 22 14:19:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVMAG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVMAG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCVMAG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCVMAG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCVMAG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMAG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMAG.FOR
COMRPL    : Date       Tue Jul 22 14:19:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMMA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCVMMA.f
FC        : Date       Tue Jul 22 14:19:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVMMA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVMMA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCVMMA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCVMMA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCVMMA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMMA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMMA.FOR
COMRPL    : Date       Tue Jul 22 14:19:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMOV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCVMOV.f
FC        : Date       Tue Jul 22 14:19:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVMOV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVMOV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCVMOV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCVMOV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCVMOV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMOV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMOV.FOR
COMRPL    : Date       Tue Jul 22 14:19:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMUL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCVMUL.f
FC        : Date       Tue Jul 22 14:19:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVMUL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVMUL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCVMUL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCVMUL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCVMUL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMUL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCVMUL.FOR
COMRPL    : Date       Tue Jul 22 14:19:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVSDI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCVSDI.f
FC        : Date       Tue Jul 22 14:19:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVSDI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVSDI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCVSDI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCVSDI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCVSDI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVSDI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCVSDI.FOR
COMRPL    : Date       Tue Jul 22 14:19:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVSMA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCVSMA.f
FC        : Date       Tue Jul 22 14:19:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVSMA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVSMA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCVSMA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCVSMA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCVSMA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVSMA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCVSMA.FOR
COMRPL    : Date       Tue Jul 22 14:19:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVSMS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QCVSMS.f
FC        : Date       Tue Jul 22 14:19:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVSMS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QCVSMS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QCVSMS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QCVSMS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QCVSMS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QCVSMS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QCVSMS.FOR
COMRPL    : Date       Tue Jul 22 14:19:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QDFT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QDFT.f
FC        : Date       Tue Jul 22 14:19:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QDFT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QDFT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QDFT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QDFT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QDFT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QDFT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QDFT.FOR
COMRPL    : Date       Tue Jul 22 14:19:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QDIRAD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QDIRAD.f
FC        : Date       Tue Jul 22 14:19:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QDIRAD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QDIRAD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QDIRAD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QDIRAD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QDIRAD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QDIRAD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QDIRAD.FOR
COMRPL    : Date       Tue Jul 22 14:19:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QFINGR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QFINGR.f
FC        : Date       Tue Jul 22 14:19:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QFINGR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QFINGR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QFINGR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QFINGR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QFINGR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QFINGR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QFINGR.FOR
COMRPL    : Date       Tue Jul 22 14:19:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGADIV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGADIV.f
FC        : Date       Tue Jul 22 14:19:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGADIV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGADIV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGADIV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGADIV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGADIV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGADIV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGADIV.FOR
COMRPL    : Date       Tue Jul 22 14:19:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGASUB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGASUB.f
FC        : Date       Tue Jul 22 14:19:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGASUB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGASUB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGASUB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGASUB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGASUB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGASUB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGASUB.FOR
COMRPL    : Date       Tue Jul 22 14:19:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGET2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGET2.f
FC        : Date       Tue Jul 22 14:19:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGET2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGET2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGET2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGET2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGET2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGET2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGET2.FOR
COMRPL    : Date       Tue Jul 22 14:19:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGET.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGET.f
FC        : Date       Tue Jul 22 14:19:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGET.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGET.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGET.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGET.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGET.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGET.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGET.FOR
COMRPL    : Date       Tue Jul 22 14:19:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD1.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGRD1.f
FC        : Date       Tue Jul 22 14:19:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD1.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD1.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGRD1.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGRD1.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGRD1.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD1.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD1.FOR
COMRPL    : Date       Tue Jul 22 14:19:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGRD2.f
FC        : Date       Tue Jul 22 14:19:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGRD2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGRD2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGRD2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD2.FOR
COMRPL    : Date       Tue Jul 22 14:19:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD3.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGRD3.f
FC        : Date       Tue Jul 22 14:19:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD3.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD3.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGRD3.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGRD3.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGRD3.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD3.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD3.FOR
COMRPL    : Date       Tue Jul 22 14:19:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD4.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGRD4.f
FC        : Date       Tue Jul 22 14:19:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD4.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD4.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGRD4.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGRD4.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGRD4.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD4.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD4.FOR
COMRPL    : Date       Tue Jul 22 14:19:19 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD5.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGRD5.f
FC        : Date       Tue Jul 22 14:19:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD5.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD5.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGRD5.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGRD5.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGRD5.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD5.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD5.FOR
COMRPL    : Date       Tue Jul 22 14:19:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD6.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGRD6.f
FC        : Date       Tue Jul 22 14:19:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD6.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD6.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGRD6.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGRD6.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGRD6.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD6.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD6.FOR
COMRPL    : Date       Tue Jul 22 14:19:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD7.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGRD7.f
FC        : Date       Tue Jul 22 14:19:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD7.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD7.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGRD7.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGRD7.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGRD7.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD7.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD7.FOR
COMRPL    : Date       Tue Jul 22 14:19:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD8.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGRD8.f
FC        : Date       Tue Jul 22 14:19:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD8.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRD8.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGRD8.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGRD8.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGRD8.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD8.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGRD8.FOR
COMRPL    : Date       Tue Jul 22 14:19:23 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRDCC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGRDCC.f
FC        : Date       Tue Jul 22 14:19:23 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRDCC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRDCC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGRDCC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGRDCC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGRDCC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRDCC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGRDCC.FOR
COMRPL    : Date       Tue Jul 22 14:19:23 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRDFI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGRDFI.f
FC        : Date       Tue Jul 22 14:19:24 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRDFI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRDFI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGRDFI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGRDFI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGRDFI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRDFI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGRDFI.FOR
COMRPL    : Date       Tue Jul 22 14:19:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRDMI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGRDMI.f
FC        : Date       Tue Jul 22 14:19:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRDMI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRDMI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGRDMI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGRDMI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGRDMI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRDMI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGRDMI.FOR
COMRPL    : Date       Tue Jul 22 14:19:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRIDA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGRIDA.f
FC        : Date       Tue Jul 22 14:19:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRIDA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRIDA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGRIDA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGRIDA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGRIDA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRIDA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGRIDA.FOR
COMRPL    : Date       Tue Jul 22 14:19:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRID.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGRID.f
FC        : Date       Tue Jul 22 14:19:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRID.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGRID.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGRID.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGRID.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGRID.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGRID.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGRID.FOR
COMRPL    : Date       Tue Jul 22 14:19:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QGSP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QGSP.f
FC        : Date       Tue Jul 22 14:19:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGSP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QGSP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QGSP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QGSP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QGSP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QGSP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QGSP.FOR
COMRPL    : Date       Tue Jul 22 14:19:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QHIST.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QHIST.f
FC        : Date       Tue Jul 22 14:19:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QHIST.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QHIST.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QHIST.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QHIST.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QHIST.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QHIST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QHIST.FOR
COMRPL    : Date       Tue Jul 22 14:19:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QIHIST.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QIHIST.f
FC        : Date       Tue Jul 22 14:19:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QIHIST.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QIHIST.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QIHIST.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QIHIST.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QIHIST.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QIHIST.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QIHIST.FOR
COMRPL    : Date       Tue Jul 22 14:19:30 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QINIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QINIT.f
FC        : Date       Tue Jul 22 14:19:30 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QINIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QINIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QINIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QINIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QINIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QINIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QINIT.FOR
COMRPL    : Date       Tue Jul 22 14:19:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QINTG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QINTG.f
FC        : Date       Tue Jul 22 14:19:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QINTG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QINTG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QINTG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QINTG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QINTG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QINTG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QINTG.FOR
COMRPL    : Date       Tue Jul 22 14:19:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QINTP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QINTP.f
FC        : Date       Tue Jul 22 14:19:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QINTP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QINTP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QINTP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QINTP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QINTP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QINTP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QINTP.FOR
COMRPL    : Date       Tue Jul 22 14:19:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QLSORT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QLSORT.f
FC        : Date       Tue Jul 22 14:19:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QLSORT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QLSORT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QLSORT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QLSORT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QLSORT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QLSORT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QLSORT.FOR
COMRPL    : Date       Tue Jul 22 14:19:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QLVGT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QLVGT.f
FC        : Date       Tue Jul 22 14:19:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QLVGT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QLVGT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QLVGT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QLVGT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QLVGT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QLVGT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QLVGT.FOR
COMRPL    : Date       Tue Jul 22 14:19:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QMAKMS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QMAKMS.f
FC        : Date       Tue Jul 22 14:19:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMAKMS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMAKMS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QMAKMS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QMAKMS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QMAKMS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QMAKMS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QMAKMS.FOR
COMRPL    : Date       Tue Jul 22 14:19:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QMAXMI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QMAXMI.f
FC        : Date       Tue Jul 22 14:19:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMAXMI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMAXMI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QMAXMI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QMAXMI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QMAXMI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QMAXMI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QMAXMI.FOR
COMRPL    : Date       Tue Jul 22 14:19:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QMAXV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QMAXV.f
FC        : Date       Tue Jul 22 14:19:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMAXV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMAXV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QMAXV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QMAXV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QMAXV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QMAXV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QMAXV.FOR
COMRPL    : Date       Tue Jul 22 14:19:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QMCALC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QMCALC.f
FC        : Date       Tue Jul 22 14:19:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMCALC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMCALC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QMCALC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QMCALC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QMCALC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QMCALC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QMCALC.FOR
COMRPL    : Date       Tue Jul 22 14:19:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QMENT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QMENT.f
FC        : Date       Tue Jul 22 14:19:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMENT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMENT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QMENT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QMENT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QMENT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QMENT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QMENT.FOR
COMRPL    : Date       Tue Jul 22 14:19:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QMINV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QMINV.f
FC        : Date       Tue Jul 22 14:19:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMINV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMINV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QMINV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QMINV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QMINV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QMINV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QMINV.FOR
COMRPL    : Date       Tue Jul 22 14:19:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QMTRAN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QMTRAN.f
FC        : Date       Tue Jul 22 14:19:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMTRAN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMTRAN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QMTRAN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QMTRAN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QMTRAN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QMTRAN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QMTRAN.FOR
COMRPL    : Date       Tue Jul 22 14:19:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QMTYP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QMTYP.f
FC        : Date       Tue Jul 22 14:19:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMTYP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMTYP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QMTYP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QMTYP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QMTYP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QMTYP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QMTYP.FOR
COMRPL    : Date       Tue Jul 22 14:19:41 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QMULCL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QMULCL.f
FC        : Date       Tue Jul 22 14:19:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMULCL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QMULCL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QMULCL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QMULCL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QMULCL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QMULCL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QMULCL.FOR
COMRPL    : Date       Tue Jul 22 14:19:42 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QOSORT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QOSORT.f
FC        : Date       Tue Jul 22 14:19:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QOSORT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QOSORT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QOSORT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QOSORT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QOSORT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QOSORT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QOSORT.FOR
COMRPL    : Date       Tue Jul 22 14:19:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QPERMA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QPERMA.f
FC        : Date       Tue Jul 22 14:19:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPERMA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPERMA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QPERMA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QPERMA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QPERMA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QPERMA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QPERMA.FOR
COMRPL    : Date       Tue Jul 22 14:19:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QPHSRO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QPHSRO.f
FC        : Date       Tue Jul 22 14:19:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPHSRO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPHSRO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QPHSRO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QPHSRO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QPHSRO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QPHSRO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QPHSRO.FOR
COMRPL    : Date       Tue Jul 22 14:19:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QPOLAR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QPOLAR.f
FC        : Date       Tue Jul 22 14:19:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPOLAR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPOLAR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QPOLAR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QPOLAR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QPOLAR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QPOLAR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QPOLAR.FOR
COMRPL    : Date       Tue Jul 22 14:19:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QPTADC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QPTADC.f
FC        : Date       Tue Jul 22 14:19:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPTADC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPTADC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QPTADC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QPTADC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QPTADC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QPTADC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QPTADC.FOR
COMRPL    : Date       Tue Jul 22 14:19:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QPTDIV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QPTDIV.f
FC        : Date       Tue Jul 22 14:19:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPTDIV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPTDIV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QPTDIV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QPTDIV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QPTDIV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QPTDIV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QPTDIV.FOR
COMRPL    : Date       Tue Jul 22 14:19:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QPTFAZ.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QPTFAZ.f
FC        : Date       Tue Jul 22 14:19:49 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPTFAZ.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPTFAZ.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QPTFAZ.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QPTFAZ.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QPTFAZ.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QPTFAZ.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QPTFAZ.FOR
COMRPL    : Date       Tue Jul 22 14:19:50 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QPTSUB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QPTSUB.f
FC        : Date       Tue Jul 22 14:19:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPTSUB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPTSUB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QPTSUB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QPTSUB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QPTSUB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QPTSUB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QPTSUB.FOR
COMRPL    : Date       Tue Jul 22 14:19:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QPUT2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QPUT2.f
FC        : Date       Tue Jul 22 14:19:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPUT2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPUT2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QPUT2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QPUT2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QPUT2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QPUT2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QPUT2.FOR
COMRPL    : Date       Tue Jul 22 14:19:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QPUT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QPUT.f
FC        : Date       Tue Jul 22 14:19:52 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPUT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QPUT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QPUT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QPUT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QPUT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QPUT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QPUT.FOR
COMRPL    : Date       Tue Jul 22 14:19:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QRECT1.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QRECT1.f
FC        : Date       Tue Jul 22 14:19:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QRECT1.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QRECT1.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QRECT1.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QRECT1.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QRECT1.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QRECT1.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QRECT1.FOR
COMRPL    : Date       Tue Jul 22 14:19:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QRECT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QRECT.f
FC        : Date       Tue Jul 22 14:19:54 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QRECT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QRECT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QRECT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QRECT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QRECT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QRECT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QRECT.FOR
COMRPL    : Date       Tue Jul 22 14:19:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QRFFT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QRFFT.f
FC        : Date       Tue Jul 22 14:19:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QRFFT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QRFFT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QRFFT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QRFFT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QRFFT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QRFFT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QRFFT.FOR
COMRPL    : Date       Tue Jul 22 14:19:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QRFT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QRFT.f
FC        : Date       Tue Jul 22 14:19:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QRFT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QRFT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QRFT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QRFT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QRFT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QRFT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QRFT.FOR
COMRPL    : Date       Tue Jul 22 14:19:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QRLSE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QRLSE.f
FC        : Date       Tue Jul 22 14:19:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QRLSE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QRLSE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QRLSE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QRLSE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QRLSE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QRLSE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QRLSE.FOR
COMRPL    : Date       Tue Jul 22 14:19:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QSEARC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QSEARC.f
FC        : Date       Tue Jul 22 14:19:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QSEARC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QSEARC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QSEARC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QSEARC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QSEARC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QSEARC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QSEARC.FOR
COMRPL    : Date       Tue Jul 22 14:19:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QSORT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QSORT.f
FC        : Date       Tue Jul 22 14:19:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QSORT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QSORT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QSORT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QSORT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QSORT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QSORT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QSORT.FOR
COMRPL    : Date       Tue Jul 22 14:19:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QSPDIV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QSPDIV.f
FC        : Date       Tue Jul 22 14:19:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QSPDIV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QSPDIV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QSPDIV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QSPDIV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QSPDIV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QSPDIV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QSPDIV.FOR
COMRPL    : Date       Tue Jul 22 14:20:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QSPSUB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QSPSUB.f
FC        : Date       Tue Jul 22 14:20:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QSPSUB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QSPSUB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QSPSUB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QSPSUB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QSPSUB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QSPSUB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QSPSUB.FOR
COMRPL    : Date       Tue Jul 22 14:20:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QSVE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QSVE.f
FC        : Date       Tue Jul 22 14:20:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QSVE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QSVE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QSVE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QSVE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QSVE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QSVE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QSVE.FOR
COMRPL    : Date       Tue Jul 22 14:20:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QSVESQ.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QSVESQ.f
FC        : Date       Tue Jul 22 14:20:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QSVESQ.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QSVESQ.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QSVESQ.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QSVESQ.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QSVESQ.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QSVESQ.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QSVESQ.FOR
COMRPL    : Date       Tue Jul 22 14:20:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QTAPER.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QTAPER.f
FC        : Date       Tue Jul 22 14:20:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QTAPER.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QTAPER.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QTAPER.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QTAPER.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QTAPER.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QTAPER.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QTAPER.FOR
COMRPL    : Date       Tue Jul 22 14:20:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QUVIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QUVIN.f
FC        : Date       Tue Jul 22 14:20:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QUVIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QUVIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QUVIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QUVIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QUVIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QUVIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QUVIN.FOR
COMRPL    : Date       Tue Jul 22 14:20:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QUVINT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QUVINT.f
FC        : Date       Tue Jul 22 14:20:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QUVINT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QUVINT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QUVINT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QUVINT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QUVINT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QUVINT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QUVINT.FOR
COMRPL    : Date       Tue Jul 22 14:20:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVABS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVABS.f
FC        : Date       Tue Jul 22 14:20:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVABS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVABS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVABS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVABS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVABS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVABS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVABS.FOR
COMRPL    : Date       Tue Jul 22 14:20:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVADD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVADD.f
FC        : Date       Tue Jul 22 14:20:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVADD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVADD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVADD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVADD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVADD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVADD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVADD.FOR
COMRPL    : Date       Tue Jul 22 14:20:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVCLIP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVCLIP.f
FC        : Date       Tue Jul 22 14:20:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVCLIP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVCLIP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVCLIP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVCLIP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVCLIP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVCLIP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVCLIP.FOR
COMRPL    : Date       Tue Jul 22 14:20:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVCLR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVCLR.f
FC        : Date       Tue Jul 22 14:20:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVCLR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVCLR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVCLR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVCLR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVCLR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVCLR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVCLR.FOR
COMRPL    : Date       Tue Jul 22 14:20:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVCOS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVCOS.f
FC        : Date       Tue Jul 22 14:20:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVCOS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVCOS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVCOS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVCOS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVCOS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVCOS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVCOS.FOR
COMRPL    : Date       Tue Jul 22 14:20:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVDIV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVDIV.f
FC        : Date       Tue Jul 22 14:20:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVDIV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVDIV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVDIV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVDIV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVDIV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVDIV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVDIV.FOR
COMRPL    : Date       Tue Jul 22 14:20:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVEXP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVEXP.f
FC        : Date       Tue Jul 22 14:20:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVEXP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVEXP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVEXP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVEXP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVEXP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVEXP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVEXP.FOR
COMRPL    : Date       Tue Jul 22 14:20:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVFILL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVFILL.f
FC        : Date       Tue Jul 22 14:20:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVFILL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVFILL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVFILL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVFILL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVFILL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVFILL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVFILL.FOR
COMRPL    : Date       Tue Jul 22 14:20:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVFIX.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVFIX.f
FC        : Date       Tue Jul 22 14:20:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVFIX.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVFIX.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVFIX.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVFIX.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVFIX.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVFIX.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVFIX.FOR
COMRPL    : Date       Tue Jul 22 14:20:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVFLT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVFLT.f
FC        : Date       Tue Jul 22 14:20:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVFLT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVFLT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVFLT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVFLT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVFLT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVFLT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVFLT.FOR
COMRPL    : Date       Tue Jul 22 14:20:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVIDIV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVIDIV.f
FC        : Date       Tue Jul 22 14:20:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVIDIV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVIDIV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVIDIV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVIDIV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVIDIV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVIDIV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVIDIV.FOR
COMRPL    : Date       Tue Jul 22 14:20:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVINDE.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVINDE.f
FC        : Date       Tue Jul 22 14:20:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVINDE.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVINDE.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVINDE.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVINDE.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVINDE.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVINDE.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVINDE.FOR
COMRPL    : Date       Tue Jul 22 14:20:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVLN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVLN.f
FC        : Date       Tue Jul 22 14:20:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVLN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVLN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVLN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVLN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVLN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVLN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVLN.FOR
COMRPL    : Date       Tue Jul 22 14:20:17 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVMA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVMA.f
FC        : Date       Tue Jul 22 14:20:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVMA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVMA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVMA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVMA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVMA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVMA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVMA.FOR
COMRPL    : Date       Tue Jul 22 14:20:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVMOV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVMOV.f
FC        : Date       Tue Jul 22 14:20:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVMOV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVMOV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVMOV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVMOV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVMOV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVMOV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVMOV.FOR
COMRPL    : Date       Tue Jul 22 14:20:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVMUL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVMUL.f
FC        : Date       Tue Jul 22 14:20:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVMUL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVMUL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVMUL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVMUL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVMUL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVMUL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVMUL.FOR
COMRPL    : Date       Tue Jul 22 14:20:19 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVNEG.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVNEG.f
FC        : Date       Tue Jul 22 14:20:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVNEG.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVNEG.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVNEG.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVNEG.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVNEG.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVNEG.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVNEG.FOR
COMRPL    : Date       Tue Jul 22 14:20:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVRVRS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVRVRS.f
FC        : Date       Tue Jul 22 14:20:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVRVRS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVRVRS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVRVRS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVRVRS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVRVRS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVRVRS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVRVRS.FOR
COMRPL    : Date       Tue Jul 22 14:20:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSADD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVSADD.f
FC        : Date       Tue Jul 22 14:20:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSADD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSADD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVSADD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVSADD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVSADD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSADD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVSADD.FOR
COMRPL    : Date       Tue Jul 22 14:20:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVSIN.f
FC        : Date       Tue Jul 22 14:20:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVSIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVSIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVSIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVSIN.FOR
COMRPL    : Date       Tue Jul 22 14:20:23 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMAF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVSMAF.f
FC        : Date       Tue Jul 22 14:20:23 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSMAF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSMAF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVSMAF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVSMAF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVSMAF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMAF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMAF.FOR
COMRPL    : Date       Tue Jul 22 14:20:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVSMA.f
FC        : Date       Tue Jul 22 14:20:24 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSMA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSMA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVSMA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVSMA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVSMA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMA.FOR
COMRPL    : Date       Tue Jul 22 14:20:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMSA.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVSMSA.f
FC        : Date       Tue Jul 22 14:20:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSMSA.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSMSA.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVSMSA.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVSMSA.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVSMSA.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMSA.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMSA.FOR
COMRPL    : Date       Tue Jul 22 14:20:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMUL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVSMUL.f
FC        : Date       Tue Jul 22 14:20:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSMUL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSMUL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVSMUL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVSMUL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVSMUL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMUL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVSMUL.FOR
COMRPL    : Date       Tue Jul 22 14:20:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSQ.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVSQ.f
FC        : Date       Tue Jul 22 14:20:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSQ.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSQ.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVSQ.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVSQ.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVSQ.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSQ.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVSQ.FOR
COMRPL    : Date       Tue Jul 22 14:20:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSQRT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVSQRT.f
FC        : Date       Tue Jul 22 14:20:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSQRT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSQRT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVSQRT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVSQRT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVSQRT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSQRT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVSQRT.FOR
COMRPL    : Date       Tue Jul 22 14:20:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSUB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVSUB.f
FC        : Date       Tue Jul 22 14:20:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSUB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSUB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVSUB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVSUB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVSUB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSUB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVSUB.FOR
COMRPL    : Date       Tue Jul 22 14:20:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSWAP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVSWAP.f
FC        : Date       Tue Jul 22 14:20:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSWAP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVSWAP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVSWAP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVSWAP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVSWAP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVSWAP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVSWAP.FOR
COMRPL    : Date       Tue Jul 22 14:20:30 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVTRAN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVTRAN.f
FC        : Date       Tue Jul 22 14:20:30 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVTRAN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVTRAN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVTRAN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVTRAN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVTRAN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVTRAN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVTRAN.FOR
COMRPL    : Date       Tue Jul 22 14:20:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QVTSMU.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QVTSMU.f
FC        : Date       Tue Jul 22 14:20:31 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVTSMU.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QVTSMU.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QVTSMU.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QVTSMU.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QVTSMU.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QVTSMU.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QVTSMU.FOR
COMRPL    : Date       Tue Jul 22 14:20:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QWAIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QWAIT.f
FC        : Date       Tue Jul 22 14:20:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QWAIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QWAIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QWAIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QWAIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QWAIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QWAIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QWAIT.FOR
COMRPL    : Date       Tue Jul 22 14:20:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QWD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QWD.f
FC        : Date       Tue Jul 22 14:20:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QWD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QWD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QWD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QWD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QWD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QWD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QWD.FOR
COMRPL    : Date       Tue Jul 22 14:20:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QWR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QWR.f
FC        : Date       Tue Jul 22 14:20:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QWR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QWR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QWR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QWR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QWR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QWR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QWR.FOR
COMRPL    : Date       Tue Jul 22 14:20:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QWTCNT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QWTCNT.f
FC        : Date       Tue Jul 22 14:20:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QWTCNT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QWTCNT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QWTCNT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QWTCNT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QWTCNT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QWTCNT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QWTCNT.FOR
COMRPL    : Date       Tue Jul 22 14:20:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QWTGET.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QWTGET.f
FC        : Date       Tue Jul 22 14:20:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QWTGET.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QWTGET.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QWTGET.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QWTGET.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QWTGET.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QWTGET.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QWTGET.FOR
COMRPL    : Date       Tue Jul 22 14:20:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QWTGRD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QWTGRD.f
FC        : Date       Tue Jul 22 14:20:36 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QWTGRD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QWTGRD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QWTGRD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QWTGRD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QWTGRD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QWTGRD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QWTGRD.FOR
COMRPL    : Date       Tue Jul 22 14:20:37 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QWTSUM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QWTSUM.f
FC        : Date       Tue Jul 22 14:20:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QWTSUM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QWTSUM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QWTSUM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QWTSUM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QWTSUM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QWTSUM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QWTSUM.FOR
COMRPL    : Date       Tue Jul 22 14:20:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QXFOR2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QXFOR2.f
FC        : Date       Tue Jul 22 14:20:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QXFOR2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QXFOR2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QXFOR2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QXFOR2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QXFOR2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QXFOR2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QXFOR2.FOR
COMRPL    : Date       Tue Jul 22 14:20:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QXFOUR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QXFOUR.f
FC        : Date       Tue Jul 22 14:20:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QXFOUR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QXFOUR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QXFOUR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QXFOUR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QXFOUR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QXFOUR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QXFOUR.FOR
COMRPL    : Date       Tue Jul 22 14:20:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/DEV/PSAP/QXXPTS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QXXPTS.f
FC        : Date       Tue Jul 22 14:20:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QXXPTS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QXXPTS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QXXPTS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QXXPTS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QXXPTS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/DEV/PSAP/QXXPTS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QDEV.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/DEV/PSAP/QXXPTS.FOR
INSTEP2   : End of     $QDEV/...
INSTEP2   : compilations.
INSTEP2   : Begin      /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/SUBLIB
INSTEP2   : library creation.
LIBR      : Create new /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/SUBLIB
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/SUBLIB.22005
LIBR      : created
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/SUBLIB.22005
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/Q1FIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/Q1GRD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QBAKSU.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QBOXSU.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCFFT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCFT1D.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCFT1I.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCFT2D.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCFT2I.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCFT3D.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCFT3I.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCGAUS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCLNSU.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCLNSZ.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCRVMU.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCSQTR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCTLUT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVCMU.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVCON.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVEXP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVJAD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVMAG.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVMMA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVMOV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVMUL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVSDI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVSMA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVSMS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QDFT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QDIRAD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QFINGR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGADIV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGASUB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGET2.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGET.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD1.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD2.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD3.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD4.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD5.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD6.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD7.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD8.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRDCC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRDFI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRDMI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRIDA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRID.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGSP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QHIST.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QIHIST.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QINIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QINTG.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QINTP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QLSORT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QLVGT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMAKMS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMAXMI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMAXV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMCALC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMENT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMINV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMTRAN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMTYP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMULCL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QOSORT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPERMA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPHSRO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPOLAR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPTADC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPTDIV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPTFAZ.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPTSUB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPUT2.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPUT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QRECT1.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QRECT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QRFFT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QRFT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QRLSE.o
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/SUBLIB.22005
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QSEARC.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QSORT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QSPDIV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QSPSUB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QSVE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QSVESQ.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QTAPER.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QUVIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QUVINT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVABS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVADD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVCLIP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVCLR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVCOS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVDIV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVEXP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVFILL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVFIX.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVFLT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVIDIV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVINDE.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVLN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVMA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVMOV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVMUL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVNEG.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVRVRS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSADD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSMAF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSMA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSMSA.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSMUL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSQ.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSQRT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSUB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSWAP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVTRAN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVTSMU.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QWAIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QWD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QWR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QWTCNT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QWTGET.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QWTGRD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QWTSUM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QXFOR2.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QXFOUR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QXXPTS.o
LIBR      : Randomize  /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/SUBLIB.22005
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/SUBLIB.22005
LIBR      : randomized.
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/Q1FIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/Q1GRD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QBAKSU.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QBOXSU.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCFFT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCFT1D.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCFT1I.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCFT2D.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCFT2I.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCFT3D.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCFT3I.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCGAUS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCLNSU.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCLNSZ.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCRVMU.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCSQTR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCTLUT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVCMU.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVCON.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVEXP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVJAD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVMAG.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVMMA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVMOV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVMUL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVSDI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVSMA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QCVSMS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QDFT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QDIRAD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QFINGR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGADIV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGASUB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGET2.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGET.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD1.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD2.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD3.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD4.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD5.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD6.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD7.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRD8.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRDCC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRDFI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRDMI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRIDA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGRID.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QGSP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QHIST.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QIHIST.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QINIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QINTG.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QINTP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QLSORT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QLVGT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMAKMS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMAXMI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMAXV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMCALC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMENT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMINV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMTRAN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMTYP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QMULCL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QOSORT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPERMA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPHSRO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPOLAR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPTADC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPTDIV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPTFAZ.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPTSUB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPUT2.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QPUT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QRECT1.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QRECT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QRFFT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QRFT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QRLSE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QSEARC.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QSORT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QSPDIV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QSPSUB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QSVE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QSVESQ.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QTAPER.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QUVIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QUVINT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVABS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVADD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVCLIP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVCLR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVCOS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVDIV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVEXP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVFILL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVFIX.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVFLT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVIDIV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVINDE.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVLN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVMA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVMOV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVMUL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVNEG.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVRVRS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSADD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSMAF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSMA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSMSA.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSMUL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSQ.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSQRT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSUB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVSWAP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVTRAN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QVTSMU.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QWAIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QWD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QWR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QWTCNT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QWTGET.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QWTGRD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QWTSUM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QXFOR2.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QXFOUR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/QXXPTS.o
LIBR      : Moved      /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/SUBLIB.22005
LIBR      : to         /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/SUBLIB
INSTEP2   : End of     /usr/local/aips/31DEC03/LINUX/LIBR/QPSAP/SUBLIB
INSTEP2   : library creation.
INSTEP2   : Process    $QSUB/...
INSTEP2   : subroutines.
MAKEAT    : Making     QSUB.LIS
INSTEP2   : Begin      $QSUB/...
INSTEP2   : compilations of
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/APROLL.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/APXPOS.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/GRDFIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/PASS1.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/PASS2.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/QROLL.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/UVWAIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/WTFUNC.FOR
COMRPL    : Date       Tue Jul 22 14:20:42 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/APROLL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/APROLL.f
FC        : Date       Tue Jul 22 14:20:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APROLL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APROLL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/APROLL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/APROLL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/APROLL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/APROLL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/APROLL.FOR
COMRPL    : Date       Tue Jul 22 14:20:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/APXPOS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/APXPOS.f
FC        : Date       Tue Jul 22 14:20:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APXPOS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APXPOS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/APXPOS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/APXPOS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/APXPOS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/APXPOS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/APXPOS.FOR
COMRPL    : Date       Tue Jul 22 14:20:44 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/GRDFIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GRDFIT.f
FC        : Date       Tue Jul 22 14:20:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDFIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDFIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GRDFIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GRDFIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GRDFIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/GRDFIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/GRDFIT.FOR
COMRPL    : Date       Tue Jul 22 14:20:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/PASS1.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PASS1.f
FC        : Date       Tue Jul 22 14:20:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PASS1.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PASS1.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PASS1.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PASS1.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PASS1.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/PASS1.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/PASS1.FOR
COMRPL    : Date       Tue Jul 22 14:20:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/PASS2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/PASS2.f
FC        : Date       Tue Jul 22 14:20:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PASS2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/PASS2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/PASS2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/PASS2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/PASS2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/PASS2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/PASS2.FOR
COMRPL    : Date       Tue Jul 22 14:20:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/QROLL.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/QROLL.f
FC        : Date       Tue Jul 22 14:20:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QROLL.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/QROLL.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/QROLL.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/QROLL.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/QROLL.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/QROLL.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/QROLL.FOR
COMRPL    : Date       Tue Jul 22 14:20:48 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/UVWAIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVWAIT.f
FC        : Date       Tue Jul 22 14:20:48 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVWAIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVWAIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVWAIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVWAIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVWAIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/UVWAIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/UVWAIT.FOR
COMRPL    : Date       Tue Jul 22 14:20:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/WTFUNC.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/WTFUNC.f
FC        : Date       Tue Jul 22 14:20:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WTFUNC.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/WTFUNC.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/WTFUNC.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/WTFUNC.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QSUB
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/WTFUNC.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/WTFUNC.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QSUB.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/WTFUNC.FOR
INSTEP2   : End of     $QSUB/...
INSTEP2   : compilations.
INSTEP2   : Begin      /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/SUBLIB
INSTEP2   : library creation.
LIBR      : Create new /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/SUBLIB
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/SUBLIB.23875
LIBR      : created
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/SUBLIB.23875
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/APROLL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/APXPOS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/GRDFIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/PASS1.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/PASS2.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/QROLL.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/UVWAIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/WTFUNC.o
LIBR      : Randomize  /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/SUBLIB.23875
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/SUBLIB.23875
LIBR      : randomized.
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/APROLL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/APXPOS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/GRDFIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/PASS1.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/PASS2.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/QROLL.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/UVWAIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/WTFUNC.o
LIBR      : Moved      /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/SUBLIB.23875
LIBR      : to         /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/SUBLIB
INSTEP2   : End of     /usr/local/aips/31DEC03/LINUX/LIBR/QSUB/SUBLIB
INSTEP2   : library creation.
INSTEP2   : Process    $QNOT/...
INSTEP2   : subroutines.
MAKEAT    : Making     QNOT.LIS
INSTEP2   : Begin      $QNOT/...
INSTEP2   : compilations of
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/AEGRID.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/ALGSTB.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/ALGSUB.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/APCONV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/APFNSH.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/APIO.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/APLOAD.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/APSHFT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/APSUM.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/APVCHK.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/APWRIT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/BUFGET.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/BUFPUT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/CALRES.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/CCSGRD.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV1.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV2.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV3.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV4.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/CONVFN.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/CORR.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/DSKFFT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/FFTIM.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/FFTMEM.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/FRSRCI.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/GR3DUV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/GRCMEM.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDCOR.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDCRM.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDMEM.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDSUB.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDTAB.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/GRIDUV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/IMGMEM.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/INTPFN.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/MAKCVM.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/MAKMAP.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/OLDMAP.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/SDGRID.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/SRTIN.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/SRTOUT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/TRTOCF.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/TRTOCS.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/UVGRID.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/UVGRTB.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/UVMDIV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/UVMSUB.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/UVMTYP.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/UVPDIV.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/UVSORT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/UVTBGD.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/UVTBUN.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/UVTBUW.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/UVUNIF.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/VISDFT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/VSCDFT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/VSFDFT.FOR
INSTEP2   : /usr/local/aips/31DEC03/Q/SUB/NOTST/XCSHFT.FOR
COMRPL    : Date       Tue Jul 22 14:20:52 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/AEGRID.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/AEGRID.f
FC        : Date       Tue Jul 22 14:20:52 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AEGRID.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/AEGRID.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/AEGRID.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/AEGRID.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/AEGRID.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/AEGRID.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/AEGRID.FOR
COMRPL    : Date       Tue Jul 22 14:20:53 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/ALGSTB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ALGSTB.f
FC        : Date       Tue Jul 22 14:20:53 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ALGSTB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ALGSTB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ALGSTB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ALGSTB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ALGSTB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/ALGSTB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/ALGSTB.FOR
COMRPL    : Date       Tue Jul 22 14:20:54 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/ALGSUB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/ALGSUB.f
FC        : Date       Tue Jul 22 14:20:55 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ALGSUB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/ALGSUB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/ALGSUB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/ALGSUB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/ALGSUB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/ALGSUB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/ALGSUB.FOR
COMRPL    : Date       Tue Jul 22 14:20:55 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/APCONV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/APCONV.f
FC        : Date       Tue Jul 22 14:20:56 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APCONV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APCONV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/APCONV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/APCONV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/APCONV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/APCONV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/APCONV.FOR
COMRPL    : Date       Tue Jul 22 14:20:56 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/APFNSH.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/APFNSH.f
FC        : Date       Tue Jul 22 14:20:57 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APFNSH.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APFNSH.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/APFNSH.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/APFNSH.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/APFNSH.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/APFNSH.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/APFNSH.FOR
COMRPL    : Date       Tue Jul 22 14:20:57 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/APIO.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/APIO.f
FC        : Date       Tue Jul 22 14:20:58 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APIO.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APIO.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/APIO.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/APIO.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/APIO.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/APIO.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/APIO.FOR
COMRPL    : Date       Tue Jul 22 14:20:58 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/APLOAD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/APLOAD.f
FC        : Date       Tue Jul 22 14:20:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APLOAD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APLOAD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/APLOAD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/APLOAD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/APLOAD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/APLOAD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/APLOAD.FOR
COMRPL    : Date       Tue Jul 22 14:20:59 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/APSHFT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/APSHFT.f
FC        : Date       Tue Jul 22 14:20:59 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APSHFT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APSHFT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/APSHFT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/APSHFT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/APSHFT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/APSHFT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/APSHFT.FOR
COMRPL    : Date       Tue Jul 22 14:21:00 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/APSUM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/APSUM.f
FC        : Date       Tue Jul 22 14:21:00 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APSUM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APSUM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/APSUM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/APSUM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/APSUM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/APSUM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/APSUM.FOR
COMRPL    : Date       Tue Jul 22 14:21:01 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/APVCHK.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/APVCHK.f
FC        : Date       Tue Jul 22 14:21:01 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APVCHK.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APVCHK.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/APVCHK.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/APVCHK.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/APVCHK.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/APVCHK.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/APVCHK.FOR
COMRPL    : Date       Tue Jul 22 14:21:02 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/APWRIT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/APWRIT.f
FC        : Date       Tue Jul 22 14:21:02 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APWRIT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/APWRIT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/APWRIT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/APWRIT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/APWRIT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/APWRIT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/APWRIT.FOR
COMRPL    : Date       Tue Jul 22 14:21:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/BUFGET.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BUFGET.f
FC        : Date       Tue Jul 22 14:21:03 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BUFGET.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BUFGET.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BUFGET.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BUFGET.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BUFGET.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/BUFGET.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/BUFGET.FOR
COMRPL    : Date       Tue Jul 22 14:21:03 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/BUFPUT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/BUFPUT.f
FC        : Date       Tue Jul 22 14:21:04 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BUFPUT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/BUFPUT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/BUFPUT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/BUFPUT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/BUFPUT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/BUFPUT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/BUFPUT.FOR
COMRPL    : Date       Tue Jul 22 14:21:04 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/CALRES.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CALRES.f
FC        : Date       Tue Jul 22 14:21:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CALRES.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CALRES.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CALRES.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CALRES.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CALRES.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/CALRES.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/CALRES.FOR
COMRPL    : Date       Tue Jul 22 14:21:05 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/CCSGRD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CCSGRD.f
FC        : Date       Tue Jul 22 14:21:05 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CCSGRD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CCSGRD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CCSGRD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CCSGRD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CCSGRD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/CCSGRD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/CCSGRD.FOR
COMRPL    : Date       Tue Jul 22 14:21:06 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV1.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CONV1.f
FC        : Date       Tue Jul 22 14:21:06 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONV1.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONV1.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CONV1.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CONV1.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CONV1.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV1.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/CONV1.FOR
COMRPL    : Date       Tue Jul 22 14:21:07 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV2.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CONV2.f
FC        : Date       Tue Jul 22 14:21:07 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONV2.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONV2.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CONV2.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CONV2.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CONV2.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV2.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/CONV2.FOR
COMRPL    : Date       Tue Jul 22 14:21:08 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV3.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CONV3.f
FC        : Date       Tue Jul 22 14:21:08 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONV3.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONV3.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CONV3.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CONV3.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CONV3.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV3.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/CONV3.FOR
COMRPL    : Date       Tue Jul 22 14:21:09 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV4.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CONV4.f
FC        : Date       Tue Jul 22 14:21:09 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONV4.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONV4.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CONV4.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CONV4.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CONV4.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV4.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/CONV4.FOR
COMRPL    : Date       Tue Jul 22 14:21:10 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/CONVFN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CONVFN.f
FC        : Date       Tue Jul 22 14:21:10 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONVFN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONVFN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CONVFN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CONVFN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CONVFN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/CONVFN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/CONVFN.FOR
COMRPL    : Date       Tue Jul 22 14:21:11 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CONV.f
FC        : Date       Tue Jul 22 14:21:11 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CONV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CONV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CONV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CONV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/CONV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/CONV.FOR
COMRPL    : Date       Tue Jul 22 14:21:12 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/CORR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/CORR.f
FC        : Date       Tue Jul 22 14:21:12 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CORR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/CORR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/CORR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/CORR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/CORR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/CORR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/CORR.FOR
COMRPL    : Date       Tue Jul 22 14:21:13 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/DSKFFT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/DSKFFT.f
FC        : Date       Tue Jul 22 14:21:13 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DSKFFT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/DSKFFT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/DSKFFT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/DSKFFT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/DSKFFT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/DSKFFT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/DSKFFT.FOR
COMRPL    : Date       Tue Jul 22 14:21:14 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/FFTIM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FFTIM.f
FC        : Date       Tue Jul 22 14:21:14 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FFTIM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FFTIM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FFTIM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FFTIM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FFTIM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/FFTIM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/FFTIM.FOR
COMRPL    : Date       Tue Jul 22 14:21:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/FFTMEM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FFTMEM.f
FC        : Date       Tue Jul 22 14:21:15 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FFTMEM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FFTMEM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FFTMEM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FFTMEM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FFTMEM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/FFTMEM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/FFTMEM.FOR
COMRPL    : Date       Tue Jul 22 14:21:15 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/FRSRCI.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/FRSRCI.f
FC        : Date       Tue Jul 22 14:21:16 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FRSRCI.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/FRSRCI.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/FRSRCI.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/FRSRCI.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/FRSRCI.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/FRSRCI.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/FRSRCI.FOR
COMRPL    : Date       Tue Jul 22 14:21:16 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/GR3DUV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GR3DUV.f
FC        : Date       Tue Jul 22 14:21:17 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GR3DUV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GR3DUV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GR3DUV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GR3DUV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GR3DUV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/GR3DUV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/GR3DUV.FOR
COMRPL    : Date       Tue Jul 22 14:21:18 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/GRCMEM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GRCMEM.f
FC        : Date       Tue Jul 22 14:21:18 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRCMEM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRCMEM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GRCMEM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GRCMEM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GRCMEM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/GRCMEM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/GRCMEM.FOR
COMRPL    : Date       Tue Jul 22 14:21:19 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDCOR.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GRDCOR.f
FC        : Date       Tue Jul 22 14:21:19 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDCOR.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDCOR.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GRDCOR.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GRDCOR.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GRDCOR.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDCOR.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/GRDCOR.FOR
COMRPL    : Date       Tue Jul 22 14:21:20 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDCRM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GRDCRM.f
FC        : Date       Tue Jul 22 14:21:20 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDCRM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDCRM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GRDCRM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GRDCRM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GRDCRM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDCRM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/GRDCRM.FOR
COMRPL    : Date       Tue Jul 22 14:21:21 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDMEM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GRDMEM.f
FC        : Date       Tue Jul 22 14:21:21 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDMEM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDMEM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GRDMEM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GRDMEM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GRDMEM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDMEM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/GRDMEM.FOR
COMRPL    : Date       Tue Jul 22 14:21:22 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDSUB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GRDSUB.f
FC        : Date       Tue Jul 22 14:21:22 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDSUB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDSUB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GRDSUB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GRDSUB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GRDSUB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDSUB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/GRDSUB.FOR
COMRPL    : Date       Tue Jul 22 14:21:23 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDTAB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GRDTAB.f
FC        : Date       Tue Jul 22 14:21:23 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDTAB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRDTAB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GRDTAB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GRDTAB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GRDTAB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/GRDTAB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/GRDTAB.FOR
COMRPL    : Date       Tue Jul 22 14:21:24 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/GRIDUV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/GRIDUV.f
FC        : Date       Tue Jul 22 14:21:24 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRIDUV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/GRIDUV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/GRIDUV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/GRIDUV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/GRIDUV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/GRIDUV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/GRIDUV.FOR
COMRPL    : Date       Tue Jul 22 14:21:25 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/IMGMEM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/IMGMEM.f
FC        : Date       Tue Jul 22 14:21:25 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMGMEM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/IMGMEM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/IMGMEM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/IMGMEM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/IMGMEM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/IMGMEM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/IMGMEM.FOR
COMRPL    : Date       Tue Jul 22 14:21:26 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/INTPFN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/INTPFN.f
FC        : Date       Tue Jul 22 14:21:26 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INTPFN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/INTPFN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/INTPFN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/INTPFN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/INTPFN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/INTPFN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/INTPFN.FOR
COMRPL    : Date       Tue Jul 22 14:21:27 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/MAKCVM.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MAKCVM.f
FC        : Date       Tue Jul 22 14:21:27 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAKCVM.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAKCVM.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MAKCVM.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MAKCVM.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MAKCVM.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/MAKCVM.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/MAKCVM.FOR
COMRPL    : Date       Tue Jul 22 14:21:28 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/MAKMAP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/MAKMAP.f
FC        : Date       Tue Jul 22 14:21:28 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAKMAP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/MAKMAP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/MAKMAP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/MAKMAP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/MAKMAP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/MAKMAP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/MAKMAP.FOR
COMRPL    : Date       Tue Jul 22 14:21:29 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/OLDMAP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/OLDMAP.f
FC        : Date       Tue Jul 22 14:21:29 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OLDMAP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/OLDMAP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/OLDMAP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/OLDMAP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/OLDMAP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/OLDMAP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/OLDMAP.FOR
COMRPL    : Date       Tue Jul 22 14:21:30 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/SDGRID.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SDGRID.f
FC        : Date       Tue Jul 22 14:21:30 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SDGRID.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SDGRID.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SDGRID.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SDGRID.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SDGRID.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/SDGRID.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/SDGRID.FOR
COMRPL    : Date       Tue Jul 22 14:21:31 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/SRTIN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SRTIN.f
FC        : Date       Tue Jul 22 14:21:32 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SRTIN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SRTIN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SRTIN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SRTIN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SRTIN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/SRTIN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/SRTIN.FOR
COMRPL    : Date       Tue Jul 22 14:21:32 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/SRTOUT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/SRTOUT.f
FC        : Date       Tue Jul 22 14:21:33 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SRTOUT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/SRTOUT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/SRTOUT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/SRTOUT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/SRTOUT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/SRTOUT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/SRTOUT.FOR
COMRPL    : Date       Tue Jul 22 14:21:33 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/TRTOCF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TRTOCF.f
FC        : Date       Tue Jul 22 14:21:34 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TRTOCF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TRTOCF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TRTOCF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TRTOCF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TRTOCF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/TRTOCF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/TRTOCF.FOR
COMRPL    : Date       Tue Jul 22 14:21:34 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/TRTOCS.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/TRTOCS.f
FC        : Date       Tue Jul 22 14:21:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TRTOCS.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/TRTOCS.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/TRTOCS.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/TRTOCS.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/TRTOCS.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/TRTOCS.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/TRTOCS.FOR
COMRPL    : Date       Tue Jul 22 14:21:35 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/UVGRID.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVGRID.f
FC        : Date       Tue Jul 22 14:21:35 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVGRID.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVGRID.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVGRID.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVGRID.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVGRID.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/UVGRID.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/UVGRID.FOR
COMRPL    : Date       Tue Jul 22 14:21:36 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/UVGRTB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVGRTB.f
FC        : Date       Tue Jul 22 14:21:37 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVGRTB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVGRTB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVGRTB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVGRTB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVGRTB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/UVGRTB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/UVGRTB.FOR
COMRPL    : Date       Tue Jul 22 14:21:38 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/UVMDIV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVMDIV.f
FC        : Date       Tue Jul 22 14:21:38 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVMDIV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVMDIV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVMDIV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVMDIV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVMDIV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/UVMDIV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/UVMDIV.FOR
COMRPL    : Date       Tue Jul 22 14:21:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/UVMSUB.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVMSUB.f
FC        : Date       Tue Jul 22 14:21:39 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVMSUB.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVMSUB.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVMSUB.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVMSUB.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVMSUB.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/UVMSUB.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/UVMSUB.FOR
COMRPL    : Date       Tue Jul 22 14:21:39 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/UVMTYP.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVMTYP.f
FC        : Date       Tue Jul 22 14:21:40 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVMTYP.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVMTYP.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVMTYP.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVMTYP.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVMTYP.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/UVMTYP.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/UVMTYP.FOR
COMRPL    : Date       Tue Jul 22 14:21:40 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/UVPDIV.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVPDIV.f
FC        : Date       Tue Jul 22 14:21:41 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVPDIV.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVPDIV.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVPDIV.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVPDIV.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVPDIV.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/UVPDIV.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/UVPDIV.FOR
COMRPL    : Date       Tue Jul 22 14:21:41 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/UVSORT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVSORT.f
FC        : Date       Tue Jul 22 14:21:42 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVSORT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVSORT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVSORT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVSORT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVSORT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/UVSORT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/UVSORT.FOR
COMRPL    : Date       Tue Jul 22 14:21:42 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/UVTBGD.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVTBGD.f
FC        : Date       Tue Jul 22 14:21:43 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVTBGD.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVTBGD.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVTBGD.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVTBGD.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVTBGD.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/UVTBGD.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/UVTBGD.FOR
COMRPL    : Date       Tue Jul 22 14:21:43 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/UVTBUN.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVTBUN.f
FC        : Date       Tue Jul 22 14:21:44 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVTBUN.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVTBUN.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVTBUN.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVTBUN.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVTBUN.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/UVTBUN.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/UVTBUN.FOR
COMRPL    : Date       Tue Jul 22 14:21:45 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/UVTBUW.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVTBUW.f
FC        : Date       Tue Jul 22 14:21:45 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVTBUW.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVTBUW.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVTBUW.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVTBUW.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVTBUW.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/UVTBUW.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/UVTBUW.FOR
COMRPL    : Date       Tue Jul 22 14:21:46 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/UVUNIF.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/UVUNIF.f
FC        : Date       Tue Jul 22 14:21:46 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVUNIF.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/UVUNIF.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/UVUNIF.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/UVUNIF.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/UVUNIF.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/UVUNIF.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/UVUNIF.FOR
COMRPL    : Date       Tue Jul 22 14:21:47 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/VISDFT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/VISDFT.f
FC        : Date       Tue Jul 22 14:21:47 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VISDFT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VISDFT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/VISDFT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/VISDFT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/VISDFT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/VISDFT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/VISDFT.FOR
COMRPL    : Date       Tue Jul 22 14:21:48 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/VSCDFT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/VSCDFT.f
FC        : Date       Tue Jul 22 14:21:48 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VSCDFT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VSCDFT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/VSCDFT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/VSCDFT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/VSCDFT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/VSCDFT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/VSCDFT.FOR
COMRPL    : Date       Tue Jul 22 14:21:49 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/VSFDFT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/VSFDFT.f
FC        : Date       Tue Jul 22 14:21:50 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VSFDFT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/VSFDFT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/VSFDFT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/VSFDFT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/VSFDFT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/VSFDFT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/VSFDFT.FOR
COMRPL    : Date       Tue Jul 22 14:21:51 CDT 2003
PP        : Preprocess /usr/local/aips/31DEC03/Q/SUB/NOTST/XCSHFT.FOR
PP        : into       /usr/local/aips/31DEC03/LINUX/PREP/XCSHFT.f
FC        : Date       Tue Jul 22 14:21:51 CDT 2003
FC        : Interpret  FC  \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/XCSHFT.f
FC        : as         LIST=FALSE PURGE=FALSE
FC        : plus       /usr/local/bin/g77 -c -fno-automatic -fno-globals -Wno-globals -malign-double -Wimplicit -Wall -O2 \
FC        :            /usr/local/aips/31DEC03/LINUX/PREP/XCSHFT.f
FC        : Compile of /usr/local/aips/31DEC03/LINUX/PREP/XCSHFT.f
FC        : ends successfully.
COMRPL    : Copied     /usr/local/aips/31DEC03/LINUX/PREP/XCSHFT.o
COMRPL    : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT
COMRPL    : Removed    /usr/local/aips/31DEC03/LINUX/PREP/XCSHFT.o
COMRPL    : Changed    /usr/local/aips/31DEC03/Q/SUB/NOTST/XCSHFT.FOR
COMRPL    : in         /usr/local/aips/31DEC03/LINUX/INSTALL/QNOT.LIS
COMRPL    : to         -/usr/local/aips/31DEC03/Q/SUB/NOTST/XCSHFT.FOR
INSTEP2   : End of     $QNOT/...
INSTEP2   : compilations.
INSTEP2   : Begin      /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SUBLIB
INSTEP2   : library creation.
LIBR      : Create new /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SUBLIB
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SUBLIB.3449
LIBR      : created
LIBR      : Add to     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SUBLIB.3449
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/AEGRID.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/ALGSTB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/ALGSUB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APCONV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APFNSH.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APIO.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APLOAD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APSHFT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APSUM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APVCHK.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APWRIT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/BUFGET.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/BUFPUT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CALRES.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CCSGRD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CONV1.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CONV2.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CONV3.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CONV4.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CONVFN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CONV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CORR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/DSKFFT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/FFTIM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/FFTMEM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/FRSRCI.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GR3DUV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GRCMEM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GRDCOR.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GRDCRM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GRDMEM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GRDSUB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GRDTAB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GRIDUV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/IMGMEM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/INTPFN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/MAKCVM.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/MAKMAP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/OLDMAP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SDGRID.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SRTIN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SRTOUT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/TRTOCF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/TRTOCS.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVGRID.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVGRTB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVMDIV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVMSUB.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVMTYP.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVPDIV.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVSORT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVTBGD.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVTBUN.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVTBUW.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVUNIF.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/VISDFT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/VSCDFT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/VSFDFT.o
LIBR      :            /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/XCSHFT.o
LIBR      : Randomize  /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SUBLIB.3449
LIBR      : Library    /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SUBLIB.3449
LIBR      : randomized.
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/AEGRID.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/ALGSTB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/ALGSUB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APCONV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APFNSH.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APIO.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APLOAD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APSHFT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APSUM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APVCHK.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/APWRIT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/BUFGET.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/BUFPUT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CALRES.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CCSGRD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CONV1.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CONV2.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CONV3.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CONV4.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CONVFN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CONV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/CORR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/DSKFFT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/FFTIM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/FFTMEM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/FRSRCI.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GR3DUV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GRCMEM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GRDCOR.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GRDCRM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GRDMEM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GRDSUB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GRDTAB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/GRIDUV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/IMGMEM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/INTPFN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/MAKCVM.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/MAKMAP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/OLDMAP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SDGRID.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SRTIN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SRTOUT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/TRTOCF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/TRTOCS.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVGRID.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVGRTB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVMDIV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVMSUB.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVMTYP.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVPDIV.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVSORT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVTBGD.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVTBUN.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVTBUW.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/UVUNIF.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/VISDFT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/VSCDFT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/VSFDFT.o
LIBR      : Delete     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/XCSHFT.o
LIBR      : Moved      /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SUBLIB.3449
LIBR      : to         /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SUBLIB
INSTEP2   : End of     /usr/local/aips/31DEC03/LINUX/LIBR/QNOT/SUBLIB
INSTEP2   : library creation.
INSTEP2   : Process    $QOOP/...
INSTEP2   : subroutines.
INSTEP2   : Library    /usr/local/aips/31DEC03/LINUX/LIBR/QOOP/SUBLIB
INSTEP2   : already exists.
INSTEP2   : Skip       $QOOP/...
INSTEP2   : compilations.
INSTEP2   : Ends       Tue Jul 22 14:21:52 CDT 2003