Télécharger la plaquette Cast3M


fr en

Télécharger impose.eso

Retour à la liste

Numérotation des lignes : 

impose

  1. C IMPOSE    SOURCE    PASCAL    21/06/08    21:15:00     10793          
  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.  
  18. -INC PPARAM
  19. -INC CCOPTIO
  20. -INC SMCOORD
  21.  
  22.       character*4 mcle(4)
  23.       data mcle /'MAIL','BLOC','ACTI','IMPA'/
  24. *
  25.       segact mcoord*mod
  26.       call lirmot(mcle,4,iret,0)
  27.       if (ierr.ne.0) return
  28.  
  29.       if (iret.eq.4.and.idim.eq.2) then
  30.         call impos7
  31.       else
  32.         CALL ERREUR(21)
  33.       endif
  34.  
  35.       RETURN
  36.       END
  37.  
  38.  
  39.  
  40.  

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