Subroutine UISEAP

      SUBROUTINE UISEAP(LPTR,IPTR,IERROR)
C                                                         U I S E A P
C                                                         ===========
C********************************************************************
C
C --- PURPOSE : APPEND ENTITY INSTANCE TO OPEN SETS
C
C --- IN      : LPTR          = NUMBER OF ITEMS TO BE APPENDED
C             : IPTR(1:LPTR)  = INDICES OF ITEMS TO BE APPENDED
C
C             
C --- OUT     : IERROR : 0 : OK
C                      : 1 : NOTHING TO BE APPENDED (LPTR<1)
C                      : 2 : NO SETS OPEN 
C
C********************************************************************
C
      INTEGER   LPTR,IERROR
      INTEGER   IPTR(*)
C
C********************************************************************
C