[daip] bug fix for FITLD (FITS-IDI)

[Olaf Wucknitz]

Hello,

I noticed that when reading a particular FITS-IDI file, the POLTYPE key of 
the AN table was wrong and had non-ASCII characters in it. This seems to 
be caused by a bug in FITLD.FOR in subroutine AT2AN.

Here is a patch that fixes the problem at least in my case:


--- FITLD.FOR.orig      2009-11-26 05:43:45.000000000 +0100
+++ FITLD.FOR   2010-01-24 19:07:25.028423028 +0100
@@ -9565,7 +9565,7 @@
              TYPKEY = 3
              CALL CHR2H (8, POLTYP, 1, HTEMP)
              CALL TABKEY ('WRIT', KEYWRD, NUMKEY, TABUF1, KEYLOC,
-     *         NOPCAL, TYPKEY, IERR)
+     *         HTEMP, TYPKEY, IERR)
              IF (IERR.NE.0) THEN
                 WRITE (MSGTXT,1100) IERR
                 CALL MSGWRT (7)


It looks as if the CALL TABKEY lines were copied from the previous call 
(for NOPCAL) without changing them.

I noticed this problem in 31DEC10 but it seems to be there already in 
31DEC09 and probably earlier.


Cheers,
Olaf