Esope source files

   1 : C TEST      SOURCE    CHAT      05/01/13    03:36:20     5004           
   2 :       SUBROUTINE TEST(EN,NEN,EM,NEM,EK,NEK,ALPHA,NALPHA,BETA,NBETA,
   3 :      & ER,NER,EA,NEA,SIGY,NSIGY,FKX,NKX,NPTEUR,NC,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         ALPHA(NALPHA)    tableaux des coefficients intervenant 
  13 : C         BETA(NBETA)      dans les lois d'evolution non_lineaires 
  14 : C         ER(NER)
  15 : C         EA(NEA)
  16 : C         SIGY(NSIGY) 
  17 : C         FKX(NKX)  liste des courbes a differentes temperatures
  18 : C         NPTEUR(NC) tableau de pointeurs sur les differentes courbes
  19 : C-----------------------------------------------------------------------
  20 : C
  21 : C------------------------------------------------------------------------
  22 : C Sortie: ITEST drapeau 
  23 : C         si ITEST = 1  listes de temperatures identiques
  24 : C                  = 0  listes de temperatures differentes
  25 : C------------------------------------------------------------------------
  26 :       IMPLICIT INTEGER(I-N)
  27 :        IMPLICIT  REAL*8 (A-H,O-Z)                        
  28 :        DIMENSION SIGY(*),FKX(*),NPTEUR(*)
  29 :        DIMENSION ER(*),EA(*),EN(*),EM(*),EK(*),ALPHA(*),BETA(*)
  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,ALPHA,NALPHA,ITEST)
  34 :        IF (ITEST.EQ.0) GOTO 100       
  34 :        CALL COMP(BETA,NBETA,ALPHA,NALPHA,ITEST)
  35 :        IF (ITEST.EQ.0) GOTO 100       
  35 :        CALL COMP(BETA,NBETA,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 COMP2(EA,NEA,FKX,NKX,NPTEUR,NC,ITEST)
  39 : C
  40 : 100    CONTINUE
  41 : C
  42 :        RETURN
  43 :        END
  44 :        
  45 : 
  46 : 
  47 :