Télécharger la plaquette Cast3M


fr en

Télécharger mode24.eso

Retour à la liste

Numérotation des lignes : 

mode24

  1. C MODE24    SOURCE    PV090527  23/05/09    21:15:06     11666          
  2.       SUBROUTINE MODE24(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3. *----------------------------------------------------------------------
  4. *    OBJET MODELE  -  CAS DE LA FORMULATION 'CONTRAINTE'
  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 contraintes         
  19. *  -------------------------------
  20.       CALL MODCLI (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=1
  37.           IF(NBTEF.GT.N2MAX) THEN
  38.             CALL ERREUR(5)
  39.             GO TO 99
  40.           END IF
  41.           LESTEF(1)='MULT'
  42.       ELSE IF(IDIM.EQ.3) THEN
  43.           NBTEF=1
  44.           IF(NBTEF.GT.N2MAX) THEN
  45.             CALL ERREUR(5)
  46.             GO TO 99
  47.           END IF
  48.           LESTEF(1)='MULT'
  49.       ENDIF
  50.       RETURN
  51.   99  CALL ERREUR(5)
  52.       RETURN
  53.       END
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  

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