LOGICAL FUNCTION LCHKJ (STRING,IRTVAL) C***************************************************************************** C C Description : Routine to check a string for an integer number C C Arguments : STRING = string to be checked, terminated by zero-byte C IRTVAL = INTEGER*4 value of the number C LCHKJ = LOGICAL return code: .FALSE. or .TRUE. C C Author : T.PIJL C AKZO PHARMA, Oss Holland C dep. SDA C C Version : V1.0 Date : 5-jan-83 C C Module name : LCHKJ.FOR C C Package : C C Compilation/Linking : C C Updates : name version C C description : C C***************************************************************************** BYTE STRING(1) INTEGER*4 IRTVAL,JCVTS C IPOS=1 LCHKJ=.FALSE. IRTVAL=JCVTS(STRING,IPOS,IRET) IF (IRET.EQ.1) LCHKJ=.TRUE. RETURN END