CCAR: change exit test : .NE. CPOK

diff --git a/src/SOLIDE/solid.f b/src/SOLIDE/solid.f
index c1a00fd40fc99ca2aad1c72c6bb650677f98abd9..f72a0d40ef13cf3a8690203862f7f774e7637810 100644 (file)
--- a/src/SOLIDE/solid.f
+++ b/src/SOLIDE/solid.f
@@ -3698,13 +3698,13 @@ c  initialisation de la temperature a iter=0
 c
         CALL cpeRE(compo,CP_ITERATION, ti, iter, 'tempi', 24,
      &            t , info)
-            IF( info.EQ.CPSTOP )GO TO 9000
+            IF( info.NE. CPOK  )GO TO 9000
 c
 c  initialisation de la temperature de bord a iter=0.
 c
         CALL cpeRE(compo,CP_ITERATION, ti, iter, 'tpi', 6,
      &            tpar , info)
-            IF( info.EQ.CPSTOP )GO TO 9000
+            IF( info.NE. CPOK  )GO TO 9000
 c
 c  boucle iterative  infinie
 c
@@ -3714,13 +3714,13 @@ c  lecture de la puissance combustible a iter
 c
         CALL cplRE(compo,CP_ITERATION,ti, tf, iter, 'puissi', 24,
      &      nval, puiss , info)
-            IF( info.EQ.CPSTOP )GO TO 9000
+            IF( info.NE. CPOK  )GO TO 9000
 c
 c  lecture de la temperature exterieure a iter
 c
         CALL cplRE(compo,CP_ITERATION,ti, tf, iter, 'tfi', 6,
      &      nval, text , info)
-            IF( info.EQ.CPSTOP )GO TO 9000
+            IF( info.NE. CPOK  )GO TO 9000
 c
 c  calcul du second membre
 c