Télécharger la plaquette Cast3M


fr en

Télécharger ecanno.eso

Retour à la liste

Numérotation des lignes : 

ecanno

  1. C ECANNO    SOURCE    CB215821  23/07/11    21:15:09     11703          
  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*(LOCHAI) 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       = NCOUL(ICOL)
  50.               MOTERR(5:44) = TXTE(1:40)
  51.               CALL ERREUR(-368)
  52. *
  53.           ELSEIF (ICLAS1.EQ.2) THEN
  54.               METIQ1 = ISEGT1
  55.               SEGACT,METIQ1
  56.               MELEME = METIQ1.INUPT
  57.               ICOL   = METIQ1.ICLRE
  58.               IPOS   = METIQ1.KPOSI
  59.               DIST   = METIQ1.DEPOR
  60.               BOOL   = METIQ1.BLIEN
  61.               TXTE   = METIQ1.TXETI
  62.               INTERR(3)        = MELEME
  63.               MOTERR           = NCOUL(ICOL)
  64.               MOTERR(5:6)      = MPOS(IPOS)
  65.               MOTERR(7:LOCHAI) = TXTE(1:LOCHAI-6)
  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.  
  79.  

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