Télécharger ccon.eso

Retour à la liste

Numérotation des lignes :

ccon
  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.  
  25. -INC PPARAM
  26. -INC CCOPTIO
  27.  
  28. PARAMETER(NMOT=2)
  29. CHARACTER*4 LMOT(NMOT)
  30. DATA LMOT/'STR2','STR1'/
  31.  
  32. * LECTURE D'UN EVENTUEL MOT-CLE
  33. CALL LIRMOT(LMOT,NMOT,IMOT,0)
  34.  
  35. * LECTURE DE L'OBJET MAILLAGE
  36. CALL LIROBJ('MAILLAGE',MEL,1,IRET)
  37. IF (IERR.NE.0) RETURN
  38.  
  39. * APPEL A PART7 (OPERATEUR PART QUI REMPLACE CCON)
  40. KLI=0
  41. KFA=0
  42. IF (IMOT.EQ.2) KLI=1
  43. IF (IMOT.EQ.1) KFA=1
  44. CALL PART7(MEL,KLI,KFA,0,0,0,0.D0,0,ITAB,0)
  45. IF (IERR.NE.0) RETURN
  46.  
  47. * FIN DE LA SUBROUTINE
  48. CALL ECROBJ('TABLE',ITAB)
  49.  
  50. RETURN
  51.  
  52. END
  53.  
  54.  
  55.  

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