Sources Esope | Cast3M

infor2
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