SUBROUTINE DBGET1(POS,IOFF,NAME,LENGTH,LDOC,TYPE,ECODE)
      PARAMETER (IPW=64)
      IMPLICIT INTEGER(A-Z)
C
C     GET THE DIRECTORY FIELD FOR THE VARIABLE  NAME  .
C     RETURN THE LENGTH, TYPE, AND
C     POS, A POINTER TO THE DATA FIELD FOR THE VARIABLE.
C
      INTEGER*2 TYPE,ECODE,IOFF
      DIMENSION NAME(2)
      COMMON /TSPBUF/ NOTBUF(6),IREC(IPW)
C
C....SET LENGTH=0  BECAUSE WE WILL TAKE WHATEVER LENGTH IS THERE
C
      LENGTH=0
      CALL DBFDI(IREC,POS,IOFF,NAME,LENGTH,LDOC,TYPE,NEW,ECODE)
      IF (NEW .NE. -1) TYPE = -1
C
      RETURN
      END