*
* $Id: rdint.F,v 1.1.1.1 1996/02/15 17:47:46 mclareni Exp $
*
* $Log: rdint.F,v $
* Revision 1.1.1.1  1996/02/15 17:47:46  mclareni
* Kernlib
*
*
#include "kernbit/pilot.h"
      SUBROUTINE RDINT(LENGTH)
C** RDINT READS SEQUENCE OF XXXXXX STARTING WITH THE CURRENT CHARACTER
C** AND RETURNS LENGTH OF IT. IF THE CURRENT CHARACTER IS NOT A DIGIT
C** LENGTH=0. AFTER RDINT THE CURRENT CHARACTER IS NON-DIGIT TRAILING
C** THE SEQUENCE.
C** RDINT IS USED TO READ INTEGER PART ,MANTISSA AND EXPONENT OF A
C** NUMBER.
C** RETURNED LENGTH IS USED TO PREPARE FORMAT FOR READ OPERATOR
C*********************************************************************
#include "i303cd.inc"
C*NS  CHARACTER XXXXXX*10
C*NS  LOGICAL RDIGI,RALPH
      LOGICAL RDIGI

      IBEG=IBPTR
    1 CONTINUE
      IF (RDIGI()) THEN
         CALL RDNEXT
         GO TO 1
      ENDIF
      LENGTH=IBPTR-IBEG
      END