Télécharger vdate.eso

Retour à la liste

Numérotation des lignes :

  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 '/
  11. CALL GIBDAT (JOUR,MOIS,IANNEE)
  12. iannee=mod(iannee,100)
  13. DAT=' '
  14. WRITE (DAT(1:2),FMT='(I2)') JOUR
  15. J=(MOIS-1)*12+1
  16. N=INDIC(MOIS)
  17. DAT(4:13)=MOMOIS(MOIS)
  18. DAT(5+N:6+N)='19'
  19. WRITE (DAT(7+N:8+N),FMT='(I2)') IANNEE
  20. CALL CTITRE(DAT)
  21. RETURN
  22. END
  23.  
  24.  
  25.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales