Télécharger la plaquette Cast3M


fr en

Télécharger ecmai1.eso

Retour à la liste

Numérotation des lignes : 

ecmai1

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

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