C-------------------------------------------------------------     ************
C                                                                      DATE
C                                                                  ************
      SUBROUTINE DATE(TODAY)
C
C     Determines the current date using same call as on CRAY.
C     Martin J. McBride.  7/24/85.
C     General Electric CRD, Information System Operation.
C
      ENTRY FOR$DATE_T_DS(TODAY)
      INTEGER MO,DT,YR
      CHARACTER*2 A,B,C
      CHARACTER*8 TODAY

C  Get date from VAX and encode into character string for output.
      CALL IDATE(MO,DT,YR)
      ENCODE (2,100,A) MO
      ENCODE (2,100,B) DT
      ENCODE (2,100,C) YR
      TODAY = A//'/'//B//'/'//C

  100 FORMAT(I2)
      RETURN
      END

.