Esope source files

   1 : C TEST1     SOURCE    AM        08/12/19    21:17:09     6237           
   2 :       SUBROUTINE TEST1(EN,NEN,EM,NEM,EK,NEK,ALF2,NALF2,
   3 :      & BET2,NBET2,ER,NER,EA,NEA,SIGY,NSIGY,EQ,NEQ,ITEST)
   4 : C
   5 : C----------------------------------------------------------------------
   6 : C Objet: Tester si toutes les listes de temperatures des coefficients
   7 : C        intervenant dans les lois d'evolution non_lineaires sont identiques
   8 : C----------------------------------------------------------------------
   9 : C Entree: EN(NEN)
  10 : C         EM(NEM)
  11 : C         EK(NEK)
  12 : C         ALF2(NALF2)    tableaux des coefficients intervenant 
  13 : C         BET2(NBET2)      dans les lois d'evolution non_lineaires 
  14 : C         ER(NER)
  15 : C         EA(NEA)
  16 : C         SIGY(NSIGY) 
  17 : C         EQ(NEQ)
  18 : C-----------------------------------------------------------------------
  19 : C
  20 : C------------------------------------------------------------------------
  21 : C Sortie: ITEST drapeau 
  22 : C         si ITEST = 1  listes de temperatures identiques
  23 : C                  = 0  listes de temperatures differentes
  24 : C------------------------------------------------------------------------
  25 :       IMPLICIT INTEGER(I-N)
  26 :        IMPLICIT  REAL*8 (A-H,O-Z)                        
  27 :        DIMENSION EQ(*),sigy(*)
  28 :        DIMENSION ER(*),EA(*),EN(*),EM(*),EK(*),ALF2(*),BET2(*)
  29 : C      write(6,*) 'Entrée dans TEST1'
  30 : C
  31 :        ITEST=1
  31 :        CALL COMP(EN,NEN,EM,NEM,ITEST)
  32 :        IF (ITEST.EQ.0) GOTO 100
  32 :        CALL COMP(EK,NEK,EM,NEM,ITEST)
  33 :        IF (ITEST.EQ.0) GOTO 100
  33 :        CALL COMP(EK,NEK,ALF2,NALF2,ITEST)
  34 :        IF (ITEST.EQ.0) GOTO 100       
  34 :        CALL COMP(BET2,NBET2,ALF2,NALF2,ITEST)
  35 :        IF (ITEST.EQ.0) GOTO 100       
  35 :        CALL COMP(BET2,NBET2,ER,NER,ITEST)
  36 :        IF (ITEST.EQ.0) GOTO 100
  36 :        CALL COMP(EA,NEA,ER,NER,ITEST)
  37 :        IF (ITEST.EQ.0) GOTO 100
  37 :        CALL COMP(EA,NEA,SIGY,NSIGY,ITEST)
  38 :        IF (ITEST.EQ.0) GOTO 100
  38 :        CALL COMP(EQ,NEQ,SIGY,NSIGY,ITEST)
  39 : C
  40 : 100    CONTINUE
  41 : C
  42 :        RETURN
  43 :        END
  44 :        
  45 : 
  46 : 
  47 :  
  48 :