C IMPOSE    SOURCE    FANDEUR   11/10/07    21:15:48     7158           
C
C Operateur IMPO :
C
C  impo mail fabrique un maillage support des conditions eventuelles
C  impo bloc fabrique les raideurs et les depi a partir de ce maillage
C  impo acti cree les contours des surfaces de contact
C  impo impa cree directement la raideur de couplage en cas de contact
C
C  impo sans rien fabrique directement les raideurs et les depi
C
      subroutine impose

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC CCOPTIO
-INC SMCOORD

      character*4 mcle(4)
      data mcle /'MAIL','BLOC','ACTI','IMPA'/
*
      segact mcoord*mod
      call lirmot(mcle,4,iret,0)
      if (ierr.ne.0) return
*
*  aiguillage sur les differentes options de impo
*
* EN 3D :
*--------
      if (idim .eq. 3 ) then
*
        if (iret.eq.1) call impo31
        if (iret.eq.2) call impo32
        if (iret.eq.3) call erreur(19)
        if (iret.eq.4) call erreur(19)
        if (iret.eq.0) call impos0
*
* EN 2D :
*--------
      else
*
        if (ifomod .ne. -1 .and. ifomod .ne. 0) then
          call erreur(710)
          return
        endif
*
        if (iret.eq.1) call impos1
        if (iret.eq.2) call impos2
        if (iret.eq.3) call impos4
        if (iret.eq.4) call impos7
        if (iret.eq.0) call impos0

      endif

      return
      end