Télécharger lirtbs.eso

Retour à la liste

Numérotation des lignes :

  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 '
  11. CALL LIROBJ(TYPE,MTABLE,0,IRET)
  12. IF(IRET.EQ.0)RETURN
  13.  
  14. C SEGACT MTABLE
  15. TYPE=' '
  16. CALL ACMO(MTABLE,'SOUSTYPE',TYPE,IRET)
  17. C write(6,*)'lirtbs retour acmo type=',TYPE
  18. IF(TYPE.EQ.'MOT ')THEN
  19. CALL ACMM(MTABLE,'SOUSTYPE',TYPS)
  20. C write(6,*)' TYPS=',TYPS
  21. IRET=1
  22. ELSE
  23. IRET=0
  24. TYPS=' '
  25. ENDIF
  26. C SEGDES MTABLE
  27. RETURN
  28. END
  29.  
  30.  
  31.  
  32.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales