C DECESC    SOURCE    CHAT      06/03/16    21:15:59     5336           
      SUBROUTINE DECESC(NESRES,DESRET,DESREV)
C cette procedure est apellée depuis LIRABJ
C elle effectue le decodage des objets esclaves
C elle est tres fortement inspirée de PRENOM

      IMPLICIT INTEGER(I-N)
-INC CCNOYAU
-INC CCOPTIO
-INC CCASSIS
      external long
      integer desrev
      character*(*) desret
      desret = esrety
      desrev = esreva
      if (esrety.eq.'LOGIQUE ') then
        call poslog(esrelo,desrev)
      elseif (esrety.eq.'FLOTTANT') then
            call posree(esrere,desrev)
      elseif (esrety.eq.'MOT     ') then
           ncar = long(esrech)
           call poscha(esrech(1:ncar),incha)
           desrev=incha
      end if 
      return
      end