C INFOR1 SOURCE PV090527 24/02/16 21:15:02 11840 C CE SOUS PROGRAMME SERT A LISTER SUR L'UNITE DE SORTIE LE CONTENU C DU CHAPITRE DESIRE DU FICHIER D'INFORMATION C SUBROUTINE INFOR1(NOM,IRET) IMPLICIT INTEGER(I-N) -INC PPARAM -INC CCOPTIO -INC CCNOYAU character*(LONOM) nom character*500 buffer character*500 lacomm integer iret,iret2 integer mchap,mpart,nchap,npart integer tpPaNu logical bStru integer lComm integer ith IRET=0 iret2=0 segment,noti character*(LONOM) nomOpe character*500 blig(nlig) endsegment pointeur pnoti.NOTI call infopa(nom,iret2,pnoti) if(iret2.ne.1) then moterr=nom iret=7 return endif c Recherche d element de structuration bStru=.false. DO 44 iLig=1,pNoti.blig(/2) buffer=pNoti.blig(iLig) if (buffer(1:5).EQ.'PART{'.or.buffer(1:5).eq.'CHAP{') then bStru=.true. goto 45 endif 44 continue 45 continue if(bStru) THEN call afNoSt(pNoti,iret) else call afNoPl(pNoti,iret) endif segsup pNoti end