Télécharger la plaquette Cast3M


fr en

Télécharger model8.eso

Retour à la liste

Numérotation des lignes : 

model8

  1. C MODEL8    SOURCE    CHAT      12/01/17    21:15:36     7248
  2.       SUBROUTINE MODEL8(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3. *----------------------------------------------------------------------
  4. *    OBJET MODELE  -  CAS DE LA FORMULATION 'CONTACT'
  5. *    DEFINITION DES NOMS DE MODELES DE CONTACT
  6. *            ET DES NOMS DE TYPES D'ELEMENTS FINIS
  7. *----------------------------------------------------------------------
  8.       IMPLICIT INTEGER(I-N)
  9.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12. *
  13.       CHARACTER*16 MOMODL(100)
  14. *
  15.       CHARACTER*16 LESPRO(*)
  16.       CHARACTER*4 LESTEF(*)
  17. *
  18. *  NOMS DES MODELES DE contact -FROTTEMENTS
  19. *  -------------------------------
  20.       CALL MOCONT (MOMODL,NMOD)
  21. *
  22.       DO 1 I=1,NMOD
  23.          LESPRO(I)=MOMODL(I)
  24.  1    CONTINUE
  25.       NBPRO=NMOD
  26. *      write(6,*) 'lespro ',( lespro(i),i=1,nmod)
  27. *
  28.       IF(NBPRO.GT.N1MAX) THEN
  29.         CALL ERREUR(5)
  30.         GO TO 99
  31.       END IF
  32. *
  33. *  NOMS DE TYPES D'ELEMENTS FINIS
  34. *  ------------------------------
  35.       IF(IDIM.EQ.2) THEN
  36.           NBTEF=3
  37.           IF(NBTEF.GT.N2MAX) THEN
  38.             CALL ERREUR(5)
  39.             GO TO 99
  40.           END IF
  41.           LESTEF(1)='MULT'
  42.           LESTEF(2)='FRO3'
  43.           LESTEF(3)='CAF2'
  44.       ELSE IF(IDIM.EQ.3) THEN
  45.           NBTEF=3
  46.           IF(NBTEF.GT.N2MAX) THEN
  47.             CALL ERREUR(5)
  48.             GO TO 99
  49.           END IF
  50.           LESTEF(1)='MULT'
  51.           LESTEF(2)='FRO4'
  52.           LESTEF(3)='CAF3'
  53.       ENDIF
  54.       RETURN
  55.   99  CALL ERREUR(5)
  56.       RETURN
  57.       END
  58.  
  59.  
  60.  
  61.  
  62.  

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