SUBROUTINE VPPAPT (
*
*  inputs
*
     :                  OFILE, FILTER, POL, PAOFST, INTEN, TEMP, EPOCH,
     :                  TARGET, NPTS,
*
*  outputs
*
     :                  STATUS)
*
*  Module Number: 15.12.3.2
*
*  Module Name: polpav
*
*  Keyphrase:
*  ----------
*  Write the result of VPOLPA to output table
*
*  Description:
*  ------------
*
*  FORTRAN name: VPPAPT.FOR
*
*  Keywords of accessed files and tables:
*  --------------------------------------
*  Name                         I/O     Description / Comments
*
*       output table column names:
*
*  'FILTER_NAME'                 O      filter name
*  'P'                           O      polarization
*  'ANGLE_OFFSET'                O      position angle offset
*  'I'                           O      intensity of the target
*  'TEMPAVE'                     O      average temperature
*  'EPOCHAVE'                    O      average epoch
*  'TRGTNAME'                    O      target name
*
*  Subroutines Called:
*  -------------------
*  CDBS:
*       CDTOUT
*  SDAS:
*       UTRPTR, UTRPTD, UTRPTT, UTTCLO, UMSPUT
*  Others:
*       None
*
*  History:
*  --------
*  Version      Date        Author          Description
*     1       07-15-86     J.-C. HSU        design and coding
*     2       10-05-87     J.-C. HSU        F77 standard
*-------------------------------------------------------------------------------
*
*== input:
*                                       --output table name
        CHARACTER*(*)           OFILE,
*                                       --filter name
     :                          FILTER(1),
*                                       --target name
     :                          TARGET(1)
*                                       --polarization 
        REAL                    POL(1),
*                                       --position angle offset
     :                          PAOFST(1),
*                                       --intensity
     :                          INTEN(1),
*                                       --mean temperature
     :                          TEMP(1)
*                                       --mean epoch
        DOUBLE PRECISION        EPOCH(1)
*                                       --number of data points
        INTEGER                 NPTS
*
*== output:
*                                       --error status
        INTEGER                 STATUS
*
*== local:
*                                       --loop index
        INTEGER                 I, J, NPUT,
*                                       --number of existed rows of output
*                                       --SDAS table
     :                          NROWS,
*                                       --number of columns
     :                          NCOLS,
*                                       --pointer to table descripter
     :                          TP,
*                                       --column identifiers
     :                          COLIDN(20),
*                                       --data type
     :                          DTYPE(20),
*                                       --error status
     :                          STAT(20), STATOK
*                                       --data buffer
        REAL                    CBUFF(20)
*                                       --column format
        CHARACTER*8             COLFMT(20)
*                                       --output SDAS table names
        CHARACTER*16            CNAME(20),
*                                       --column units
     :                          UNIT(20)
*                                       --error message context
        CHARACTER*130           CONTXT
*==========================begin iraf77.inc (without INTEGER*2)=================
*     Include file for the iraf77 FORTRAN interface to the IRAF VOS
*     Get IRAF common into main program
*
      LOGICAL MEMB(1)
      INTEGER MEMI(1)
      INTEGER MEML(1)
      REAL MEMR(1)
      DOUBLE PRECISION MEMD(1)
      COMPLEX MEMX(1)
      EQUIVALENCE (MEMB, MEMI, MEML, MEMR, MEMD, MEMX)
      COMMON /MEM/ MEMD
*
*     File I/O access modes
*
      INTEGER   RDONLY
      PARAMETER (RDONLY = 1)
      INTEGER   RDWRIT
      PARAMETER (RDWRIT = 2)
      INTEGER   WRONLY
      PARAMETER (WRONLY = 3)
      INTEGER   APPEND
      PARAMETER (APPEND = 4)
      INTEGER   NEWFIL
      PARAMETER (NEWFIL = 5)
      INTEGER   TMPFIL
      PARAMETER (TMPFIL = 6)
      INTEGER   NEWCPY
      PARAMETER (NEWCPY = 7)
      INTEGER   NEWIMG
      PARAMETER (NEWIMG = 5)
