get_nodes_per_element.f

Go to the documentation of this file.

!                   ********************************
                    SUBROUTINE get_nodes_per_element
!                   ********************************
!
     &(typ_elt, ndp)
!
!***********************************************************************
! BIEF   V6P3                                   21/08/2010
!***********************************************************************
!
!brief    GIVES THE EXTENSION FOR NAMING FILES IN PARALLEL
!+
!
!history  Y AUDOUIN (LNHE)
!+        25/05/2015
!+        V7P0
!+        Creation of the file
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| TYP_ELT        |-->| TYPE OF THE ELEMENT
!| NDP            |-->| NUMBER OF NODES COMPOSING THE ELEMENT
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special
      IMPLICIT NONE

      INTEGER, INTENT(IN) :: typ_elt
      INTEGER, INTENT(INOUT) :: ndp
!
!-----------------------------------------------------------------------
!
      ndp = 0
      SELECT CASE(typ_elt)
      CASE(type_null)
        ndp = 0
      CASE(point_elt_type)
        ndp = 1
      CASE(point_bnd_elt_type)
        ndp = 1
      CASE(triangle_elt_type)
        ndp = 3
      CASE(quadrangle_elt_type)
        ndp = 4
      CASE(tetrahedron_elt_type)
        ndp = 4
      CASE(prism_elt_type)
        ndp = 6
      CASE(split_prism_elt_type)
        ndp = 7
      CASE(edge_bnd_elt_type)
        ndp = 2
      CASE(triangle_bnd_elt_type)
        ndp = 3
      CASE(quadrangle_bnd_elt_type)
        ndp = 4
      CASE(triangle_3d_bnd_elt_type)
        ndp = 3
      CASE DEFAULT
        WRITE(lu,*) 'UNKNWOWN ELEMENT TYPE ',typ_elt
        CALL plante(1)
      END SELECT
!
!-----------------------------------------------------------------------
!
      END SUBROUTINE