C$Procedure INCOM ( Put info into a comment area )
 
      SUBROUTINE INCOM ( BFILE, COMLUN )
 
C$ Abstract
C
C     Place information in the comment area of a binary kernel file.
C
C$ Required_Reading
C
C     KERNELS
C
C$ Keywords
C
C     FILES
C
C$ Declarations
 
      CHARACTER*(*)         BFILE
      INTEGER               COMLUN
 
 
C$ Brief_I/O
C
C     VARIABLE  I/O  DESCRIPTION
C     --------  ---  --------------------------------------------------
C     BFILE      I/0   Name of the kernel file to put comments in.
C     COMLUN     I     Logical unit of file containing comments.
C
C$ Detailed_Input
C
C     BFILE   Name of binary file in which to insert the comments
C             contained in the logical unit attached to COMLUN.
C
C     COMLUN   Logical unit of text file containing the comments to be
C              inserted in BFILE.
C
C$ Detailed_Output
C
C     None.
C
C$ Parameters
C
C     None.
C
C$ Exceptions
C
C     1) All exceptions are diagnosed by routines in the call tree
C        of this routine.
C
C$ Files
C
C     The binary file to which to add the comment file (BFILE)
C     is passed in and and the contents of the text file attached to
C     the logical unit COMLUN are written in its comment area.
C
C$ Particulars
C
C     None.
C
C$ Examples
C
C     The comments to be added should be in a text file attached to
C     the logical unit COMLUN. These will be added to the comment
C     area of BFILE by the following call.
C
C     CALL INCOM ( BFILE, COMLUN)
C
C$ Restrictions
C
C     None.
C
C$ Literature_References
C
C     None.
C
C$ Author_and_Institution
C
C     K.S. Zukor (JPL)
C
C$ Version
C
C-    SPICELIB Version 1.1.0, 20-MAY-1996 (BVS)
C
C        The name of a text file was replaced with text file
C        logical unit.
C
C-    SPICELIB Version 1.0.0, 25-APR-1994 (KSZ)
C
C-&
 
C$ Index_Entries
C
C     Add data to a DAF based kernel via a logical unit
C
C-&
 
C$ Revisions
C
C-    SPICELIB Version 1.1.0, 20-MAY-1996 (BVS)
C
C        The name of a text file was replaced with text file
C        logical unit.
C
C-&
 
C
C     SPICELIB functions
C
      LOGICAL               RETURN
      LOGICAL               FAILED
 
C
C     Local Parameters
C
      INTEGER               MRKLEN
      PARAMETER           ( MRKLEN = 16 )
 
C
C     Local variables
C
      CHARACTER*(MRKLEN)    BMARK
      CHARACTER*(MRKLEN)    EMARK
      INTEGER               HANDLE
 
 
C
C     Standard SPICE error handling.
C
      IF ( RETURN () ) THEN
         RETURN
      ELSE
         CALL CHKIN ( 'INCOM' )
      END IF
 
C
C     We will add the entire contents of the text file.
C
      BMARK = ' '
      EMARK = ' '
 
 
      IF ( .NOT. FAILED() ) THEN
C
C        Open the binary file, add the comments, and close
C        the binary file.
C
         CALL DAFOPW ( BFILE,   HANDLE              )
         CALL SPCAC  ( HANDLE, COMLUN, BMARK, EMARK )
         CALL DAFCLS ( HANDLE                       )
 
      END IF
 
      CALL CHKOUT ( 'INCOM' )
      RETURN
      END