Esope source files

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