double precision function second() implicit none integer, parameter :: r4=selected_real_kind(6) ! >6 digits integer, parameter :: r8=selected_real_kind(12) ! >12 digits real(r4) :: time call cpu_time(time) ! f95 standard second=time return end