Télécharger la plaquette Cast3M


fr en

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