You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
module precision_comm_module
|
|
|
|
implicit none
|
|
|
|
integer, parameter :: &
|
|
dp = selected_real_kind(15, 307), & ! double real
|
|
qp = selected_real_kind(33, 4931), & ! quadrupole real
|
|
wp = dp
|
|
|
|
integer, save :: &
|
|
mpi_wp
|
|
|
|
end module precision_comm_module
|