Sources Esope | Cast3M

vdate
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