Subroutine UISEOP

      SUBROUTINE UISEOP(INDEX,IERROR)
C                                                         U I S E O P 
C                                                         ===========
C********************************************************************
C
C --- PURPOSE : TO OPEN A SET ENTITY IN FEMGEN DATA BASE TO RECEIVE
C               NEW PARTS.  UPTO 10 SETS MAY BE OPEN AT A TIME
C
C --- IN      : INDEX  : POINTER TO SET
C
C --- OUT     : IERROR : 0 : OK
C                      : 1 : TOO MANY SETS OPEN (MAX 10 USUALLY)
C                      : 2 : SET DOES NOT EXIST
C
C********************************************************************
C
      INTEGER  INDEX,IERROR
C