C AFFECT    SOURCE    FANDEUR   10/12/14    21:15:25     6806           
C
C ===>  OPERATEUR  AFFE  NON DISPONIBLE  <===
C ===>  OPERATOR         UNAVAILABLE     <===
C
      SUBROUTINE AFFECT                                                         

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

      CALL ERREUR(598)

      RETURN                                                                    
      END