Gets today's date.

Required Arguments

IDAY — Day of the month.   (Output)
IDAY is between 1 and 31 inclusive.

MONTH — Month of the year.   (Output)
MONTH is between 1 and 12 inclusive.

IYEAR — Year.   (Output)
For example, IYEAR = 1985.

FORTRAN 90 Interface

Generic:                              CALL TDATE (IDAY, MONTH, IYEAR)

Specific:                             The specific interface name is TDATE.

FORTRAN 77 Interface

Single:                                CALL TDATE (IDAY, MONTH, IYEAR)

Description

Routine TDATE is used to retrieve today's date. Obviously, the output is dependent upon the date the program is run.

Example

The following example uses TDATE to return today's date.

 

      USE TDATE_INT

      USE UMACH_INT

 

      IMPLICIT   NONE

      INTEGER    IDAY, IYEAR, MONTH, NOUT

!

      CALL TDATE (IDAY, MONTH, IYEAR)

      CALL UMACH (2, NOUT)

      WRITE (NOUT,*) 'Day-Month-Year = ', IDAY, '-', MONTH, &

                   '-', IYEAR

      END

Output

 

Day-Month-Year =  7 - 7 - 2006

Visual Numerics, Inc. Visual Numerics - Developers of IMSL and PV-WAVE http://www.vni.com/ PHONE: 713.784.3131 FAX:713.781.9260