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