Télécharger la plaquette Cast3M


fr en

Télécharger cotrad.eso

Retour à la liste

Numérotation des lignes : 

cotrad

  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