Subroutine UISECR

      SUBROUTINE UISECR(NAME,INDEX,IERROR)                
C                                                         U I S E C R 
C                                                         ===========
C********************************************************************
C
C *** PURPOSE : CREATE A NEW SET FOR FEMGEN DATABASE VIA USER ROUTINES.
C
C  ---  IN/OUT    NAME   : SET NAME : WILL BE INTERNALLY CREATED IF BLANK INPUT. 
C
C  ---     OUT    INDEX  : SET INDEX 
C                 IERROR :  0 : OK
C                        :  1 : NAME ALREADY EXISTS  
C
C********************************************************************
C
      CHARACTER*8 NAME
      INTEGER     INDEX, IERROR