program main

implicit none

!integer, parameter :: DBL = selected_real_kind(15,99)
character(8) :: DATE    

write(*,*)
call date_and_time(DATE)
write(*,*) DATE(1:4)//'年'//DATE(5:6)//'月'//DATE(7:8)//'日実施'

write(*,*)
write(*,*)'倍精度実数型種別値       : ', kind(0.0d0)
write(*,*)'倍精度実数型基数         : ', radix(0.0d0)
write(*,*)'倍精度実数型有効ビット数 : ', digits(0.0d0)
write(*,*)'倍精度実数型10進精度     : ', precision(0.0d0)
write(*,*)'倍精度実数型イプシロン   : ', epsilon(0.0d0)
write(*,*)'倍精度実数型正最小値     : ', tiny(0.0d0)
write(*,*)'倍精度実数型最大値       : ', huge(0.0d0)
write(*,*)'倍精度実数型最大指数     : ', maxexponent(0.0d0)
write(*,*)'倍精度実数型最小指数     : ', minexponent(0.0d0)
write(*,*)'倍精度実数型10進指数範囲 : ', range(0.0d0)

end program main
