Subroutine UITERM

      SUBROUTINE UITERM(MODNAM,MODTIT,IFSAVE,IDATA,IERROR)
C                                                         U I T E R M
C                                                         ===========
C********************************************************************
C
C --- PURPOSE : TO TERMINATE DATA BASE 
C
C --- IN      : MODNAM : MODEL NAME
C             : MODTIT : TITLE TO BE ASSOCIATED WITH MODEL
C             : IFSAVE : 0 : ABORT CHANGES TO DATA BASE
C                      : 1 : SAVE CHANGES TO DATA BASE
C
C --- OUT     : IERROR : 0 : OK
C                      : 1 : AN ERROR HAS OCCURRED
C
C********************************************************************
C
      CHARACTER*(*) MODNAM
      CHARACTER*(*) MODTIT
      INTEGER IDATA(*)
C
C********************************************************************
C