math.f90

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

!------------------------------------------------------------------------------!
! MODULE : MATH                           Auteur : J. Gressier
!                                         Date   : Fevrier 2002
! Fonction                                Modif  :
!
! Defauts/Limitations/Divers :
!
!------------------------------------------------------------------------------!
module MATH

implicit none

! -- Variables globales du module -------------------------------------------

double precision, parameter :: pi = 3.1415926535897931

!------------------------------------------------------------------------------!
!    DECLARATIONS
!------------------------------------------------------------------------------!


! -- INTERFACES -------------------------------------------------------------

!interface rpmgetval
!  module procedure rpmgetvalreal, rpmgetvalstr, rpmgetvalint
!endinterface

! -- Procedures, Fonctions et Operateurs ------------------------------------
!
! subroutine rpmerr(message)

!------------------------------------------------------------------------------!
!    IMPLEMENTATION 
!------------------------------------------------------------------------------!
!contains

!------------------------------------------------------------------------------!
! Procedure :                             Auteur : J. Gressier
!                                         Date   : Fevrier 2002
! Fonction                                Modif  :
!
! Parametres d'entree :
!
! Parametres de sortie :
!
! Defauts/Limitations/Divers :
!
!------------------------------------------------------------------------------!
!subroutine

!  use 
!  implicit none 

! -- Declaration des entrees --

! -- Declaration des sorties --

! -- Declaration des variables internes --

! -- Debut de la procedure --
  
!endsubroutine
!------------------------------------------------------------------------------!


endmodule MATH