14 lines
520 B
Fortran
14 lines
520 B
Fortran
module accuracy_constants
|
|
use iso_fortran_env
|
|
implicit none
|
|
! integer, parameter :: racc = real32 !real*4
|
|
integer, parameter :: racc = real64 !real*8
|
|
! integer, parameter :: racc = real128 !real*16
|
|
integer,parameter :: idp= int32
|
|
integer,parameter :: dp = real64
|
|
! integer, parameter :: iacc = int16 !int*2
|
|
integer, parameter :: iacc = int32 !int*4
|
|
! integer, parameter :: iacc = int64 !int*8
|
|
real(dp),parameter:: pi = acos(-1.0_dp)
|
|
end module
|