open_mesh.f

Go to the documentation of this file.

!**********************************************************************
                    SUBROUTINE open_mesh
!**********************************************************************
!
     &(fformat,file_name,file_id,openmode,ierr,mesh_number)
!
!***********************************************************************
! HERMES   V7P0                                               01/05/2014
!***********************************************************************
!
!brief    OPENS A MESH FILE
!
!history  Y AUDOUIN (LNHE)
!+        24/03/2014
!+        V7P0
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| FFORMAT        |<->| FORMAT OF THE FILE
!| FILE_NAME      |-->| NAME OF THE FILE
!| FILE_ID        |-->| FILE DESCRIPTOR
!| OPENMODE       |-->| ONE OF THE FOLLOWING VALUE 'READ','WRITE','READWRITE'
!| IERR           |<--| 0 IF NO ERROR DURING THE EXECUTION
!| MESH_NUMBER    |-->| IF PRESENT, THIS IS THE NUMBER OF THE PART OF
!                       THE CONCATENATED FILE WE WANT TO ACCESS
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE utils_serafin, ONLY : open_mesh_srf
      USE utils_med, ONLY : open_mesh_med
      USE utils_vtk, ONLY : open_mesh_vtk
      USE utils_cgns, ONLY : open_mesh_cgns
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      CHARACTER(LEN=8), INTENT(INOUT) :: FFORMAT
      CHARACTER(LEN=*), INTENT(IN)    :: FILE_NAME
      INTEGER,          INTENT(OUT)   :: FILE_ID
      CHARACTER(LEN=9), INTENT(IN)    :: OPENMODE
      INTEGER,          INTENT(OUT)   :: IERR
      INTEGER, OPTIONAL,INTENT(IN)    :: MESH_NUMBER
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      SELECT CASE (fformat(1:7))
        CASE ('SERAFIN')
          CALL open_mesh_srf(file_name, file_id, openmode, fformat,
     &                       ierr, mesh_number)
        CASE ('MED    ')
          CALL open_mesh_med(file_name, file_id, openmode,ierr,
     &                       mesh_number)
        CASE ('VTK    ')
          CALL open_mesh_vtk(file_name, file_id, openmode,ierr)
        CASE ('CGNS   ')
          CALL open_mesh_cgns(file_name, file_id, openmode,ierr)
        CASE DEFAULT
          ierr = hermes_unknown_file_format_err
          WRITE(error_message,*) 'OPEN_MESH: BAD FILE FORMAT: ',fformat
          RETURN
      END SELECT
!
!-----------------------------------------------------------------------
!
      RETURN
      END