C TEST1     SOURCE    AM        08/12/19    21:17:09     6237
      SUBROUTINE TEST1(EN,NEN,EM,NEM,EK,NEK,ALF2,NALF2,
     & BET2,NBET2,ER,NER,EA,NEA,SIGY,NSIGY,EQ,NEQ,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         ALF2(NALF2)    tableaux des coefficients intervenant
C         BET2(NBET2)      dans les lois d'evolution non_lineaires
C         ER(NER)
C         EA(NEA)
C         SIGY(NSIGY)
C         EQ(NEQ)
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 EQ(*),sigy(*)
       DIMENSION ER(*),EA(*),EN(*),EM(*),EK(*),ALF2(*),BET2(*)
C      write(6,*) 'Entrée dans TEST1'
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,ALF2,NALF2,ITEST)
       IF (ITEST.EQ.0) GOTO 100
       CALL COMP(BET2,NBET2,ALF2,NALF2,ITEST)
       IF (ITEST.EQ.0) GOTO 100
       CALL COMP(BET2,NBET2,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 COMP(EQ,NEQ,SIGY,NSIGY,ITEST)
C
100    CONTINUE
C
       RETURN
       END