SUBROUTINE DBCLOS(LNAME,ECODE)
      IMPLICIT INTEGER(A-Z)
C
C     CLOSE A DATABANK.
C     (MACHINE DEPENDENT ROUTINE).
C
      INTEGER*2 ECODE
      CHARACTER*128 LNAME
      COMMON /FILINF/ PUNIT
      COMMON /IOCOM/ NOTIO,OUNIT
C
      CLOSE(UNIT=PUNIT,ERR=900)
      ECODE=0
      RETURN
C
900   ECODE=1
      CALL DBLEN(LNAME,NAMLEN)
      WRITE(OUNIT,901) LNAME(:NAMLEN)
901   FORMAT(' DATABANK CLOSE ERROR ON FILE: ',A)
      RETURN
      END