*
* $Id: cdifrc.F,v 1.1.1.1 1996/02/28 16:24:20 mclareni Exp $
*
* $Log: cdifrc.F,v $
* Revision 1.1.1.1 1996/02/28 16:24:20 mclareni
* Hepdb, cdlib, etc
*
*
#include "hepdb/pilot.h"
SUBROUTINE CDIFRC (CH, IAR, NWD, NCH)
* =====================================
*
************************************************************************
* *
* SUBR. CDIFRC (CH, IAR*, NWD, NCH) *
* *
* Converts character string CH (of type character and NCH long) *
* to an output integer array IAR (of length NWD) via the look-up *
* table stored in CSTRCA *
* *
* Called by CDLINC *
* *
************************************************************************
*
#include "hepdb/caopti.inc"
CHARACTER CH*(*)
DIMENSION IAR(9), IB(4)
* ------------------------------------------------------------------
*
DO 10 J = 1, NWD
K = 4*J - 4
DO 5 L = 1, 4
IF (K+L.LE.NCH) THEN
I = INDEX (CSTRCA(32:127), CH(K+L:K+L))
IB(L) = I + 31
ELSE
IB(L) = 31
ENDIF
5 CONTINUE
CALL PKBYT (IB, IAR(J), 1, 4, MPAKCA)
10 CONTINUE
* END CDIFRC
999 END