Télécharger reper.eso

Retour à la liste

Numérotation des lignes :

  1. C REPER SOURCE JC220346 18/12/04 21:16:09 9991
  2. SUBROUTINE REPER(IRR)
  3. IMPLICIT INTEGER(I-N)
  4. SEGMENT MTOT
  5. CHARACTER*(8) MTY(0)
  6. ENDSEGMENT
  7. -INC CCNOYAU
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. -INC TMLNOMS
  12. CHARACTER*(*) IRR
  13. CHARACTER*(8) CTYP
  14. CHARACTER*(LONOM) CNOM
  15. CHARACTER*11 MYFMT
  16. EXTERNAL LONG
  17. SEGINI MTOT
  18. C
  19. C UN TYPE A ETE FOURNI => ON VERIFIE QU'IL EXISTE AU MOINS UN OBJET
  20. C DE CE TYPE EN MEMOIRE
  21. IF(IRR.NE.' ') THEN
  22. MTY(**)=IRR
  23. DO 11 I=1,LMNNOM
  24. IF(INOOB2(I).EQ.IRR) GOTO 10
  25. 11 CONTINUE
  26. MOTERR(1:8)=MTY(1)
  27. CALL ERREUR(-14)
  28. SEGSUP MTOT
  29. RETURN
  30. ENDIF
  31. C
  32. C SINON, ON DRESSE LA LISTE DES TYPES DE TOUS LES OBJETS EN MEMOIRE
  33. DO 1 I=1,LMNNOM
  34. DO 2 J=1,MTY(/2)
  35. IF(INOOB2(I).EQ.MTY(J)) GO TO 1
  36. 2 CONTINUE
  37. IF(INOOB2(I).EQ.' ') GO TO 1
  38. MTY(**)=INOOB2(I)
  39. 1 CONTINUE
  40. IF(MTY(/2).EQ.0) THEN
  41. CALL ERREUR (26)
  42. SEGSUP MTOT
  43. RETURN
  44. ENDIF
  45. C
  46. C POUR CHAQUE TYPE GIBIANE A LISTER, ON CHERCHE LES OBJETS NOMMES
  47. C PUIS ON LES AFFICHE AU FORMAT ADAPTE (SELON LE NOM LE PLUS LONG)
  48. 10 CONTINUE
  49. DO 3 II=1,MTY(/2)
  50. CTYP=MTY(II)
  51. CALL REPLIS(CTYP,MLNOMS)
  52. SEGACT MLNOMS
  53. IF(LINOMS(/2).EQ.0) GO TO 4
  54. MOTERR(1:8)=CTYP
  55. CALL ERREUR(-15)
  56. CALL AFINOM(MLNOMS,LMAX)
  57. 4 CONTINUE
  58. SEGSUP MLNOMS
  59. 3 CONTINUE
  60. C
  61. SEGSUP MTOT
  62. RETURN
  63. END
  64.  
  65.  
  66.  

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