compute_nsecf Function

function compute_nsecf(nhms) result(seconds)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nhms

Return Value integer


Called by

proc~~compute_nsecf~~CalledByGraph proc~compute_nsecf compute_nsecf proc~tick tick proc~tick->proc~compute_nsecf program~time_ave time_ave program~time_ave->proc~compute_nsecf program~time_ave->proc~tick

Source Code

   function compute_nsecf (nhms) result(seconds)
      integer :: seconds
      integer, intent(in) :: nhms
      seconds =  nhms/10000*3600 + mod(nhms,10000)/100*60 + mod(nhms,100)
   end function compute_nsecf