C VDATE     SOURCE    CHAT      05/01/13    04:04:32     5004           
      SUBROUTINE VDATE                                                          
      IMPLICIT INTEGER(I-N)
      CHARACTER*9 MOMOIS(12)                                                    
      DIMENSION INDIC(12)                                                       
      CHARACTER*17 DAT                                                          
      DATA INDIC/7,7,4,5,3,4,7,4,9,7,8,8/                                       
      DATA MOMOIS/'JANVIER  ','FEVRIER  ','MARS     ','AVRIL    ',              
     #            'MAI      ','JUIN     ','JUILLET  ','AOUT     ',              
     #            'SEPTEMBRE','OCTOBRE  ','NOVEMBRE ','DECEMBRE '/              
      CALL GIBDAT (JOUR,MOIS,IANNEE)                                            
      iannee=mod(iannee,100)
      DAT=' '                                                                   
      WRITE (DAT(1:2),FMT='(I2)') JOUR                                          
      J=(MOIS-1)*12+1                                                           
      N=INDIC(MOIS)                                                             
      DAT(4:13)=MOMOIS(MOIS)                                                    
      DAT(5+N:6+N)='19'                                                         
      WRITE (DAT(7+N:8+N),FMT='(I2)') IANNEE                                    
      CALL CTITRE(DAT)                                                          
      RETURN                                                                    
      END