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.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12. *
  13. CHARACTER*16 MOMODL(100)
  14. *
  15. CHARACTER*16 LESPRO(*)
  16. CHARACTER*4 LESTEF(*)
  17. *
  18. * NOMS DES MODELES DE contact -FROTTEMENTS
  19. * -------------------------------
  20. CALL MOCONT (MOMODL,NMOD)
  21. *
  22. DO 1 I=1,NMOD
  23. LESPRO(I)=MOMODL(I)
  24. 1 CONTINUE
  25. NBPRO=NMOD
  26. * write(6,*) 'lespro ',( lespro(i),i=1,nmod)
  27. *
  28. IF(NBPRO.GT.N1MAX) THEN
  29. CALL ERREUR(5)
  30. GO TO 99
  31. END IF
  32. *
  33. * NOMS DE TYPES D'ELEMENTS FINIS
  34. * ------------------------------
  35. IF(IDIM.EQ.2) THEN
  36. NBTEF=3
  37. IF(NBTEF.GT.N2MAX) THEN
  38. CALL ERREUR(5)
  39. GO TO 99
  40. END IF
  41. LESTEF(1)='MULT'
  42. LESTEF(2)='FRO3'
  43. LESTEF(3)='CAF2'
  44. ELSE IF(IDIM.EQ.3) THEN
  45. NBTEF=3
  46. IF(NBTEF.GT.N2MAX) THEN
  47. CALL ERREUR(5)
  48. GO TO 99
  49. END IF
  50. LESTEF(1)='MULT'
  51. LESTEF(2)='FRO4'
  52. LESTEF(3)='CAF3'
  53. ENDIF
  54. RETURN
  55. 99 CALL ERREUR(5)
  56. RETURN
  57. END
  58.  
  59.  
  60.  
  61.  
  62.  

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