Télécharger cfbb.eso

Retour à la liste

Numérotation des lignes :

  1. C CFBB SOURCE BP208322 17/03/01 21:15:30 9325
  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. -INC CCOPTIO
  14. -INC DECHE
  15. *
  16. KERRE=0
  17. LESDEU = LEPLAS - 127
  18. NSTRS = SIG0(/1)
  19. C
  20. C
  21. C calcul de la matrice elastique
  22. C
  23. CMATE = 'ISOTROPE'
  24. KCAS=2
  25. CALL DOHMAS(XMAT,CMATE,IFOUR,NSTRS,KCAS,DDHOOK,IRTD)
  26. *
  27. IF ( IRTD .NE. 1) THEN
  28. print*,'erreur dans dohmas'
  29. KERRE=56
  30. RETURN
  31. ENDIF
  32. C
  33. C calcul de l'increment de contrainte
  34. C
  35. CALL MATVE1 (DDHOOK,DEPST,NSTRS,NSTRS,DSIGT,1)
  36. C
  37. C ON CALCULE LES CONTRAINTES FINALES
  38. C
  39. DO I=1,NSTRS
  40. SIGF(I) = SIG0(I) + DSIGT(I)
  41. ENDDO
  42. C
  43. RETURN
  44. END
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  

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