Subroutine UISERE

      SUBROUTINE UISERE(LPTR,IPTR,IERROR)
C                                                         U I S E R E
C                                                         ===========
C********************************************************************
C
C --- PURPOSE : REMOVE ENTITY INSTANCE FROM OPEN SETS
C
C --- IN      : LPTR          = NUMBER OF ITEMS TO BE REMOVED
C             : IPTR(1:LPTR)  = INDICES OF ITEMS TO BE REMOVED
C
C             
C --- OUT     : IERROR : 0 : OK
C                      : 1 : NOTHING TO BE REMOVED (LPTR<1)
C                      : 2 : NO SETS OPEN 
C
C********************************************************************
C
      INTEGER   LPTR,IERROR
      INTEGER   IPTR(*)