SUBROUTINE DBPDR(IREC5,J,POS,IOFF,NAME,LENGTH,LDOC,TYPE)
      IMPLICIT INTEGER(A-Z)
C
C     PUT DIRECTORY INFO (NAME,LENGTH,TYPE) INTO IREC5 AT POSITION J.
C
      DIMENSION NAME(2),IREC5(6,10)
      INTEGER*2 TYPE,IOFF,I2VAL(2),VTYPE,VOFF
      EQUIVALENCE (I2VAL,I4VAL), (I2VAL(1),VTYPE), (I2VAL(2),VOFF)
C
      IREC5(1,J) = NAME(1)
      IREC5(2,J) = NAME(2)
      IREC5(3,J) = LENGTH
      VTYPE     = TYPE
      VOFF      = IOFF
      IREC5(4,J) = I4VAL
      IREC5(5,J) = POS
      IREC5(6,J) = LDOC
C
      RETURN
      END