trait_strings.f90

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

!------------------------------------------------------------------------------!
! Liste de fonctions : trait_strings      Auteur : J. Gressier
!                                         Date   : Mai 2002
! Fonction                                Modif  :
!   Traitement de cha頽es des fichiers MULTIBLOCK/TOPOLOGIE
!
! Defauts/Limitations/Divers :
!
!------------------------------------------------------------------------------!


!------------------------------------------------------------------------------!
! Fonction : Teste si la ligne est conforme au format MULTIBLOC/TOPO/CONNECTION
!------------------------------------------------------------------------------!
logical function mblock_connection(str)
use STRING
implicit none
! -- entr閑s --
character(len=*)   :: str           ! cha頽e