ssht_types_mod.f90

Go to the documentation of this file.

! SSHT package to perform spin spherical harmonic transforms
! Copyright (C) 2011  Jason McEwen
! See LICENSE.txt for license details



!------------------------------------------------------------------------------
! ssht_types_mod -- SSHT library types class
!

module ssht_types_mod

  implicit none

  private


  ! --------------------------------------
  ! Intrinsic type definitions
  ! --------------------------------------

  integer, public, parameter :: sp  = SELECTED_REAL_KIND(5,30)

  integer, public, parameter :: dp  = SELECTED_REAL_KIND(12,200)

  integer, public, parameter :: spc = KIND((1.0_sp, 1.0_sp))

  integer, public, parameter :: dpc = KIND((1.0_dp, 1.0_dp))


  ! --------------------------------------
  ! Tolerances
  ! --------------------------------------

  real(dp), public, parameter :: TOL_RELATIVE_REALITY = 1e-6


  ! --------------------------------------
  ! Constants
  ! --------------------------------------

  integer, public, parameter :: STRING_LEN = 256

  real(dp), public, parameter :: PI = 3.141592653589793238462643383279502884197_dp

  real(dp), public, parameter :: PION2 = 1.570796326794896619231321691639751442099_dp

  real(dp), public, parameter :: SQRT2 = 1.41421356237309504880168872420969807856967_dp

  complex(dpc), public, parameter :: I = (0.0_dp, 1.0_dp)


  ! --------------------------------------
  ! Prompt
  ! --------------------------------------

  character(len=*), public, parameter :: SSHT_PROMPT = '[ssht] '


end module ssht_types_mod