Esope source files

   1 : C IMPOSE    SOURCE    FANDEUR   11/10/07    21:15:48     7158           
   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
  23 :       call lirmot(mcle,4,iret,0)
  24 :       if (ierr.ne.0) return
  25 : *
  26 : *  aiguillage sur les differentes options de impo
  27 : *
  28 : * EN 3D :
  29 : *--------
  30 :       if (idim .eq. 3 ) then
  31 : *
  31 :         if (iret.eq.1) call impo31
  31 :         if (iret.eq.2) call impo32
  31 :         if (iret.eq.3) call erreur(19)
  31 :         if (iret.eq.4) call erreur(19)
  31 :         if (iret.eq.0) call impos0
  32 : *
  33 : * EN 2D :
  34 : *--------
  35 :       else
  36 : *
  37 :         if (ifomod .ne. -1 .and. ifomod .ne. 0) then
  37 :           call erreur(710)
  38 :           return
  39 :         endif
  40 : *
  40 :         if (iret.eq.1) call impos1
  40 :         if (iret.eq.2) call impos2
  40 :         if (iret.eq.3) call impos4
  40 :         if (iret.eq.4) call impos7
  40 :         if (iret.eq.0) call impos0
  41 : 
  42 :       endif
  43 : 
  44 :       return
  45 :       end
  46 : 
  47 :