Télécharger impos0.eso

Retour à la liste

Numérotation des lignes :

  1. C IMPOS0 SOURCE PV 16/03/24 21:15:09 8854
  2. C
  3. C operateur IMPO :
  4. C impo sans rien fabrique directement les raideurs et les depi
  5. * <=> "mailc = IMPO 'MAIL' mail1 mail2 ;"
  6. * "dep1 rig1 = 'IMPO' 'BLOC' mailc ;"
  7. * "DETRUIRE mailc ;"
  8. C
  9. SUBROUTINE IMPOS0
  10.  
  11. IMPLICIT INTEGER(I-N)
  12. IMPLICIT REAL*8 (A-H,O-Z)
  13.  
  14. -INC CCOPTIO
  15.  
  16. -INC SMELEME
  17.  
  18. MAILC = 0
  19. * 1ere etape :
  20. * 1.1 IMPO 'MAIL'
  21. IF (IDIM.EQ.3) THEN
  22. CALL IMPO31
  23. ELSE
  24. CALL IMPOS1
  25. ENDIF
  26. IF (IERR.NE.0) RETURN
  27. * 1.2 Lecture de MAILC (pour recuperer le pointeur !)
  28. call lirobj('MAILLAGE',MAILC,1,iretou)
  29. IF (IERR.NE.0) RETURN
  30.  
  31. * 2e etape :
  32. * 2.1 Ecriture de MAILC dans la pile
  33. call ecrobj('MAILLAGE',MAILC)
  34. IF (IERR.NE.0) GOTO 100
  35. * 2.2 IMPO BLOC
  36. IF (IDIM.EQ.3) THEN
  37. CALL IMPO32(0)
  38. ELSE
  39. CALL IMPOS2
  40. ENDIF
  41.  
  42. * 3e etape suppression du maillage de contact (intermediaire)
  43. 100 CONTINUE
  44. MELEME = MAILC
  45. SEGSUP,MELEME
  46.  
  47. return
  48. end
  49.  
  50.  
  51.  
  52.  

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