Télécharger cfbb.eso

Retour à la liste

Numérotation des lignes :

  1. C CFBB SOURCE PV 17/12/08 21:15:37 9660
  2. C CFBB SOURCE AM 05/06/17 21:15:01 5116
  3. SUBROUTINE CFBB(WRK52,WRK53,WRK54,wrk27,IB,IGAU,NBPGAU,
  4. & IECOU,LEPLAS)
  5. C
  6. C______________________________________________________________________
  7. C
  8. C MODELES FBB1 ET FBB2
  9. C______________________________________________________________________
  10. C
  11. IMPLICIT INTEGER(I-N)
  12. IMPLICIT REAL*8(A-H,O-Z)
  13.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. -INC DECHE
  17. *
  18. KERRE=0
  19. LESDEU = LEPLAS - 127
  20. NSTRS = SIG0(/1)
  21. C
  22. C
  23. C calcul de la matrice elastique
  24. C
  25. CMATE = 'ISOTROPE'
  26. KCAS=2
  27. CALL DOHMAS(XMAT,CMATE,IFOUR,NSTRS,KCAS,DDHOOK,IRTD)
  28. *
  29. IF ( IRTD .NE. 1) THEN
  30. print*,'erreur dans dohmas'
  31. KERRE=56
  32. RETURN
  33. ENDIF
  34. C
  35. C calcul de l'increment de contrainte
  36. C
  37. CALL MATVE1 (DDHOOK,DEPST,NSTRS,NSTRS,DSIGT,1)
  38. C
  39. C ON CALCULE LES CONTRAINTES FINALES
  40. C
  41. DO I=1,NSTRS
  42. SIGF(I) = SIG0(I) + DSIGT(I)
  43. ENDDO
  44. C
  45. RETURN
  46. END
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  

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