Télécharger la plaquette Cast3M


fr en

Télécharger impos0.eso

Retour à la liste

Numérotation des lignes : 

impos0

  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.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17.  
  18. -INC SMELEME
  19.  
  20.       MAILC = 0
  21. * 1ere etape :
  22. * 1.1  IMPO 'MAIL'
  23.       IF (IDIM.EQ.3) THEN
  24.         CALL IMPO31
  25.       ELSE
  26.         CALL IMPOS1
  27.       ENDIF
  28.       IF (IERR.NE.0) RETURN
  29. * 1.2  Lecture de MAILC (pour recuperer le pointeur !)
  30.       call lirobj('MAILLAGE',MAILC,1,iretou)
  31.       IF (IERR.NE.0) RETURN
  32.  
  33. * 2e etape :
  34. * 2.1  Ecriture de MAILC dans la pile
  35.       call ecrobj('MAILLAGE',MAILC)
  36.       IF (IERR.NE.0) GOTO 100
  37. * 2.2  IMPO BLOC
  38.       IF (IDIM.EQ.3) THEN
  39.         CALL IMPO32(0)
  40.       ELSE
  41.         CALL IMPOS2
  42.       ENDIF
  43.  
  44. * 3e etape suppression du maillage de contact (intermediaire)
  45.  100  CONTINUE
  46.       MELEME = MAILC
  47.       SEGSUP,MELEME
  48.  
  49.       return
  50.       end
  51.  
  52.  
  53.  
  54.  

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