Télécharger la plaquette Cast3M


fr en

Télécharger infor1.eso

Retour à la liste

Numérotation des lignes : 

infor1

  1. C INFOR1    SOURCE    PV090527  24/02/16    21:15:02     11840          
  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.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. -INC CCNOYAU
  11.       character*(LONOM) nom
  12.       character*500 buffer
  13.       character*500 lacomm
  14.       integer iret,iret2
  15.       integer mchap,mpart,nchap,npart
  16.       integer tpPaNu
  17.       logical bStru
  18.       integer lComm
  19.       integer ith
  20.       IRET=0
  21.       iret2=0
  22.       segment,noti
  23.          character*(LONOM)  nomOpe
  24.          character*500      blig(nlig)
  25.       endsegment
  26.       pointeur pnoti.NOTI
  27.       call infopa(nom,iret2,pnoti)
  28.       if(iret2.ne.1) then
  29.          moterr=nom
  30.          iret=7
  31.          return
  32.       endif
  33. c     Recherche d element de structuration
  34.       bStru=.false.
  35.       DO 44 iLig=1,pNoti.blig(/2)
  36.          buffer=pNoti.blig(iLig)
  37.          if (buffer(1:5).EQ.'PART{'.or.buffer(1:5).eq.'CHAP{') then
  38.             bStru=.true.
  39.          goto 45
  40.       endif
  41. 44    continue
  42. 45    continue
  43.       if(bStru) THEN
  44.         call afNoSt(pNoti,iret)
  45.       else
  46.         call afNoPl(pNoti,iret)
  47.       endif
  48.       segsup pNoti
  49.       end
  50.  
  51.  
  52.  
  53.  

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