Esope source files

   1 : C DECESC    SOURCE    CHAT      06/03/16    21:15:59     5336           
   2 :       SUBROUTINE DECESC(NESRES,DESRET,DESREV)
   3 : C cette procedure est apellée depuis LIRABJ
   4 : C elle effectue le decodage des objets esclaves
   5 : C elle est tres fortement inspirée de PRENOM
   6 : 
   7 :       IMPLICIT INTEGER(I-N)
   8 : -INC CCNOYAU
   9 : -INC CCOPTIO
  10 : -INC CCASSIS
  11 :       external long
  12 :       integer desrev
  13 :       character*(*) desret
  14 :       desret = esrety
  15 :       desrev = esreva
  16 :       if (esrety.eq.'LOGIQUE ') then
  16 :         call poslog(esrelo,desrev)
  17 :       elseif (esrety.eq.'FLOTTANT') then
  17 :             call posree(esrere,desrev)
  18 :       elseif (esrety.eq.'MOT     ') then
  19 :            ncar = long(esrech)
  19 :            call poscha(esrech(1:ncar),incha)
  20 :            desrev=incha
  21 :       end if 
  22 :       return
  23 :       end
  24 :