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    GOUNAND   26/07/06    21:15:04     12593          
  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.       NBNN=NUM(/1)
  45.       NBELEM=NUM(/2)
  46.       NBREF=LISREF(/1)
  47.       INTERR(1)=MELEME
  48.       INTERR(2)=NBELEM
  49.       INTERR(3)=NBREF
  50.       IF (ITYPEL.LE.0) THEN
  51.         MOTERR(1:4)='    '
  52.       ELSE
  53.         MOTERR(1:4)=NOMS(ITYPEL)
  54.       ENDIF
  55.       CALL ERREUR(-19)
  56.       IF (NBREF.NE.0) THEN
  57.          CALL ERREUR(-18)
  58.          WRITE(IOIMP,2145) (LISREF(J),J=1,NBREF)
  59.  2145    FORMAT(8(1X,I9))
  60.       END IF
  61. *
  62.       NBE=NBELEM
  63.       if(jentet.eq.1) then
  64.         NBE=MIN(10,NBELEM)
  65.       endif
  66.       DO 146 L=1,NBE,10
  67.          if (ierr.ne.0) return
  68.          LH = MIN(L+9,NBELEM)
  69.          CALL ERREUR(-20)
  70.          WRITE (IOIMP,147) (M,M=L,LH)
  71.  147     FORMAT(5X,10I8)
  72.          WRITE (IOIMP,138) (NCOUL(ICOLOR(M)),M=L,LH)
  73.  138     FORMAT(5X,10A8)
  74.          WRITE (IOIMP,'(1X)')
  75.          DO 148 J=1,NBNN
  76.             WRITE(IOIMP,149) (NUM(J,K),K=L,LH)
  77.  149        FORMAT (5X,10I8)
  78.  148     CONTINUE
  79. *        END DO
  80.  146  CONTINUE
  81. *     END DO
  82.       END
  83.  
  84.  

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