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

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