Télécharger ccon.eso

Retour à la liste

Numérotation des lignes :

  1. C CCON SOURCE JC220346 16/11/18 21:15:26 9187
  2. ************************************************************************
  3. * NOM : CCON
  4. * DESCRIPTION : Separation d'un maillage en composantes connexes
  5. * (inspire de la subrotine numop2)
  6. ************************************************************************
  7. * /!\ ATTENTION, CET OPERATEUR EST OBSOLETE ET DISPARAITRA PROCHAINEMENT
  8. ************************************************************************
  9. * APPELE PAR : pilot.eso
  10. ************************************************************************
  11. * ENTREES :: aucune
  12. * SORTIES :: aucune
  13. ************************************************************************
  14. * SYNTAXE (GIBIANE) :
  15. *
  16. * TAB1 = CCON ( | 'STR1' | ) MAIL1 ;
  17. * | 'STR2' |
  18. *
  19. ************************************************************************
  20. SUBROUTINE CCON
  21.  
  22. IMPLICIT INTEGER(I-N)
  23.  
  24. -INC CCOPTIO
  25.  
  26. PARAMETER(NMOT=2)
  27. CHARACTER*4 LMOT(NMOT)
  28. DATA LMOT/'STR2','STR1'/
  29.  
  30. * LECTURE D'UN EVENTUEL MOT-CLE
  31. CALL LIRMOT(LMOT,NMOT,IMOT,0)
  32.  
  33. * LECTURE DE L'OBJET MAILLAGE
  34. CALL LIROBJ('MAILLAGE',MEL,1,IRET)
  35. IF (IERR.NE.0) RETURN
  36.  
  37. * APPEL A PART7 (OPERATEUR PART QUI REMPLACE CCON)
  38. KLI=0
  39. KFA=0
  40. IF (IMOT.EQ.2) KLI=1
  41. IF (IMOT.EQ.1) KFA=1
  42. CALL PART7(MEL,KLI,KFA,0,0,0,0.D0,0,ITAB,0)
  43. IF (IERR.NE.0) RETURN
  44.  
  45. * FIN DE LA SUBROUTINE
  46. CALL ECROBJ('TABLE',ITAB)
  47.  
  48. RETURN
  49.  
  50. END
  51.  
  52.  
  53.  

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