From ce8994afef839a03f9371fbb248ccb115a4519f8 Mon Sep 17 00:00:00 2001
From: caremoli <caremoli>
Date: Fri, 23 Nov 2007 15:06:06 +0000
Subject: [PATCH] CCAR: change exit test : .NE. CPOK

---
 src/SOLIDE/solid.f | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/SOLIDE/solid.f b/src/SOLIDE/solid.f
index c1a00fd..f72a0d4 100644
--- 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
-- 
2.39.2