Télécharger cotraf.eso

Retour à la liste

Numérotation des lignes :

cotraf
  1. C COTRAF SOURCE PV 17/12/08 21:17:01 9660
  2. C COTRAD SOURCE AM 95/12/27 21:25:21 1962
  3. SUBROUTINE COTRAF(wrk52,wrk53,WRK2,NCOURB)
  4. C-----------------------------------------------------------------
  5. C
  6. C RECUPERAGE DE COURBE ADAPTE A TAKEDA
  7. C
  8. C PP 18/9/92
  9. C-----------------------------------------------------------------
  10. IMPLICIT INTEGER(I-N)
  11. IMPLICIT REAL*8(A-H,O-Z)
  12. -INC SMEVOLL
  13. -INC SMLREEL
  14. -INC DECHE
  15.  
  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=nint(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.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  

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