idate(3F)

Name

idate - return date in numerical form

Synopsis

subroutine idate(iarray)
integer*4 iarray(3)

Description

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%

Files

libfsu.a

See Also

date (3F) , fdate (3F) , date_and_time (3F)