[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / dzebra / dzopt.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:07  mclareni
* Zebra
*
*
*------------------------------------------------------------
#include "zebra/pilot.h"
#if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
#include "zebra/debugvf1.inc"
#endif
      SUBROUTINE DZOPT(CHOPT)
#include "zebra/dzc1.inc"
      CHARACTER *(*) CHOPT,CLETT

      PARAMETER
     X (CLETT = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')


#if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
#include "zebra/debugvf2.inc"
#endif


      DO 10 I=1,26
   10 IFLOPT(I) = 0


      DO 20 I=1,LEN(CHOPT)
          J = INDEX(CLETT,CHOPT(I:I))
          IF (J.NE.0) IFLOPT(J - ((J-1)/26)*26) = 1
   20 CONTINUE

  999 RETURN
      END
Commit	Line	Data
fe4da5cc	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