read_mesh_conn.f

Go to the documentation of this file.

!                   *************************
                    SUBROUTINE read_mesh_conn
!                   *************************
!
     &(fformat,nfic,npoin,typ_elem,nelem,ndp,typ_bnd_elem,nelebd,ikle,
     &  ipobo)
!
!***********************************************************************
! HERMES   V7P0
!***********************************************************************
!
!brief    READS THE CONNECTIVITY TABLE AND NUMBERING FOR THE
!+        BOUNDARY NODES.
!
!history  Y AUDOUIN (LNHE)
!+        21/05/2015
!+        V7P0
!+   First version.
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| NFIC           |-->| LOGICAL UNIT FOR GEOMETRY FILE
!| IB             |<--| 10 INTEGERS, SEE SELAFIN FILE STANDARD
!| NDP            |<--| NUMBER OF NODES PER ELEMENT
!| NELEBD         |<--| NUMBER OF BOUNDARY ELEMENTS
!| NELEM          |<--| NUMBER OF ELEMENTS IN THE MESH
!| NPOIN          |<--| NUMBER OF POINTS IN THE MESH
!| NPTFR          |<--| NUMBER OF BOUNDARY POINTS
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE interface_hermes
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
      INTEGER, INTENT(IN)    :: NFIC,NPOIN,NELEM,NDP,TYP_ELEM
      INTEGER, INTENT(IN)    :: TYP_BND_ELEM,NELEBD
      INTEGER, INTENT(INOUT) :: IKLE(ndp*nelem)
      INTEGER, INTENT(INOUT) :: IPOBO(npoin)
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER IERR
!
!-----------------------------------------------------------------------
!
      CALL get_mesh_connectivity(fformat,nfic,typ_elem,ikle,nelem,
     &                           ndp,ierr)
      CALL check_call(ierr,'READ_MESH_CONN:GET_MESH_CONNECTIVITY')
!
      CALL get_bnd_ipobo(fformat,nfic,npoin,nelebd,typ_bnd_elem,ipobo,
     &                   ierr)
      CALL check_call(ierr,'READ_MESH_CONN:GET_BND_IPOBO')
!
!-----------------------------------------------------------------------
!
      RETURN
      END