Télécharger la plaquette Cast3M


fr en

Télécharger indic.eso

Retour à la liste

Numérotation des lignes : 

indic

  1. C INDIC     SOURCE    CB215821  23/01/25    21:15:24     11573          
  2.       SUBROUTINE INDIC
  3. C=======================================================================
  4. C     OPERATEUR INDIQUANT LA QUALITE D'UN MAILLAGE
  5. C          PHILIPPE BEAUMIER  90
  6. C     LECTURE DES MOTS CLES DE LA PROCEDURE ET APPEL A INDCR
  7. C
  8. C
  9. C     SYNTAXE
  10. C     -------
  11. C
  12. C     CHL = INDI GEOM1 NOMI ... ;
  13. C
  14. C        GEOM1 = OBJET DE TYPE GEOMETRIE
  15. C        NOMI  = MOTS CLES
  16. C        CHL   = OBJET DE TYPE CHAMALEM (NOUVEAU CHAMALEM, OF COURSE|)
  17. C
  18. C=======================================================================
  19. C
  20.       IMPLICIT INTEGER(I-N)
  21.       IMPLICIT REAL*8(A-H,O-Z)
  22.  
  23. -INC SMCOORD
  24. -INC PPARAM
  25. -INC CCOPTIO
  26.  
  27.       PARAMETER (NCLE=3)      
  28.       CHARACTER*4 MOCLE(NCLE)
  29.       CHARACTER*(LOCOMP) MOLUS(NCLE)
  30.       CHARACTER*8 CHAR
  31.       CHARACTER*4 MOTOPO(1)
  32. C
  33.       DATA MOCLE/'PLAN','ASPE','SKEW'/
  34.       DATA MOTOPO/'TOPO'/
  35.       ICHA=0
  36. C
  37. C Lecture du mot-cle particulier TOPO     
  38. C      
  39.       CALL LIRMOT(MOTOPO,1,itopo,0)
  40.       if (ierr.ne.0) return
  41. C
  42. C     LECTURE DU MAILLAGE (OBJET DE TYPE MAILLAGE)
  43. C
  44.       IMAIL=0
  45.       IER1=0
  46.       CALL LIROBJ('MAILLAGE',IMAIL,1,IER1)
  47.       IF(IERR .NE. 0)RETURN
  48.       CALL ACTOBJ('MAILLAGE',IMAIL,1)
  49.       IF(IERR .NE. 0)RETURN
  50.       if (itopo.eq.1) then
  51.          CALL INDI2(IMAIL)
  52.          RETURN
  53.       else
  54.  
  55. C     
  56. C     LECTURE DES MOTS CLES
  57. C
  58.          NLUS=0
  59.          DO I=1,NCLE
  60.             CALL QUETYP(CHAR,0,IRETOU)
  61.             IF (CHAR.EQ.'        ') GOTO 1
  62.             CALL LIRMOT(MOCLE,NCLE,ICLE,1)
  63.             MOLUS(I)=MOCLE(ICLE)
  64.             NLUS=NLUS+1
  65.          ENDDO
  66. C
  67.  1       CONTINUE
  68. C     SI AUCUN MOT CLEF LU
  69.          IF (NLUS.EQ.0) THEN
  70.             CALL ERREUR(498)
  71.             RETURN
  72.          ENDIF
  73. C     REALISATION DE LA TACHE
  74.          SEGACT,MCOORD
  75.          CALL INDCR(MOLUS,NLUS,IMAIL,ICHA)
  76.          SEGDES,MCOORD
  77.  
  78.          CALL ACTOBJ('MCHAML',ICHA,1)
  79.          CALL ECROBJ('MCHAML',ICHA)
  80.       endif
  81. C
  82. 666   RETURN
  83.       END
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  

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