test

Sun Studio 12: Fortran Library Reference

1.4.25 idate: Return Current Date

idate puts the current system date into one integer array: day, month, and year.

The subroutine is called by:

call idate( iarray ) Standard Version

iarray

INTEGER*4

Output 

Three-element array: day, month, year. 

Example: idate (standard version):


demo% cat tidate.f
       INTEGER*4 iarray(3)
       call idate( iarray )
       write(*, "(’ The date is: ’,3i5)" )  iarray
       end
demo% f95 tidate.f
demo% a.out
 The date is: 10 8 1998
demo%