Télécharger ecanno.eso

Retour à la liste

Numérotation des lignes :

  1. C ECANNO SOURCE JC220346 19/12/31 21:15:03 10442
  2. SUBROUTINE ECANNO(IANNO)
  3. C***********************************************************************
  4. C NOM : ECANNO
  5. C DESCRIPTION : Affiche le contenu d'un objet ANNOTATI a l'ecran
  6. C (appele par prlist)
  7. C***********************************************************************
  8. *
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8(A-H,O-Z)
  11.  
  12. -INC CCOPTIO
  13. -INC CCGEOME
  14. -INC SMANNOT
  15. *
  16. CHARACTER*70 TXTE
  17. LOGICAL BOOL
  18. *
  19. PARAMETER (NCLE=2)
  20. CHARACTER*4 MCLE(NCLE)
  21. DATA MCLE/'CATE','ETIQ'/
  22. *
  23. PARAMETER (NPOS=9)
  24. CHARACTER*4 MPOS(NPOS)
  25. DATA MPOS/'SO','S','SE','O','C','E','NO','N','NE'/
  26. *
  27. MANNO1 = IANNO
  28. SEGACT,MANNO1
  29. NBANNO = MANNO1.ICLAS(/1)
  30. *
  31. INTERR(1) = IANNO
  32. INTERR(2) = NBANNO
  33. CALL ERREUR(-367)
  34. *
  35. DO K=1,NBANNO
  36. ICLAS1 = MANNO1.ICLAS(K)
  37. IF (ICLAS1.GT.NCLE) CALL ERREUR(5)
  38. ISEGT1 = MANNO1.ISEGT(K)
  39. INTERR(1) = K
  40. INTERR(2) = ISEGT1
  41.  
  42. IF (ICLAS1.EQ.1) THEN
  43. MCATE1 = ISEGT1
  44. SEGACT,MCATE1
  45. ICOL = MCATE1.ICLRC
  46. TXTE = MCATE1.TXCAT
  47. MOTERR(5:44) = TXTE(1:40)
  48. MOTERR(1:4) = NCOUL(ICOL)
  49. CALL ERREUR(-368)
  50. *
  51. ELSEIF (ICLAS1.EQ.2) THEN
  52. METIQ1 = ISEGT1
  53. SEGACT,METIQ1
  54. INUM = METIQ1.INUPT
  55. ICOL = METIQ1.ICLRE
  56. IPOS = METIQ1.KPOSI
  57. DIST = METIQ1.DEPOR
  58. BOOL = METIQ1.BLIEN
  59. TXTE = METIQ1.TXETI
  60. MOTERR(7:46) = TXTE(1:40)
  61. INTERR(3) = INUM
  62. MOTERR(1:4) = NCOUL(ICOL)
  63. MOTERR(5:6) = MPOS(IPOS)
  64. REAERR(1) = DIST
  65. BOOERR(1) = BOOL
  66. CALL ERREUR(-369)
  67. *
  68. ELSE
  69. CALL ERREUR(5)
  70. ENDIF
  71. ENDDO
  72. *
  73. END
  74.  
  75.  
  76.  

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