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    GOUNAND   25/11/21    21:15:03     12404          
  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.       PARAMETER (NTOPO=3)
  32.       CHARACTER*4 MOTOPO(NTOPO)
  33. C
  34.       DATA MOCLE/'PLAN','ASPE','SKEW'/
  35.       DATA MOTOPO/'TOPO','ALIG','EQUI'/
  36.       ICHA=0
  37. C
  38. C Lecture du mot-cle particulier TOPO
  39. C
  40.       CALL LIRMOT(MOTOPO,NTOPO,itopo,0)
  41.       if (ierr.ne.0) return
  42. C
  43. C     LECTURE DU MAILLAGE (OBJET DE TYPE MAILLAGE)
  44. C
  45.       IMAIL=0
  46.       IER1=0
  47.       CALL LIROBJ('MAILLAGE',IMAIL,1,IER1)
  48.       IF(IERR .NE. 0)RETURN
  49.       CALL ACTOBJ('MAILLAGE',IMAIL,1)
  50.       IF(IERR .NE. 0)RETURN
  51.       if (itopo.ne.0) then
  52.          CALL INDI2(IMAIL,ITOPO)
  53.          RETURN
  54.       else
  55.  
  56. C
  57. C     LECTURE DES MOTS CLES
  58. C
  59.          NLUS=0
  60.          DO I=1,NCLE
  61.             CALL QUETYP(CHAR,0,IRETOU)
  62.             IF (CHAR.EQ.'        ') GOTO 1
  63.             CALL LIRMOT(MOCLE,NCLE,ICLE,1)
  64.             MOLUS(I)=MOCLE(ICLE)
  65.             NLUS=NLUS+1
  66.          ENDDO
  67. C
  68.  1       CONTINUE
  69. C     SI AUCUN MOT CLEF LU
  70.          IF (NLUS.EQ.0) THEN
  71.             CALL ERREUR(498)
  72.             RETURN
  73.          ENDIF
  74. C     REALISATION DE LA TACHE
  75.          SEGACT,MCOORD
  76.          CALL INDCR(MOLUS,NLUS,IMAIL,ICHA)
  77.          SEGDES,MCOORD
  78.  
  79.          CALL ACTOBJ('MCHAML',ICHA,1)
  80.          CALL ECROBJ('MCHAML',ICHA)
  81.       endif
  82. C
  83. 666   RETURN
  84.       END
  85.  
  86.  

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