Télécharger mocont.eso

Retour à la liste

Numérotation des lignes :

  1. C MOCONT SOURCE CHAT 12/01/17 21:15:35 7248
  2. SUBROUTINE MOCONT(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. * - CAS DE LA FORMULATION 'CONTACT'
  5. * DEFINITION Du comportement global
  6. *----------------------------------------------------------------------
  7. IMPLICIT INTEGER(I-N)
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. *
  12. CHARACTER*16 MOMODL(*)
  13. *
  14. * Noms des modeles
  15. *
  16. NMOD=5
  17. MOMODL(1)='UNILATERAL'
  18. MOMODL(2)='PERMANENT'
  19. MOMODL(3)='FROTTANT'
  20. MOMODL(4)='COULOMB'
  21. MOMODL(5)='FROCABLE'
  22. RETURN
  23. END
  24.  
  25.  
  26.  
  27.  

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