Subroutine UIFEMP

      SUBROUTINE UIFEMP(IWHAT,IFEM,IERROR)
C                                                         U I F E M P
C                                                         ===========
C********************************************************************
C
C --- PURPOSE : TO SPECIFY A PARTICULAR FE ENVIRONMENT
C
C --- IN      : IWHAT : ACTION REQUESTED
C                     : 1 : SPECIFY
C                     : 2 : FIND
C                     : 3 : REPLACE
C                     : 4 : READ
C                     : 5 : DELETE 
C
C --- IN/OUT  : IFEM  : FE ENVIRONMENT CODE
C
C          ABAQ ADII ANSY ASAS ASKA BEAS BERS DYNA FSOL MARC 
C             1,   2,   3,   4,   5,   6,   7,   8,   9,  10,
C          NAST NISA PAFE PERM SAMC STAR LUSA SAP  STRU COSM 
C            11,  12,  13,  14,  15,  16,  17,  18,  19,  20,
C          TSOL AB45 FIDO ANA1 ANA2 ANA3 DIAN DXF  IGES LARS 
C            21,  22,  23,  24,  25,  26,  27,  28,  29,  30,
C          MISE MELI PHOE STEP VISA DUMP VIEW NEUT FS2  FLOS 
C            31,  32,  33,  34,  35,  36,  37,  38,  39,  40,
C          CAST SOLV LRST FLUE PAT
C            41,  42,  43,  44, 45
C
C             
C --- OUT     : IERROR : 0 : OK
C                      : 1 : AN ERROR HAS OCCURRED
C