C TEST      SOURCE    CHAT      05/01/13    03:36:20     5004
      SUBROUTINE TEST(EN,NEN,EM,NEM,EK,NEK,ALPHA,NALPHA,BETA,NBETA,
     & ER,NER,EA,NEA,SIGY,NSIGY,FKX,NKX,NPTEUR,NC,ITEST)
C
C----------------------------------------------------------------------
C Objet: Tester si toutes les listes de temperatures des coefficients
C        intervenant dans les lois d'evolution non_lineaires sont identiques
C----------------------------------------------------------------------
C Entree: EN(NEN)
C         EM(NEM)
C         EK(NEK)
C         ALPHA(NALPHA)    tableaux des coefficients intervenant
C         BETA(NBETA)      dans les lois d'evolution non_lineaires
C         ER(NER)
C         EA(NEA)
C         SIGY(NSIGY)
C         FKX(NKX)  liste des courbes a differentes temperatures
C         NPTEUR(NC) tableau de pointeurs sur les differentes courbes
C-----------------------------------------------------------------------
C
C------------------------------------------------------------------------
C Sortie: ITEST drapeau
C         si ITEST = 1  listes de temperatures identiques
C                  = 0  listes de temperatures differentes
C------------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
       IMPLICIT  REAL*8 (A-H,O-Z)
       DIMENSION SIGY(*),FKX(*),NPTEUR(*)
       DIMENSION ER(*),EA(*),EN(*),EM(*),EK(*),ALPHA(*),BETA(*)
C
       ITEST=1
       CALL COMP(EN,NEN,EM,NEM,ITEST)
       IF (ITEST.EQ.0) GOTO 100
       CALL COMP(EK,NEK,EM,NEM,ITEST)
       IF (ITEST.EQ.0) GOTO 100
       CALL COMP(EK,NEK,ALPHA,NALPHA,ITEST)
       IF (ITEST.EQ.0) GOTO 100
       CALL COMP(BETA,NBETA,ALPHA,NALPHA,ITEST)
       IF (ITEST.EQ.0) GOTO 100
       CALL COMP(BETA,NBETA,ER,NER,ITEST)
       IF (ITEST.EQ.0) GOTO 100
       CALL COMP(EA,NEA,ER,NER,ITEST)
       IF (ITEST.EQ.0) GOTO 100
       CALL COMP(EA,NEA,SIGY,NSIGY,ITEST)
       IF (ITEST.EQ.0) GOTO 100
       CALL COMP2(EA,NEA,FKX,NKX,NPTEUR,NC,ITEST)
C
100    CONTINUE
C
       RETURN
       END