C     -*- Fortran -*-
      SUBROUTINE DATIM(A,B)
      CHARACTER*8 A,B
      CHARACTER*24 DATE
      CHARACTER*3 MON(12)
      CHARACTER*2 M(13)
      DATA MON /'Jan','Feb','Mar','Apr','May','Jun','Jul',
     *                    'Aug','Sep','Oct','Nov','Dec'/
      DATA M /'01','02','03','04','05','06','07','08',
     *                   '09','10','11','12','**'/
      DO 3 I=1,24
3     DATE(I:I)='-'
      CALL FDATE(DATE)
      DO 1 I=1,12
      IF (DATE(5:7).EQ.MON(I)) GOTO 2
1     CONTINUE
      I=13
2     CONTINUE
      A(1:2)=DATE(9:10)
      A(3:3)='.'
      A(4:5)=M(I)
      A(6:6)='.'
      A(7:8)=DATE(23:24)
      B(1:8)=DATE(12:19)
      RETURN
      END
C
      SUBROUTINE DATING(PNAME,IACT)
      CHARACTER*8 PNAME,A,B
      CALL DATIM(A,B)
C remove leading or trailing blanks from pname
      IFST=1
 100  CONTINUE
      IF (PNAME(IFST:IFST).EQ.' ') THEN
       IFST=IFST+1
       IF (IFST.LT.8) GO TO 100
      END IF
      ILST=8
      IF (IFST.EQ.8) GO TO 300
 200  CONTINUE
      IF (PNAME(ILST:ILST).EQ.' ') THEN
       ILST=ILST-1
       IF (ILST.GT.1) GO TO 200
      END IF
 300  CONTINUE
 
      IF (IACT.EQ.1) THEN
       WRITE(6,9901) PNAME(IFST:ILST),A,B
      ELSE IF (IACT.EQ.2) THEN
       WRITE(6,9902) PNAME(IFST:ILST),A,B
      ELSE
       WRITE(6,9903) PNAME(IFST:ILST),A,B
      END IF
 9901 FORMAT(//,' Started ',A,';  date: ',A8,' time: ',A8,//)
 9902 FORMAT(//,' Finished ',A,';  date: ',A8,' time: ',A8,//)
 9903 FORMAT(//,1X,A,';  date: ',A8,' time: ',A8,//)
      RETURN
      END
C