Esope source files

   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 :