Télécharger deffin.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  31. *
  32. LOGICAL LOGIN,LOGRE
  33. CHARACTER*72 CHARRE
  34. *
  35. IVALIN=0
  36. XVALIN=REAL(0.D0)
  37. LOGIN=.FALSE.
  38. IOBIN=0
  39. IVALRE=0
  40. IOBRE=0
  41.  
  42. IF ( INPLAS .EQ. 17 .OR.
  43. 2 ( INPLAS .GE. 19 .AND. INPLAS .LE. 25) .OR.
  44. 4 INPLAS .EQ. 61 .OR.
  45. 1 INPLAS .EQ. 53 .OR.
  46. 1 INPLAS .EQ. 65 .OR.
  47. 1 INPLAS .EQ. 29 .OR.
  48. 2 INPLAS .EQ. 44 .OR.
  49. 9 INPLAS .EQ. 45 .OR.
  50. 9 INPLAS .EQ. 76 .OR. INPLAS .EQ. 77 .OR.
  51. 9 INPLAS .EQ. 70 ) THEN
  52. C
  53. * 9 INPLAS .EQ. 70 .OR.
  54. * 9 INPLAS .EQ. 74 ) THEN
  55. TMOY = TSOM/NCOMP
  56. NMOY = NSOM/NCOMP
  57. IF (IIMPI.GE.1) THEN
  58. WRITE(IOIMP,*)' NBRE DE SS PAS : MOYENNE ',NMOY,
  59. 1 ' MAX ',NINCMA
  60. IF (NINV.NE.0) THEN
  61. WRITE(IOIMP,*)' NBRE D"INVERSION ',NINV,'/',NCOMP
  62. END IF
  63. ENDIF
  64. TECAR = SQRT(ABS(TCAR/NCOMP - TMOY*TMOY))
  65. DTOPTI = MAX(TMOY-TECAR/REAL(2.D0),DTOPTI)
  66. CALL ECCTAB(IPOTAB,'MOT ',IVALIN,XVALIN,'DTOPTI',
  67. 1 LOGIN,IOBIN,'FLOTTANT',IVALRE,DTOPTI,CHARRE,
  68. 2 LOGRE,IOBRE)
  69. IF(IERR.NE.0) THEN
  70. KERRE=999
  71. END IF
  72. ENDIF
  73. RETURN
  74. END
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  

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