Télécharger aide.eso

Retour à la liste

Numérotation des lignes :

  1. C AIDE SOURCE JC220346 18/12/04 21:15:07 9991
  2. C RECHERCHE DANS LA NOTICE CASTEM2000
  3. C
  4. SUBROUTINE AIDE(KOP,NOP)
  5. IMPLICIT INTEGER(I-N)
  6. -INC CCOPTIO
  7. -INC CCNOYAU
  8. -INC TMLNOMS
  9. -INC SMLMOTS
  10. SEGMENT ITRAV
  11. CHARACTER*(LONOM) MOP(NAP),LOP(NAP)
  12. ENDSEGMENT
  13. SEGMENT KTRAV
  14. CHARACTER*(LONOM) MMOP(NN),LLOP(NN)
  15. ENDSEGMENT
  16. CHARACTER*4 KOP(NOP)
  17. CHARACTER*(LONOM) IHH
  18. CHARACTER*24 ICHAI
  19. CALL LIRCHA(ICHAI,1,ILEN)
  20. IF(IERR.NE.0) RETURN
  21. NAP = NOP
  22. * write(6,*) ' nop ' , NOP
  23. C FAIRE EVENTUELLEMENT LE TRI ALPHABETIQUE
  24. SEGINI ITRAV
  25. DO 30 I=1,NOP
  26. MOP(I)=KOP(I)
  27. 30 CONTINUE
  28. CALL TRIDEP(MOP,LOP,NAP)
  29.  
  30. *
  31. * AU TOUR DES PROCEDURES
  32. *
  33. CALL REPLIS('PROCEDUR',MLNOMS)
  34. SEGACT MLNOMS
  35. NN=LINOMS(/2)
  36. * write(6,*) ' nn ' ,NN
  37. SEGINI KTRAV
  38. DO 31 I=1,NN
  39. MMOP(I)=LINOMS(I)
  40. 31 CONTINUE
  41. SEGSUP MLNOMS
  42. CALL TRIDEP(MMOP,LLOP,NN)
  43.  
  44. *
  45. * RECHERCHE DANS LES OPERATEURS
  46. M=NOP+NN
  47. SEGINI,MLNOMS
  48. IDEJ=0
  49. DO 2 I=1,NOP
  50. IHH=MOP(I)
  51. IF(IHH.EQ.'....')GO TO 2
  52. c write(6,*) ' mot rechercher ' ,IHH
  53. CALL INFOR2(IHH, ICHAI(1:ILEN),ITROU)
  54. c write(6,*) ihh,ichai(1:ilen),itrou
  55. IF (ITROU.GE.1) THEN
  56. IDEJ=IDEJ+1
  57. LINOMS(IDEJ)=IHH
  58. ENDIF
  59. 2 CONTINUE
  60. c
  61. c RECHERCHE DANS LES PROCEDURES
  62. DO 7 I=1,NN
  63. IHH=MMOP(I)
  64. IF (IHH.EQ.'....') GO TO 7
  65. CALL INFOR2(IHH,ICHAI(1:ILEN),ITROU)
  66. c write(6,*) ihh,ichai(1:ilen),itrou
  67. IF (ITROU.GE.1) THEN
  68. IDEJ=IDEJ+1
  69. LINOMS(IDEJ)=IHH
  70. ENDIF
  71. 7 CONTINUE
  72. C
  73. C AFFICHAGE DES RESULTATS
  74. IF (IDEJ.NE.0) THEN
  75. WRITE (IOIMP,*) ' '
  76. MOTERR(1:8)=ICHAI
  77. CALL ERREUR(-286)
  78. M=IDEJ
  79. SEGADJ,MLNOMS
  80. CALL AFINOM(MLNOMS,LMAX)
  81. ENDIF
  82. C
  83. C CREATION DU LISTMOTS EN SORTIE
  84. JGN=LMAX
  85. JGM=IDEJ
  86. SEGINI,MLMOTS
  87. DO K=1,IDEJ
  88. MOTS(K)=LINOMS(K)
  89. ENDDO
  90. CALL ECROBJ('LISTMOTS',MLMOTS)
  91. SEGSUP ITRAV,KTRAV,MLNOMS
  92. RETURN
  93. END
  94.  
  95.  
  96.  
  97.  
  98.  

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