to_seconds Function

private pure function to_seconds(values) result(seconds)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(8) :: values

Return Value real(kind=rk)


Called by

proc~~to_seconds~~CalledByGraph proc~to_seconds to_seconds proc~dtimer_stop timer%dtimer_stop proc~dtimer_stop->proc~to_seconds program~example5 example5 program~example5->proc~dtimer_stop program~example6 example6 program~example6->proc~dtimer_stop program~test25 test25 program~test25->proc~dtimer_stop program~test26 test26 program~test26->proc~dtimer_stop program~test27 test27 program~test27->proc~dtimer_stop program~test28 test28 program~test28->proc~dtimer_stop program~test29 test29 program~test29->proc~dtimer_stop program~test30 test30 program~test30->proc~dtimer_stop

Source Code

   pure function to_seconds(values) result(seconds)
      integer, dimension(8), intent(in) :: values
      real(rk)                          :: seconds

      seconds = real(values(3), rk) * 24.0_rk * 60.0_rk * 60.0_rk + &
                real(values(5), rk) * 60.0_rk * 60.0_rk + &
                real(values(6), rk) * 60.0_rk + &
                real(values(7), rk) + & 
                real(values(8), rk) / 1000.0_rk

   end function to_seconds