Sources Esope | Cast3M

C DEFDAT    SOURCE    PV        88/03/23    15:52:44                            
C  DATE   NE PAS MODIFIER SVP CE SOUS PROGRAMMME                                
C                                                                               
      SUBROUTINE DEFDAT(icp)
-INC CCOPTIO                                                                    
      DATVER=' Fri  20  Apr  2018'
      if(icp.eq.0) WRITE (IOIMP,10) DATVER(1:50)
  10  FORMAT (/,' ****** PPP CAST3M ******  VERSION DU',A50,/)
      if(icp.ne.0) WRITE (IOIMP,20) icp,DATVER(1:50)
  20  FORMAT (/,' *** PPP CAST3M *** ',i2,' CPU *** VERSION DU',A50,/)
      CALL VERDAT(1524251704  )
      END