Télécharger test1.eso

Retour à la liste

Numérotation des lignes :

test1
  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
  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,ALF2,NALF2,ITEST)
  37. IF (ITEST.EQ.0) GOTO 100
  38. CALL COMP(BET2,NBET2,ALF2,NALF2,ITEST)
  39. IF (ITEST.EQ.0) GOTO 100
  40. CALL COMP(BET2,NBET2,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 COMP(EQ,NEQ,SIGY,NSIGY,ITEST)
  47. C
  48. 100 CONTINUE
  49. C
  50. RETURN
  51. END
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  

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