Télécharger la plaquette Cast3M


fr en

Télécharger ccotr2.eso

Retour à la liste

Numérotation des lignes : 

ccotr2

  1. C CCOTR2    SOURCE    PV        17/12/08    21:15:26     9660           
  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.  
  84.  

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