Télécharger la plaquette Cast3M


fr en

Télécharger ecmelx.eso

Retour à la liste

Numérotation des lignes : 

ecmelx

  1. C ECMELX    SOURCE    GOUNAND   21/04/02    21:15:01     10937          
  2.       SUBROUTINE ECMELX (IELEME,jentet)
  3. ************************************************************************
  4. *
  5. *                             E C M E L X
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     IMPRESSION D'UN MAILLAGE A UN SEUL TYPE D'ELEMENT (repris de
  12. *     ECMAI1 et adapte pour les segments MELEMX)
  13. *
  14. * MODULES UTILISES:
  15. * -----------------
  16. *
  17.       IMPLICIT INTEGER(I-N)
  18. *
  19. -INC PPARAM
  20. -INC CCOPTIO
  21. -INC CCGEOME
  22. -INC TMATOP1      
  23. *-INC SMELEMX
  24. *
  25. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  26. * -----------
  27. *
  28. *     IELEME  (E)  POINTEUR D'UN SEGMENT "MELEME".
  29. *                  ON NE VERIFIE PAS QU'IL CORRESPOND A UN MAILLAGE A
  30. *                  UN SEUL TYPE D'ELEMENT.
  31. *
  32. * AUTEUR, DATE DE CREATION:
  33. * -------------------------
  34. *
  35. *     REPRISE: PASCAL MANIGOT     11 SEPTEMBRE 1987
  36. *
  37. * LANGAGE:
  38. * --------
  39. *
  40. *     ESOPE + FORTRAN77
  41. *
  42. ************************************************************************
  43. *
  44.       MELEMX = IELEME
  45. *      SEGACT MELEMX
  46.       NBNN=NNCOU
  47.       NBELEM=NLCOU
  48.       INTERR(1)=MELEMX
  49.       INTERR(2)=NBELEM
  50.       IF (ITYPEX.LE.0) THEN
  51.         MOTERR(1:4)='    '
  52.       ELSE
  53.         MOTERR(1:4)=NOMS(ITYPEX)
  54.       ENDIF
  55.       CALL ERREUR(-19)
  56. *
  57.       NBELEM=NLCOU
  58.       NBE=NBELEM
  59.       if(jentet.eq.1) then
  60.         NBE=MIN(10,NBELEM)
  61.       endif
  62.       DO 146 L=1,NBE,10
  63.          if (ierr.ne.0) return
  64.          LH = MIN(L+9,NBELEM)
  65.          CALL ERREUR(-20)
  66.          WRITE (IOIMP,147) (M,M=L,LH)
  67.  147     FORMAT(5X,10I8)
  68. *         WRITE (IOIMP,138) (NCOUL(ICOLOR(M)),M=L,LH)
  69. * 138     FORMAT(5X,10A8)
  70.          WRITE (IOIMP,'(1X)')
  71.          DO 148 J=1,NBNN
  72.             WRITE(IOIMP,149) (NUMX(J,K),K=L,LH)
  73.  149        FORMAT (5X,10I8)
  74.  148     CONTINUE
  75. *        END DO
  76.  146  CONTINUE
  77. *     END DO
  78. *
  79. *      SEGDES,MELEMX
  80. *
  81.       RETURN
  82.       END
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  

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