Télécharger cotrad.eso

Retour à la liste

Numérotation des lignes :

  1. C COTRAD SOURCE CHAT 05/01/12 22:23:36 5004
  2. SUBROUTINE COTRAD(WRK0,WRK2,NCOURB,KERRE)
  3. C-----------------------------------------------------------------
  4. C
  5. C RECUPERAGE DE COURBE ADAPTE A TAKEDA
  6. C
  7. C PP 18/9/92
  8. C-----------------------------------------------------------------
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8(A-H,O-Z)
  11. -INC SMEVOLL
  12. -INC SMLREEL
  13. SEGMENT WRK0
  14. REAL*8 XMAT(NCOMAT)
  15. ENDSEGMENT
  16. SEGMENT WRK2
  17. REAL*8 TRAC(LTRAC)
  18. ENDSEGMENT
  19. *
  20. * QUELQUES INITIALISATIONS A 0
  21. *
  22. KERRE=0
  23. NCOURB=0
  24. LTRAC=TRAC(/1)
  25. CALL ZDANUL(TRAC,LTRAC)
  26. *
  27. * LOIS MOMENT-COURBURE ...
  28. *
  29. MEVOLL=XMAT(5)
  30. IF(MEVOLL.EQ.0) THEN
  31. KERRE=37
  32. RETURN
  33. ENDIF
  34. SEGACT MEVOLL
  35. IF(IEVOLL(/1).NE.1) THEN
  36. KERRE=31
  37. SEGDES MEVOLL
  38. RETURN
  39. ENDIF
  40. *
  41. * COURBE ( SELON Y )
  42. *
  43. KEVOLL=IEVOLL(1)
  44. SEGACT KEVOLL
  45. MLREEL=IPROGX
  46. MLREE1=IPROGY
  47. SEGDES KEVOLL
  48. SEGACT MLREEL,MLREE1
  49. NBPOIX=PROG(/1)
  50. NBPOIY=MLREE1.PROG(/1)
  51. IF(NBPOIX.NE.NBPOIY) KERRE=31
  52. IF(NBPOIX.GT.7) KERRE=31
  53. IF(NBPOIX.LT.4) KERRE=32
  54. *
  55. * ERREUR
  56. *
  57. IF(KERRE.NE.0) THEN
  58. SEGDES MLREEL,MLREE1
  59. SEGDES MEVOLL
  60. RETURN
  61. ENDIF
  62. *
  63. DO 10 I=1,NBPOIX
  64. PEPS=PROG(I)
  65. PSIG=MLREE1.PROG(I)
  66. NCOURB=NCOURB+1
  67. TRAC(2*NCOURB-1)=PSIG
  68. TRAC(2*NCOURB) =PEPS
  69. 10 CONTINUE
  70. C
  71. SEGDES MLREEL,MLREE1
  72. SEGDES MEVOLL
  73. RETURN
  74. END
  75.  
  76.  
  77.  

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