## 5.18. MDSOLV, Unstructured Entity Types

         MODULE MDSOLV

          USE mdvar_all

          IMPLICIT NONE

          ! THIS MODULE CONTAINS SOLVER DATA FOR EACH PART

          ! COMMON FLAGS
          INTEGER (INT4), PARAMETER :: ISF_SOLVER         = 1

          ! NODE TYPES
          INTEGER(INT4), PARAMETER :: NDTYPE_BASIC              =1
          INTEGER(INT4), PARAMETER :: NDTYPE_3DOF               =2
          INTEGER(INT4), PARAMETER :: NDTYPE_6DOF_SHELL         =3
          INTEGER(INT4), PARAMETER :: NDTYPE_6DOF_BEAM          =4
          INTEGER(INT4), PARAMETER :: NDTYPE_6DOF_SHELL_BEAM    =5
          INTEGER(INT4), PARAMETER :: NDTYPE_3DOF_ANP           =6
          INTEGER(INT4), PARAMETER :: NDTYPE_6DOF_ANP           =7
          INTEGER(INT4), PARAMETER :: NDTYPE_ORIENT_BEAM        =80
          INTEGER(INT4), PARAMETER :: NDTYPE_EXTERNAL           =99
          INTEGER(INT4), PARAMETER :: NDTYPE_ALL                =100

          ! ALL ELEMENTS FOR PRE-PROCESSING
          INTEGER(INT4), PARAMETER :: ELTYPE_BASIC             =99

          ! SOLID ELEMENT TYPES
          INTEGER(INT4), PARAMETER :: ELTYPE_HEX8              =100
          INTEGER(INT4), PARAMETER :: ELTYPE_HEX8FE            =101
          INTEGER(INT4), PARAMETER :: ELTYPE_PENTA6            =102
          INTEGER(INT4), PARAMETER :: ELTYPE_TET4              =103
          INTEGER(INT4), PARAMETER :: ELTYPE_TET4_ANP          =104
          INTEGER(INT4), PARAMETER :: ELTYPE_PYRAMID5          =105

          ! SHELL/BEAM ELEMENT TYPES
          INTEGER(INT4), PARAMETER :: ELTYPE_SHL4              =200
          INTEGER(INT4), PARAMETER :: ELTYPE_SHL3              =201
          INTEGER(INT4), PARAMETER :: ELTYPE_SHL4BLT           =202
          INTEGER(INT4), PARAMETER :: ELTYPE_BEAM2             =203

          ! EULER ELEMENT TYPES
          INTEGER(INT4), PARAMETER :: ELTYPE_HEX8_EUL          =300
          INTEGER(INT4), PARAMETER :: ELTYPE_PENTA6_EUL        =301
          INTEGER(INT4), PARAMETER :: ELTYPE_TET4_EUL          =302
          INTEGER(INT4), PARAMETER :: ELTYPE_HEX8_FCT          =303

          ! ALE ELEMENT TYPES
          INTEGER(INT4), PARAMETER :: ELTYPE_HEX8_SALE         =400
          INTEGER(INT4), PARAMETER :: ELTYPE_HEX8_ALE          =401
          INTEGER(INT4), PARAMETER :: ELTYPE_PENTA6_ALE        =402
          INTEGER(INT4), PARAMETER :: ELTYPE_TET4_ALE          =403

          ! STRUCTURED MESH SOLVERS
          INTEGER (INT4), PARAMETER ::      ELTYPE_LAG        = 1
          INTEGER (INT4), PARAMETER ::      ELTYPE_EUL        = 2
          INTEGER (INT4), PARAMETER ::      ELTYPE_ALE        = 3
          INTEGER (INT4), PARAMETER ::      ELTYPE_SHL        = 4
          INTEGER (INT4), PARAMETER ::      ELTYPE_FCT        = 5
          INTEGER (INT4), PARAMETER ::      ELTYPE_SPH        = 6
          INTEGER (INT4), PARAMETER ::      ELTYPE_BEAM       = 7
          INTEGER (INT4), PARAMETER ::      ELTYPE_RB         = 8
          INTEGER (INT4), PARAMETER ::      ELTYPE_ALL        = 8

          ! FACE TYPES AS IN OPT(3) = OPT(FC_SOPT_FACETYPE)
          INTEGER (INT4), PARAMETER ::      FATYPE_EXTERNAL   = 1
          INTEGER (INT4), PARAMETER ::      FATYPE_INTERNAL   = 2
          INTEGER (INT4), PARAMETER ::      FATYPE_PLOAD      = 3
          INTEGER (INT4), PARAMETER ::      FATYPE_TRANSMIT   = 4
          INTEGER (INT4), PARAMETER ::      FATYPE_BASIC      = 99

          ! FACE TOPOLOGY AS IN OPT(2) = OPT(FC_SOPT_TRIAQUAD)
          INTEGER (INT4), PARAMETER ::      FATYPE_PLOAD3     = 3
          INTEGER (INT4), PARAMETER ::      FATYPE_PLOAD4     = 4
          INTEGER (INT4), PARAMETER ::      FATYPE_PLOAD2     = 5

          ! JOIN TYPES
          INTEGER (INT4), PARAMETER ::      JOINTYPE_BASIC    = 1
          INTEGER (INT4), PARAMETER ::      JOINTYPE_IJKUS    = 2

          ! RIGID BODY TYPES
          INTEGER (INT4), PARAMETER ::      RBODTYPE_MATRIG    = 1
          INTEGER (INT4), PARAMETER ::      RBODTYPE_BASIC     = 99 !NOT REALLY USED

          ! CLASSIFICATION FLAGS
          INTEGER (INT4), PARAMETER ::      ICLASS_VOLUME   = 1
          INTEGER (INT4), PARAMETER ::      ICLASS_SHELL    = 2
          INTEGER (INT4), PARAMETER ::      ICLASS_BEAM     = 3
          INTEGER (INT4), PARAMETER ::      ICLASS_POINT    = 4

          ! TOPOLOGY FLAGS
          INTEGER (INT4), PARAMETER ::      ITOPO_NODE   = 1
          INTEGER (INT4), PARAMETER ::      ITOPO_LINE   = 2
          INTEGER (INT4), PARAMETER ::      ITOPO_TRI    = 3
          INTEGER (INT4), PARAMETER ::      ITOPO_QUAD   = 4
          INTEGER (INT4), PARAMETER ::      ITOPO_TET    = 5
          INTEGER (INT4), PARAMETER ::      ITOPO_PYRAMID= 6
          INTEGER (INT4), PARAMETER ::      ITOPO_PENTA  = 8
          INTEGER (INT4), PARAMETER ::      ITOPO_HEX    = 9

          TYPE SOLVER_DEF
            CHARACTER(LEN=12) :: NAME
            INTEGER(INT4) :: CLASS  ! SOLID_ELEM, SHELL_ELEM, BEAM_ELEM
            INTEGER(INT4) :: TOPOLOGY  ! HEX, TET, QUAD
            INTEGER(INT1), DIMENSION(NUM_RVAR_ALL) :: AVAILABLE_RVAR  ! 1=AVAILABLE, 0=NOT
          END TYPE

Release 18.2 - © ANSYS, Inc. All rights reserved.