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