%N mitime %F $MIR/src/subs/oscalls.f2c
%D Return current time (hour,min,sec)
%P pjt
%: utilities
%B
FORTRAN call sequence
      SUBROUTINE mitime(array)
      INTEGER array(3)

  This returns the current time.

  Output:
    array  The current time. array(1) is hours (24 clock).
                             array(2)    minutes
                             array(3)    seconds                        
