Télécharger la plaquette Cast3M


fr en

Télécharger cblopi.eso

Retour à la liste

Numérotation des lignes : 

cblopi

  1. C CBLOPI    SOURCE    PV        17/12/05    21:15:07     9646           
  2.       subroutine cblopi(icolac,iiicha)
  3. C=======================================================================
  4. C sous-programme cblopi (COLlaborateur BLOque PIles)
  5. C        Ajouter les piles du segment ICOLAC au noyau afin d'eviter leur
  6. C        desallocation
  7. C        Note : variation basse sur la sous-routine SUPPIL mais
  8. C        impossible de se servir de cette derniere tel quel car elle va
  9. C        chercher directement dans le common IPSAUV
  10. C        Suppression de l'argument ivoulu qui permettait a SUPPIL de
  11. C        soit : supprimer les piles ou les sauvegarder
  12. C        Ceci est remplacé par deux sous-routinea différentes
  13. C        Entree :
  14. C                 ICOLAC: pointeur vers le segment ICOLAC a bloquer
  15. C=======================================================================
  16. C
  17.       integer i
  18.       integer iiicha
  19. -INC TMCOLAC
  20.       if (icolac.eq.0) return
  21.       do  i=1,kcola(/1)
  22.          if(i.lt.24.or.i.gt.27.or.iiicha.eq.0) then
  23.             itlacc=kcola(i)
  24.             call savseg(itlacc)
  25.             segdes itlacc
  26.  
  27.             isgtr=icola(i)
  28.             if(isgtr.ne.0) then
  29.                call savseg(isgtr)
  30.                segdes isgtr
  31.             endif
  32.          else
  33. C     Si c'est une pile RLME (24, 25, 26, 27) et que iiicha est 1, on
  34. C     supprime la pile car ce sont des piles temporaires qui seront
  35. C     allouées en debut d'opérateur et libérées avant de sortir
  36.             itlacc=kcola(i)
  37.             segsup itlacc
  38.             kcola(i)=0
  39.             isgtr=icola(i)
  40.             if(isgtr.ne.0) then
  41.                segsup isgtr
  42.                icola(i)=0
  43.             endif
  44.          endif
  45.       enddo
  46.       ilisse=ilissg
  47.       segdes ilisse
  48.       call savseg(ilisse)
  49.       segdes icolac
  50.       call savseg(icolac)
  51.       end
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  

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