Esope source files

   1 : C IMPOS0    SOURCE    FANDEUR   11/10/07    21:15:43     7158           
   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
  21 :         CALL IMPO31
  22 :       ELSE
  22 :         CALL IMPOS1
  23 :       ENDIF
  24 :       IF (IERR.NE.0) RETURN
  25 : * 1.2  Lecture de MAILC (pour recuperer le pointeur !)
  25 :       call lirobj('MAILLAGE',MAILC,1,iretou)
  26 :       IF (IERR.NE.0) RETURN
  27 : 
  28 : * 2e etape :
  29 : * 2.1  Ecriture de MAILC dans la pile
  29 :       call ecrobj('MAILLAGE',MAILC)
  30 :       IF (IERR.NE.0) GOTO 100
  31 : * 2.2  IMPO BLOC
  32 :       IF (IDIM.EQ.3) THEN
  32 :         CALL IMPO32
  33 :       ELSE
  33 :         CALL IMPOS2
  34 :       ENDIF
  35 : 
  36 : * 3e etape suppression du maillage de contact (intermediaire)
  37 :  100  CONTINUE
  38 :       MELEME = MAILC
  39 :       SEGSUP,MELEME
  40 : 
  41 :       return
  42 :       end
  43 : 
  44 :