MINICERN/packlib/kernlib/kerngen/tcgen/uoptc.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:51  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       SUBROUTINE UOPTC (DATA,POSS,IOPTV)
  11 C
  12 C CERN PROGLIB# M502    UOPTC           .VERSION KERNFOR  4.10  850320
  13 C ORIG. 07/11/84, JZ
  14 C
  15       INTEGER      IOPTV(9)
  16       CHARACTER    *(*)  DATA, POSS
  17
  18
  19       NP = LEN(POSS)
  20
  21       DO 24 J=1,NP
  22       IOPTV(J) = 0
  23       IF (INDEX(DATA,POSS(J:J)).NE.0)  IOPTV(J)= 1
  24    24 CONTINUE
  25       RETURN
  26       END