C INFOR2 SOURCE JC220346 18/12/14 21:15:06 10039 C CE SOUS PROGRAMME SERT a RECHERCHER UNE CHAINE DANS lES NOTICES C SUBROUTINE INFOR2(NOM,ICHAI,ITROU) -INC PPARAM -INC CCOPTIO -INC CCNOYAU integer itrou integer iret integer nLig integer iPos CHARACTER*(LONOM) NOM CHARACTER*500 BUFFER CHARACTER*(*) ICHAI segment,noti character*(LONOM) nomOpe character*500 blig(nlig) endsegment pointeur pnoti.NOTI itrou=0 iret=0 c write(6,*) "Appel infopa avec ",nom call infopa(nom,iret,pnoti) c write(6,*) "sortie infopa avec ",iret nLig=pNoti.blig(/2) if(iret.ne.1) then moterr(1:4)=nom call erreur(7) return endif c if (ierr.ne.0) return do 127 iLig=1,nLig buffer=pNoti.blig(iLig) iPos = INDEX(BUFFER(1:500) ,ICHAI) if(ipos.ne.0) then itrou=itrou+1 if(iimpi.gt.0) then write(ioimp,100) nom, buffer endif endif 127 continue segsup pNoti return 100 FORMAT('Dans ',A24,' : ',A500) END