src/core/math/igmcore_math.f90

Go to the documentation of this file.

module igmcore_math
  
  ! モジュール引用 ; Use statements
  !
  
  ! 種類型パラメタ
  ! Kind type parameter
  !
  use dc_types, only: DP   ! 倍精度実数型. Double precision. 
  
  ! 宣言文 ; Declaration statements
  !
  implicit none
  private

  ! 公開変数
  ! public variables
  !

  real(DP), parameter, public :: PI = 3.1415926535897932d0
  !real(DP), parameter, public :: PI = acos(-1.0d0)
 
  ! 公開手続き
  ! Public procedures
  !
  public :: toRadians, toDegrees

contains

! 
function toRadians(angdeg) result(rad)

  ! 宣言文 ; Declartion statement
  !
  real(DP), intent(in) :: angdeg
  real(DP) rad

  ! 実行文 ; Executable statement
  !
  rad = PI * angdeg / 180d0 
  
end function toRadians

! 
function toDegrees(angrad) result(deg)

  ! 宣言文 ; Declaration statement
  !
  real(DP), intent(in) :: angrad
  real(DP) deg

  ! 実行文 ; Executable statment
  !
  deg = 180d0 * angrad / PI
  
end function toDegrees
 
end module igmcore_math