FTN4,L
      SUBROUTINE DATE (ISTRN) 
C-------------------------------------------------------------
C 
C 
C     F. WARREN         17MAY76    REV. A 
C 
C     "C" COPYRIGHT HEWLETT-PACKARD COMPANY 1976. 
C     ALL RIGHTS RESERVED.  NO PART OF THIS PROGRAM 
C     MAY BE PHOTOCOPIED, REPRODUCED OR TRANSLATED
C     TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR 
C     WRITTEN CONSENT OF THE HEWLETT-PACKARD COMPANY. 
C 
C-------------------------------------------------------------
C 
C 
C 
C 
C     RETURNS DATE AS A 15-CHARACTER ASCII STRING 
C 
      DIMENSION ISTRN(14), ITEMP(14)
C 
      CALL TODAY (ITEMP)
      DO 100 I = 1,8
100   ISTRN(I+1) = ITEMP(I) 
      ISTRN(1) = 15 
      RETURN
      END 
END$
                          