Esope source files

   1 : C LIRTBS    SOURCE    CHAT      05/01/13    01:22:17     5004           
   2 :       SUBROUTINE LIRTBS(TYPS,MTABLE,IRET)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : 
   6 : -INC SMTABLE
   7 :       CHARACTER*8 TYPS,TYPE
   8 : 
   9 :       IRET=0
  10 :       TYPE='TABLE   '
  10 :       CALL LIROBJ(TYPE,MTABLE,0,IRET)
  11 :       IF(IRET.EQ.0)RETURN
  12 : 
  13 : C      SEGACT MTABLE
  14 :       TYPE=' '
  14 :       CALL ACMO(MTABLE,'SOUSTYPE',TYPE,IRET)
  15 : C      write(6,*)'lirtbs retour acmo type=',TYPE
  16 :       IF(TYPE.EQ.'MOT     ')THEN
  16 :          CALL ACMM(MTABLE,'SOUSTYPE',TYPS)
  17 : C        write(6,*)' TYPS=',TYPS
  18 :          IRET=1
  19 :       ELSE
  20 :          IRET=0
  21 :          TYPS=' '
  22 :       ENDIF
  23 : C      SEGDES MTABLE
  24 :       RETURN
  25 :       END
  26 : 
  27 :  
  28 :