Télécharger infor2.eso

Retour à la liste

Numérotation des lignes :

  1. C INFOR2 SOURCE GF238795 17/11/15 19:12:21 9611
  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. integer itrou
  7. integer iret
  8. integer nLig
  9. integer iPos
  10. CHARACTER*8 NOM
  11. CHARACTER*500 BUFFER
  12. CHARACTER*(*) ICHAI
  13. segment,noti
  14. character*8 nomOpe
  15. character*500 blig(nlig)
  16. endsegment
  17. pointeur pnoti.NOTI
  18. itrou=0
  19. iret=0
  20. c write(6,*) "Appel infopa avec ",nom
  21. call infopa(nom,iret,pnoti)
  22. c write(6,*) "sortie infopa avec ",iret
  23. nLig=pNoti.blig(/2)
  24. if(iret.ne.1) then
  25. moterr(1:4)=nom
  26. call erreur(7)
  27. return
  28. endif
  29. c if (ierr.ne.0) return
  30. do 127 iLig=1,nLig
  31. buffer=pNoti.blig(iLig)
  32. iPos = INDEX(BUFFER(1:500) ,ICHAI)
  33. if(ipos.ne.0) then
  34. itrou=itrou+1
  35. if(iimpi.gt.0) then
  36. write(ioimp,100) nom, buffer
  37. endif
  38. endif
  39. 127 continue
  40. segsup pNoti
  41. return
  42. 100 FORMAT('Dans ',A8,' : ',A500)
  43. END
  44.  
  45.  
  46.  
  47.  

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