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=' Mon  15  Jul  2019'
      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(1563218105  )
      END