Subroutine UISEFD

      SUBROUTINE UISEFD(NAME,INDEX,IERROR)
C                                                         U I S E F D 
C                                                         ===========
C **************************************************************************
C
C *** PURPOSE : ROUTINE TO FIND THE POINTER 'INDEX' FOR A SET CALLED 'NAME'
C
C --- IN      : NAME   : NAME OF SET YOU WANT THE POINTER OF
C
C --- OUT     : INDEX  : POINTER TO SET NAMED 'NAME'
C             : IERROR : 0 : NO PROBLEMS
C                      : 1 : NO SET OF THIS NAME
C                      : 2 : INVALID INPUT DATA : BLANK SET NAME
C
C********************************************************************
C
      CHARACTER*8  NAME
      INTEGER INDEX, IERROR
C