*
* $Id: cdchti.F,v 1.1.1.1 1996/02/28 16:24:53 mclareni Exp $
*
* $Log: cdchti.F,v $
* Revision 1.1.1.1 1996/02/28 16:24:53 mclareni
* Hepdb, cdlib, etc
*
*
#include "hepdb/pilot.h"
SUBROUTINE CDCHTI (CVAL, IVAL, IRC)
* ===================================
*
************************************************************************
* *
* SUBR. CDCHTI (CVAL, IVAL*, IRC*) *
* *
* Converts character string into integer value *
* *
* This routine is taken from R.Brun *
* *
* Arguments : *
* *
* CVAL Character string (input) *
* IVAL Integer value (output) *
* IRC Return code (see below) *
* *
* Called by CDCTOR, CDDCKH, CDDCKV, CDRDDA *
* *
* Error Condition : *
* *
* IRC = 0 : No error *
* =100 : Error in decoding *
* *
************************************************************************
*
PARAMETER (MXD=15)
CHARACTER CVAL*(*)
CHARACTER*(MXD) CTEMP, BLANK
INTEGER IVAL
*
* ------------------------------------------------------------------
*
IRC = 0
L = LENOCC(CVAL)
IF (L.EQ.0) GO TO 999
IF (L.GT.MXD) THEN
IRC = 100
GO TO 999
ENDIF
BLANK = ' '
IF (L.EQ.MXD) THEN
CTEMP = CVAL
ELSE
CTEMP = BLANK(1:MXD-L)//CVAL
ENDIF
READ (CTEMP, '(I15)', ERR=100) IVAL
GO TO 999
100 IRC = 100
* END CDCHTI
999 END