Esope source files

   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=' Thu  20  Feb  2014'
   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,/)
  10 :       CALL VERDAT(1392927308  )
  11 :       END