typhmake.f90

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

!----------------------------------------------------------------------------------------
! MODULE : TYPHMAKE                       Auteur : J. Gressier
!                                         Date   : Octobre 2002
! Fonction                                Modif  : 
!   Variables globales du code TYPHON
!   Definition de la precision machine et de tailles generales
!
! Defauts/Limitations/Divers :
!
!----------------------------------------------------------------------------------------

module TYPHMAKE

  integer, parameter :: krp = 8  ! simple (4) ou double (8) precision
  integer, parameter :: kip = 4  ! simple (2) ou double (4) precision
  integer, parameter :: kpp = 4  ! taille des variables parametres (2 devrait suffire)

  integer, parameter :: strlen = 20   ! longueur des noms par defaut

endmodule TYPHMAKE