Télécharger afnopl.eso

Retour à la liste

Numérotation des lignes :

  1. C AFNOPL SOURCE GF238795 17/11/15 19:12:08 9611
  2. subroutine afNoPl(pNoti,iret)
  3. segment,noti
  4. character*8 nomOpe
  5. character*500 blig(nlig)
  6. endsegment
  7. integer nLig
  8. pointeur pnoti.NOTI
  9. nLig=pNoti.blig(/2)
  10. call pager(pNoti,1,nLig)
  11. end
  12. subroutine pager(pNoti,debLi,finLi)
  13. -INC CCOPTIO
  14. character*500 buffer
  15. segment,noti
  16. character*8 nomOpe
  17. character*500 blig(nlig)
  18. endsegment
  19. integer longlu
  20. character rep
  21. integer termLi,iLig,jLig,iPag
  22. integer debLi,finLi
  23. pointeur pnoti.NOTI
  24. call gistty(termLi)
  25. termLi=termLi-3
  26. iLig=debLi-1
  27. iPag=0
  28. jLig=1
  29. nLig=finLi
  30. 123 if (iLig.lt.nLig) then
  31. iLig=iLig+1
  32. buffer=pNoti.blig(iLig)
  33. LONGLU=LEN(BUFFER)
  34. DO WHILE ( LONGLU.NE.1.AND. BUFFER(LONGLU:LONGLU) .EQ.' ')
  35. LONGLU = LONGLU -1
  36. ENDDO
  37. if (buffer(1:9).ne.'Section :') then
  38. jLig=jLig+1
  39. write(IOIMP,*) buffer(1:LONGLU)
  40. endif
  41. if(jLig.eq.termLi) then
  42. ipag=ipag+1
  43. jLig=0
  44. read (5,fmt='(a1)',end=124,err=124) rep
  45. if (rep.eq.'q'.or.ierr.ne.0) goto 124
  46. call gistty(termLi)
  47. termLi=termLi-1
  48. c moterr(1:4)=pNoti.nomOpe
  49. c interr(1)=ipag
  50. c call erreur(-357)
  51. endif
  52. goto 123
  53. endif
  54. 124 continue
  55. end
  56.  
  57.  

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