Télécharger ecmail.eso

Retour à la liste

Numérotation des lignes :

  1. C ECMAIL SOURCE FANDEUR 14/01/16 21:15:10 7905
  2. SUBROUTINE ECMAIL(IELEME,JENTET)
  3. ************************************************************************
  4. *
  5. * E C M A I L
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * IMPRESSION D'UN MAILLAGE.
  12. *
  13. * MODULES UTILISES:
  14. * -----------------
  15. *
  16. IMPLICIT INTEGER(I-N)
  17. *
  18. -INC CCOPTIO
  19. -INC SMELEME
  20. *
  21. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  22. * -----------
  23. *
  24. * IELEME (E) POINTEUR D'UN "MAILLAGE".
  25. *
  26. * AUTEUR, DATE DE CREATION:
  27. * -------------------------
  28. *
  29. * REPRISE: PASCAL MANIGOT 11 SEPTEMBRE 1987
  30. *
  31. * LANGAGE:
  32. * --------
  33. *
  34. * ESOPE + FORTRAN77
  35. *
  36. ************************************************************************
  37. *
  38. MELEME = IELEME
  39. SEGACT MELEME
  40. NBSOUS=LISOUS(/1)
  41. *
  42. IF (NBSOUS.NE.0) THEN
  43. *
  44. NBREF=LISREF(/1)
  45. INTERR(1)=MELEME
  46. INTERR(2)=NBSOUS
  47. INTERR(3)=NBREF
  48. CALL ERREUR(-16)
  49. CALL ERREUR(-17)
  50. WRITE(IOIMP,2143) (LISOUS(J),J=1,NBSOUS)
  51. IF (NBREF.NE.0) THEN
  52. CALL ERREUR(-18)
  53. WRITE(IOIMP,2143) (LISREF(J),J=1,NBREF)
  54. END IF
  55. 2143 FORMAT(8(1X,I9))
  56. *
  57. DO 200 IB=1,NBSOUS
  58. IPT1=LISOUS(IB)
  59. CALL ECMAI1 (IPT1,JENTET)
  60. if (ierr.ne.0) return
  61. 200 CONTINUE
  62. *
  63. SEGDES,MELEME
  64. *
  65. ELSE
  66. *
  67. CALL ECMAI1 (IELEME,jentet)
  68. *
  69. END IF
  70. *
  71. RETURN
  72. END
  73.  
  74.  
  75.  

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