Subroutine 'userAN'

      SUBROUTINE USERAN(NANTYP,ANMFUL,ANMABB)
C                                                                       
C                                                            U S E R A N
C                                                            ===========
C
C     ******************************************************************
C     *                                                                *
C     *   PURPOSE :- TO DEFINE A LIST OF AVAILABLE ANALYSIS TYPES      *
C     *              FOR A SPECIFIC FE PROGRAM.                        *
C     *                                                                *
C     *   IN  :- NONE                                                  *
C     *                                                                *
C     *   OUT :- NANTYP : NUMBER OF ANALYSIS TYPES IN LIST (I)         *
C     *          ANMFUL : FULL ANALYSIS NAMES (CHARACTER*50(50))       *
C     *          ANMABB : ABBREVIATED ANALYSIS NAMES (CHARACTER*10(50))*
C     *                                                                *
C     *   COPYRIGHT FEMSYS LIMITED                                     *
C     *                                                                *
C     ******************************************************************
C
C --- DECLARATIONS
C     ============
C
C --- PARAMETERS
C
      CHARACTER ANMFUL(50)*50, ANMABB(50)*10
C
C --- INITIALISE
C
      DO 50 I=1,50
        ANMFUL(I)='                                                  '
        ANMABB(I)='          '
  50  CONTINUE
C
C --- SET NUMBER OF ANALYSIS TYPES AVAILABLE
C
      NANTYP = 3
C
C --- DEFINE ANALYSIS TYPE FULL NAMES
C
      ANMFUL(1)='Structural'
      ANMFUL(2)='Thermal'
      ANMFUL(3)='Dynamic'
C
C --- DEFINE ANALYSIS TYPE ABBREVIATED NAMES
C
      ANMABB(1)='STRUCTURAL'
      ANMABB(2)='THERMAL'
      ANMABB(2)='DYNAMIC'
C
      RETURN
      END