Télécharger la plaquette Cast3M


fr en

Télécharger test.eso

Retour à la liste

Numérotation des lignes : 

test

  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
  32.        CALL COMP(EN,NEN,EM,NEM,ITEST)
  33.        IF (ITEST.EQ.0) GOTO 100
  34.        CALL COMP(EK,NEK,EM,NEM,ITEST)
  35.        IF (ITEST.EQ.0) GOTO 100
  36.        CALL COMP(EK,NEK,ALPHA,NALPHA,ITEST)
  37.        IF (ITEST.EQ.0) GOTO 100
  38.        CALL COMP(BETA,NBETA,ALPHA,NALPHA,ITEST)
  39.        IF (ITEST.EQ.0) GOTO 100
  40.        CALL COMP(BETA,NBETA,ER,NER,ITEST)
  41.        IF (ITEST.EQ.0) GOTO 100
  42.        CALL COMP(EA,NEA,ER,NER,ITEST)
  43.        IF (ITEST.EQ.0) GOTO 100
  44.        CALL COMP(EA,NEA,SIGY,NSIGY,ITEST)
  45.        IF (ITEST.EQ.0) GOTO 100
  46.        CALL COMP2(EA,NEA,FKX,NKX,NPTEUR,NC,ITEST)
  47. C
  48. 100    CONTINUE
  49. C
  50.        RETURN
  51.        END
  52.  
  53.  
  54.  
  55.  
  56.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales