Télécharger defer1.eso

Retour à la liste

Numérotation des lignes :

  1. C DEFER1 SOURCE CHAT 05/01/12 22:40:14 5004
  2. SUBROUTINE DEFER1(JNOID,KERR1,KERRE,LOGSUC)
  3. *
  4. ***************************************************
  5. * ENTREES
  6. ***************************************************
  7. *
  8. * JNOID : test les problèmes de convergence
  9. * KERR1 : indice d'erreur
  10. * KERRE : indice d'erreur
  11. *
  12. ***************************************************
  13. * SORTIES
  14. ***************************************************
  15. *
  16. * KERR1 : indice d'erreur
  17. * KERRE : indice d'erreur
  18. * LOGSUC : booléen d'erreur
  19. *
  20. ***************************************************
  21. *
  22. IMPLICIT INTEGER(I-N)
  23. IMPLICIT REAL*8(A-H,O-Z)
  24. *
  25. LOGICAL LOGSUC
  26. *
  27. * mill 3/2/93 test sur jnoid si pb de non convergence
  28. *
  29. IF(JNOID.EQ.1) THEN
  30. IF(KERR1.EQ.1) THEN
  31. IF(KERRE.EQ.460.OR.KERRE.EQ.465.OR.KERRE.EQ.466) THEN
  32. KERR1=0
  33. c KERRE=0
  34. LOGSUC=.FALSE.
  35. ENDIF
  36. ENDIF
  37. IF(KERRE.EQ.2) THEN
  38. KERRE=0
  39. LOGSUC=.FALSE.
  40. ENDIF
  41. ENDIF
  42. c
  43. RETURN
  44. END
  45.  
  46.  
  47.  
  48.  

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