Subroutine UISECL

      SUBROUTINE UISECL(INDEX,IWORK,IWDIM,IERROR)
C                                                         U I S E C L 
C                                                         ===========
C********************************************************************
C
C --- PURPOSE : TO CLOSE A SET ENTITY IN FEMGEN DATA BASE.
C               IF INDEX IS ZERO THEN LAST OPENNED IS CLOSED.
C               IF INDEX IS NEGATIVE THEN ALL OPEN SETS WOULD
C               BE CLOSED.
C
C --- IN      : INDEX  : POINTER TO SET
C             : IWDIM  : DIMENSION OF IWORK
C --- IN/OUT  : IWORK  : WORK AREA
C
C --- OUT     : IERROR : 0 : OK
C                      : 1 : SET 'INDEX' IS NOT OPEN 
C                      : 2 : 'INDEX' DOES NOT POINT TO A SET
C                      : 3 : NO SETS ARE CURRENTLY OPEN 
C
C********************************************************************
C
      INTEGER INDEX,IERROR,IWORK(IWDIM)
C
C********************************************************************
C