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 PPARAM
  6. -INC CCOPTIO
  7. DATVER=' Wed 30 Sep 2020'
  8. if(icp.eq.0) WRITE (IOIMP,10) DATVER(1:50)
  9. 10 FORMAT (/,' ****** PPP CAST3M ****** VERSION DU',A50,/)
  10. if(icp.ne.0) WRITE (IOIMP,20) icp,DATVER(1:50)
  11. 20 FORMAT (/,' *** PPP CAST3M *** ',i2,' CPU *** VERSION DU',A50,/)
  12. CALL VERDAT(1601493307 )
  13. END
  14.  

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