SUBROUTINE DBLEN(LNAME,NAMLEN)
C
C     RETURN THE NON-BLANK LENGTH OF  LNAME
C     (I.E. ONE LESS THAN THE LOCATION OF THE FIRST BLANK)
C
      CHARACTER*128 LNAME
C
      NAMLEN = INDEX(LNAME,' ') - 1
      IF (NAMLEN .EQ. -1) NAMLEN = 128
      RETURN
C---------------
      ENTRY DBLEN2(LNAME,NAMLEN)
C
C     VERSION OF DBLEN, WHEN LNAME MAY CONTAIN VALID BLANKS
C
      NAMLEN = 128
      DO 10 I=1,128
        IF (LNAME(NAMLEN:NAMLEN).NE.' ') RETURN
        NAMLEN = NAMLEN-1
10    CONTINUE
      RETURN
      END