Subroutine UIINIT

      SUBROUTINE UIINIT(MODNAM,IFNEW,IFHIS,IABUF,IERROR)
C                                                         U I I N I T
C                                                         ===========
C********************************************************************
C
C --- PURPOSE : TO INITIALISE FEMGEN AND OPEN A NEW OR OLD FEMGEN
C               DATA BASE 
C
C --- IN      : MODNAM : MODEL NAME
C             : IFNEW  : 0 : OLD DATA BASE
C                      : 1 : NEW DATA BASE
C             : IFHIS  : 0 : DON'T WRITE TO HISTORY FILE
C                      : 1 :  WRITE TO HISTORY FILE
C             : IABUF  : INTEGER WORK ARRAY
C
C --- OUT     : IERROR : 0   : OK
C                      : <>0 : AN ERROR HAS OCCURRED
C                      : 1   : MODEL NOT FOUND IN INDEX
C                      : 2   : FEMGEN MODEL NOT FOUND
C                      : 3   : MODEL ALREADY EXISTS
C                      : 4   : ILLEGAL REQUEST
C                      : 5   : MODEL EXISTS BUT NOT IN INDEX
C                      : 6   : FEMGEN DATA BASE NOT FOUND
C                      : 7   : PROBLEM IN STARTING DATA BASE
C                      : 9   : OLD REQUIRES MODEL NAME
C
C********************************************************************
C
      INTEGER IABUF(*)
      CHARACTER*(*) MODNAM
C