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    OF166741  25/11/04    21:15:15     12349          
  2.  
  3.       SUBROUTINE CFBB(WRK52,WRK53,WRK54,wrk27,IB,IGAU,NBPGAU)
  4.  
  5. C______________________________________________________________________
  6. C
  7. C    MODELES FBB1 ET FBB2
  8. C______________________________________________________________________
  9.  
  10.       IMPLICIT INTEGER(I-N)
  11.       IMPLICIT REAL*8(A-H,O-Z)
  12.  
  13. -INC PPARAM
  14. -INC CCOPTIO
  15. -INC DECHE
  16.  
  17.       KERRE=0
  18.       NSTRS = SIG0(/1)
  19. C
  20. C     calcul de la matrice elastique
  21. C
  22.       wrk53.CMATE = 'ISOTROPE'
  23.       KCAS=2
  24.       CALL DOHMAS(XMAT,CMATE,IFOUR,NSTRS,KCAS,DDHOOK,IRTD)
  25.  
  26.       IF ( IRTD .NE. 1) THEN
  27.          print*,'erreur dans dohmas'
  28.          KERRE=56
  29.          RETURN
  30.       ENDIF
  31. C
  32. C      calcul de l'increment de contrainte
  33. C
  34.       CALL MATVE1 (DDHOOK,DEPST,NSTRS,NSTRS,DSIGT,1)
  35. C
  36. C      ON CALCULE LES CONTRAINTES FINALES
  37. C
  38.       DO I=1,NSTRS
  39.         SIGF(I) = SIG0(I) + DSIGT(I)
  40.       ENDDO
  41. C
  42.       RETURN
  43.       END
  44.  
  45.  
  46.  

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