Télécharger infor1.eso

Retour à la liste

Numérotation des lignes :

  1. C INFOR1 SOURCE GF238795 17/11/15 19:12:20 9611
  2. C CE SOUS PROGRAMME SERT A LISTER SUR L'UNITE DE SORTIE LE CONTENU
  3. C DU CHAPITRE DESIRE DU FICHIER D'INFORMATION
  4. C
  5. SUBROUTINE INFOR1(NOM,IRET)
  6. IMPLICIT INTEGER(I-N)
  7. -INC CCOPTIO
  8. character*8 nom
  9. character*500 buffer
  10. character*500 lacomm
  11. integer iret,iret2
  12. integer mchap,mpart,nchap,npart
  13. integer tpPaNu
  14. logical bStru
  15. integer lComm
  16. integer ith
  17. IRET=0
  18. iret2=0
  19. segment,noti
  20. character*8 nomOpe
  21. character*500 blig(nlig)
  22. endsegment
  23. pointeur pnoti.NOTI
  24. call infopa(nom,iret2,pnoti)
  25. if(iret2.ne.1) then
  26. iret=7
  27. return
  28. endif
  29. c Recherche d element de structuration
  30. bStru=.false.
  31. DO 44 iLig=1,pNoti.blig(/2)
  32. buffer=pNoti.blig(iLig)
  33. if (buffer(1:5).EQ.'PART{'.or.buffer(1:5).eq.'CHAP{') then
  34. bStru=.true.
  35. goto 45
  36. endif
  37. 44 continue
  38. 45 continue
  39. if(bStru) THEN
  40. call afNoSt(pNoti,iret)
  41. else
  42. call afNoPl(pNoti,iret)
  43. endif
  44. segsup pNoti
  45. end
  46.  
  47.  

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