Télécharger ecmai1.eso

Retour à la liste

Numérotation des lignes :

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

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