SUBROUTINE DBPUTV(POS,NAME,LENGTH,LDOC,TYPE,DATA,ECODE)
      PARAMETER (IPW=64)
      IMPLICIT INTEGER(A-Z)
C
C     PUT THE VARIABLE  NAME  INTO THE CURRENTLY OPEN DATABANK.
C
      COMMON /IOCOM/ NOTIO,OUNIT
      COMMON /TSPBUF/ NOTBUF(6),IREC(IPW)
      INTEGER*2 TYPE,ECODE,IOFF
      DIMENSION NAME(2),DATA(1)
C
C     WITH LENGTH>0, DBFDI WILL MAKE SURE A DIRECTORY ENTRY AND
C     SPACE FOR DATA EXISTS FOR THIS VARIABLE.
C
      CALL DBFDI(IREC,POS,IOFF,NAME,LENGTH,LDOC,TYPE,NEW,ECODE)
      IF (ECODE.NE.0) THEN
        WRITE(OUNIT,901)
  901   FORMAT(' ERROR IN TSP DATABANK:  DBPUTV/DBFDI')
        RETURN
      ENDIF
C
C     WRITE OUT THE NEW DATA
C
      CALL DBPUT2(POS,IOFF,LENGTH,DATA,ECODE)
C
      RETURN
      END