Télécharger ccotr2.eso

Retour à la liste

Numérotation des lignes :

  1. C CCOTR2 SOURCE BP208322 17/03/01 21:15:20 9325
  2. C COTRA2 SOURCE DELH 91/01/16 21:33:38 207
  3. SUBROUTINE CCOTR2(WRK52,WRK53,WRK2,NCOURB)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. -INC SMEVOLL
  7. -INC SMLREEL
  8. -INC DECHE
  9. SEGMENT/WRK2/(TRAC(LTRAC)*D)
  10. *
  11. * QUELQUES INITIALISATIONS A 0
  12. *
  13. KERRE=0
  14. NCOURB=0
  15. LTRAC=TRAC(/1)
  16. CALL ZDANUL(TRAC,LTRAC)
  17. *
  18. * LOIS MOMENT-COURBURE ...
  19. *
  20. MEVOLL=nint(XMAT(5))
  21. IF(MEVOLL.EQ.0) THEN
  22. KERRE=37
  23. RETURN
  24. ENDIF
  25. SEGACT MEVOLL
  26. JOJO = IEVOLL(/1)
  27. IF(JOJO.NE.1.AND.JOJO.NE.2) THEN
  28. KERRE=31
  29. SEGDES MEVOLL
  30. RETURN
  31. ENDIF
  32. *
  33. * PREMIERE COURBE ( SELON Y )
  34. *
  35. DO 5 IJOJO=1,2
  36. IF(JOJO.EQ.1) KEVOLL=IEVOLL(1)
  37. IF(JOJO.EQ.2) KEVOLL=IEVOLL(IJOJO)
  38. SEGACT KEVOLL
  39. MLREEL=IPROGX
  40. MLREE1=IPROGY
  41. SEGDES KEVOLL
  42. SEGACT MLREEL,MLREE1
  43. NBPOIX=PROG(/1)
  44. NBPOIY=MLREE1.PROG(/1)
  45. IF(NBPOIX.NE.NBPOIY) KERRE=31
  46. IF(NBPOIX.GT.9) KERRE=31
  47. IF(NBPOIX.LT.5) KERRE=32
  48. IF(KERRE.EQ.0) GO TO 693
  49. 692 CONTINUE
  50. *
  51. * ERREUR
  52. *
  53. SEGDES MLREEL,MLREE1
  54. SEGDES MEVOLL
  55. GO TO 777
  56. 693 CONTINUE
  57. *
  58. DO 10 I=1,NBPOIX
  59. PEPS=PROG(I)
  60. PSIG=MLREE1.PROG(I)
  61. NCOURB=NCOURB+1
  62. TRAC(2*NCOURB-1)=PSIG
  63. TRAC(2*NCOURB) =PEPS
  64. 10 CONTINUE
  65. C
  66. SEGDES MLREEL,MLREE1
  67. 5 CONTINUE
  68. SEGDES MEVOLL
  69. RETURN
  70. C
  71. 777 CONTINUE
  72. RETURN
  73. END
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  

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