rpm_gestalloc.f90

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

!------------------------------------------------------------------------------!
! Procedure : create_rpmblock             Auteur : J. Gressier
!                                         Date   : Fevrier 2002
! Fonction                                Modif  :
!   Cr閍tion, allocation et initialisation minimale d'un bloc RPM
!
!------------------------------------------------------------------------------!
subroutine create_rpmblock(pblock, name)
  implicit none 
  
! -- Declaration des Parametres --
  type(rpmblock), pointer :: pblock
  character(len=*)        :: name

! -- Debut de la procedure --
  allocate(pblock)
  pblock%name = name
  nullify(pblock%next)          ! IMPORTANT pour d閠ecter la fin de la liste
  nullify(pblock%data)          ! IMPORTANT pour d閠ecter l'existence de blocs DATA
  pblock%flagblock = .false.    ! Initialisation