Esope source files

   1 : C AFFECT    SOURCE    FANDEUR   10/12/14    21:15:25     6806           
   2 : C
   3 : C ===>  OPERATEUR  AFFE  NON DISPONIBLE  <===
   4 : C ===>  OPERATOR         UNAVAILABLE     <===
   5 : C
   6 :       SUBROUTINE AFFECT                                                         
   7 : 
   8 :       IMPLICIT INTEGER(I-N)
   9 :       IMPLICIT REAL*8(A-H,O-Z)
  10 : 
  10 :       CALL ERREUR(598)
  11 : 
  12 :       RETURN                                                                    
  13 :       END                                                                       
  14 :  
  15 :