Télécharger chtcha.eso

Retour à la liste

Numérotation des lignes :

  1. C CHTCHA SOURCE CHAT 05/01/12 22:02:12 5004
  2. SUBROUTINE CHTCHA(MCHA,LCHALU,IBO,IRET)
  3. C====================================================================
  4. C SUBROUTINE POUR CHERCHER DANS UNE TABLE DE SOUSTYPE
  5. C "RESULTAT DE DYNE"
  6. C SI LE CHAMP MCHA EXISTE ET EN SORTIR LA POSITION IRET
  7. C MCHA (E) CHAINE CHERCHEE
  8. C LCHALU (E) LONGUEUR DE CETTE CHAINE
  9. C IBO (E) POINTEUR SUR LA TABLE DONT ON PART
  10. C IRET (S) POSITION DE CETTE CHAINE DANS L TABLE
  11. C - SI PAS TROUVE IRET =0
  12. C======================================================================
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15. CHARACTER*(*) MCHA
  16. CHARACTER*(40) CHAR1
  17. CHARACTER*4 MOT,MOMOT
  18. LOGICAL L0,L1
  19. CHARACTER*(8) CHAR0
  20. -INC CCOPTIO
  21. -INC SMTABLE
  22. DATA MOT/'MOT '/
  23. C======================================================================
  24. *ON CONSTRUIT LA TABLE DES INDICES DE LA SOUS TABLE DONNEE
  25. IRET=0
  26. CALL ECROBJ('TABLE',IBO)
  27. CALL INDETA
  28. CALL LIROBJ('TABLE',ITABIN,1,IRETAB)
  29. IF (IERR.NE.0) RETURN
  30. *
  31. * Boucle sur les indices de la table MTABLE:
  32. *
  33. MTABLE=ITABIN
  34. SEGACT MTABLE
  35. NINDIC = MLOTAB
  36. SEGDES MTABLE
  37. DO 100 INDICE = 1 , NINDIC
  38. I0= INDICE
  39. MOMOT=MOT
  40. CALL ACCTAB(ITABIN,'ENTIER',I0,X0,CHAR0,L0,IRET0,
  41. * MOMOT,I1,X1,CHAR1,L1,IRET1)
  42. IF (MOMOT.EQ.MOT) THEN
  43. IF (CHAR1(1:LCHALU).EQ.MCHA) THEN
  44. IRET=INDICE
  45. GO TO 110
  46. ENDIF
  47. ENDIF
  48. 100 CONTINUE
  49. 110 SEGSUP MTABLE
  50. RETURN
  51. END
  52.  
  53.  

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