Télécharger infor2.eso

Retour à la liste

Numérotation des lignes :

  1. C INFOR2 SOURCE PV 14/04/15 21:15:01 8035
  2. C CE SOUS PROGRAMME SERT a RECHERCHER UNE CHAINE DANS lES NOTICES
  3. C
  4. SUBROUTINE INFOR2(NOM,ICHAI,ITROU)
  5. IMPLICIT INTEGER(I-N)
  6. -INC CCOPTIO
  7. CHARACTER*4 CODE
  8. CHARACTER*8 MOT,NOM
  9. CHARACTER*80 BUFFER
  10. CHARACTER*(*) ICHAI
  11. C RECHERCHE DU BON CHAPITRE DANS CETTE METHODE LE NOM EST CADRE A
  12. C GAUCHE
  13. IEC=1
  14. ITROU=0
  15. CODE='0'
  16. CALL INFOPO(NOM,CODE)
  17. MOTERR(1:4)=NOM
  18. IF (CODE.NE.'0 ') CALL ERREUR(7)
  19. IF (IERR.NE.0.AND.IIMPI.NE.0) WRITE (IIMPI,100) CODE
  20. 100 FORMAT (1X,A80)
  21. IF (IERR.NE.0) RETURN
  22. IDECO=0
  23. 1 CALL INFOLI(BUFFER,CODE)
  24. IF (CODE.NE.'0 ') GOTO 2
  25. IF(BUFFER(5:8).EQ.'====') THEN
  26. IF(BUFFER(1:4).EQ.LANGUE.OR.BUFFER(1:4).EQ.'====')THEN
  27. IEC=1
  28. IF(BUFFER(9:12).EQ.'****') IDECO=IDECO+1
  29. IF(IDECO.EQ.2) RETURN
  30. GO TO 1
  31. ELSE
  32. IEC=0
  33. GO TO 1
  34. ENDIF
  35. ENDIF
  36. IF(IEC.EQ.1.AND.IDECO.LE.1) THEN
  37. MM = INDEX(BUFFER(1:80) ,ICHAI)
  38. IF(MM.NE.0) THEN
  39. ITROU=1
  40. RETURN
  41. ENDIF
  42. ENDIF
  43. GOTO 1
  44. 2 RETURN
  45. END
  46.  
  47.  
  48.  

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