Télécharger la plaquette Cast3M


fr en

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