5 * Revision 1.1.1.1 1996/02/15 17:49:51 mclareni
9 #include "kerngen/pilot.h"
10 SUBROUTINE UOPTC (DATA,POSS,IOPTV)
12 C CERN PROGLIB# M502 UOPTC .VERSION KERNFOR 4.10 850320
16 CHARACTER *(*) DATA, POSS
23 IF (INDEX(DATA,POSS(J:J)).NE.0) IOPTV(J)= 1