Télécharger impose.eso

Retour à la liste

Numérotation des lignes :

  1. C IMPOSE SOURCE PV 14/10/14 21:15:08 8182
  2. C
  3. C Operateur IMPO :
  4. C
  5. C impo mail fabrique un maillage support des conditions eventuelles
  6. C impo bloc fabrique les raideurs et les depi a partir de ce maillage
  7. C impo acti cree les contours des surfaces de contact
  8. C impo impa cree directement la raideur de couplage en cas de contact
  9. C
  10. C impo sans rien fabrique directement les raideurs et les depi
  11. C
  12. subroutine impose
  13.  
  14. IMPLICIT INTEGER(I-N)
  15. IMPLICIT REAL*8 (A-H,O-Z)
  16.  
  17. -INC CCOPTIO
  18. -INC SMCOORD
  19.  
  20. character*4 mcle(4)
  21. data mcle /'MAIL','BLOC','ACTI','IMPA'/
  22. *
  23. segact mcoord*mod
  24. call lirmot(mcle,4,iret,0)
  25. if (ierr.ne.0) return
  26. *
  27. * aiguillage sur les differentes options de impo
  28. *
  29. * EN 3D :
  30. *--------
  31. if (idim .eq. 3 ) then
  32. *
  33. if (iret.eq.1) call impo31
  34. if (iret.eq.2) call impo32(0)
  35. if (iret.eq.3) call erreur(19)
  36. if (iret.eq.4) call erreur(19)
  37. if (iret.eq.0) call impos0
  38. *
  39. * EN 2D :
  40. *--------
  41. else
  42. *
  43. if (ifomod .ne. -1 .and. ifomod .ne. 0) then
  44. call erreur(710)
  45. return
  46. endif
  47. *
  48. if (iret.eq.1) call impos1
  49. if (iret.eq.2) call impos2
  50. if (iret.eq.3) call impos4
  51. if (iret.eq.4) call impos7
  52. if (iret.eq.0) call impos0
  53.  
  54. endif
  55.  
  56. return
  57. end
  58.  
  59.  
  60.  
  61.  

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