MINICERN/packlib/zebra/dzebra/dzopt.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:07  mclareni
   6 * Zebra
   7 *
   8 *
   9 *------------------------------------------------------------
  10 #include "zebra/pilot.h"
  11 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
  12 #include "zebra/debugvf1.inc"
  13 #endif
  14       SUBROUTINE DZOPT(CHOPT)
  15 #include "zebra/dzc1.inc"
  16       CHARACTER *(*) CHOPT,CLETT
  17
  18       PARAMETER
  19      X (CLETT = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')
  20
  21
  22 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
  23 #include "zebra/debugvf2.inc"
  24 #endif
  25
  26
  27       DO 10 I=1,26
  28    10 IFLOPT(I) = 0
  29
  30
  31       DO 20 I=1,LEN(CHOPT)
  32           J = INDEX(CLETT,CHOPT(I:I))
  33           IF (J.NE.0) IFLOPT(J - ((J-1)/26)*26) = 1
  34    20 CONTINUE
  35
  36   999 RETURN
  37       END