Télécharger la plaquette Cast3M


fr en

Télécharger souci.eso

Retour à la liste

Numérotation des lignes : 

souci

  1. C SOUCI     SOURCE    PV090527  24/01/09    21:15:28     11817          
  2. C  CE FONCTEUR GERE LA SIGNALISATION DES SOUCIS
  3. C  SUIVI PAR UN ENTIER IL POSITIONNE LE SOUCI SUR LE THREAD COURANT
  4. C  Tout seul il rend le souci courant sous forme de logique
  5. C  LE SOUCI EST REMIS A ZERO PAR UN APPEL AVEC 0
  6. C                                                                        
  7.       SUBROUTINE SOUCI
  8.       IMPLICIT INTEGER(I-N)                                                           
  9. -INC CCNOYAU         
  10. -INC SMBLOC                                                       
  11.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. -INC CCASSIS
  15.       LOGICAL SOUCOU
  16. *
  17.       MBSOU=0
  18.       CALL LIRENT(mbsou,0,iretou)
  19.       if (iretou.eq.0) goto 600
  20.       GOTO 350
  21. *
  22. *  l'entry soucis permet de signaler un soucis dans un sous programme
  23. *  sur le thread courant
  24. *
  25.       entry soucis(mbso)
  26.       mbsou=mbso
  27.       iretou=-1
  28. *
  29.  350  continue
  30. ** appele avec 0 on reinitialise le souci
  31.       ith=max(1,oothrd)
  32.       imesou(ith)=max(mbsou,imesou(ith))
  33.       if (mbsou.eq.0) imesou(ith)=0
  34. *
  35.  600  continue
  36. *
  37.       if (iretou.ne.-1) then
  38.       ith=max(1,oothrd)
  39.        soucou=imesou(ith).ne.0
  40.        call ecrlog(soucou)
  41.       endif
  42.       return
  43.       end
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  

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