Télécharger verrou.eso

Retour à la liste

Numérotation des lignes :

  1. C VERROU SOURCE CB215821 18/09/27 21:15:50 9936
  2. SUBROUTINE VERROU(IVER)
  3.  
  4. *____________________________________________________________________
  5. *
  6. * OBJET : Cette SUBROUTINE permet de gerer un verrou afin d'eviter que
  7. * plusieurs ASSISTANTS s'executent en meme temps
  8. *
  9. * ENTREES :
  10. * °°°°°°°°°
  11. *
  12. * IVER Option valant
  13. * 1 : Initialisation
  14. * 2 : Prise de verrou
  15. * 3 : Liberation du verrou
  16. * 4 : Suppression du verrou (inutile mais on ne sait jamais)
  17. *
  18. * SORTIE :
  19. * °°°°°°°°
  20. *
  21. *_____________________________________________________________________
  22. *
  23. IMPLICIT INTEGER(I-N)
  24. IMPLICIT REAL*8(A-H,O-Z)
  25.  
  26. SEGMENT IVERRO(0)
  27. SAVE IVERRO
  28.  
  29. IF (IVER .EQ. 1) THEN
  30. SEGINI,IVERRO
  31. SEGDES,IVERRO
  32. C Il est protege de SEGSUP par le MENAGE par l'appel a INIMEN dans MAIN
  33. ELSEIF(IVER .EQ. 2) THEN
  34. SEGACT IVERRO*MOD
  35. ELSEIF(IVER .EQ. 3) THEN
  36. SEGDES IVERRO
  37. ELSEIF(IVER .EQ. 4) THEN
  38. SEGSUP IVERRO
  39. ELSE
  40. CALL ERREUR(21)
  41. RETURN
  42. ENDIF
  43. END
  44.  
  45.  
  46.  

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