compute_nhmsf Function

function compute_nhmsf(nsec) result(nhmsf)

Arguments

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

Return Value integer


Called by

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

Source Code

   function compute_nhmsf (nsec) result(nhmsf)
      integer :: nhmsf
      integer, intent(in) :: nsec
      nhmsf =  nsec/3600*10000 + mod(nsec,3600)/60*100 + mod(nsec,60)
   end function compute_nhmsf