idate - return date in numerical form
subroutine idate(iarray) integer*4 iarray(3)
The idate() subroutine puts the current date into the integer array iarray. The order is: day, month, year. The month is in the range 1-12. The year is four digits, such as 1997, or 2001. Example:
demo% cat ida2.f integer*4 a(3) call idate( a ) write(*, "(' The date is: ',3i5)" ) a end demo% f95 ida2.f demo% a.out The date is: 2 9 2015 demo%
libfsu.a