LOGICAL FUNCTION LCHKR (STRING, RETVAL) C***************************************************************************** C C Description : Routine to check a string for a real number C C Arguments : STRING = string to be checked, terminated by zero-byte C RETVAL = REAL value of the number C LCHKR = 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 : LCHKR.FTN C C Package : RSX-LIBRARY C C Compilation/Linking : FOR/F4P/TR:NONE LCHKR C C Updates : name version C C description : C C***************************************************************************** BYTE STRING(1) C IPOS=1 LCHKR=.FALSE. RETVAL=RCVTS(STRING,IPOS,IRET) IF ((IRET.AND.1).EQ.1) LCHKR=.TRUE. RETURN END