*
* $Id: dboptm.F,v 1.1.1.1 1996/02/28 16:25:03 mclareni Exp $
*
* $Log: dboptm.F,v $
* Revision 1.1.1.1  1996/02/28 16:25:03  mclareni
* Hepdb, cdlib, etc
*
*
#include "hepdb/pilot.h"
      SUBROUTINE DBOPTM (CHOPT)
*     =========================
*
************************************************************************
*                                                                      *
*        SUBR. DBOPTM (CHOPT*)                                         *
*                                                                      *
*   Encode the content of DXUSED into a character option               *
*                                                                      *
*   Arguments :                                                        *
*                                                                      *
*     CHOPT    Character option to be supplied to HEPDB                *
*                                                                      *
*   Called by various routines in the patch DBCDFC                     *
*                                                                      *
************************************************************************
*
#include "hepdb/caopti.inc"
#include "dxused.inc"
      DIMENSION       IOPTS(26)
      EQUIVALENCE     (IOPADX, IOPTS(1))
      CHARACTER       CHOPT*(*)
*
*     ------------------------------------------------------------------
*
      NDOP   = 0
      CHOPT  = ' '
      DO 10 I = 1, 26
        IF (IOPTS(I).NE.0) THEN
          IF (NDOP.EQ.0) THEN
            CHOPT  = CALFCA(I)
          ELSE
            CHOPT  = CHOPT(1:NDOP)//CALFCA(I)
          ENDIF
          NDOP   = NDOP + 1
        ENDIF
   10 CONTINUE
*                                                             END DBOPTM
      END