INTEGER FUNCTION LENGTH(STR)
      INTEGER STR(10000)
      LENGTH = 0
23000 IF(.NOT.(STR(LENGTH+1) .NE. 10002))GOTO 23002
23001 LENGTH = LENGTH + 1
      GOTO 23000
23002 CONTINUE
      RETURN
      END