!
! Fortran floating point precision
!
! Version 2009X29
!
! Precisions Module controls the compiler's precisions. You are
! responsible for ensuring that your choice matches your compiler's options!
!
! Usage:
!    use Precisions
!    real(SP) :: example_single
!    real(DP) :: example_double
!    real(WP) :: example_workingprecision
!
! Copyright (c) 2008 Charles O'Neill
! 
! Permission is hereby granted, free of charge, to any person
! obtaining a copy of this software and associated documentation
! files (the "Software"), to deal in the Software without
! restriction, including without limitation the rights to use,
! copy, modify, merge, publish, distribute, sublicense, and/or sell
! copies of the Software, and to permit persons to whom the
! Software is furnished to do so, subject to the following
! conditions:
! 
! The above copyright notice and this permission notice shall be
! included in all copies or substantial portions of the Software.
! 
! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
! EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
! OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
! NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
! HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
! WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
! FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
! OTHER DEALINGS IN THE SOFTWARE.


module Precisions
  implicit none

  ! Integer Precision
  integer, parameter :: IS = 2
  ! Real Single Precision
  integer, parameter :: SP = 4 ! 4 gives 32 bits
  ! Real Double Precision
  integer, parameter :: DP = 8  ! 4 gives 32 bits, 8 gives 64 bits (double)
  ! Real Quad Precision
  integer, parameter :: QP = 16  ! 4 gives 32 bits, 8 gives 64 bits (double)
  ! Real Working Precision
  integer, parameter :: WP = DP   ! User specified precision
  
  private
  public :: WP
contains

  subroutine Examples
    real(WP) :: A
    A = 1.0_wp
  end subroutine

end module Precisions