Télécharger defdat.eso

Retour à la liste

Numérotation des lignes :

defdat
  1. C DEFDAT SOURCE PV 88/03/23 15:52:44
  2. C DATE NE PAS MODIFIER SVP CE SOUS PROGRAMMME
  3. C
  4. SUBROUTINE DEFDAT(icp)
  5. -INC PPARAM
  6. -INC CCOPTIO
  7. -INC CQALITE
  8. iqexe=MODIFIEE
  9. DATVER=' lun. 26 févr. 2024'
  10. if(icp.eq.0) WRITE (IOIMP,10) DATVER(1:50)
  11. 10 FORMAT (/,' ****** PPP CAST3M ****** VERSION MODIFIEE DU',A50,/)
  12. if(icp.ne.0) WRITE (IOIMP,20) icp,DATVER(1:50)
  13. 20 FORMAT (/,' *** PPP CAST3M *** ',i2,
  14. > ' CPU *** VERSION MODIFIEE DU',A50,/)
  15. CALL VERDAT(1708978504 )
  16. END
  17.  

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