Télécharger modfro.eso

Retour à la liste

Numérotation des lignes :

  1. C MODFRO SOURCE CHAT 12/01/17 21:15:48 7248
  2. SUBROUTINE MODFRO(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. * - CAS DE LA FORMULATION 'CONTACT' + FROTTEMENT +'COULOMB'
  5. * ou 'FROCABLE'
  6. * DEFINITION DES NOMS DES MODELES
  7. *----------------------------------------------------------------------
  8. IMPLICIT INTEGER(I-N)
  9. -INC CCOPTIO
  10. *
  11. CHARACTER*16 MOMODL(*)
  12. *
  13. * Noms des modeles
  14. *
  15. NMOD=5
  16. MOMODL(1)='UNILATERAL'
  17. MOMODL(2)='MAINTENU'
  18. MOMODL(3)='FROTTANT'
  19. MOMODL(4)='COULOMB'
  20. MOMODL(5)='FROCABLE'
  21. RETURN
  22. END
  23.  
  24.  
  25.  
  26.  

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