Télécharger indic.eso

Retour à la liste

Numérotation des lignes :

  1. C INDIC SOURCE CHAT 05/01/13 00:35:58 5004
  2. C INDIC SOURCE
  3. SUBROUTINE INDIC
  4. C=======================================================================
  5. C OPERATEUR INDIQUANT LA QUALITE D'UN MAILLAGE
  6. C PHILIPPE BEAUMIER 90
  7. C LECTURE DES MOTS CLES DE LA PROCEDURE ET APPEL A INDCR
  8. C
  9. C
  10. C SYNTAXE
  11. C -------
  12. C
  13. C CHL = INDI GEOM1 NOMI ...;
  14. C
  15. C GEOM1 = OBJET DE TYPE GEOMETRIE
  16. C NOMI = MOTS CLES
  17. C CHL = OBJET DE TYPE CHAMALEM (NOUVEAU CHAMALEM, OF COURSE|)
  18. C
  19. C=======================================================================
  20. C
  21. IMPLICIT INTEGER(I-N)
  22. IMPLICIT REAL*8(A-H,O-Z)
  23. CHARACTER*4 MOCLE(1)
  24. C
  25. DATA MOCLE/'PLAN'/
  26. IMAIL=0
  27. ICHA=0
  28. IER1=0
  29. IER2=0
  30. IER3=0
  31. C
  32. C LECTURE DU MAILLAGE (OBJET DE TYPE MAILLAGE)
  33. C
  34. CALL LIROBJ('MAILLAGE',IMAIL,1,IER1)
  35. IF(IER1.EQ.0) GOTO 666
  36. C
  37. C LECTURE DES MOTS CLES
  38. C
  39. CALL LIRMOT(MOCLE,1,IER2,1)
  40. IF(IER2.EQ.0) GOTO 666
  41. C
  42. C APPEL DE LA PROCEDURE DE CREATION DU CHAMALEM
  43. C
  44. IM=1
  45. C IM EST LE NOMBRE DE MOTS CLES LUS
  46. CALL INDCR(MOCLE,1,IER3,IMAIL,ICHA)
  47. C IF(IER3.EQ.0) THEN
  48. C CALL ERREUR( )
  49. C ELSE
  50. CALL ECROBJ('MCHAML',ICHA)
  51. C ENDIF
  52. C
  53. 666 RETURN
  54. END
  55.  
  56.  

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