%N midate %F $MIR/src/subs/oscalls.f2c
%D Return current date (day,month,year)
%P pjt
%: utilities
%B
FORTRAN call sequence
      SUBROUTINE midate(array)
      INTEGER array(3)

  This returns the current date.

  Output:
    array  The current date. array(1) is day of the month.
                             array(2)    month (range 1 to 12)
                             array(3)    year (e.g. 1992).              
