Télécharger defdat.eso

Retour à la liste

Numérotation des lignes :

  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 CCOPTIO
  6. DATVER=' Tue 27 Jun 2017'
  7. if(icp.eq.0) WRITE (IOIMP,10) DATVER(1:50)
  8. 10 FORMAT (/,' ****** PPP CAST3M ****** VERSION DU',A50,/)
  9. if(icp.ne.0) WRITE (IOIMP,20) icp,DATVER(1:50)
  10. 20 FORMAT (/,' *** PPP CAST3M *** ',i2,' CPU *** VERSION DU',A50,/)
  11. CALL VERDAT(1498590915 )
  12. END
  13.  

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