Télécharger la plaquette Cast3M


fr en

Télécharger envvo2.eso

Retour à la liste

Numérotation des lignes : 

envvo2

  1. C ENVVO2    SOURCE    GOUNAND   21/04/07    21:15:05     10943          
  2.       SUBROUTINE ENVVO2(icle)
  3. *
  4.       IMPLICIT INTEGER(I-N)
  5.       IMPLICIT REAL*8 (A-H,O-Z)
  6. *
  7. *     20160713 : SG nouvelle programmation de envvol, simplifiée, en vue
  8. *                de traiter les faces TRI7/QUA9 nouvellement rajoutées 
  9. *     dans le bdata. La simplification sera egalement utile pour
  10. *     les subroutines inspirees de envvol : faced2, faced, envel1,
  11. *     dicho3
  12. *     icle=0 : renvoie l'enveloppe (operateur ENVE)
  13. *     icle=1 : renvoie les face (operateur CHAN FACE)
  14. *
  15. *     2021/04/06 : SG decoupage ENVVO2 en ENVVO2 + ENVVO3
  16. *                  ENVVO2 : interface à ENVVO3
  17. *                  ENNVO3 : fait le travail, est appelé aussi
  18. *                  directement par le mailleur topologique (topv3.eso)
  19. *     
  20. *
  21. -INC PPARAM
  22. -INC CCOPTIO
  23. -INC SMELEME
  24.       character*4 lnoid(1)
  25.       data lnoid/'NOID'/
  26.  
  27. *dbg      write(ioimp,*) 'coucou envvo2 IIMPI=',IIMPI
  28. c==== LECTURE ET OUVERTURE DU MELEME ==================================
  29. c     et eventuelle boucle 10 sur les ojbets meleme elementaires
  30.       CALL LIROBJ('MAILLAGE',MELEME,1,IRETOU)
  31.       CALL ACTOBJ('MAILLAGE',MELEME,1)
  32.       IF (IERR.NE.0) RETURN
  33.       call lirmot(lnoid,1,inoid,0)
  34. *      
  35.       CALL ENVVO3(MELEME,0,0,icle,inoid,IPT5)
  36.       IF (IERR.NE.0) RETURN
  37. *
  38.       CALL ACTOBJ('MAILLAGE',IPT5,1)
  39.       CALL ECROBJ('MAILLAGE',IPT5)
  40.  
  41.       RETURN
  42.       END
  43.  
  44.  
  45.  
  46.  

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