Télécharger la plaquette Cast3M


fr en

Télécharger infopa.eso

Retour à la liste

Numérotation des lignes : 

infopa

  1. C INFOPA    SOURCE    PV        22/02/23    08:40:35     11296          
  2.       SUBROUTINE INFOPA(demand,IRET,pNoti)
  3.  
  4. -INC PPARAM
  5. -INC CCOPTIO
  6. -INC CCNOYAU
  7.          integer IRET
  8.          integer nNotice,nLig,nEnt,iNoti
  9.          integer anumfic,acarDeb
  10.          character*(LONOM) demand
  11.          logical langok
  12.          segment,noti
  13.              character*(LONOM) nomOpe
  14.              character*500     blig(nlig)
  15.          endsegment
  16.          pointeur pNoti.NOTI
  17. *        write(6,*) 'entree dans infopa demand ',demand,iret,pnoti
  18.          numnot=0
  19.          call infol2(demand,numnot)
  20. *        write(6,*) 'apres infol2 ',demand,numnot
  21.          moterr(1:8)=demand
  22.          if(numnot.eq.0) return
  23.          if(numnot.eq.0) call erreur(1135)
  24.          if(ierr.ne.0) return
  25.          call infopo(numnot,iret)
  26. *        write(6,*) 'apres infopo ',demand,numnot,iret
  27.          if(numnot.eq.0) return
  28.          if(numnot.eq.0) call erreur(1135)
  29.          if(ierr.ne.0) return
  30.          IF (demand.EQ.' ') THEN 
  31.             IRET=2
  32.             RETURN
  33.          ENDIF
  34. *  creation segment contenant la notice (a ajuster a la fin)
  35.          nlig=1000
  36.          segini noti
  37.          pnoti=noti
  38.          nomope=demand
  39.          langok=.true.
  40.          ilig=1
  41.    20    continue
  42.          if(ilig.gt.nlig) then
  43.           nlig=nlig+1000
  44.           segadj noti
  45.          endif
  46.          call infoli(blig(ilig),iret)
  47.          if(iret.eq.99999)  goto 10
  48.          if (blig(ilig)(5:8).eq.'====') then
  49.           if (blig(ilig)(1:4).eq.LANGUE.or.blig(ilig)(1:4).eq.'====') 
  50.      >      then
  51.             langok=.true.
  52.           else
  53.             langok=.false.
  54.           endif
  55. **        ilig=ilig-1
  56.           goto 20
  57.          endif
  58.          if (langok) ilig=ilig+1
  59.          goto 20
  60.    10    CONTINUE
  61. **       write(6,*) 'nombre de lignes lues ',ilig-1
  62.          iret=1
  63.          nlig=ilig-1
  64.          segadj noti
  65.       end
  66.  
  67.  
  68.  
  69.  
  70.  

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