Télécharger model8.eso

Retour à la liste

Numérotation des lignes :

  1. C MODEL8 SOURCE CHAT 12/01/17 21:15:36 7248
  2. SUBROUTINE MODEL8(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3. *----------------------------------------------------------------------
  4. * OBJET MODELE - CAS DE LA FORMULATION 'CONTACT'
  5. * DEFINITION DES NOMS DE MODELES DE CONTACT
  6. * ET DES NOMS DE TYPES D'ELEMENTS FINIS
  7. *----------------------------------------------------------------------
  8. IMPLICIT INTEGER(I-N)
  9. -INC CCOPTIO
  10. *
  11. CHARACTER*16 MOMODL(100)
  12. *
  13. CHARACTER*16 LESPRO(*)
  14. CHARACTER*4 LESTEF(*)
  15. *
  16. * NOMS DES MODELES DE contact -FROTTEMENTS
  17. * -------------------------------
  18. CALL MOCONT (MOMODL,NMOD)
  19. *
  20. DO 1 I=1,NMOD
  21. LESPRO(I)=MOMODL(I)
  22. 1 CONTINUE
  23. NBPRO=NMOD
  24. * write(6,*) 'lespro ',( lespro(i),i=1,nmod)
  25. *
  26. IF(NBPRO.GT.N1MAX) THEN
  27. CALL ERREUR(5)
  28. GO TO 99
  29. END IF
  30. *
  31. * NOMS DE TYPES D'ELEMENTS FINIS
  32. * ------------------------------
  33. IF(IDIM.EQ.2) THEN
  34. NBTEF=3
  35. IF(NBTEF.GT.N2MAX) THEN
  36. CALL ERREUR(5)
  37. GO TO 99
  38. END IF
  39. LESTEF(1)='MULT'
  40. LESTEF(2)='FRO3'
  41. LESTEF(3)='CAF2'
  42. ELSE IF(IDIM.EQ.3) THEN
  43. NBTEF=3
  44. IF(NBTEF.GT.N2MAX) THEN
  45. CALL ERREUR(5)
  46. GO TO 99
  47. END IF
  48. LESTEF(1)='MULT'
  49. LESTEF(2)='FRO4'
  50. LESTEF(3)='CAF3'
  51. ENDIF
  52. RETURN
  53. 99 CALL ERREUR(5)
  54. RETURN
  55. END
  56.  
  57.  
  58.  
  59.  
  60.  

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