transfer_group_part_info.f

Go to the documentation of this file.

!                   ***********************************
                    SUBROUTINE transfer_group_part_info
!                   ***********************************
!
     &(fformat,source_id, dest_id,
     & typ_bnd_elem, ikle_bnd_dest, nelebd_dest,
     & ndp_dest, nelebd_src, knolg_bnd,
     & trans_point, npoin_src, npoin_dest, knolg, ierr)
!
!***********************************************************************
! HERMES   V7P0 01/05/2014
!***********************************************************************
!
!brief    Transfer group information from fid into fid2
!+        with fid2 a partionned mesh of fid
!+        Writes boundary elements as well
!
!history  Y AUDOUIN (LNHE)
!+        24/03/2014
!+        V7P0
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| FFORMAT        |-->| FORMAT OF THE FILE
!| SOURCE_ID      |-->| FILE DESCRIPTOR OF INPUT FILE
!| DEST_ID        |-->| FILE DESCRIPTOR OF OUTPUT FILE
!| TYPE_ELEM      |-->| TYPE OF THE ELEMENTS
!| TYPE_BND_ELEM  |-->| TYPE OF THE BOUNDARY ELEMENTS
!| IKLE_BND_DEST  |-->| CONNECTIVITY FOR OUTPUT FILE BOUNDARY ELEMENTS
!| NELEBD_DEST    |-->| NUMBER OF BOUNDARY ELEMENTS IN OUTPUT FILE
!| NDP_DEST       |-->| Number of node per element in output file
!| NELEBD_SRC     |-->| Number of noudary elements in the input file
!| KNOLG_BND      |-->| Local to global numbering for boundary elements
!| TRANS_POINT    |-->| IF TRUE TRANSFERING GROUP ON POINTS AS WELL
!| NPOIN_SRC      |-->| Number of points in input file
!| NPOIN_DEST     |-->| Number if points in output file
!| KNOLG          |-->| Local to global numbering
!| IERR           |<--| 0 IF NO ERROR DURING THE EXECUTION
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE utils_serafin
      USE utils_med
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      CHARACTER(LEN=8), INTENT(IN)  :: FFORMAT
      INTEGER,          INTENT(IN)  :: SOURCE_ID
      INTEGER,          INTENT(IN)  :: DEST_ID
      INTEGER,          INTENT(IN)  :: NELEBD_DEST
      INTEGER,          INTENT(IN)  :: NDP_DEST
      INTEGER,       INTENT(IN)  :: IKLE_BND_DEST(nelebd_dest*ndp_dest)
      INTEGER,          INTENT(IN)  :: TYP_BND_ELEM
      INTEGER,          INTENT(IN)  :: NELEBD_SRC
      INTEGER,          INTENT(IN)  :: KNOLG_BND(nelebd_src)
      LOGICAL,          INTENT(IN)  :: TRANS_POINT
      INTEGER,          INTENT(IN)  :: NPOIN_SRC
      INTEGER,          INTENT(IN)  :: NPOIN_DEST
      INTEGER,          INTENT(IN)  :: KNOLG(npoin_dest)
      INTEGER,          INTENT(OUT) :: IERR
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      SELECT CASE (fformat(1:7))
        CASE ('SERAFIN')
          ! DOING nothing
          CONTINUE
        CASE ('MED    ')
          CALL transfer_group_part_info_med(
     &     source_id, dest_id,
     &     typ_bnd_elem, ikle_bnd_dest, nelebd_dest,
     &     ndp_dest, nelebd_src, knolg_bnd,
     &     trans_point, npoin_src, npoin_dest, knolg, ierr)
        CASE DEFAULT
          ierr = hermes_unknown_file_format_err
          WRITE(error_message,*)
     &      'TRANSFER_GROUP_INFO: BAD FILE FORMAT: ',fformat
          RETURN
      END SELECT
!
!-----------------------------------------------------------------------
!
      RETURN
      END