!***************************************************************************
! Program name: Main_NEOs_orbits
! Author: Elena Fantino, UPC-ETSEIAT
! Co-author: Giuseppe Donnarumma, Unina
! Date: February 2022
!***************************************************************************

module Constants

	use DataType

	implicit none

	real(pr), parameter :: ZERO = 0.0_pr, ONE = 1.0_pr, TWO = 2.0_pr, THREE = 3.0_pr, FOUR = 4.0_pr, SEVEN = 7.0_pr 
	real(pr), parameter :: HALF = 0.5_pr, QUART = 0.25_pr
    real(pr), parameter :: DAY = 86400.0_pr, YEAR = 365.25_pr*DAY, CENTURY =  36525.0_pr
    real(pr), parameter :: KILO = 1000.0_pr
    
    ! Unit number for files
    integer :: iu_in = 10   !input file
    integer :: iu_out = 11  !output file
    
end module Constants