pkg/tbtables/fitsio/ftrsnm.f


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

C--------------------------------------------------------------------------
        subroutine ftrsnm

C       simply reset the column names as undefined
C       this will force ftgcnn to read the column names from the
C       file the next time it is called

C       written by Wm Pence, HEASARC/GSFC, Feb 1995

        integer colpnt,untpnt
        common/ftname/colpnt,untpnt

        colpnt= -999
        untpnt=0
        end