Télécharger la plaquette Cast3M


fr en

Télécharger deffin.eso

Retour à la liste

Numérotation des lignes : 

deffin

  1. C DEFFIN    SOURCE    CB215821  16/04/15    21:15:09     8907
  2.       SUBROUTINE DEFFIN(INPLAS,TSOM,NSOM,NCOMP,NINV,NINCMA,
  3.      .           TCAR,DTOPTI,IPOTAB,KERRE)
  4. *
  5. ************************************************************
  6. *  ENTREES
  7. ************************************************************
  8. *
  9. *  INPLAS  : numéro du matériau inélastique
  10. *  TSOM    :
  11. *  NSOM    :
  12. *  NCOMP   :
  13. *  NINV    :
  14. *  NINCMA  :
  15. *  TCAR    :
  16. *  IPOTAB  : pointeur sur segment table
  17. *
  18. ************************************************************
  19. *  SORTIES
  20. ************************************************************
  21. *
  22. *  DTOPTI  : pas de temps optimal ( modèles visqueux)
  23. *  KERRE   : indice d'erreur
  24. *
  25. ************************************************************
  26. *
  27.       IMPLICIT INTEGER(I-N)
  28.       IMPLICIT REAL*8(A-H,O-Z)
  29. *
  30.  
  31. -INC PPARAM
  32. -INC CCOPTIO
  33. *
  34.       LOGICAL LOGIN,LOGRE
  35.       CHARACTER*72 CHARRE
  36. *
  37.       IVALIN=0
  38.       XVALIN=REAL(0.D0)
  39.       LOGIN=.FALSE.
  40.       IOBIN=0
  41.       IVALRE=0
  42.       IOBRE=0
  43.  
  44.       IF ( INPLAS .EQ. 17 .OR.
  45.      2   ( INPLAS .GE. 19 .AND. INPLAS .LE. 25) .OR.
  46.      4     INPLAS .EQ. 61 .OR.
  47.      1     INPLAS .EQ. 53 .OR.
  48.      1     INPLAS .EQ. 65 .OR.
  49.      1     INPLAS .EQ. 29 .OR.
  50.      2     INPLAS .EQ. 44 .OR.
  51.      9     INPLAS .EQ. 45 .OR.
  52.      9     INPLAS .EQ. 76 .OR.  INPLAS .EQ. 77  .OR.
  53.      9     INPLAS .EQ. 70 ) THEN
  54. C
  55. *    9     INPLAS .EQ. 70 .OR.
  56. *    9     INPLAS .EQ. 74     ) THEN
  57.          TMOY = TSOM/NCOMP
  58.          NMOY = NSOM/NCOMP
  59.          IF (IIMPI.GE.1) THEN
  60.          WRITE(IOIMP,*)' NBRE DE SS PAS : MOYENNE ',NMOY,
  61.      1                    ' MAX ',NINCMA
  62.             IF (NINV.NE.0) THEN
  63.             WRITE(IOIMP,*)' NBRE D"INVERSION ',NINV,'/',NCOMP
  64.             END IF
  65.          ENDIF
  66.          TECAR = SQRT(ABS(TCAR/NCOMP - TMOY*TMOY))
  67.          DTOPTI = MAX(TMOY-TECAR/REAL(2.D0),DTOPTI)
  68.          CALL ECCTAB(IPOTAB,'MOT     ',IVALIN,XVALIN,'DTOPTI',
  69.      1              LOGIN,IOBIN,'FLOTTANT',IVALRE,DTOPTI,CHARRE,
  70.      2                                               LOGRE,IOBRE)
  71.          IF(IERR.NE.0) THEN
  72.             KERRE=999
  73.          END IF
  74.       ENDIF
  75.       RETURN
  76.       END
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  

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