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.  
  13. -INC PPARAM
  14. -INC CCOPTIO
  15. -INC CCGEOME
  16. -INC SMANNOT
  17. *
  18. CHARACTER*70 TXTE
  19. LOGICAL BOOL
  20. *
  21. PARAMETER (NCLE=2)
  22. CHARACTER*4 MCLE(NCLE)
  23. DATA MCLE/'CATE','ETIQ'/
  24. *
  25. PARAMETER (NPOS=9)
  26. CHARACTER*4 MPOS(NPOS)
  27. DATA MPOS/'SO','S','SE','O','C','E','NO','N','NE'/
  28. *
  29. MANNO1 = IANNO
  30. SEGACT,MANNO1
  31. NBANNO = MANNO1.ICLAS(/1)
  32. *
  33. INTERR(1) = IANNO
  34. INTERR(2) = NBANNO
  35. CALL ERREUR(-367)
  36. *
  37. DO K=1,NBANNO
  38. ICLAS1 = MANNO1.ICLAS(K)
  39. IF (ICLAS1.GT.NCLE) CALL ERREUR(5)
  40. ISEGT1 = MANNO1.ISEGT(K)
  41. INTERR(1) = K
  42. INTERR(2) = ISEGT1
  43.  
  44. IF (ICLAS1.EQ.1) THEN
  45. MCATE1 = ISEGT1
  46. SEGACT,MCATE1
  47. ICOL = MCATE1.ICLRC
  48. TXTE = MCATE1.TXCAT
  49. MOTERR(5:44) = TXTE(1:40)
  50. MOTERR(1:4) = NCOUL(ICOL)
  51. CALL ERREUR(-368)
  52. *
  53. ELSEIF (ICLAS1.EQ.2) THEN
  54. METIQ1 = ISEGT1
  55. SEGACT,METIQ1
  56. INUM = METIQ1.INUPT
  57. ICOL = METIQ1.ICLRE
  58. IPOS = METIQ1.KPOSI
  59. DIST = METIQ1.DEPOR
  60. BOOL = METIQ1.BLIEN
  61. TXTE = METIQ1.TXETI
  62. MOTERR(7:46) = TXTE(1:40)
  63. INTERR(3) = INUM
  64. MOTERR(1:4) = NCOUL(ICOL)
  65. MOTERR(5:6) = MPOS(IPOS)
  66. REAERR(1) = DIST
  67. BOOERR(1) = BOOL
  68. CALL ERREUR(-369)
  69. *
  70. ELSE
  71. CALL ERREUR(5)
  72. ENDIF
  73. ENDDO
  74. *
  75. END
  76.  
  77.  
  78.  

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