read_files.f90

来自「国外大名顶顶的“台风”并行计算流体力学CFD软件的早期版本的源代码」· F90 代码 · 共 21 行

!------------------------------------------------------------------------------!
! Liste de fonctions : read_files         Auteur : J. Gressier
!                                         Date   : Mai 2002
! Fonction                                Modif  :
!   Lecture de fichiers MULTIBLOCK
!
! Defauts/Limitations/Divers :
!
!------------------------------------------------------------------------------!


!------------------------------------------------------------------------------!
! Proc閐ure : Lecture du fichier maillage multibloc
!------------------------------------------------------------------------------!
subroutine read_mblock_mesh(iu, iout, fichier, topo)
use STRING
use MULTIBLOCK
implicit none

! -- Declaration des entr閑s --
integer          :: iu            ! unit