Télécharger infor2.eso

Retour à la liste

Numérotation des lignes :

  1. C INFOR2 SOURCE JC220346 18/12/14 21:15:06 10039
  2. C CE SOUS PROGRAMME SERT a RECHERCHER UNE CHAINE DANS lES NOTICES
  3. C
  4. SUBROUTINE INFOR2(NOM,ICHAI,ITROU)
  5. -INC CCOPTIO
  6. -INC CCNOYAU
  7. integer itrou
  8. integer iret
  9. integer nLig
  10. integer iPos
  11. CHARACTER*(LONOM) NOM
  12. CHARACTER*500 BUFFER
  13. CHARACTER*(*) ICHAI
  14. segment,noti
  15. character*(LONOM) nomOpe
  16. character*500 blig(nlig)
  17. endsegment
  18. pointeur pnoti.NOTI
  19. itrou=0
  20. iret=0
  21. c write(6,*) "Appel infopa avec ",nom
  22. call infopa(nom,iret,pnoti)
  23. c write(6,*) "sortie infopa avec ",iret
  24. nLig=pNoti.blig(/2)
  25. if(iret.ne.1) then
  26. moterr(1:4)=nom
  27. call erreur(7)
  28. return
  29. endif
  30. c if (ierr.ne.0) return
  31. do 127 iLig=1,nLig
  32. buffer=pNoti.blig(iLig)
  33. iPos = INDEX(BUFFER(1:500) ,ICHAI)
  34. if(ipos.ne.0) then
  35. itrou=itrou+1
  36. if(iimpi.gt.0) then
  37. write(ioimp,100) nom, buffer
  38. endif
  39. endif
  40. 127 continue
  41. segsup pNoti
  42. return
  43. 100 FORMAT('Dans ',A24,' : ',A500)
  44. END
  45.  
  46.  
  47.  
  48.  
  49.  

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