Télécharger indic.eso

Retour à la liste

Numérotation des lignes :

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

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