Sources Esope | Cast3M

afnopl
C AFNOPL    SOURCE    JC220346  18/12/04    21:15:05     9991           
      subroutine afNoPl(pNoti,iret)
-INC CCNOYAU
      segment,noti
         character*(LONOM) nomOpe
         character*500     blig(nlig)
      endsegment
      integer nLig
      pointeur pnoti.NOTI
      nLig=pNoti.blig(/2)
      call pager(pNoti,1,nLig)
      end
************************************************************************
      subroutine pager(pNoti,debLi,finLi)
 
-INC PPARAM
-INC CCOPTIO
-INC CCNOYAU
      character*500 buffer
      segment,noti
         character*(LONOM) nomOpe
         character*500     blig(nlig)
      endsegment
      integer longlu
      character rep
      integer termLi,iLig,jLig,iPag
      integer debLi,finLi
      pointeur pnoti.NOTI
      call gistty(termLi)
      termLi=termLi-3
      iLig=debLi-1
      iPag=0
      jLig=1
      nLig=finLi
123   if (iLig.lt.nLig) then
         iLig=iLig+1
         buffer=pNoti.blig(iLig)
         LONGLU=LEN(BUFFER)
         DO WHILE ( LONGLU.NE.1.AND. BUFFER(LONGLU:LONGLU) .EQ.' ') 
         LONGLU = LONGLU -1
         ENDDO 
         if (buffer(1:9).ne.'Section :') then
            jLig=jLig+1
            write(IOIMP,*) buffer(1:LONGLU)
         endif
         if(jLig.eq.termLi) then
            ipag=ipag+1
            jLig=0
            read (5,fmt='(a1)',end=124,err=124) rep
            if (rep.eq.'q'.or.ierr.ne.0) goto 124
            call gistty(termLi)
            termLi=termLi-1
c            moterr(1:4)=pNoti.nomOpe
c            interr(1)=ipag
c            call erreur(-357)
         endif
         goto 123
      endif
124   continue
      end