transfer_group_info.f

Go to the documentation of this file.

!                   ******************************
                    SUBROUTINE transfer_group_info
!                   ******************************
!
     &(fformat,fid,fid2,type_elt,type_bnd_elt,ikle_bnd,nelebd,ndp,
     & trans_elem,trans_point,ierr)
!
!***********************************************************************
! HERMES   V7P0 01/05/2014
!***********************************************************************
!
!brief    Transfer group information from fid into fid2
!         Writes boundary elements as well
!
!history  Y AUDOUIN (LNHE)
!+        24/03/2014
!+        V7P0
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| FFORMAT        |-->| FORMAT OF THE FILE
!| FID            |-->| FILE DESCRIPTOR OF INPUT FILE
!| FID2           |-->| FILE DESCRIPTOR OF OUTPUT FILE
!| TYPE_ELT       |-->| TYPE OF THE ELEMENTS
!| TYPE_BND_ELT   |-->| TYPE OF THE BOUNDARY ELEMENTS
!| TRANS_ELEM     |-->| IF TRUE TRANSFERING GROUP ON TYP_ELT AS WELL
!| TRANS_POINT    |-->| IF TRUE TRANSFERING GROUP ON POINTS AS WELL
!| 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)  :: FID, FID2
      INTEGER,          INTENT(IN)  :: NELEBD
      INTEGER,          INTENT(IN)  :: NDP
      INTEGER,          INTENT(IN)  :: IKLE_BND(*)
      INTEGER,          INTENT(IN)  :: TYPE_ELT
      INTEGER,          INTENT(IN)  :: TYPE_BND_ELT
      LOGICAL,          INTENT(IN)  :: TRANS_ELEM
      LOGICAL,          INTENT(IN)  :: TRANS_POINT
      INTEGER,          INTENT(OUT) :: IERR
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      SELECT CASE (fformat(1:7))
        CASE ('SERAFIN')
          ! DOING nothing
          CONTINUE
        CASE ('MED    ')
          CALL transfer_group_info_med(fid,fid2,type_elt,
     &                                 type_bnd_elt,ikle_bnd,nelebd,ndp,
     &                                 trans_elem,trans_point,ierr)
        CASE DEFAULT
          ierr = hermes_unknown_file_format_err
          WRITE(error_message,*)
     &         'TRANSFER_GROUP_INFO: BAD FILE FORMAT: ',fformat
          RETURN
      END SELECT
!
!-----------------------------------------------------------------------
!
      RETURN
      END