pkind.f90

Go to the documentation of this file.

module pkind
integer,parameter:: spi=selected_int_kind(6)
integer,parameter:: dpi=selected_int_kind(12)
integer,parameter:: sp =selected_real_kind(6,30)
integer,parameter:: dp =selected_real_kind(15,300)
integer,parameter:: spc=sp
integer,parameter:: dpc=dp
!private:: one_dpi; integer(8),parameter:: one_dpi=1
!integer,parameter:: dpi=kind(one_dpi)
!integer,parameter:: sp=kind(1.0)
!integer,parameter:: dp=kind(1.0d0)
!integer,parameter:: spc=kind((1.0,1.0))
!integer,parameter:: dpc=kind((1.0d0,1.0d0))
end module pkind