Télécharger la plaquette Cast3M


fr en

Télécharger defer1.eso

Retour à la liste

Numérotation des lignes : 

defer1

  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