DAMASK_EICMD/code/prec.f90

18 lines
566 B
Fortran
Raw Normal View History

!##############################################################
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
2009-03-31 14:21:14 +05:30
type :: p_vec
real(pReal), dimension(:), pointer :: p
end type p_vec
END MODULE prec