Télécharger test.eso

Retour à la liste

Numérotation des lignes :

  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