*23456789a123456789b123456789c123456789d123456789e123456789f123456789g12
*
* 
      program math
      character record*180
*
      open(unit=1,file='wells_time.html',status='old')
*
  110 continue
      read(1,'(a180)') record
      ilen=lentrue(record)


      close(unit=1)
*
      end
*
*
*
*
*23456789a123456789b123456789c123456789d123456789e123456789f123456789g12
*
*
      FUNCTION LENTRUE(STRING)
      CHARACTER*(*) STRING
*
      DO 410 I=LEN(STRING),1,-1
      IF(STRING(I:I) .NE. ' '
     1     .AND.  ICHAR(STRING(I:I)) .NE. 0) THEN
          LENTRUE=I
          GO TO 110
      END IF
  410 CONTINUE
      LENTRUE=0
  110 CONTINUE
*
      RETURN
      END