LOGICAL FUNCTION LCHKI (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 value of the number C LCHKI = LOGICAL return code: .FALSE. or .TRUE. C C Author : F.A.Minkema C AKZO PHARMA, Oss Holland C dep. SDA C C Version : V1.0 Date : 25-oct-82 C C Module name : LCHKI.FTN C C Package : RSX-LIBRARY C C Compilation/Linking : FOR/F4P/TR:NONE LCHKI C C Updates : name version C C description : C C***************************************************************************** BYTE STRING(1) C IPOS=1 LCHKI=.FALSE. IRTVAL=ICVTS(STRING,IPOS,IRET) IF ((IRET.AND.1).EQ.1) LCHKI=.TRUE. RETURN END