18 lines
566 B
Fortran
18 lines
566 B
Fortran
|
|
||
|
|
!##############################################################
|
||
|
|
MODULE prec
|
||
|
|
!##############################################################
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
! *** Precision of real and integer variables ***
|
||
|
|
integer, parameter :: pReal = selected_real_kind(15,300) ! 15 significant digits, up to 1e+-300
|
||
|
|
integer, parameter :: pInt = selected_int_kind(9) ! up to +- 1e9
|
||
|
|
integer, parameter :: pLongInt = 8 ! should be 64bit
|
||
|
|
|
||
|
|
type :: p_vec
|
||
|
|
real(pReal), dimension(:), pointer :: p
|
||
|
|
end type p_vec
|
||
|
|
|
||
|
|
END MODULE prec
|