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    GOUNAND   26/07/06    21:15:04     12593          
  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.       NBSOUS=LISOUS(/1)
  42. *
  43.       IF (NBSOUS.NE.0) THEN
  44. *
  45.          NBREF=LISREF(/1)
  46.          INTERR(1)=MELEME
  47.          INTERR(2)=NBSOUS
  48.          INTERR(3)=NBREF
  49.          CALL ERREUR(-16)
  50.          CALL ERREUR(-17)
  51.          WRITE(IOIMP,2143) (LISOUS(J),J=1,NBSOUS)
  52.          IF (NBREF.NE.0) THEN
  53.             CALL ERREUR(-18)
  54.             WRITE(IOIMP,2143) (LISREF(J),J=1,NBREF)
  55.          END IF
  56.  2143    FORMAT(8(1X,I9))
  57. *
  58.          DO 200 IB=1,NBSOUS
  59.             IPT1=LISOUS(IB)
  60.             CALL ECMAI1 (IPT1,JENTET)
  61.             if (ierr.ne.0) return
  62.   200    CONTINUE
  63. *
  64.       ELSE
  65. *
  66.          CALL ECMAI1 (IELEME,jentet)
  67. *
  68.       END IF
  69. *
  70.       RETURN
  71.       END
  72.  
  73.  

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