*
*     codes for data types
*
      INTEGER   TYBOOL
      PARAMETER (TYBOOL = 1)
      INTEGER   TYCHAR
      PARAMETER (TYCHAR = 2)
      INTEGER   TYSHOR
      PARAMETER (TYSHOR = 3)
      INTEGER   TYINT
      PARAMETER (TYINT = 4)
      INTEGER   TYLONG
      PARAMETER (TYLONG = 5)
      INTEGER   TYREAL
      PARAMETER (TYREAL = 6)
      INTEGER   TYDOUB
      PARAMETER (TYDOUB = 7)
      INTEGER   TYCPLX
      PARAMETER (TYCPLX = 8)
      INTEGER   TYUSHT
      PARAMETER (TYUSHT = 11)
      INTEGER   TYUBYT
      PARAMETER (TYUBYT = 12)
*
*     TYTEXT is a special code for the iraf77 interface; it is not in the VOS
*
      INTEGER TYTEXT
      PARAMETER (TYTEXT = 13)
*========================end iraf77.inc=========================================
*=========================begin hsp.inc=========================================
*                                       --status return code
        INTEGER         OK, ERRNUM(20)
*                                       --message destination and priority
        INTEGER         DEST, PRIO
        DATA OK /0/
        DATA ERRNUM /701, 702, 703, 704, 705, 706, 707, 708, 709, 710,
     :               711, 712, 713, 714, 715, 716, 717, 718, 719, 720/
        DATA DEST, PRIO /1, 0/
*=========================end hsp.inc===========================================
*------------------------------------------------------------------------------
*
*  specify column names
*
        NCOLS = 7
*
        CNAME(1) = 'FILTER_NAME'
        CNAME(2) = 'P'
        CNAME(3) = 'ANGLE_OFFSET'
        CNAME(4) = 'I'
        CNAME(5) = 'TEMPAVE'
        CNAME(6) = 'EPOCHAVE'
        CNAME(7) = 'TRGTNAME'
*
*  column data type
*
        DTYPE(1) = -4
        DO 10 I = 2, 5
            DTYPE(I) = TYREAL
   10   CONTINUE
        DTYPE(6) = TYDOUB
        DTYPE(7) = -20
*
*  find out the number of rows the SDAS table already has and append
*  the result of this routine as one new row at the bottom
*
        DO 20 I = 1, NCOLS
            UNIT(I) = ' '
            COLFMT(I) = ' '
   20   CONTINUE
*
*  set up output table
*
        CALL CDTOUT (OFILE, CNAME, UNIT, COLFMT, DTYPE, NCOLS,
     :                  TP, COLIDN, NROWS, STATUS)
        IF (STATUS .NE. OK) THEN
            CONTXT = 'error setting up output table'
            GO TO 999
        END IF
*
*  write the result to output table
*
        DO 40 I = 1, NPTS
*
*  specify buffer contents
*
            CBUFF(1) = POL(I)
            CBUFF(2) = PAOFST(I)
            CBUFF(3) = INTEN(I)
            CBUFF(4) = TEMP(I)
*
*  write results to the output table
*
            CALL UTRPTT (TP, COLIDN(1), 1, NROWS+I, FILTER(I),  STAT(1))
            CALL UTRPTR (TP, COLIDN(2), 4, NROWS+I, CBUFF,   STAT(2))
            CALL UTRPTD (TP, COLIDN(6), 1, NROWS+I, EPOCH(I),   STAT(3))
            CALL UTRPTT (TP, COLIDN(7), 1, NROWS+I, TARGET(I),  STAT(4))
            NPUT = 4
*
            DO 30 J = 1, NPUT
                IF (STAT(J) .NE. OK) THEN
                    STATUS = ERRNUM(1)
                    CONTXT = 'cannot write a row to output table'
                    GO TO 999
                END IF
   30       CONTINUE
   40   CONTINUE
*
        CALL UTTCLO (TP, STATUS)
        IF (STATUS .NE. OK) THEN
            CONTXT = 'cannot close output table'
            GO TO 999
        END IF
*
        STATUS = OK
        GO TO 1000
*
*  write error message
*
  999   CALL UMSPUT ('VPPAPT: ' // CONTXT, DEST, PRIO,   STATOK)
*
 1000   RETURN
        END