Télécharger la plaquette Cast3M


fr en

Télécharger cfbb.eso

Retour à la liste

Numérotation des lignes : 

cfbb

  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