Name:         GRDATE

Purpose:      get date and time as character string

Category:     GRAPHICS

File:         pgplot.src

Author:       T.J. Pearson

Use:          see description below.

Description:

          SUBROUTINE GRDATE(STRING, L)
          CHARACTER*(*) STRING
           INTEGER L
      
       Return the current date and time, in format 'dd-Mmm-yyyy hh:mm'.
       To receive the whole string, the STRING should be declared
       CHARACTER*17.
      
       Arguments:
        STRING : receives date and time, truncated or extended with
                 blanks as necessary.
        SLEN   : receives the number of characters in STRING, excluding
                 trailing blanks. This will always be 17, unless the length
                 of the string supplied is shorter.

Updates:      Oct 16, 1998: JPT document extracted from 5.2.0 source;
                                Fortran source copied from GIPSY's v4.9E.