Télécharger la plaquette Cast3M


fr en

Télécharger ecmail.eso

Retour à la liste

Numérotation des lignes : 

ecmail

  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.  
  19. -INC PPARAM
  20. -INC CCOPTIO
  21. -INC SMELEME
  22. *
  23. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  24. * -----------
  25. *
  26. *     IELEME  (E)  POINTEUR D'UN "MAILLAGE".
  27. *
  28. * AUTEUR, DATE DE CREATION:
  29. * -------------------------
  30. *
  31. *     REPRISE: PASCAL MANIGOT     11 SEPTEMBRE 1987
  32. *
  33. * LANGAGE:
  34. * --------
  35. *
  36. *     ESOPE + FORTRAN77
  37. *
  38. ************************************************************************
  39. *
  40.       MELEME = IELEME
  41.       SEGACT MELEME
  42.       NBSOUS=LISOUS(/1)
  43. *
  44.       IF (NBSOUS.NE.0) THEN
  45. *
  46.          NBREF=LISREF(/1)
  47.          INTERR(1)=MELEME
  48.          INTERR(2)=NBSOUS
  49.          INTERR(3)=NBREF
  50.          CALL ERREUR(-16)
  51.          CALL ERREUR(-17)
  52.          WRITE(IOIMP,2143) (LISOUS(J),J=1,NBSOUS)
  53.          IF (NBREF.NE.0) THEN
  54.             CALL ERREUR(-18)
  55.             WRITE(IOIMP,2143) (LISREF(J),J=1,NBREF)
  56.          END IF
  57.  2143    FORMAT(8(1X,I9))
  58. *
  59.          DO 200 IB=1,NBSOUS
  60.             IPT1=LISOUS(IB)
  61.             CALL ECMAI1 (IPT1,JENTET)
  62.             if (ierr.ne.0) return
  63.   200    CONTINUE
  64. *
  65.          SEGDES,MELEME
  66. *
  67.       ELSE
  68. *
  69.          CALL ECMAI1 (IELEME,jentet)
  70. *
  71.       END IF
  72. *
  73.       RETURN
  74.       END
  75.  
  76.  
  77.  

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